|
こたつねこさんへ
ありがとうございました。
実は、S/,M/,L/,O/サイズの列に便宜上、レディースSサイズ〜レディースフリー
サイズを重ねて表示していたため(わかりにくてすみません)、
重複しているレディースサイズの表示がS/,M/,L/,O/となってしまいました。
いろいろやってみたのですが、下のような内容を追加で
つけたいと思います。(初心者っぽくてすみません)
Cells(v, 5).Select
Select Case Cells(v, 5)
Case "A"
With Selection.Interior
.ColorIndex = 31
.Pattern = xlSolid
●→?Cells ("F"&i :"O"&i).Interior.color = RGB(0,0,0)
End With
(v,5)のセルが条件ごとに色がかわっているので、
それにつけたして、
Cells ("F"&i :"O"&i).Interior.color = RGB(0,0,0)
のように、他のセルも色を変える方法を教えてください。
めちゃくちゃだと思うんですが、わかりますか?
昨日から、何度も本当にすみません。
これで完成しそうです。
どうぞよろしくお願いいたします。
Dim v As Integer
For v = 1 To ngEndROW
Cells(v, 5).Select
Select Case Cells(v, 5)
Case "A"
With Selection.Interior
.ColorIndex = 31
.Pattern = xlSolid
End With
Case "B"
With Selection.Interior
.ColorIndex = 42
.Pattern = xlSolid
End With
Case "C"
With Selection.Interior
.ColorIndex = 37
.Pattern = xlSolid
End With
Case "D"
With Selection.Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
Case "E"
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Case "F"
With Selection.Interior
.ColorIndex = 38
.Pattern = xlSolid
End With
End Select
Next v
End Sub
|
|