Excel VBA質問箱 IV

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

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


35253 / 76732 ←次へ | 前へ→

【46680】Re:フォント色の指定について
発言  かみちゃん  - 07/2/12(月) 10:36 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>モーグ掲示板にて下記の質問をしましたが、満足のいく回答が得られなかった

結果的に、こちらで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も閉じていただけるならば、どのように解決した
のか、あちらでもご紹介していただけると、コメントを寄せていただいた方にも
失礼にはならないかと思いますし、掲示板を見ている他の方々の役にも少しは立
てるのではないかと思いますので、ご配慮いただければと思います。
1 hits

【46674】フォント色の指定について ayaka 07/2/12(月) 6:46 質問
【46675】Re:フォント色の指定について ichinose 07/2/12(月) 7:54 発言
【46676】Re:フォント色の指定について ayaka 07/2/12(月) 8:20 質問
【46677】Re:フォント色の指定について ichinose 07/2/12(月) 8:49 発言
【46678】Re:フォント色の指定について T 07/2/12(月) 9:04 発言
【46686】Re:フォント色の指定について Kein 07/2/12(月) 14:02 回答
【46679】Re:フォント色の指定について かみちゃん 07/2/12(月) 9:19 発言
【46680】Re:フォント色の指定について かみちゃん 07/2/12(月) 10:36 発言
【46700】Re:フォント色の指定について ayaka 07/2/12(月) 17:20 お礼
【46685】Re:フォント色の指定について Hirofumi 07/2/12(月) 12:06 回答

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