excel VBA 色をセルに自動的に付ける
エクセル2000を使用していて、VBA初心者で勉強中の者です。
タイムテーブルを作っています。
入力はユーザーフォームを使っています。
コマンドボタンを押すとtextboxにある値を判断してセルに色を付けるマクロを教えてください。
タイムテーブルは列は15分で1列使い、1時間で4列です。
1曜日は4行分使い、4行目に予定時間（textbox2)が入ります。
15分なら0.25 30分なら0.5 1時間は1 ・・・
ユーザーフォームの登録ボタンをクリックした時4行目に入力される値で
判断して、例えば0.15ならセルを1つ塗りつぶし、1時間なら4列分塗りつぶすマクロを教えてください。
塗りつぶすセルの値が入っているのはtextbox2
色は ColorIndex = 33
textbox2の値が0.01～0.25は１列分塗りつぶし
0.26～0.5は２列分塗りつぶし
0.51～0.75は３列分塗りつぶし
0.76～1は４列分塗りつぶし
1.01～0.25は５列分塗りつぶし
・・・
4.76～5は20列分塗りつぶし
よろしくお願いします。
以下はユーザーフォームの登録ボタンを押す時のコードです。
Private Sub CommandButton1_Click()
'未入力なら中止
If ComboBox2.Value = "" Then
MsgBox "時間を入力"
Cancel = True
Exit Sub
ElseIf ComboBox3.Value = "" Then
MsgBox "時間を入力"
Cancel = True
Exit Sub
End If
Call Macro登録
End Sub
Sub Macro登録()
With ActiveSheet
.Cells(行, 列).Value = ComboBox1.Text'1行目の値
.Cells(行 + 1, 列).Value = TextBox1.Text'2行目の値
.Cells(行 + 2, 列).Value = ComboBox2.Text & "～" & ComboBox3.Text'3行目の値
.Cells(行 + 3, 列).Value = TextBox2.Value'4行目の値
End With
End Sub
