[[20190624183011]]　『表の外枠の右だけに中太罫線を引きたい』（Re:）　ページの最後に飛ぶ

『表の外枠の右だけに中太罫線を引きたい』（Re:）

空セルがない前提として、最終行に値が追加されたときにボタンを押すと罫線を引くマクロを作っています。
外枠の右側だけを罫線の太さを変更したいが、上手くいかずに悩んでおります。

何かいい手段はないでしょうか。

Sub sagyo()

   Range("A7").CurrentRegion.Borders.LineStyle = True

    Range("A7:X7").Select
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium

    End With

    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With

End Sub

＜使用 Excel：unknown、使用 OS：unknown ＞

 マクロ記録すれば良いんじゃないですか。
 マクロ記録の結果、右側だと

 With Selection.Borders(xlEdgeRight)
（BJ） 2019/06/25(火) 02:57

BJさま

コメントありがとうございます、お返事が遅くなりました。

記述し忘れておりました。
Range("A7:X7").Selectは表の見出しを指定しているだけです。
（見出しセルも中太罫線にしている）
これをふまえて、表外枠の右罫線の太さを変更したいのです。

（Re:） 2019/06/25(火) 18:17

 だから、
 .Borders(xlEdgeRight)
 これで、右側が変えられますと言っているんですけど。

 With 表範囲.Borders(xlEdgeRight)

 なお、ふまても何も何をやりたいのか理解しにくい。
 理解しにくいから、長いこと返信が無かったんじゃないですか。
 ふまえてとかの言葉は慎んだ方が良いよ。
 教えを請うのに上から目線。
（BJ） 2019/06/25(火) 22:52

たぶんですけど、こんなことではないでしょうか

 (1)ネットとかで格子状に罫線を引くコードを入手して、よく解らないけどやってみたらうまくいった。
 (2)マクロの記録で項目行だけ選んで上端と下端に罫線を引くコードをつくって加工してからくっつけてみた。 
 (3)なんか(1)だけの時とかわらないし・・・・　　　　【今ココ】

とりあえず、↓をみてください。
https://qiita.com/tomikiya/items/15153cc074d5745e4ac8

今回は、太さをいじりたいのですから、Weightプロパティを操作する必要があります。

また、項目行のみを選択してから「Selection.～」とした場合、そりゃ項目行のみの操作になるってもんです。
したがって、項目行の選択を【ふまえずに】こんな感じではないでしょうか。

   Sub てすと()
      With Range("A7").CurrentRegion
         .Borders.LineStyle = True
         .Borders(xlEdgeRight).Weight = xlThick
      End With
   End Sub

このほか、With や　CurrentRegion　がどういうものかわからない場合はとりあえずネット検索してみてください。
それでもわからない場合は、○○のようにおもったのですが、××のようなことが起きます。（△△の部分がよくわかりません）みたいに、具体例をあげていただくとアドバイスできることがあるかもしれません。

（もこな２） 2019/06/26(水) 02:29

コメント返信：

[ 一覧(最新更新順) ]

[[20190624183011]] 『表の外枠の右だけに中太罫線を引きたい』（Re:） ページの最後に飛ぶ

[[20190624183011]]　『表の外枠の右だけに中太罫線を引きたい』（Re:）　ページの最後に飛ぶ