Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35114 / 76732

←次へ　｜　前へ→


	【46820】Re:インプットボックス

りん

- 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