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

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

人気ブログランキングへ




にほんブログ村


コンボボックスに複数列の表示

これもやり方は色々あります。

色々やってみましょう。

最も簡単な方法として、まず、ユーザーフォームのプロパティを開き

下の赤枠部分「ColumuCount」を「2」にします。

ここが列数のプロパティです。



それから２列表示になるので、コンボボックスの幅を広げましょう。



上のように横幅を広げました。


Private Sub UserForm_Initialize()

Dim data As Variant

data = Sheets("sheet4").Range("F2:G17")

ComboBox1.List = data

End Sub

前回記述したプログラクを上記のように変更しました。

data = Sheets("sheet4").Range("F2:G17")

この部分です。

先ほどはRange("F2:F17")でした。

G7にすることで２列選択になりましたね。

この状態で通常表示にしてみましょう。



上記のようにコンボボックスに２列が表示されました。




━━━━━━━━━━━━━━━━━━━━━━━━━
■ 約200万サイトが使っているA8.net
━━━━━━━━━━━━━━━━━━━━━━━━━
・HPやBLOGに広告を掲載して副収入を得ませんか？
・無料で始められて1000円以上でお振込み。
・いま多くの方に利用されているエーハチネットは
　PCとスマートフォンからご利用いただけます。

▼詳細はこちら
https://px.a8.net/svt/ejp?a8mat=2TAC5M+14HJGI+1N3S+6AANBN
━━━━━━━━━━━━━━━━━━━━━━━━━