Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8779 / 76735 ←次へ | 前へ→

【73524】Re:罫線を引きたい
質問  のうさぎ  - 13/1/17(木) 22:11 -

引用なし
パスワード
   Sub お菓子が変われば二重罫線()


  Dim i
  For i = 1 To 200
    Range("A" & i).Select
    If Range("A" & i).Value <> Range("A" & i + 1).Value Then
      With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
      End With
      
    End If
  Next

End Sub

上のように、お菓子の名前が変われば、変わった行で二重線を引くことは
できるのですが、その後、同じお菓子の言葉内で、言葉が変わった行から
5行ごとに一重線を引くことができません。
ご教授、アドバイスをいただけたらと思います。よろしくお願いします

0 hits

【73476】罫線を引きたい のうさぎ 13/1/14(月) 20:06 質問
【73524】Re:罫線を引きたい のうさぎ 13/1/17(木) 22:11 質問
【73526】Re:罫線を引きたい UO3 13/1/18(金) 9:12 発言
【73556】Re:罫線を引きたい のうさぎ 13/1/21(月) 0:38 お礼

8779 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free