Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12638 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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さん、ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12638 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free