セルを使わずにAddItemでリストボックスの値を登録する
ユーザーフォームに配置したリストボックスにリスト表示させるのにセルの値を反省させるのではなくAddItemを使えば直接書き込むことができるので、セルを汚さずに済ませたいと思いませんか？
この方法ならばユーザーフォームが開いたら自動的にAddItem登録された値が、リストアップされて表示されるので便利ですよ。
目次
AddItemメソッド
ここでは、ユーザーフォームが表示された時に、AddItem登録しておいた値をリストボックスに表示させるようにVBAコードで書き込んでおきます。
VBAコード
Private Sub UserForm_Initialize()
With UserForm1.Controls(“ListBox1”)
.AddItem “勝手にシンドバッド”
.AddItem “気分しだいで責めないで”
.AddItem “いとしのエリー”
.AddItem “思い過ごしも恋のうち”
.AddItem “C調言葉に御用心”
.AddItem “涙のアベニュー”
End With
End Sub
VBA解説
- ユーザーフォームイニシャライズイベントを実行する
- ユーザーフォーム1のリストボックス1について以下の処理をする（Withステートメント）
- “勝手にシンドバッド”をアイテム登録する
- “気分しだいで責めないで”をアイテム登録する
- “いとしのエリー”をアイテム登録する
- “思い過ごしも恋のうち”をアイテム登録する
- “C調言葉に御用心”をアイテム登録する
- “涙のアベニュー”をアイテム登録する
- Withステートメント終了
- マクロ記録終了
このように、AddItemを使うと特定のセルの値を取得するわけではないので、書き換えられたり、誤って消してしまう事が無いので、変更する事が無いリスト作成ならばAddItem登録する方法を普段は使っています。
とりっぷぼうる
登録したいリストがもっとあればAddItemをどんどん増やせば可能なので、とても簡単ですよ。
また、リストは1行に1個ではなく、2列表示や登録も簡単にできますよ。
あわせて読みたい
リストボックスを2列・複数列表示やセルに記載する方法
あらかじめ指定した複数の値の中から選択することができるリストボックス。 初期設定（デフォルト）では1列（1項目）だけの表示・選択なのですが、実は2列・3列と複数列...
あわせて読みたい
ユーザーフォームのリストボックスの使い方・よく使う機能12選
ユーザーフォーム使っていてちょっとめんどくさいと思った経験ありませんか？ 決まった数字や文字の入力ならば、簡単にしませんか？ リストを作成しておいて、リスト内...