ＶＢＡ セル色取得

質問

現在車の配車用のエクセルを作っているのですが、Ａ車、Ｂ車、Ｃ車が何時から誰が使用していたかを管理したくて、セルの色も一緒に表の中でかえたら見やすいかなと思っております。

そこで質問ですが以下の関数は難しいと思いますので、以下の形式で色を一気に取得できるコードを教えてください。

1.行は決まっておりますがどの時間帯になるかは不明
2.Ａ車は2ｈなので2列、Ｂ車は3ｈなので3列の色を変更
3.Ａ、Ｂ、Ｃそれぞれセルの色を変えたい。

書いていてつかみどころがなくなってしまいましたが、if~を使って任意のセルからrangeで色が指定できるコードを教えてくださればあとは何とかします。
よろしくお願いいたします。

回答No.1

HohoPapa · ベストアンサー

こんなカンジでいかがでしょうか。

Sub MyTest()

　Dim wkRange As Range

　With ThisWorkbook.Sheets(1)

　　Set wkRange = Range(.Cells(2, 3), .Cells(5, 6))
　　SetColor wkRange

　　Set wkRange = Range("B22:D28")
　　SetColor wkRange

　End With

End Sub

Sub SetColor(TargetRange As Range)　'指定範囲に背景色をセット

　Dim wkRange As Range

　For Each wkRange In TargetRange
　　'wkRange.Interior.Color = 65535　 '<==染める色
　　wkRange.Interior.Color = vbYellow
　Next wkRange

End Sub

お礼

ちょっと質問の内容が漠然としていたようで無用の混乱が生じてしまいました。
丁寧なコードの表記ありがとうございました。

回答No.4

tsubu-yuki

ご質問の内容としてツッコミどころは少し多めですが・・
多分もっとも重要な条件として。
> 何時から誰が使用していたか
つまり、「人毎に色分け」したいという事でしょうか。
それとも、あくまでも
> Ａ、Ｂ、Ｃそれぞれセルの色を変えたい。
＝「車（行）毎の色分け」をお望みでしょうか。
それによって、コードも構造も全く変わってしまいます。
というか、現状の「表」はどのような構造でしょうか。
当然ながら、コレもコードの書き方（というか処理の考え方）に
大きくかかわってきます。

まぁとりあえず、
> Ａ車は2ｈなので2列、Ｂ車は3ｈなので3列
この「列」をフレキシブルに設定する方法として、
Resize というものがあります。
　　起点.Resize(行数, 列数)
という使い方をします。
行数・列数には「変更後の行列数」を指定します。
つまり、Ａ１セルを起点に「１行２列」の色を変えるには
　　Range("A2").Resize(1, 2).Interior.Color = 255　　' 赤
などといった具合。
「２ｈ」を何かで判断できるなら、それを渡せばＯＫです。

お礼

コードの表記ありがとうございました。
これを元にアレンジしてみます。

回答No.3

imogasi

（私はVBAお勧め派ですが）VBAも良いが、エクセルの「条件付き書式」でできないか質問しなおしたらどうか。
また、質問文にその為には、少数セル（行）のシートのデータ例を挙げるべきだ。それがないと回答コードもそのまま使えないだろう。手直しは初心者には望めないだろうし。
VBAの学習は、人によっては、生易しいものではないと思う。
質問者は「エクセル　ＶＢＡ　セル色付け」といったＷＥＢ照会も、してないようだ。
http://officetanaka.net/excel/vba/cell/cell05.htm
の「背景色の設定」など。
また質問文にその為には、少数セル（行）のシートのデータ例を挙げるべきだ。
挙げてないということは、現在はＶＢＡをやる段階ではないと思う。
コードは、データに左右されることを重視してないように思う。
ーー
ちょっとVBAをかじった人なら
Sub test01()
ActiveSheet.Range("b2:E2").Interior.ColorIndex = 12
End Sub
のようなものを参考に、拡張して作れるだろうが、
・色の設定の書き方（RGBやColorIndexや色定数vbRedなど）
・ＷＥＢ記事では、テーマカラー例.Interior.ThemeColor = 10といったものもありややこしい。
・条件(運転手名？＋何か？不明）をかます（絞る）コード。これが初心者にはむつかしい。
など結構熟練が必要なような気がする。
取得は
Sub test03()
ActiveSheet.Range("b2:E2").Interior.ColorIndex = 12
MsgBox ActiveSheet.Range("b２").Interior.ColorIndex
End Sub
のようなコードですが、設定されているセル範囲を適当に指定しないと
エラーになるようだ。設定されているか（同じコードの範囲でか）どうか、まず判別が必要なようだ。
Sub test01()
ActiveSheet.Range("b2:E2").Interior.ColorIndex = 12
MsgBox ActiveSheet.Range("b2:F2").Interior.ColorIndex
End Sub
はエラー

お礼

コード表記ありがとうございました。
こちらを元にアレンジしてみます。

回答No.2

mt2015

こんな感じで色を付ける事は出来ます。
Range("A1:B1").Interior.Color = RGB(255, 0, 0)

でも、これは条件付き書式で十分に対応できそうな内容じゃないかなと思います（実際のシートをイメージできないため具体的な話は出来ませんが……）。
VBAでやるなら、変更時にその色を消すような処理も必要ですよ。

お礼

コードの表記ありがとうございました。
これを元になんとかアレンジしてみます。