|
▼多摩川 さん:
>度々恐れ入ります。再度、お知恵をお貸し下さい。
>下記コードを教えていただきましたが、InputBoxでキャンセルを選ぶとエラーとなります。
>エラー処理はどのようにすれば、良いのでしょうか?
>
>>Sub ListCreate()
>> Dim Rng As Range
>> Dim MyRg As Range
>> On Error Resume Next
>> Set MyRg = Application.InputBox(Prompt:="セル範囲を選択", Type:=8)
>> If Err.Number = 0 Then
>> For Each Rng In MyRg
>> '〜処理(中略)〜
>> Next Rng
>> end if
>>End Sub
キャンセルを押した時に、どのような処理を行ないたいのでしょうか?
例えば処理を中断したいのなら、
Set MyRg = Application.InputBox(Prompt:="セル範囲を選択", Type:=8)
If MyRg Is Nothing Then MsgBox "キャンセルしました": Exit Sub '←追加
If Err.Number = 0 Then
とかでもいいでしょうし。
|
|