ＶＢＡについて。

質問

ＶＢＡについて。

セルに羅線を引きたいと思っています。

Range("A1:C5").Borders.LineStyle = True

上記でＡ１からＣ５までの格子羅線が作成されます。

例えば、Ｃ５を不変にしたいと思っています。

Ｘ＝１であればＣ５
Ｘ＝２であればＤ５
Ｘ＝３であればＥ５
・
・
・
・
Ｘ＝２４であればＺ５
Ｘ＝２５であればＡＡ５

このような処理をするにはどうしたらよいでしょうか？

回答No.1

kmetu · ベストアンサー

> 例えば、Ｃ５を不変にしたいと思っています。

可変でしょうか

Range(Cells(1, 1), Cells(5, x + 2)).Borders.LineStyle = True

のようにしてください。

回答No.4

nattocurry

Range("A1").Resize(5, x + 2).Borders.LineStyle = True

回答No.3

imogasi

Range("A1:" & ｙ).Borders.LineStyle = True
のｙのところを文字列でＥ５などとなるように、Ｘから導出するロジックを考えることです。
range(Cells(1,1),Ｃells(k,l))
式の表現のほうが、表し易ければ、そちらでも良い。
Sub test01()
For i = 1 To 40
MsgBox i & "=" & Cells(5, i + 2).Address
Next i
End Sub
で番地文字列は求められると思う。

回答No.2

mitarashi

まっとうな回答が#1に出ましたので、別解です。
Sub test()
Dim x As Long

x = 3
Range("A1:" & columnChar(x + 2) & "5").Borders.LineStyle = True
End Sub

Private Function columnChar(columnNo As Long) As String
Dim strAddress As String

strAddress = Columns(columnNo).Cells(1).Address
columnChar = Mid(strAddress, 2, InStr(2, strAddress, "$") - 2)
End Function
'列番号→英字に変換する別方法
'http://support.microsoft.com/kb/833402/ja