Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
19708 / 76732 ←次へ　｜　前へ→
【62452】Re:選択範囲内で中央の選択範囲の取得
発言  もも  - 09/7/22(水) 18:35 -
引用なし
パスワード
   ▼ON さん：
こんにちは
横入りすみません。

面白そうでしたので参加させてください。

こんな感じではどうでしょうか？


Sub test()
Dim rngBuf As Range, c As Range
For Each c In Selection
　flgStyle = (c.HorizontalAlignment = xlCenterAcrossSelection)
　flgValue = (c.Value <> "")
　If flgStyle And flgValue Then
　　If rngBuf Is Nothing Then
　　　Set rngBuf = c
　　Else
　　　Debug.Print rngBuf.Address
　　　Set rngBuf = c
　　End If
　ElseIf flgStyle Then
　　Set rngBuf = Application.Union(rngBuf, c)
　ElseIf Not rngBuf Is Nothing Then
　　Debug.Print rngBuf.Address
　　Set rngBuf = Nothing
　End If
Next c
If Not rngBuf Is Nothing Then
　Debug.Print rngBuf.Address
　Set rngBuf = Nothing
End If
End Sub
98 hits
▼ 【62416】選択範囲内で中央の選択範囲の取得 ON 09/7/21(火) 16:27 質問
【62418】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/21(火) 17:01 発言
【62419】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/21(火) 17:10 発言
【62420】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/21(火) 17:23 回答
【62426】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/21(火) 17:50 発言
【62427】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/21(火) 18:32 回答
【62428】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/21(火) 18:48 発言
【62429】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/21(火) 20:32 回答
【62437】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/22(水) 15:16 発言
【62439】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/22(水) 15:51 発言
【62442】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/22(水) 16:39 発言
【62443】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/22(水) 16:44 発言
【62446】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/22(水) 17:00 回答
【62447】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/22(水) 17:12 発言
【62451】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/22(水) 18:12 お礼
【62425】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/21(火) 17:45 回答
【62452】Re:選択範囲内で中央の選択範囲の取得 もも 09/7/22(水) 18:35 発言≪
【62455】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/22(水) 19:31 発言
【62456】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/22(水) 19:38 お礼
【62470】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/23(木) 14:13 質問
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
19708 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free