• ベストアンサー

ユーザーフォームの値を指定のセルに入力

エクセルのシート上のフォームで リストのボックスの値を上下キーで値を選択エンターキーで選択した値をシートの指定したセルに入力 フォームを閉じる このようなことをさせたいのですが どのようにすればよいでしょうか よろしくお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • queuerev2
  • ベストアンサー率78% (96/122)
回答No.1

ユーザーフォームはくわしくないのですが、とりあえず最低限のサンプルを作ってみました。 リストボックスが配置されたフォームは作成済みとします。 フォーム名はUserForm1、リストボックス名はListBox1であるとします。 UserForm1のコードを以下のようにします。 Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then ThisWorkbook.Sheets("Sheet1").Range("A1").Value = ListBox1.Value ThisWorkbook.Sheets("Sheet1").Range("A2").Value = ListBox1.ListIndex Unload Me End If End Sub Private Sub UserForm_Initialize() ListBox1.AddItem "アイテム1" ListBox1.AddItem "アイテム2" ListBox1.SetFocus End Sub あとはユーザーフォームを表示させ、上下矢印キーでアイテム選択し、Enterキーでフォームを閉じます。アイテムの値とインデックス値はA1とA2に入力されます。

tom2011
質問者

お礼

ご指南ありがとうございます

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ユーザーフォーム入力後の値の貼付け方は？

    ＥＸＣＥＬのＶＢＥでユーザーフォームを作成しました。 テキストボックスに入力した値をＥＸＣＥＬシート上に 反映させるにはどのようにすればいいのでしょうか？ ＥＸＣＥＬシート上ではセルではなくてやはり テキストボックスに値が入るようにしなくてはできないのでしょうか？ 初心者です。教えてください！

  • ユーザーフォーム上のコンボボックスのリンク先はどうやって指定？

    エクセル９７です。ユーザーフォームにおいたコンボボックスに表示させたいワークシート上のリスト、およびコンボボックスで選択された値をリンクさせたいセルの指定方法がわかりません。オプションボタンやチェックボックスのリンク先指定方法もわかりません。またユーザーフォームには「OK」「キャンセル」ボタンもないのでしょうか？ エクセル９５のときはダイアローグシートにコンボボックスを置き、コントロールの書式設定で簡単に指定が出来たのですが、９７に変えてからは、敢えてエクセル５．０のダイアローグを挿入しないといけないようなので、出来ればユーザーフォームで作ってみたいのです。どうかよろしくお願いします。

  • Excel VBA ユーザーフォームのコンボボックスに表示する値の入力方法

    Excel Xを使用して、VBAのユーザフォームにコンボボックスを作りましたが、どうしてもコンボボックス内に表示する値の入力方法が分かりません。 WEBや本などで「これ」と思われるものを実験していますが、どれも表示することができません。 できるだけ詳しく教えていただけませんか? したいことは、 　cbocenter　というコンボボックスに値を出します。 　値は　List　シートの　A2　から　A18　に入力済みです。 　それと値から選択した値を　data　シートの　J列　に 　表示させたいのです。（行の指定はできています） 本当に困ってます。よろしくお願いします。

  • エクセルユーザーフォームのチェックボックスのCaptionにセルの値を入れたい。

    表題の通りで、エクセルユーザーフォームにチェックボックスを作成し、そのCaptionにセルの値を入れたい場合、どのようにすればいいのでしょうか。 つまり、シートのセルの値が変われば、ユーザーフォームのチェックボックスの文字が変わっているようにしたいのです。 エクセル２００３です。 よろしくお願い致します。

  • Excel　VBA　ある値が入力されたときだけユーザーフォームを出したいです

    ExcelのVBAを教えてください。 D15は、リストで入力する値を選択できるようになっています。 D15で選択された値によって、B15に反映されるようになっています。 たとえば、 D15の値をリストで105を選んだら、B15に「AAA」と入り、 D15の値をリストで109を選んだら、B15に「ccc」と入ります。 これらは、B15にIF関数が入っていて制御されています。 ところが、D15の値をリストで108と選んだ時だけ、B15に「BBB」と入る場合と「DDD」と入る場合の2パターンあり、これは人間の判断でどちらにするか考えるので、IF関数を使えません。 なので、 D15のリストボックスで108を選んだときだけ、 ユーザーフォームを出し（UserForm1.Show）、ユーザーフォームにBBBとDDDのコマンドボタンがあって、Tabでコマンドを選択し、Enterで確定し（マウスは使いたくない）、確定したコマンドの値をB15に反映させるようにしようと思いました。 ・・・が、ユーザーフォームを出すタイミングのVBAの組み方がわかりません。 D15の値をリストから選択する・・・というのは、他の方が作った仕組みなので変えることはできません。

  • EXCEL　ユーザーフォームを使ったマクロ

    データの登録をするのにユーザーフォームを使おうと思うのですが、なかなかうまくいきません。教えてください。 ユーザーフォームにはコンボボックス、テキストボックス、コマンドボタンが貼り付けてあります。（コンボボックスのリストには呼び出したいシートの名前が入っています） コンボボックスのリストの中から呼び出したいシートを選択し、テキストボックスに入力した内容を、コマンドボタンを押すことで選択されたシート上の、あるセルに登録したいのですがどうすればよいでしょうか？

  • ユーザーフォームのコンボボックス

    エクセルのユーザーフォームでの質問です。 コンボボックスの項目についてsheet2のB2～B10を選択したいのですが、このユーザーフォームはsheet1で使うもので、プロパティのrowsource欄にセルを選択できません（やり方が分かりません）。 どう入力したら別シートのセルをコンボボックスに反映出来るのでしょうか？？

  • エクセル　ユーザーフォームについて

    エクセル2010です。 エンターキーを押していってコンボボックスのところにきたときに、自動的にリストが上か下に表示されます。 このとき矢印キーで選択しています。 しかし、リストが表示された位置にマウスポインタがあるとき、勝手に選択することになります。 これを防ぐ手段はありますか？ マウスポインタには反応しないようにしたいのです。 また、エンターキーを次のボックスにいかないときがあります。 タブキーをおしてみたら、同じく次のボックスにいかなく、そのボックス内で先に移動するだけです。 この原因がわかりますでしょうか？

  • Excelでの複数シートへの値の入力

    おはようございます。 Excel2000で複数のシートを選択した状態でセルに値を入力すると、他のシートの同じセルに内容が入力されますよね。 この機能の名称はわかりませんが・・・(^_^;) これをヒントに「フォーム内にあるTextBoxに入力された値を各シートのセルに入力しよう」というVBAのソースを作ってみましたが、 実行してみると選択されている1枚目のシートにしか値が入力されません。 汚いソースをみなさんに見せるのは恥ずかしいのですが、 是非実現したいので、どこが間違っているか指摘をいただけると幸いです。 やろうとしていること： フォームのテキストボックスに値を入力し、 コマンドボタンを押すとシートを複数枚選択し、 各シートのセル”A1”（AからDまでを結合）に値を入力する。 ******************************************* Private Sub CommandButton1_Click() 'テキストボックスの値取得と、店名の合成 Dim myTmei As String Dim myTmei2 As String myTmei = TextBox1.Text myTmei2 = "店名" & myTmei 'シートの選択 Sheets(Array(5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46)).Select '値の入力 Range("A1").Select Range("A1").Value = myTmei2 End Sub ****************************************** 結果を見ると、シート自体は選択できているのですが、 その中でも「アクティブになっている(?)シート（1枚目）のセルだけに値を入力しなさいよ。」と書いてしまったようで、 「全てのシートのセル”A1”に入力しなさい。」という部分が書けていないのだと思うのです。 Selectだけじゃ、ダメなのかな・・・ どうかよろしくお願いします。

  • セルの値をユーザーフォームのテキストボックスに

    エクセルの質問です。 シート１にボタンを設置してユーザーフォームを呼び出すようにしています。 ユーザーフォームにテキストボックスを用意してて、シート１のセル（A1）に記入された数字を、ボタンを押した時に立ち上がったユーザーフォームのテキストボックスに表示されるようにしたいのですが、どうしたらいいのでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する