Excel VBA質問箱 IV

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

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


15496 / 76734 ←次へ | 前へ→

【66715】Re:違う文字色それぞれの最高値
発言  Abebobo  - 10/9/29(水) 10:48 -

引用なし
パスワード
   '最初のFor Each は Unionメソッド を使う為に初期Rangeをセット
'次ののFor Each で Unionメソッド

Sub test()
Dim FC_Ch_R  As Range
Dim FC2    As Range
Dim FC3    As Range
Dim FC    As Range
Const C_no2 As Long = 2
Const C_no3 As Long = 3

For Each FC_Ch_R In Selection
 With FC_Ch_R.Font
'  Debug.Print .ColorIndex
  Select Case .ColorIndex
  Case C_no2
   Set FC2 = FC_Ch_R
  Case C_no3
   Set FC3 = FC_Ch_R
  Case Is <> C_no2, Is <> C_no3
   Set FC = FC_Ch_R
  End Select
 End With
Next

For Each FC_Ch_R In Selection
 With FC_Ch_R.Font
  Select Case .ColorIndex
  Case C_no2
   Set FC2 = Union(FC_Ch_R, FC2)
  Case C_no3
   Set FC3 = Union(FC_Ch_R, FC3)
  Case Is <> C_no2, Is <> C_no3
   Set FC = Union(FC_Ch_R, FC)
  End Select
 End With
Next
Debug.Print FC2.Address(0, 0)
Debug.Print FC3.Address(0, 0)
Debug.Print FC.Address(0, 0)
End Sub

前半のループがムダだと思うんですけど・・・。
ほかに良い方法があるんでしょうか?
1 hits

【66713】違う文字色それぞれの最高値 Yuki 10/9/28(火) 18:13 質問
【66715】Re:違う文字色それぞれの最高値 Abebobo 10/9/29(水) 10:48 発言
【66719】Re:違う文字色それぞれの最高値 teian 10/9/29(水) 17:15 発言

15496 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free