Excel VBA コンボボックスにリストを追加する

備忘録記事です。

前提：フォーム名「F_Form」
コンボボックス名：「cmb1」
列数:2（1列目が数値、2列目が名称）

F_Form.Controls("cmb1").AddItem
F_Form.Controls("cmb1").List(0,0)=1
F_Form.Controls("cmb1").List(0,1)="単品"

F_Form.Controls("cmb1").AddItem
F_Form.Controls("cmb1").List(1,0)=2
F_Form.Controls("cmb1").List(1,1)="複合品"

・・・
・・・