Excel2003のVBAを使用し、10行おきに太い罫線をセルの下側に引きたいのですが、ご存知な方教えて頂けないでしょうか?

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/05/23 21:48:07
  • 終了:2013/05/24 19:59:41

ベストアンサー

id:Silvanus No.1

Silvanus回答回数174ベストアンサー獲得回数672013/05/24 00:23:41

細かい動作があなたのご希望通りかどうか判りませんが
こんな感じでいかがでしょうか。

Option Explicit

Sub KeisenSpecial()

Dim rngCell As Range

For Each rngCell In Selection
    With rngCell
        If .Row = Selection.Row Then
            With .Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlMedium
            End With
        End If
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            If (rngCell.Row - Selection.Row + 1) Mod 10 = 0 Then
                .Weight = xlMedium
            Else
                .Weight = xlThin
            End If
        End With
    End With
Next

' .LineStyle
'    xlContinuous    実線
'    xlDash          破線
'    xlDashDot       一点鎖線
'    xlDashDotDot    二点鎖線
'    xlDot           点線
'    xlDouble        二本線
'    xlLineStyleNone 線無し
'    xlSlantDashDot  斜破線
' .Weight
'    xlHairline      極細線
'    xlMedium        普通
'    xlThick         太線
'    xlThin          細線

End Sub
id:Silvanus

書き忘れましたが、罫線を引きたいセル範囲を選択した状態で
マクロを実行して下さい。

2013/05/24 01:18:12
id:noshiroon

Silvanusさんご回答頂き有り難うございました。所望の動作が得られました!
感謝申し上げます!

2013/05/24 19:59:29

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません