VBからエクセルに引く罫線の範囲指定について

ありか 2005-06-03 19:56:48 No: 122204

VB6、Win2000です。

'表に罫線を引く
×××.Range("B1:D20").Borders.LineStyle = xlContinuous

    '外枠を太線に
    ×××.Range("B1:D20").Borders(xlEdgeTop).LineStyle = xlGray75
    ×××.Range("B1:D20").Borders(xlEdgeLeft).LineStyle = xlGray75
    ×××.Range("B1:D20").Borders(xlEdgeRight).LineStyle = xlGray75
    ×××.Range("B1:D20").Borders(xlEdgeBottom).LineStyle = xlGray75

↑という感じに、VBのSpreadSheetのデータをエクセルにはき出して罫線を引いているのですが、はき出すデータの行の数はその都度変わります。
その行数によってRangeの範囲設定を変えたいのですが、何かいい方法はありますでしょうか？

さるべーじ 2005-06-03 20:08:23 No: 122205

Dim xlRange As Excel.Range
Dim intRow1 as Integer = …
Dim intRow2 as Integer = …
Dim intCol1 as Integer = …
Dim intCol2 as Integer = …

×××.Range(xlRange(intRow1, intCol1), xlRange(intRow2, intCol2)).Borders(〜

とか？

さるべーじ 2005-06-03 20:09:45 No: 122206

しまった、

xlRange = ×××.Cells

も必要かも。