質問: プルダウンしたセルの内容と同じ名前のシートを表示する命令の記述は? エクセルの入力規則で、sheet1のセルb5に「a~j」の文字をプルダウンできるようにしました。この文字(例「a」)はワークシートの名に対応しています。 教えていただきたいことは以下のとおりです。 【プルダウンした文字(a)に対応するワークシート(a)を表示し、そのシートのセルa1を選択する命令を作成して、sheet1のボタンに登録したいのです。この命令(bvaでしょうか)はどのように記述すればよろしいでしょうか?】
回答: こんばんは。 入力規則でもできますが、手続きとしては面倒です。 できれば、コントロールツールのコンボボックスに取り付けたほうが簡単ですね。 たとえば、コンボボックスで選んで、ダブル・クリックしてジャンプするというのはいかがですか? コントロールツールのコンボボックスを選び、それをワークシートにおきます。 右クリックして、[コードの表示]で、以下のコードを別に貼り付けます。 以下のコードでできます。 コードの表示でできた、private sub combobox1_click は、削除してしまって結構です。 -------------------------------------------------------- 'シートモジュール、ダブルクリックイベント private sub combobox1_dblclick(byval cancel as msforms.returnboolean) dim shname as string shname = combobox1.value application.goto worksheets(shname).range("a1") end sub private sub combobox1_gotfocus() 'シート名を、コンマ区切りで入れる combobox1.list = array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j") end sub ----------------------------------------------------------- 貼り付けた後で、コントロールツールバーの青い三角定規がオンになっていますから、これをオフにすれば、すぐに使えるようになります。