複数列のリストボックスを設定する
ColumnCountで2列を用意し、商品名と単価を同じ行に並べます。
実行前に確認
- AddItemで行を作ってから、List(行番号,1)で2列目を設定します。Listの行・列番号はいずれも0始まりです。
- コードと公式仕様を照合した学習用の例です。Excel実機での実行確認は行っていません。
1サンプルコード
'【貼付先：UserForm1 のコードモジュール】
Option Explicit
Private Sub UserForm_Initialize()
With Me.ListBox1
.ColumnCount = 2
.ColumnWidths = "90 pt;55 pt"
.AddItem "ノート"
.List(0, 1) = 180
.AddItem "鉛筆"
.List(1, 1) = 80
End With
End Sub図で見る行に複数の値を置く
イメージ図ColumnCountで2列を用意し、商品名と単価を同じ行に並べます。
列数
ColumnCount=2
行作成
AddItemで商品名を追加
2列目
List(行,1)へ単価
各操作は、このガイドに指定されたフォームのコードで行います。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する5つの手順で、コードの使い方を確認できます
- 1
Windows版デスクトップExcelの練習用ブックを.xlsmで保存し、Alt＋F11→［挿入］→［ユーザーフォーム］で、名前がUserForm1の空のフォームを用意します。各例は別々に試します。
- 2
ツールボックスからListBoxを1個（ListBox1）。幅は160ポイント程度を置き、各コントロールの［(Name)］が記載どおりか確認します。
- 3
UserForm1を右クリック→［コードの表示］を開き、掲載コード全体をフォームのコードモジュールへ貼り付けます。標準モジュールには貼り付けません。
- 4
VBEでUserForm1を選び、F5でフォームを表示します。 各行の2列を確認します。
- 5
「ノート・180」「鉛筆・80」の2行2列が表示されます。