Excel VBA質問箱 IV

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

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


35114 / 76732 ←次へ | 前へ→

【46820】Re:インプットボックス
回答  りん E-MAIL  - 07/2/16(金) 11:45 -

引用なし
パスワード
   210 さん、こんにちわ。

>特に気になる点は、InputBoxを使い複数のシートをまたいで使う場合と、
>自分の書いた『そうでない場合』の違いです。何が足りない又はダメで
>複数のシートから情報を拾えなかったのかと・・
この疑問について。
Sub test()
 Set r1 = Application.InputBox(Prompt:="違うシートのセルを選択してみてね", Default:="A1", Type:=8)
 MsgBox "Selectできるのは " & ActiveSheet.Name & "上のセル", _
     vbInformation, _
     "実際取得したのは" & r1.Parent.Name & "上のセル"
End Sub
↑で試してもらえばわかりますが、InputBoxでActiveSheet以外のシート上のセルを選択した場合でも、ActiveSheetがその取得セルのあるシートに切り替わらないため、Activeでないシート上のセルをSelectしようとしているのでエラーになります。
0 hits

【46769】インプットボックス 210 07/2/14(水) 18:59 質問
【46770】Re:インプットボックス とおりすがり 07/2/14(水) 19:03 発言
【46790】Re:インプットボックス 210 07/2/15(木) 13:56 質問
【46795】Re:インプットボックス りん 07/2/15(木) 15:27 回答
【46798】Re:インプットボックス 210 07/2/15(木) 16:09 お礼
【46800】Re:インプットボックス りん 07/2/15(木) 16:18 発言
【46805】Re:インプットボックス 210 07/2/15(木) 18:07 質問
【46806】Re:インプットボックス りん 07/2/15(木) 18:52 発言
【46820】Re:インプットボックス りん 07/2/16(金) 11:45 回答
【46854】Re:インプットボックス 210 07/2/19(月) 8:46 お礼
【46856】Re:インプットボックス りん 07/2/19(月) 9:32 発言
【46862】Re:インプットボックス 210 07/2/19(月) 11:02 お礼
【46796】Re:インプットボックス Kein 07/2/15(木) 15:27 発言
【46799】Re:インプットボックス 210 07/2/15(木) 16:11 お礼

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