|
どうもありがとうございます。
リストの内容ですが、以下のものです。これは、入力フォームからではなく、表から入力をするときに表示されるようにと思い、やったものです。空白になっているところには、ほかのものがはいります。
Private Sub CommandButton1_Click()
ActiveCell.Value = ListBox1.Value
Unload リスト
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell.Value = ListBox1.Value
Unload リスト
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem ""
ListBox1.AddItem "預り金"
ListBox1.AddItem "通勤費"
ListBox1.AddItem "旅費交通費"
ListBox1.AddItem "通信費"
ListBox1.AddItem "資料費"
ListBox1.AddItem "事務所費"
ListBox1.AddItem ""
ListBox1.AddItem ""
ListBox1.AddItem ""
ListBox1.AddItem "その他"
End Sub
|
|