Excel VBA質問箱 IV

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

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


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

【9560】インプットボックスについて nakachan 03/12/8(月) 17:15 発言
【9563】Re:インプットボックスについて INA 03/12/8(月) 18:15 回答
【9567】Re:インプットボックスについて nakachan 03/12/8(月) 18:52 質問
【9568】Re:インプットボックスについて INA 03/12/8(月) 20:10 回答
【9569】Re:インプットボックスについて 通りすがりの者 03/12/8(月) 20:19 発言
【9570】Re:インプットボックスについて nakachan 03/12/8(月) 20:25 質問
【9571】Re:インプットボックスについて INA 03/12/8(月) 21:21 回答
【9582】Re:インプットボックスについて nakachan 03/12/9(火) 15:31 お礼

【9560】インプットボックスについて
発言  nakachan  - 03/12/8(月) 17:15 -

引用なし
パスワード
   はじめまして、中ちゃんと言います。
VBA初心者です。
用件:
インプットボックスで元になるシート名を取得したいのです。

元になるシートを指定してください→該当シート名をクリックすると
ボックスに入る。
  msg = "元になるシートを指定してください。"
  sht = Application.InputBox(msg, "元シートの指定", Type:=2)

ボックスに直接入力すれば出来ますが、シート名クリックでは
ボックスに張付きません、、

宜しくお願い申し上げます。

【9563】Re:インプットボックスについて
回答  INA  - 03/12/8(月) 18:15 -

引用なし
パスワード
   対象シート内のセルをクリックすれば、簡単に取得できると思いますが、
シートタブをクリックして、取得したいのでしょうか?

【9567】Re:インプットボックスについて
質問  nakachan  - 03/12/8(月) 18:52 -

引用なし
パスワード
   シート名をとりたいんです、シートタブをクリックして
取ろうとしますが、='シート名'!
なんかがボックスに張付き、名前は取れません、、、
参ってます・・

【9568】Re:インプットボックスについて
回答  INA  - 03/12/8(月) 20:10 -

引用なし
パスワード
   ▼nakachan さん:
>シート名をとりたいんです、シートタブをクリックして
>取ろうとしますが、='シート名'!
>なんかがボックスに張付き、名前は取れません、、、
>参ってます・・
というより、シート選択だけだと、エラーになりますよね?

セルを選択したあとで、シート名を取得するのではダメなのでしょうか?

【9569】Re:インプットボックスについて
発言  通りすがりの者  - 03/12/8(月) 20:19 -

引用なし
パスワード
   どうも質問の意味がわかりにくいです。

現在アクティブになっているシートから、別のシートを選択した際にイベントを発生させるということでしょうか?

【9570】Re:インプットボックスについて
質問  nakachan  - 03/12/8(月) 20:25 -

引用なし
パスワード
   すみません、そのとおりです。
メニューシートからボタン操作で該当シートをアクティブにします。
そのときにインプットボックスを使用して一々シート名を入力
しなくてもいいように、該当シート名をクリックしてボックスの中に
持たせたいのです。

【9571】Re:インプットボックスについて
回答  INA  - 03/12/8(月) 21:21 -

引用なし
パスワード
   だとしたらinputボックスを表示する必要はないのでは?

シートのActivateイベントで、アクティブシートの名前を取得すれば
良いのでは?

【9582】Re:インプットボックスについて
お礼  nakachan  - 03/12/9(火) 15:31 -

引用なし
パスワード
   INAさん、ありがとうございました。

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