|
▼popon さん、▼まつ君 さん、こんばんは。
>>セル範囲をカレントレジオンを使って選択するとセルに計算式が
>>入っているとその所まで選択されてしまいますが、セルが空白ではない
>>所までを選択するにはどうしたら良いでしょうか?
>>
>>例えば、A1に単価、B1に数量、C1に金額、C2:C100までは数式が
>>入っています。
>>A2:B5までデータが入力されていた場合にA2:C5の範囲だけに
>>罫線を引くようなことがしたいのですが、カレントレジオンでは
>>C100まで選択されてしまいます。
>>
>>ご教授お願いいたします。
単価のA列が入力されている行で罫線を作成します。
'==============================================
Sub test()
Dim rng As Range
Set rng = Range("a1", Cells(Rows.Count, 1).End(xlUp)).Resize(, 3)
Call mk_keisen(rng)
End Sub
'===========================================================
Sub mk_keisen(rng As Range)
With rng.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
|
|