新建一個userform，然后加入以下代碼
Private Sub UserForm_Load()
With Sheet1.ListBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
Cells(3, 1) = "load suc"
End With
End Sub
運行沒用
Private Sub UserForm_Load()
ListBox1.AddItem "Paris"
ListBox1.AddItem "New Orleans"
ListBox1.AddItem "San Francisco"
ListBox1.AddItem "Chicago"
ListBox1.AddItem "Seattle"
ListBox1.AddItem "Toronto"
ListBox1.AddItem "New York"
ListBox1.AddItem "Tbilisi"
ListBox1.AddItem "Moscow"
ListBox1.AddItem "Portland"
'選定一對專案。
ListBox1.Selected(0) = True
ListBox1.Selected(1) = True
Cells(2, 1) = "load suc"
End Sub
運行也沒用，請大家幫忙看看，謝謝！！！！
uj5u.com熱心網友回復：
第一段代碼參考：Private Sub UserForm_Activate()
With Sheet1.ListBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
Sheet1.Cells(3, 1) = "load suc"
End With
End Sub
第二段代碼：（vba表單無UserForm_Load事件）
Private Sub UserForm_Activate()
Sheet1.ListBox1.AddItem "Paris"
Sheet1.ListBox1.AddItem "New Orleans"
Sheet1.ListBox1.AddItem "San Francisco"
Sheet1.ListBox1.AddItem "Chicago"
Sheet1.ListBox1.AddItem "Seattle"
Sheet1.ListBox1.AddItem "Toronto"
Sheet1.ListBox1.AddItem "New York"
Sheet1.ListBox1.AddItem "Tbilisi"
Sheet1.ListBox1.AddItem "Moscow"
Sheet1.ListBox1.AddItem "Portland"
'選定一對專案。
Sheet1.ListBox1.Selected(0) = True
Sheet1.ListBox1.Selected(1) = True
Sheet1.Cells(2, 1) = "load suc"
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/129668.html
標籤：VBA