07/08/21 01:22:25
本やみなさんの意見を参考にしながら一応、出来たのですが
Sub セル範囲を指定して格子罫線を引く()
Dim Rng As Range
Set Rng = Application.InputBox("セル範囲を指定してください", "セル範囲の指定", Type:=8)
Rng.Borders.LineStyle = xlContinuous
End Sub
少し、改造すれば、セル範囲を指定してセルの色を塗り替えるにもできます（せっかく、作ったので、良かったら参考にして下さい）
これに、キャンセルしたときに「入力されませんでした」と表示するようにしたいのですが、どうもわかりません
Sub セル範囲を指定して格子罫線を引く2()
Dim jis As Range
Set jis = Application.InputBox("セル範囲を指定してください", "セル範囲の指定", Type:=8)
If jis <> "" Then
Rng.Borders.LineStyle = xlContinuous
else
msgbox"シート名が入力されませんでした"
End If
End Sub
上のソースだとエラーになってしまいます
お手数ですが、ご指導お願いします。