|
> Set myRng = Application.Intersect(Range("F:F"))
これの書き方と。
> Case 起票: myColor = 38 '淡いピンク
> Case 担当割当: myColor = 39 '淡い紫
> Case 修正済み: myColor = 45 '淡いオレンジ
> Case 修正確認待ち: myColor = 36 '淡い黄色
> Case 修正確認OK: myColorl = 37 '淡い水色
> Case 保留: myColor = 35 '淡い緑
> Case 完了: myColor = 48 '灰色
↑
これだと、起票やら、完了といった変数になる。
この辺が良くわからないけど。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myColor As Long
Dim cc As Range
Dim myRng As Range
Set myRng = Application.Intersect(Range("F:F"), Target)
If myRng Is Nothing Then Exit Sub
'Application.EnableEvents = False
'色付けではイベントが発生しない。不要。
For Each cc In myRng
Select Case cc.Value
Case "起票": myColor = 38 '淡いピンク
Case "担当割当": myColor = 39 '淡い紫
Case "修正済み": myColor = 45 '淡いオレンジ
Case "修正確認待ち": myColor = 36 '淡い黄色
Case "修正確認OK": myColorl = 37 '淡い水色
Case "保留": myColor = 35 '淡い緑
Case "完了": myColor = 48 '灰色
Case Else: myColor = xlNone
End Select
Cells(cc.Row, 14).Resize(2, 10).Interior.ColorIndex = myColor
Next cc
'Application.EnableEvents = True
End Sub
|
|