|
こんにちは。かみちゃん です。
>モーグ掲示板にて下記の質問をしましたが、満足のいく回答が得られなかった
結果的に、こちらでichinoseさんがおっしゃっている、サンプルデータの提示が
なかったのが、原因かと思います。
こちらで、サンプルデータの提示がありましたので、やっと、本当にしたいこと
がわかったような気がします。
ただし、異なるデータがあったらどうするのでしょうか?
ichinoseさんのコードは、同じ数値のデータを探しているのではなく、G5セルを
基点として、G列の下方向に次の空白のひとつ上のセル範囲(G5:G10)を取得して、
そのセル範囲の一番下のセル(G10)だけを黒色にするというものです。
また、Tさんのコードは、ayakaさんの提示された例題を忠実に実現されていますが、
「同じ数値の個数は決まっていない」つまり、G5:G10のときは対応できるが、
G5:G11のときは対応できないと思います。
さらに、mougで回答のついているTry2は、少し複雑に見えますが、ayakaさんが
したいことが実現できると思います。
そして、今さらながら、mougで最初にご質問されたときに提示されたコードを修正
されるならば、以下のようなコードでもできると思います。
Sub フォント色_moug_ayaka()
Dim x As Long
With Range("G5:G19")
' .Font.ColorIndex = xlAutomatic
.Font.ColorIndex = 1 '★
For x = 1 To .Count - 1
If .Cells(x + 1).Value = "" Then Exit For '★
.Cells(x).Font.ColorIndex = 2
Next
End With
End Sub
もっとも、ichinoseさんご提示のコードが一番簡単なわけですが・・・
もし、これで解決されて、mougも閉じていただけるならば、どのように解決した
のか、あちらでもご紹介していただけると、コメントを寄せていただいた方にも
失礼にはならないかと思いますし、掲示板を見ている他の方々の役にも少しは立
てるのではないかと思いますので、ご配慮いただければと思います。
|
|