|
▼じゅんじゅん さん:
>▼多摩川 さん:
>>▼じゅんじゅん さん:
>>>キャンセルを押した時に、どのような処理を行ないたいのでしょうか?
>>>例えば処理を中断したいのなら、
>>>
>>> Set MyRg = Application.InputBox(Prompt:="セル範囲を選択", Type:=8)
>>> If MyRg Is Nothing Then MsgBox "キャンセルしました": Exit Sub '←追加
>>> If Err.Number = 0 Then
>>>
>>>とかでもいいでしょうし。
>>ありがとうございます。
>>Exit Sub で中断処理をしたいと考えていました。
>>XP、EL2000 の環境なのですが、私の方では Set MyRg = 〜〜〜〜 の所で「実行時エラー'424' オブジェクトが必要です。」となってしまい、ご提示の追加行まで進みません。
>>Set ステートメントがあるからだと思っているのですが・・・
>
>でも、その前に
>> On Error Resume Next
>がありますよね?
>エラーが起きても次に進むと思いますが。
それがなぜか進まないので困っています。
このコードで試しています。
Sub ListCreate()
Dim Rng As Range
Dim MyRg As Range
On Error Resume Next
Set MyRg = Application.InputBox(Prompt:="セル範囲を選択", Type:=8)
If MyRg Is Nothing Then Exit Sub
If Err.Number = 0 Then
For Each Rng In MyRg
MsgBox Rng
Next Rng
End If
End Sub
|
|