該当行全体の色変化の方法

質問

はじめまして。
最近、VBプログラミングに触れ始めました。
自分には非常に敷居が高すぎる内容ですので、宜しければご教示をお願いしたく、今回投稿させて頂きました。

まず表のフォーマットは以下の通りです。

表(B2:S44)

※B-F列の2・3行目はセル結合し、"番号"・"氏名"・"ステータス"・"日時"・"備考"を記載。

※I-S列の2行目は、2列毎に結合して月日を記載。
(1箇所のみ結合なしのセルで月日を記載)
3行目については結合せずに10:00/18:00のように２つの時間帯を記載
(1箇所のみ1つの時間帯を記載)。

※D/E列の項目にはドロップダウンリストを使用。
(Indirectを用いる。
D列の値は"保留"・"決定"・"完了"。
E列の値は、D列が"決定"を選択した時のみ日時を選択可能)

そこで今回実施したい内容ですが、

1. E列にて日時を選択した際、(G4:S44)内の同じ日時に該当するセルに"○"を記載し、同時にそのセルの色を赤くする。
2. 1に該当したセル以外のB列からS列のセル群(1と同じ行)を明るい緑に着色する。
3. それ以外の値が入った際は何もしない。

になります。
この動作内容を満たすプログラムについてお教え頂けますでしょうか。

自分なりに幾度か作成してみましたが、あらゆるエラーの連発でとてもこちらに掲載できる代物ではありません。
その部分をご了承して頂ければ幸いです。

ただ試行錯誤を繰り返す中で感じた事は、

1. "範囲指定"の方法の不正確さ
(Rangeオブジェクト/プロパティやxlDownの使用方法など)
2. 変数の設定法が未熟
(無理に正規表現を絡めている? など)

の2点です。

以上となりますが、宜しくお願い致します。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.2

mitarashi · ベストアンサー

#1です。
E列の選択肢は、"1月1日 10:00","1月1日 18:00","1月2日 10:00",...
という形と仮定すると、下記のコードでできると思います。
（当方XL2000ですので、上位バージョンで動かなかったら悪しからず）
作業行を設けて、検索する相手も、"1月1日 10:00"という形にしておくと、面倒な文字列処理が要らなくなります。その範囲を、E列の入力規則のリスト元にするという手もあるかもしれません。
理解が異なっているところがあれば手直しはいたしますが、解説はご容赦下さい。
目的のシートの、シートモジュールに記述してください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim buf As String
Dim strDate As String, strTime As String
Dim spcPos As Long
Dim dateRange As Range, myRange As Range

If Intersect(Range("E2:E44"), Target) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
'E列の日時が1月1日 10:00"の形で入っているとする
buf = Target.Value
spcPos = InStr(buf, " ")
strDate = Left(buf, spcPos - 1)
strTime = Mid(buf, spcPos + 1, Len(buf) - spcPos)
Set dateRange = Range("I2:S2").Find(strDate, LookIn:=xlValues, lookat:=xlWhole)
If dateRange Is Nothing Then
MsgBox ("みつかりません")
Exit Sub
End If
Select Case strTime
Case "10:00"
Set myRange = Target.Offset(0, dateRange.Column - Target.Column)
Case "18:00"
Set myRange = Target.Offset(0, dateRange.Column - Target.Column + 1)
End Select
Intersect(myRange.EntireRow, Range("G4:S44")).Interior.ColorIndex = 35
myRange.Interior.ColorIndex = 3
End Sub

参考URL：

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html

お礼

非常に参考になりました。
記載されている内容を咀嚼し、併せて動作確認も実施させて頂きました。

"特定の文字列を抽出する"方法は、他のプログラミングにも活かされるテクニックだと感じました。

ご多忙の中、的確なアドバイスをご教示して頂き、本当にありがとうございました。

回答No.1

mitarashi

E列の入力規則で日時を選択したときに、ワークシートのchangeイベントで、選択した日時と、見出し行の日時に関連づけられる値のセルを検索して．．．という事が考えられますが、どの様に関連付けられるのかが御質問からは読み取れませんので、回答が付かないものと思います。実際のワークシートの画像を添付されてはいかがでしょうか。また、参照元と、参照先の日時が文字列なのか、日付シリアル値なのかによってもコードは変わる可能性がありますので、その情報も必要です。

お礼

ご多忙の中、ご返答を執り行って頂き誠にありがとうございました。

補足

ご返答、誠にありがとうございます。

説明の補足を行わせて頂きます。

例：
I2とJ2のセルを結合して日付(文字列)を記載("1月8日"など)
I3/J3の各セルに時間(文字列)を記載("10:00"/"16:00"など)

このようなフォーマットでS列まで続きます。

指定したドロップダウンの行と、上記の該当するする日時が交差するセルに"○"を記入し、同時にセル色を赤くする…といった内容になります。

参照元並びに参照先の日時はいずれも"文字列"になります。

画像のUPを試行致しましたが、正常に実施されなかったようです。
引き続き画像のUPも試行致しますので何卒宜しくお願い致します。