Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30129 / 76738 ←次へ | 前へ→

【51879】Re:範囲を選ぶ方法
発言  多摩川  - 07/10/9(火) 9:44 -

引用なし
パスワード
   ▼じゅんじゅん さん:
>▼多摩川 さん:
>>▼じゅんじゅん さん:
>>>キャンセルを押した時に、どのような処理を行ないたいのでしょうか?
>>>例えば処理を中断したいのなら、
>>>
>>>  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

0 hits

【51262】範囲を選ぶ方法 多摩川 07/9/6(木) 18:07 質問
【51263】Re:範囲を選ぶ方法 ichinose 07/9/6(木) 18:08 発言
【51264】Re:範囲を選ぶ方法 多摩川 07/9/6(木) 18:16 お礼
【51604】Re:範囲を選ぶ方法 多摩川 07/9/27(木) 8:36 質問
【51606】Re:範囲を選ぶ方法 Jaka 07/9/27(木) 10:38 発言
【51607】Re:範囲を選ぶ方法 じゅんじゅん 07/9/27(木) 10:38 発言
【51640】Re:範囲を選ぶ方法 多摩川 07/9/27(木) 17:20 お礼
【51875】Re:範囲を選ぶ方法 多摩川 07/10/9(火) 8:41 質問
【51876】Re:範囲を選ぶ方法 じゅんじゅん 07/10/9(火) 8:57 発言
【51877】Re:範囲を選ぶ方法 多摩川 07/10/9(火) 9:08 質問
【51878】Re:範囲を選ぶ方法 じゅんじゅん 07/10/9(火) 9:31 発言
【51879】Re:範囲を選ぶ方法 多摩川 07/10/9(火) 9:44 発言
【51880】Re:範囲を選ぶ方法 ichinose 07/10/9(火) 9:56 発言
【51881】Re:範囲を選ぶ方法 多摩川 07/10/9(火) 13:21 お礼

30129 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free