[[20110814191405]]　『4列ごとに太線を引く』（梓）　ページの最後に飛ぶ

『4列ごとに太線を引く』（梓）Excel2002　WindowsXP

 A1からX27まで表があります。

 =MOD(COLUMN(),4)=0   これを条件付書式で4列ごとに線が引けるらしいのですが、
 太線を引きたい最初の列（D1からD27）を選んで 条件付書式の数式に 
 =MOD(COLUMN(),4)=0入力してX列までﾄﾞﾗｯｸﾞしても何も変わりません。

 そして太線がそもそも線のスタイルの候補に無いのです。
 先ず、D1からD27の右側のセルに太線を引きたいのです。
 その次はH1からH27の右側に太線．．．という感じです。

 その表には既にいろいろ値が入力されてるので 
 4列ごとに太線を引くには値が何も入ってない状態でやってから値を入力すべきなのでしょうか？

 教えていただければ助かります。
 よろしくお願いします。

 VBAだと、こんな感じでしょうか？

 Sub test()
Dim i As Long
For i = 4 To 24 Step 4
    Cells(1, i).Resize(27).Borders(10).Weight = 4
Next
End Sub
(seiya)

 こんばんは、seiyaさん　出来ましたよ。
 ありがとうございます。

コメント返信：