Excel VBA質問箱 IV

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

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


10821 / 13644 ツリー ←次へ | 前へ→

【19700】InputBoxの不具合について TOKU 04/11/15(月) 14:22 質問[未読]
【19701】Re:InputBoxの不具合について Jaka 04/11/15(月) 14:31 回答[未読]
【19719】Re:InputBoxの不具合について TOKU 04/11/16(火) 9:14 お礼[未読]

【19700】InputBoxの不具合について
質問  TOKU  - 04/11/15(月) 14:22 -

引用なし
パスワード
   下記のプログラムで不具合があり困っています。
不具合内容としましてキャンセルを押した際にエラーが発生します。
どなたかご教授お願い致します。m(__)m
Sub マルを表示()

  Dim myAns As Variant
  
  Set myAns = Application.InputBox("○を貼り付けたい箇所をマウスで選択してください。", Type:=8)
  
  myAns.Value = "○"
 
 
End Sub

【19701】Re:InputBoxの不具合について
回答  Jaka  - 04/11/15(月) 14:31 -

引用なし
パスワード
     On Error Resume Next
  Set myAns = Application.InputBox("○を貼り付けたい箇所をマウスで選択してください。", Type:=8)
  If myAns Is Nothing Then End

【19719】Re:InputBoxの不具合について
お礼  TOKU  - 04/11/16(火) 9:14 -

引用なし
パスワード
   ▼Jaka さん:
>  On Error Resume Next
>  Set myAns = Application.InputBox("○を貼り付けたい箇所をマウスで選択してください。", Type:=8)
>  If myAns Is Nothing Then End

Jakaさん、ありがとうございました。m(__)m
解決しました。
また機会がありましたら宜しくお願いします。

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