VBでExcelファイルの編集

質問

VBでExcelファイルを作成しようとしていますが、罫線を引くとき、Rangeで範囲を指定しているんですが矩形でかかれず、一本線だけが書かれてしまいます。
どうしたら四角く矩形で罫線が書かれるか教えてください。

Set objExcel = CreateObject("Excel.Application") 'エクセルオブジェクト作成
objExcel.Visible = False 'エクセルを非表示で
objExcel.Workbooks.Add '新規に作る
With objExcel.Sheets("Sheet1").Range("a19:k29").Borders(1)
.LineStyle = xlContinuous
.Weight = 4
.ColorIndex = xlAutomatic
End With

回答No.1

papayuka · ベストアンサー

VBは持ってないので的を得ているか解りませんが、、

ExcelVBAだと下記の感じでしょうか？

Sub Test()

Set objExcel = ThisWorkbook

For i = 7 To 10
　With objExcel.Sheets("Sheet1").Range("A19:K29").Borders(i)
　　　 .LineStyle = xlContinuous
　　　 .Weight = 4
　　　 .ColorIndex = xlAutomatic
　End With
Next i
End Sub

お礼

ありがとうございます！
できました。

回答No.3

imogasi

>どうしたら四角く矩形で罫線が書かれるか.
BorderAroundを使います。
BorderAroundに名前付き引数をとるので、下記のようになります。WithとEndWithのプロパティの書き方とは変ります。
エクセルの世界に入るとエクセルVBAで、それを使うときはVBAの本などを参照しましょう。Borders(xlEdgeＴop)ほか４つで囲む方法もあります。
Sub test01()
Set objExcel = CreateObject("Excel.Application") 'エクセルオブジェクト作成
objExcel.Visible = True 'エクセルを表示で
objExcel.Workbooks.Add '新規にブックを作る
objExcel.Sheets("Sheet1").Range("a19:k29").BorderAround _
LineStyle:=xlContinuous, Weight:=4, ColorIndex:=xlAutomatic
End Sub

お礼

ありがとうございます。
かなり詳しく分かったような気がします。

回答No.2

bin-chan

ＥＸＣＥＬ側で行いたいことをＥＸＣＥＬ上のマクロで記録して、
VBAエディタのコードをＶＢへコピー＆ペーストしていけば
どのように記述すればよいか確認しやすいですよ。
（もっとも余分なコードもありますが）
コピペしたあと、ActiveSheetsをobjExcelに書き換えてください。

Borders(1)の()内の値が複数必要になることがわかりますよ。

お礼

ありがとうございます。
よくわかりました。