[[20120518134656]]　『2列ずつ罫線を引く』（まーたろー）　ページの最後に飛ぶ

『2列ずつ罫線を引く』（まーたろー）

A B ┃C D ┃E F ┃G H ┃I J ┃…
A B ┃C D ┃E F ┃G H ┃I J ┃…
　　↓　　↓　　↓　　↓　　↓

こんな感じで下まで罫線を引きたいです。
よろしくおねがいします。

 B1セル左に罫線を引いて

 A1:B1セル選択し、下へ右クリックでフィルドラッグ。
 「書式のみコピー」

 出来た範囲を今度は列方向へ同様に処理。

 (GobGob)

回答ありがとうございます。

えとですね、
全てのセルにこのような罫線を引きたいんです。

すみません；

 なので。

 ＞A1:B1セル選択し、下へ右クリックでフィルドラッグ。
 ＞「書式のみコピー」
 ＞
 ＞出来た範囲を今度は列方向へ同様に処理。

 コレを全てのセル対象に実行してみては？

 オイラなんか勘違いしてる？

 (GobGob)

ワンタッチでは難しいよね。

A1:B1を選択、
Ctrl押しながらスペースキーを押してA:Bの列選択。
書式設定の罫線でA列の左辺、B列の右辺に罫線を設定。
A:Bをコピー、
Ctrl押しながらA（セル全選択）として
Ctrl+Vで貼り付け

（みやほりん）

 行列番号の交わっている所をクリックすると
 シート全体が選択出来るので

 A1:B1を選択してコピー
 シート全体を選択して　書式貼付

 で良いのでは。。。？

 (HANA)

 全セル選択→条件付き書式の数式で、

 =MOD(COLUMN(A1),2)=0

 で、罫線を右辺にだけ設定、とか。

 (コナミ）

Sub Sample1()

    Range("B:B").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D:D").Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub

はどうでしょう

（よくわかってない人）

みなさんありがとうございます。
貼り付けとかしたいのはやまやまなんですが…
セルの幅や高さ、他にも書式が設定してありなかなかコピー→貼り付けと出来ない状況なのです。

↓こんなのではできないですか？

Sub 罫線()

    Dim A As Long
    Dim B As Long

    A= Columns.Count \ 2

    For B = 1 To A Step 2
        With Cells(5, B)
                        .Borders(xlEdgeRight).LineStyle = xlContinuous
                        .Borders(xlEdgeLeft).LineStyle = xlContinuous
                        .Borders(xlEdgeLeft).Weight = xlMedium

        End With
    Next

End Sub

 エクセルシートの列の最後まで２列ごとに罫線を引くとして、行としてはどこまで？
・エクセルシートの最終行まで？（やめたほうがいいとおもうけど）
・すでにデータが記載されている最後の行まで？

 (ぶらっと)

 マクロでやるまでもないと思うけど、お望みなら。
（線の太さはお好みで。xlMediumがお好きならそれに）

 Sub Sample1()
    '2列ごと、データが存在する最後の行まで罫線を引く
    Dim y As Long
    Dim j As Long

    Application.ScreenUpdating = False

    y = ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Cells.Count).Row

    For j = 2 To Columns.Count - 2 Step 2
        With Cells(1, j).Resize(y).Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .Weight = xlThin
        End With
    Next

    Application.ScreenUpdating = True
    MsgBox "罫線ひいたよ。あぁしんど！"

 End Sub

 Sub Sample2()
    '2列ごと、エクセル最終行まで罫線を引く（やめたほうがいいとおもうけどなぁ）
    Dim j As Long

    Application.ScreenUpdating = False

    For j = 2 To Columns.Count - 2 Step 2
        With Columns(j).Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .Weight = xlThin
        End With
    Next

    Application.ScreenUpdating = True
    MsgBox "罫線ひいたよ。あぁしんど！"

 End Sub

 (ぶらっと)

コメント返信：

[ 一覧(最新更新順) ]

[[20120518134656]] 『2列ずつ罫線を引く』（まーたろー） ページの最後に飛ぶ

[[20120518134656]]　『2列ずつ罫線を引く』（まーたろー）　ページの最後に飛ぶ