Calender

S M T W T F S
    123
45678910
11121314151617
18192021222324
25262728293031
<< August 2019 >>

Categories

Archives

Recent Entries

中学生のためのExcel VBA

4-4 書道用名前(4)罫線引き

JUGEMテーマ:Office VBA

 

' 罫線引き
retu = Range("A3").End(xlToRight).Column
With Range(Cells(3, "A"), Cells(7, retu))
 .Borders(xlEdgeRight).LineStyle = xlDash
 .Borders(xlInsideVertical).LineStyle = xlDash
 .Borders(xlEdgeLeft).LineStyle = xlDash
End With

Range(Cells(3, "A"), Cells(7, retu))→文字が入っている範囲 変数を入力
Vertical→垂直の
Dash→破線
 

  • 2019.06.01 Saturday
  • 17:13

Comment
Send Comment