07/08/21 06:58:45
>>660
インプットボックスメソッドはエラー処理が必要
On Error Resume Next
Set jis = Application.InputBox("セル範囲を指定してください", "セル範囲の指定", Type:=8)
On Error GoTo 0
こんな感じ。ヘルプ見てね！
あと入力されなかった時はキャンセルにしてしまう場合
If jis Is Nothing Then Exit Sub
07/08/21 06:58:45
>>660
インプットボックスメソッドはエラー処理が必要
On Error Resume Next
Set jis = Application.InputBox("セル範囲を指定してください", "セル範囲の指定", Type:=8)
On Error GoTo 0
こんな感じ。ヘルプ見てね！
あと入力されなかった時はキャンセルにしてしまう場合
If jis Is Nothing Then Exit Sub