- ベストアンサー
Excel ComboBox.List設定
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Sheet1のA1～A5をリストに登録する場合の例です。 Sheet1のコードウインドウに書く場合は Sub Test1() DropDowns("ドロップ 1").ListFillRange = "A1:A5" End Sub 標準モジュールに書く場合は Public Sub Test2() Worksheets("Sheet1").DropDowns("ドロップ 1").ListFillRange = "A1:A5" End Sub こんな感じでしょうか。 個別のテキストを設定するなら、 DropDowns("ドロップ 1").AddItem "ZZZZ1" のようにします。(Excel97で作成) ご参考に。
関連するQ&A
- コンボボックスのドロップダウンリストの設定
Excelのコントロールツールボックスからコンボボックスを作成したのですが、マウスのホイールをスクロールするとドロップダウンリストがコンボボックスの頭から離れてしまいます。 フォームツールバーから作成すれば離れないのですが、ＶＢＡでリンクを設定する関係でコントロールツールボックスから作成したいのです。 離れないように設定するにはどうしたらいいのでしょうか。 教えてください。宜しくお願いいたします。
- 締切済み
- オフィス系ソフト
- エクセル マクロ コンボボックスリスト
sheet1の場所でボタンクリックでフォーム表示。その中でコンボボックスリストを作成。 sheet3にデーターをA列に作りました。 １）フォームの中のコンボボックスをクリックしてリスト表示させた い。マクロの記述を教えてください。 ２）コンボボックスリストに表示した文字をsheet2に記録するボタンを作ったがマクロの記述を教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルのシートにコンボボックスを配置しようとしています。
エクセルのシートにコンボボックスを配置しようとしています。 コントロールツールボックスのコンボボックスは、見た目があまりよくないところが 気になります。 ドロップダウンのボタンのデザインが角ばってることや シートのフォントと同一のフォントに設定してもちょっと違う（なぜ？）とこなど、 気にいりません。 フォームのコントロールは名前が変更できず、VBの関数がドロップ1_Change()などとなるため、 後に管理しづらそうで心配しています。 コントロールツールボックスのコンボボックスの見た目を改善する方法、または、 フォームのコントロールの名前を変更する方法がありましたら、 教えてください！！
- ベストアンサー
- オフィス系ソフト
- Excel VBA：ComboBoxのドロップダウンリストで文字が欠ける
Excel2000のVBAで、ユーザーフォーム上にComboBoxを作りました。 ComboBox5.RowSource = "Sheet2!q18:q21" ComboBox5.Value = WS2.Range("r18").Value こんな感じで項目を指定して、実行するとComboBoxは一応表示されるのですが、ComboBox内の文字列の下側が１ドット分くらい欠けた状態になります。[▼]を押してドロップダウンリストを表示させると、リスト内の各文字列も下側が１ドット分くらい欠けた状態になっています。 どうも項目の文字数が長くなると、この症状が現れるらしいことは分かったのですが、文字数を削りたくないので、なんとか現在の文字数で正常に表示させたいと思っています。 この症状への対処法をご存知の方がいらっしゃいましたら、どうかアドバイスをくださいますようお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA ComboBox
質問させて頂きます。 現在ユーザーフォーム内にComboBoxを配置しリストに、チヌ/チヌマン(魚名)を入れています。 問題は手入力でも指定出来る用にしたいのですが、「チヌ」と入力しEnterをしますと「チヌマン」と出てしまいます。 この２つの魚名は全く異なりますので入力した文字列で済む方法は無いでしょうか？ よろしくお願いします。
- 締切済み
- その他（プログラミング・開発）
- リスト外入力
アクセス２００２を使っています。 フォームでコンボボックスを使用し一覧から選択できるようにしたのですが、一覧にない文字列を入力しようとすると「一覧から選択して下さい」とメッセージが出て入力できません。 一覧にない文字列も入力できるようにしたいのですが、どなたか教えていただけませんか？ フォームのプロパティで「リスト外入力」という項目がありますが、このプロシジャでマクロを設定すればできるのでしょうか？ よろしくお願い致します。
- ベストアンサー
- その他(データベース)
- エクセルVBAで、コンボボックスのリストを変更したい
Excel97を使用しています。 フォーム上にコンボボックスを2個配置しています。 リストで使うシートは下記のようになっています。 Ａ列 Ｂ列 Ｄ列 １ ａａ ＢＢＢ ＡＡＡ ２ ｂｂ ＣＣＣ ＢＢＢ ３ ｃｃ ＣＣＣ ＣＣＣ ４ ｄｄ ＡＡＡ ５ ｅｅ ＢＢＢ 初期化した時に、RowSourceとしてComboBox1にはA1:A5、ComboBox2にはD1:D3を設定しています。 ComboBox2で、例えば「ＢＢＢ」を選択した時に、ComboBox1のリストが、B列に「ＢＢＢ」と入力されている内容のみ(この場合「ａａ」と「ｅｅ」)がリストにセットされるようにはできませんでしょうか？ ComboBox1の内容とB列のセルの内容が一致したら、そのセルの1つ左のセルの内容をリストに追加する、というようなコードを書いたのですが「予期しないエラー」と出てしまいました。 ご存知の方、どうぞよろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- 連携する複数のコンボボックスに同じリストを設定
初心者なので質問がトンチンカンでしたらすみません ユーザーフォームにコンボボックスを計12個配置しています ComboBox1で選択した値に応じてComboBox2のリストが選ばれる ComboBox3で選択した値に応じてComboBox4のリストが選ばれる ・・・・・・・ ComboBox11で選択した値に応じてComboBox12のリストが選ばれる という風に設定したいのですが、コンボボックスの数だけリストの設定を するのが大変なので見よう見まねで下記の様にしてみたのですが全く 動きません。 UserForm_Initializeでイベント発生させてるので動かないのでしょうか？ どこがおかしいのかご教授お願いします。 Private Sub UserForm_Initialize() Dim i As Variant Dim Ari As Variant Ari = Array("1", "3", "5", "7", "9", "11") For Each i In Ari If UserForm4.Controls("ComboBox" & i).Value = "車いす" Then With UserForm4.Controls("ComboBox" & i + 1) .ColumnCount = 5 .List = Worksheets("商品マスタ").Range("車いすテーブル").Value End With ElseIf UserForm4.Controls("ComboBox" & i).Value = "車いす付属品" Then With UserForm4.Controls("ComboBox" & i + 1) .ColumnCount = 5 .List = Worksheets("商品マスタ").Range("車いす付属品テーブル").Value End With ElseIf UserForm4.Controls("ComboBox" & i).Value = "特殊寝台" Then With UserForm4.Controls("ComboBox" & i + 1) .ColumnCount = 5 .List = Worksheets("商品マスタ").Range("特殊寝台テーブル").Value End With End If Next End Sub
- ベストアンサー
- Visual Basic
- テキストボックスのデフォルト設定とコンボボックスの更新について
テキストボックスのデフォルト設定とコンボボックスの更新について エクセルのＶＢＡで、ユーザーフォームを使用しています。 ユーザーフォームの中にはコンボボックスとテキストボックスとボタンがあります。 コンボボックスには「ＡＢＣＤＥＦＧＨＩＪＫＬＭ」と合計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)しかし「Ｅ」が選択された状態で「戻る」ボタンをおしたら「Ｄ」が選ばれる。 「Ｇ」が選択された状態で「戻る」ボタンをおしたら「Ｆ」が選ばれる。 「Ａ」が選択された状態で「戻る」ボタンをおしたら「Ｍ」が選ばれる。（リストの最後に戻る。） といった内容のマクロがうまく組めません。 教えていただけると助かります。
- ベストアンサー
- オフィス系ソフト
- ComboBoxの設定方法
フラッシュ初級者です。よろしくお願いします。 使っているフラッシュはMX2004です。 comboboxでシーンやラベルに飛べるようにしたいのですが、中々うまくいきません。 というかまったくわかりません…。 例えば「序盤」,「中盤」,「終盤」といシーン、 合計３つのシーンがあったとして、コンボボックスを開くと、この「序盤」,「中盤」,「終盤」が選択できて、選択するとそのシーンに飛ぶにはどのようなスクリプトをコンボボックスに入れておけばいいのでしょうか？（終盤を選択したときは「終盤」シーンの中のフレームラベル「hogehoge」に飛べるようにしたいです。） また、その際のコンボボックスのプロパティインスペクタの中のパラメーターの設定(data,editable,labels,rowcount)はどう設定すればいいのでしょうか？ コンボボックスはシーン「終盤」に置くという設定です。 色々googleでもcomboboxについて検索してみたのですが、comboboxについて初級者用に解説しているページがみつからなかったので。 やさしく解説しているサイト等もしっていましたらご教授くださると大変うれしいです。
- 締切済み
- Flash
