|
>'*********追加ここから*******
>
> MyRow ActiveSheet.Range("A130").End(xlUp).Row
> For j = 6 To MyRow
> For i = 0 To 36
> MyVal = ActiveSheet.Cells(6, j).Offset(i, 0)
>
> Select Case ActiveCell
↑
このActiveCellってのが、よく解らないんですが...。
使い方が間違っているような気もするし、
セルに何か書き込んだ場合、アクティブセルと
書き込んだセル(Targetセル?)の位置は違うと思いますが。
>
> Case MyVal = "AA"
> ActiveCell.Select
> With Selection.Interior
> .ColorIndex = 46
> .Pattern = xlSolid
> .PatternColorIndex = xlAutomatic
> End With
>
> Case MyVal = "BB"
> ActiveCell.Select
> With Selection.Interior
> .ColorIndex = 47
> .Pattern = xlSolid
> .PatternColorIndex = xlAutomatic
> End With
>
> Next i
> Next j
>'*********ここまで**********
|
|