- ベストアンサー
ユーザーフォームのテキストボックスに配列の値を読み込む方法を教えて下さい
kazuhiko5681の回答
- kazuhiko5681
- ベストアンサー率49% (79/159)
度々の補足お手数をおかけいたしました。簡単に実現することができます。 早速サンプルマクロを作ってみました。次のように操作してみて下さい。 １.新規ブックを立ち上げ、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を表示させる。 ２.ユーザーフォームを１つ挿入し、テキストボックスを２個配置する。 ３.テキストボックスのオブジェクト名をTx1.Tx2に変更する。 ４.テキストボックスをダブルクリックして、フォームモジュールを開く。 ５.Changeイベントのコードが書けるように準備されるので、これを削除し、下記のこーどをコピー・ペーストする。 あらかじめシート１のＡ列にＩＤ・Ｂ列に顧客名を入力しておいて下さい。 ユーザーフォームを立ち上げ、tx1にＩＤを入力するとtx2に自動的に顧客名が入力されます。 もし、不具合等がありましたら遠慮なくお知らせ下さい。あなた様のおやりになりたいことが実現するまで一緒に考えて生きたいと思います。 Private Sub Tx1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim myRange As Range Set myRange = Workbooks("顧客台帳.xls").Worksheets(1).Range("A1:" & Cells(Rows.Count, 1).End(xlUp).Address).Find(Me.Tx1.Text, lookat:=xlWhole) If myRange Is Nothing Then MsgBox "入力されたＩＤは登録されていません。", vbOKOnly + vbCritical, "入 力 エ ラ ー" Cancel = True: Exit Sub Else Me.Tx2.Text = myRange.Offset(0, 1).Value End If End Sub
関連するQ&A
- ユーザーフォームのテキストボックスの内の値を検索する方法
エクセルVBAのユーザフォームでテキストボックス内の値を検索したいのですが、どのように書いたら検索できるかわかりません。 検索をできるかもわかりません。 ※ユーザフォームの値はセルにセットしない形でお願いします。 直接テキストボックスの値を検索したいです。 検索の結果として返ってくる値は特になんでもいいです。 ご存知でしたらよろしくおねがいいたします。
- 締切済み
- Visual Basic
- Excel ユーザーフォームのコンボボックスについて
始めまして、マクロに関してはまだまだ勉強中なのですが、ユーザーフォームのコンボボックスについてつまづいてしまい、皆さんにご教授頂ければと思います。 一つユーザーフォームを作成後、そのフォーム内にコンボボックスを配置し、リストから項目を選択できるようにしたいと考え下記のように記述したのですが、ユーザーフォームを実行してもフォームは表示されてきますが、ボックスを選択してもリストに項目が表示されてきません。 Private Sub cmd入力_Click() End Sub Private Sub 選択グループCombo_Change() With 選択グループCombo .AddItem "初級" .AddItem "中級" .AddItem "上級" Private Sub cmd閉じる_Click() Unload Me End Sub この記述自体が間違っているのでしょうか。 宜しくお願いします。
- 締切済み
- その他（プログラミング・開発）
- セルの値をユーザーフォームのテキストボックスに
エクセルの質問です。 シート１にボタンを設置してユーザーフォームを呼び出すようにしています。 ユーザーフォームにテキストボックスを用意してて、シート１のセル（A1）に記入された数字を、ボタンを押した時に立ち上がったユーザーフォームのテキストボックスに表示されるようにしたいのですが、どうしたらいいのでしょうか？
- ベストアンサー
- Visual Basic
- テキストボックスの合計について
エクセルのユーザーフォームに １から７までのテキストボックスが あります。 そして １から６までのテキストボックスに数値を投入していきます。 それぞれの値が確定したら、７のテキストボックスに １から６までの 値の合計が表示されるようなマクロを記述したいのですが、うまく いきません。 どのように記述したらよいのか教えていただけないでしょうか。
- ベストアンサー
- オフィス系ソフト
- テキストボックスの値をテーブルに追加
お世話になります。 Access2000 あるテーブルの一覧をフォームのリストボックス(lst_1)に表示し、 そのリストボックスから選択された行を フィールド上の各テキストボックス(非連結)に表示しております。 そこで、表示されているテキストボックスの値を変更した時に テーブルに変更された値を反映させる方法をご教授よろしくお願いします。
- 締切済み
- その他(データベース)
- ユーザフォームのリストボックス
お世話になります。 ユーザフォームのリストボックス内の下記2個のどちらかを選択し Private Sub UserForm_Initialize() ListBox1.AddItem ("印刷プレビュー") ListBox1.AddItem ("印刷") End Sub CommandButton1をクリックして Worksheets("Sheet1").PrintOut か Worksheets("Sheet1").PrintPreview を実行したいのですが どうやってリストボックスとコマンドボタンを 連動できるようにすればいいのでしょうか コマンドボタンのみだったら出来るのですが、 リストボックスを使うとうまくいきません。 ご教授よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- 【VBA】ユーザーフォームから、シート上のテキストボックスを操作
ユーザーフォームで入力した値を、シート上にあるテキストボックスに入力させたいのですが、 どのように記述すればいいのでしょうか？（ボタンで操作） またおなじくテキストボックスの大きさ、フォントの大きさ、などを操作するにはどのようにしたらいいですか？
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡユーザーフォーム「テキストボックス」「コンボボックス」の書式設定について
ユーザーフォームを作成して、出荷実績を投入しようとしています。 現在、ユーザーフォームを作成して、 上から以下のようにボタンが並んでいます。 (1)コンボボックス１ 商品コードと商品名を選択する。 (2)テキストボックス１～７ 地域ごとの出荷実績を投入する。 (3)コマンドボタン１ 決定→入力 (4)コマンドボタン２ 終了 そして、以下３つの問題点がありますが、どのようにＶＢＡを記述したら良いのか、わかりません。 ａ．コンボボックス１に表示される商品を商品コード （アルファベット）と商品名で改行したい。 つまり「折り返して全体を表示する」ことは出来ないでしょうか。 ｂ．「ＡＡＡＡ～」は５行目・「ＣＣＣＣ～」は７行目 といった ように、商品ごとに値を投入する行を変更したい。 ｃ．テキストボックス１～６の内容の合計が自動で（入力している 最中に）テキストボックス７に表示されるようにしたい。 次のようなＶＢＡは記述出来たのですが、上記３つの要素を加えるには どのようにしたらよいのか、教えていただけないでしょうか？ ちなみに入力する順番は次のようになっています。(設定済み) M4→L4→J4→K4→H4→I4 →M5→L5→J5→K5→H5→I5 ------------------------------------------------------------- ’フォームを表示させる。 Sub formdsp() UserForm1.Show End Sub ’フォーム内容 Dim cnt As Integer Private Sub Combobox1_Change() End Sub '入力ボタン Private Sub CommandButton1_Click() With ActiveSheet .Cells(cnt, 13) = TextBox1.Text .Cells(cnt, 12) = TextBox2.Text .Cells(cnt, 10) = TextBox3.Text .Cells(cnt, 11) = TextBox4.Text .Cells(cnt, 8) = TextBox5.Text .Cells(cnt, 9) = TextBox6.Text .Cells(cnt, 15) = TextBox7.Text cnt = cnt + 1 .Cells(cnt, 13) = Activate End With UserForm1.TextBox1.Text = "" UserForm1.TextBox2.Text = "" UserForm1.TextBox3.Text = "" UserForm1.TextBox4.Text = "" UserForm1.TextBox5.Text = "" UserForm1.TextBox6.Text = "" UserForm1.TextBox7.Text = "" UserForm1.Combobox1.Text = "" UserForm1.TextBox1.SetFocus End Sub '終了ボタン Private Sub CommandButton2_Click() Unload Me End End Sub 'コンボボックス Private Sub userform_initialize() cnt = 4 With UserForm1.Combobox1 .AddItem "ＡＡＡＡ 11111111111" .AddItem "ＢＢＢＢ 22222222222" .AddItem "ＣＣＣＣ 333333333" .AddItem "ＤＤＤＤ 444444" .AddItem "ＥＥＥＥ 5555555555" .AddItem "ＦＦＦＦ 666" .AddItem "ＧＧＧＧ 7777777" .AddItem "ＨＨＨＨ 88888" .AddItem "ＩＩＩＩＩ 999999999" .AddItem "ＪＪＪＪ 0000000000000" .AddItem "ＫＫＫＫ 1111" .AddItem "ＬＬＬＬ 222222" .AddItem "ＭＭＭＭ 3333" End With End Sub
- 締切済み
- オフィス系ソフト
- ユーザーフォーム上にコンボボックス作成
ここの書き込みでも何度も書きましたが、まだ解決できません。 sheet1：にボタンをクリックすると、ユーザーフォームが現れ、その上にコンボボックスを作成しました。 sheet2：には、リストの項目を書いています。それをコンボボックスに表示させたいのですが、上手くいきません。すいません何度、本当に知りたいです 下記を記述しても表示できません。 Private Sub 記入フォームAC_Initialize() For I = 0 To 7 コンボA.AddItem Worksheets("データ").Cells(I + 2, 2).Value Next End Sub
- ベストアンサー
- オフィス系ソフト
- テキストボックスの値をセルに反映させたい。
はじめまして、いつもお世話になっております。 EXCEL VBAの質問です。 下記(1)(2)の質問にお答えいただきたく、お願いいたします。 (1)ユーザーフォームのテキストボックスの値をEXCELのデータが入力されている 最終行の下の空白にユーザーフォームのボタンをクリックして反映。 (2)(1)の逆で特定のセルの値をユーザーフォームのテキストボックスに反映。 色々なサイトのプロシージャをコピペしましたが、うまくいきません。 見づらいかもしれませんが、ユーザーフォームの画像を添付します。 皆様、よろしくお願いいたします。
- ベストアンサー
- Visual Basic
お礼
kazuhiko5681様 何度もお手数おかけしました ご指導のとおり作成しましたところ、見事に作動しました 本当にありがとうございました。 あつかましい限りですが、もう一つお願いがあります 今後の学習のためにプログラムの１行目の( )内と３行目データ範囲指定をしているところの各コマンドの意味を解説していただけないでしょうか。 ご都合の許す範囲で結構ですので、お聞き届けいただければ幸いです。