當前位置:成語大全網 - 書法字典 - vba列表框的賦值問題。

vba列表框的賦值問題。

應該是這樣的。首先,構建壹個表單,壹個listbox1、兩個commandbutton和壹個textbox1。代碼如下:

私人的?Sub?命令按鈕1_Click()

用什麽?列表框1

。清楚的

為了什麽?我?=?3?去哪?活動表。範圍(“A65536”)。結束(xlUp)。排

。AddItem?細胞(我,?1)

下壹個?我

結束?隨著

結束?潛水艇

私人的?Sub?命令按鈕2_Click()

為了什麽?我?=?0?去哪?列表框1。列表計數?-?1

如果?列表框1。精選(壹)?然後

TextBox1?=?TextBox1?& amp?列表框1。清單(壹)

結束?如果

下壹個?我

結束?潛水艇