- Excel VBA 質問スレ Part44 [無断転載禁止]©2ch.net
174 ：デフォルトの名無しさん[]：2016/11/28(月) 10:33:38.20 ID:75y4ehkP - 選択範囲内で黄色く塗りつぶしがされているセルがあってなおかつ右隣or左隣が赤色に塗りつぶされていれば
その赤色セルを黄緑色に塗りつぶす、というマクロを書きたいのですが
Sub cellcolor()
Dim seru As Range
For Each seru In Selection
If seru.Interior.ColorIndex = 6 And seru.Offset(, 1).Interior.ColorIndex = 3 Or seru.Offset(, -1).Interior.ColorIndex = 3 Then
seru.Offset(, 1).Interior.ColorIndex = 43 Or seru.Offset(, -1).Interior.ColorIndex = 43
End If
Next seru
End Sub
だとどうも上手くいきません。黄色セルの左右両隣のなかから赤色塗りつぶしがされてるセルのことを処理のなかでどうやって書けばいいでしょうか。
|