Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10842 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   下記のプログラムで不具合があり困っています。
不具合内容としましてキャンセルを押した際にエラーが発生します。
どなたかご教授お願い致します。ｍ（＿＿）ｍ
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さん、ありがとうございました。ｍ（＿＿）ｍ
解決しました。
また機会がありましたら宜しくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10842 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free