VBA-セルの罫線について
エクセルシートのD4からCA30の範囲で、
セルの区切りに垂直線と水平線を設定したいと思い、
以下のところまではできました。
-----------------------------------------------------
With Range("D4:CA30")
'垂直線を点線で
.Borders(xlInsideVertical).Weight = xlHairline
'水平線を実線で
.Borders(xlInsideHorizontal).Weight = xlThin
End With
-----------------------------------------------------
しかし、垂直線を点線と実線の交互で表示させたいと思っています。
D4:D30→点線
E4:E30→実線
F4:F30→点線
G4:G30→実線
：
というように・・・
そこで、
------------------------------------------------------
Dim I As String
With Range("D4:CA30")
.Borders(xlInsideVertical).Weight = xlHairline
.Borders(xlInsideHorizontal).Weight = xlThin
For I = "D" To "CA" Step 2
Range("I4:I30").Borders(xlInsideVertical).Weight = xlThin
Next
End With
-------------------------------------------------------
というプログラムを作ってみたのですが、
「型が一致しません」とエラーが出ます。
どのようにしたらよいのでしょうか？
どなたか回答をお願いします。
お礼
回答ありがとうございます！ とても分かりやすいです＾＾ 助かりました。