- ベストアンサー
コンボボックスの自動更新について
- エクセルのＶＢＡで、ユーザーフォームを使用しています。ユーザーフォームの中には「入力」ボタンとコンボボックスとテキストボックスがあります。
- コンボボックスは、「ＡＢＣＤＥＦ」と６つのリストがあります。ユーザーフォーム起動時には、コンボボックスは空欄で、コンボボックスから、入力したい商品を選んで、入力ボタンを押してコンボボックスとテキストボックスの内容を入力・コンボボックスを空欄に戻しています。
- これを、「Ａ」を選んで入力ボタンをおしたら「Ｂ」が選ばれる。 「Ｂ」を選んで入力ボタンをおしたら「Ｃ」が選ばれるといったようにコンボボックスに表示されるリストを自動で更新することはできないでしょうか？
- magicpearl1109
- お礼率0% (0/1)
- オフィス系ソフト
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- テキストボックスのデフォルト設定とコンボボックスの更新について
テキストボックスのデフォルト設定とコンボボックスの更新について エクセルのＶＢＡで、ユーザーフォームを使用しています。 ユーザーフォームの中にはコンボボックスとテキストボックスとボタンがあります。 コンボボックスには「ＡＢＣＤＥＦＧＨＩＪＫＬＭ」と合計13のリストがあります。 ユーザーフォーム起動時に、コンボボックスには最初のリスト(Ａ)が表示 されていて、「次へ」ボタンと「戻る」ボタンの２つを用意しています。 (1)ユーザーフォーム起動時にテキストボックスに「0」を入れる方法を教えていただけないでしょうか。 コンボボックスで「Ａ」が選択された状態で「次へ」ボタンをおしたら「Ｂ」が選ばれる。 「Ｄ」が選択された状態で「次へ」ボタンをおしたら「Ｅ」が選ばれる。 「Ｍ」が選択された状態で「次へ」ボタンをおしたら「Ａ」が選択される。（リストの最初に戻る。） というのは、次のＶＢＡで上手くいきました。 If Combobox1.ListIndex < Combobox1.ListCount - 1 Then Combobox1.Text = Combobox1.List(Combobox1.ListIndex + 1) Else Combobox1.Text = Combobox1.List(0) End If (2)しかし「Ｅ」が選択された状態で「戻る」ボタンをおしたら「Ｄ」が選ばれる。 「Ｇ」が選択された状態で「戻る」ボタンをおしたら「Ｆ」が選ばれる。 「Ａ」が選択された状態で「戻る」ボタンをおしたら「Ｍ」が選ばれる。（リストの最後に戻る。） といった内容のマクロがうまく組めません。 教えていただけると助かります。
- ベストアンサー
- オフィス系ソフト
- コンボボックスで
コンボボックスで、あるテーブルを参照してリストを出す場合、リスト中になかった場合に、コマンドボタンを押せばテーブルの追加フォームが出てきて入力できるようにしています。この場合に、入力フォーム内で終了（保存）ボタンを押せば、自動的にコンボボックスの中に入り、かつもう一度選択しなくても表示されているような操作はできないものでしょうか？
- 締切済み
- その他(データベース)
- ACCESSのコンボボックスについて
ACCESSでコンボボックスを使っているときに たまに入力できなくなってしまう時があり困っています。 例えばA,B,Cという3つのデータを選択できるコンボボックスがあり、 現在、Aが選択されていてBに変更しようとした時に コンボボックスの表示部分が突然空欄（または選択されているのに表示されていない）になってしまいます。 その後、どれを選択してもコンボボックスには何も表示されなくなってしまいます。 この現象が起こるとなぜか同じフォーム内のボタンなどにも不都合が起こるようになってしまいます。 (テキストボックスのデータを削除するボタンがあるのですがおしてもなにも起こらなくなってしまいました) いろいろ試しているのですが全く原因がわかりません。 どのようなところに原因がありそうかなどあれば教えてください。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- Access コンボボックスへのレコードの更新
サブフォームにコンボボックスを設置しており、リストに無い場合に追加登録するためのフォームを開くボタンを作ってあります。 このボタンからフォームを開き追加して閉じたあと、メニューのレコードの更新をしないと元のサブフォームのコンボボックスに反映されません。 自動ですぐに反映させる方法、またはレコードを更新するボタンの設定方法を教えて下さい。 宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- ExcelVBA コンボボックスに入力があったらリンクしてテキストボックスを更新したい
フォームで入力画面をつくっています。 あるコンボボックスのリストから項目が選択されたら、一覧からリンクさせてテキストボックスの内容を更新がしたいのです。 例えば「社員コード」のコンボボックスで「３」が選択されたら、「社員名」のテキストボックスに別シートに作成してある社員一覧から「太郎」が表示されるというようにです。 セルA1とコンボボックスをリンクさせ、セルB1にVLOOKUP(A1,一覧,2)で一覧から名前を抽出しました。コンボボックスのChangeイベントでB1の内容をテキストボックスへ送っているのですが、カーソルを別の項目へ移動するまではテキストボックスの内容が更新されません。 コンボボックスのリストを選択した時点でテキストボックスを更新する方法はないでしょうか？
- ベストアンサー
- オフィス系ソフト
- コンボボックスを自動更新
お世話になります。 シート１のA1セルに 名前 B1セルに期限と入力してあり A2セル リンゴ B2セル 1703 A3セル バナナ B3セル 1703 A4セル ぶどう B4セル 1704 A5セル キウイ B5セル 1704 A6セル お米 B6セル 1706 A7セル 酒 B7セル 1708 以下 同様に入力しています。 B2以下に入力されているのは4桁の数字で 小さいほうから大きいほうに並んでいます。 同じ数字が入力されていることもあり、 また欠番も存在します。 この期限をユーザーフォームにコンボボックス設置して 重複なし表示させています。以下のコードです。 Private Sub UserForm_Initialize() Worksheets("Sheet1").Select 名前.Value = Cells(2, 1).Value 期限.Value = Cells(2, 2).Value X = 期限.Value nextGyo = Range("B:B").Find(X).Row 'Dim リスト As New Collection 'Dim 列 As String, 上端セル As String, 最下端セル As String 'Dim セル範囲 As Range, 各セル As Range 列 = "B" '※3 上端セル = 列 & "2" '※4 最下端セル = 列 & "65536" With Worksheets("Sheet1") '※5 Set セル範囲 = .Range(.Range(上端セル), .Range(最下端セル).End(xlUp)) End With For Each 各セル In セル範囲 'セル範囲の各セルについて繰り返し処理 On Error Resume Next '次行が実行時エラーならその次行から継続 リスト.Add 各セル.Value, CStr(各セル.Value) 'Collectionオブジェクトにメンバを追加 If Err.Number = 0 Then '実行時エラーが発生していなければ Me.期限.AddItem 各セル.Value 'コンボボックスのリストに項目を追加 End If On Error GoTo 0 Next End Sub 上記の例だと「1703」「1704」「1706」「1708」の 4種類から選択できる状態です。 ここでコンボボックスで1704を選択して （コンボボックスには自由に入力はさせずにリストの中から選ばせるようにしています） ユーザーフォーム上のボタンを押すと A4セル ぶどう B4セル 1704 A5セル キウイ B5セル 1704 を行削除して空白行を上に詰めるコードを書きました。 ただこのときコンボボックスには リストの更新がされないので「1704」が表示されたままです。 削除した時点で「1704」がない状態にするには （自動更新をかける） どうしたらよいでしょうか？ （削除するコードの中に Call UserForm_Initialize と書いてみたのですが 何も変化ありませんでした） どうかよろしくお願いいたします
- ベストアンサー
- オフィス系ソフト
- エクセル コンボボックスについて
ＸＰ エクセル２００３なのですが、 現在ワークシートに郵便番号と住所のリストを作成しています。 郵便番号 住所 ***-**** ○○県○○市・・・ ***-**** ＸＸ県ＸＸ市・・・ ユーザーフォームにテキストＢＯＸとコンボＢＯＸとコマンドボタンを 配置しています。 コンボＢＯＸではリストにしている住所のみを表示していますが、 その中から探すのが大変です。そこで、 テキストＢＯＸに郵便番号を入力し、 コマンドボタンをクリックすると、 コンボＢＯＸに該当する住所が表示されるようにしたいのですが、 どうすればいいのか、何から始めればいいのか、 全く分かりません・・・。いろいろな方法があると思うのですが、 教えていただければ幸いです。 初心者ですので質問形式が悪いかもしれませんが よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセルVBAでコンボボックス
エクセルVBAのコンボボックスの使い方について質問します。 実現したいプログラムは 「チェックボックスから選んだ数字で計算するプログラム」 です。 具体的には… まず、コンボボックスをシート上に配置します。そのコンボボックスには 数字の1から10を選べるようにしておきます。 次に、コマンドボタンを配置します。これは単にプログラムをスタート させる目的です。 ユーザーは、まずコンボボックスから好きな数字を選択します。 そしてスタートボタン(コマンドボタン)を押します。 すると、選んだ数字の2倍がセルに表示されます。 さらに発展系としては… チェックボックスを4つ配置します。各チェックボックス には、+、-、×、÷を割り振っておきます。 また、コンボボックスを2つ用意し、それぞれ1～10の数字をリストにします。 ユーザーは、チェックボックスから好きな記号を選び、さらにコンボボックスから 好きな数字を選びます。そしてスタートボタンを押すと、選んだ数字を選んだ記号 で計算した値がセルに表示されます。 というようなプログラムを考えているのですが、うまくできません。 ポイントは、 ・チェックボックスにリストを入力する方法 ・チェックボックスの選択状態や、リストボックスから選ばれた数字を、 変数として取得する方法 インターネットで調べているのですが、リストボックスに値を入れるのにもマクロを走らせ なければならない方法とか、ユーザーフォームでの説明ばかりでなかなか実現に至りません。 http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_userform05.html プログラムのイメージ図としては添付の図の通りです。 どのようにプログラムを書けばいいのでしょうか。
- ベストアンサー
- Visual Basic
- VBAコンボボックスのリスト選択について
現在、ユーザーフォームを作成していますがコンボボックスでのリスト選択について質問します。 【質問内容】 コンボボックスを３つ作成し、Select Caseでそれぞれのリストを連動させるプログラムを組んでいます。 (1)３つとも選択した後で例えばリスト１を変更しようとするとエラーになってしまいます。リスト以外の文字列も入力できるようにしているつもりですがなぜでしょうか？ (2)選択後、シートセルに転送した後、テキストボックスならば「.Text = ""」で一旦空白になりますが、コンボボックスの場合どうしたらよいのでしょうか？ シートセルに転送後も選択した内容が残ってしまい結局(1)の事象に基づきエラーになってしまい連続入力ができません。 初歩的な質問で恐縮ですが、よろしくお願いいたします。
- 締切済み
- その他（プログラミング・開発）
- Excel VBA コンボボックスの使い方
VBAでのコンボボックスの使い方をしらべているのですが、うまく見つかりません。コンボボックスのリストに登録するのはどうしたらよいのでしょうか？シート上のセル内のデータを使用しないとリストの登録は出来ないのでしょうか？VBA上で作成して、ユーザーフォームで選択できるようにしたいと思っています。VBAをはじめたばかりなので初歩的な質問で大変恐縮です。どなたかわかる方がいらっしゃったらお願い致します。
- 締切済み
- 会計ソフト
