以下の設定により、セルの内容によって色分けするように設定しています。また、セルには数式を入れており、IF式を使用して、他のセルの値によって"◎"や"×"などを表示するようにしてします。が、セルの表示が切り替わっても色が替わりません。ちなみに、数式をコピペするとちゃんと色分けされます。数式が参照するセルの内容が変わったと同時に色が変わるようにするにはどうすればいいのでしょうか?どなたか詳しい方教えてください。宜しくお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 Then
x = Target.Value
c = 0
If x Like "◎" Then c = 33
If x Like "○" Then c = 6
If x Like "△" Then c = 3
If x Like "×" Then c = 1
Target.Interior.ColorIndex = c
End If
End Sub
以下の設定により、セルの内容によって色分けするように設定しています。また、セルには数式を入れており、IF式を使用して、他のセルの値によって"◎"や"×"などを表示するようにしてします。が、セルの表示が切り替わっても色が替わりません。ちなみに、数式をコピペするとちゃんと色分けされます。数式が参照するセルの内容が変わったと同時に色が変わるようにするにはどうすればいいのでしょうか?どなたか詳しい方教えてください。宜しくお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 Then
x = Target.Value
c = 0
If x Like "◎" Then c = 33
If x Like "○" Then c = 6
If x Like "△" Then c = 3
If x Like "×" Then c = 1
Target.Interior.ColorIndex = c
End If
End Sub
急遽、エクセルVBAを組んでくれと頼まれたのでわかる方、教えていただけますか?
開始日時(A行)と終了日時(B行)があり、
開始と終了の範囲でC以降日付になっており
指定の範囲内でセルの色が塗られるいうものなのですが
なにせ急ぎとVBAがほとんどわからないのでなるべくわかりやすく
教えていただけるとありがたいです。
ちなみにsheetにコードを記入するのとmoduleにコードを記入するのでは
どう違うのですか?わからないまでも一応、色が塗られるところまでは
できたのですがどうやってセルの時間を取得して範囲を指定すれば
良いのかなどがわかりませんどうかよろしくお願い致します。
下記は作成途中ですが・・・
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim row As Integer
Dim line As Integer
row = 5
line = 9
Set objR = Range("A1").Resize(1, 4).Offset(1, 2)
objR.Interior.ColorIndex = 8
End Sub
急遽、エクセルVBAを組んでくれと頼まれたのでわかる方、教えていただけますか?
開始日時(A行)と終了日時(B行)があり、
開始と終了の範囲でC以降日付になっており
指定の範囲内でセルの色が塗られるいうものなのですが
なにせ急ぎとVBAがほとんどわからないのでなるべくわかりやすく
教えていただけるとありがたいです。
ちなみにsheetにコードを記入するのとmoduleにコードを記入するのでは
どう違うのですか?わからないまでも一応、色が塗られるところまでは
できたのですがどうやってセルの時間を取得して範囲を指定すれば
良いのかなどがわかりませんどうかよろしくお願い致します。
下記は作成途中ですが・・・
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim row As Integer
Dim line As Integer
row = 5
line = 9
Set objR = Range("A1").Resize(1, 4).Offset(1, 2)
objR.Interior.ColorIndex = 8
End Sub