エクセル（Excel）の技。知ってましたか・・・。

マイクロソフトアクセスの記事はこちら

人気ブログランキングへ




にほんブログ村




コンボボックスのVBA


今回は前回の動作をVBAで実現したいと思います。

デザインモードでコンボボックス上をダブルクリックするか、

右クリックで「コードの表示」を選択してください。

下のようにVBA画面が表示されます。



上記の記載に下のように追記しました。


Private Sub ComboBox1_Change()

Range("A8") = ComboBox1.Value

End Sub

この内容は、コンボボックス1の出力をA8に表示せよという内容です。



次に右側の選択肢から「GotFocus」を選択してください。



上のように新たに「GotFocus」でプログラムを記載するところが作成されました。



Private Sub ComboBox1_GotFocus()

ComboBox1.ListFillRange = "sheet1!A2:A6"

End Sub

上記のように記載しました。

ComboBox1.ListFillRange = "sheet1!A2:A6"によってリスト範囲が

設定されます。

ListFillRangeというのはプロパティにもありましたね。

デザインモードを終了して通常動作にします。



上記のようにプロパティで設定した時と同じ動作をしましたね。

このようにVBAでも実現できます。




「小顔ハリ美肌コース」エルセーヌのエステ体験

フェイシャルエステでたるみ＆老け顔にサヨナラ！