【VBA】ユーザーフォームのリストボックス

■作るとき

オブジェクト名「lst商品一覧」について、

ワークシート「○○マスタ」のA1〜B50の範囲のうち２列をリストボックスで選択できるようにする。

With Me.lst商品一覧

    .ColumnCount = 2

    .List = Sheets("○○マスタ").Range("A1:B50").Value

End With

 

■選択した項目を、ワークシート「発注票」のCells(i, 1)とCells(i, 2)に転記する。

With sheets("発注票")

    .Cells(i, 1).value = Me.lst商品一覧.List(Me.lst商品一覧.ListIndex, 0)

    .Cells(i, 2).value = Me.lst商品一覧.List(Me.lst商品一覧.ListIndex, 1)

End With

中野にでかけた

12:30

・娘と一緒に母親に会いに行く。

 

13:00

・サイゼリヤへ（パスタ２種、ドリア、グラタン、ピザ、辛味チキン）

都議選の話題で盛り下がる。

・帰り際、誕生日も近いとのことでケーキもらう。

美味しそうありがとう。f:id:citsalpresare1:20210619220714j:plain

・家のこと、老後のこと話すも良い返事は聞けず。

 

14:00

・デイリーチコでアイス（バニラ、ラムネ、いちご）。

ラムネって結構人気があるみたい。

・DAISOと隣の薬局でスライムの材料（木工ボンド、洗濯のり、ほう砂）購入。