[發問] 清單項目如何建置

小弟最近想力用LISTBOX或COMBOX建置清單
書中範例如下(有部份省略):
MSGBOX "建置項目"
WITH ACTIVESHEET.LISTBOX1.ADDITEM "分公司 A"
END WITH

但小弟執行F5時,並沒有出現項目???

可否幫小弟解惑,感謝

樓主熱帖

rph

中學生 Rank: 2

帖子: 41
主題: 7
精華: 0
積分: 79
點名: 8
作業系統: WIN XP
軟體版本: SP2
閱讀權限: 20
性別: 男
註冊時間: 2011-3-25
最後登錄: 2025-2-25

2^#

發表於 2011-4-25 09:56 | 顯示全部帖子

奇怪 ~~
為什麼我試還是沒有???
Private Sub ListBox1_Click()
ActiveSheet.ListBox1.AddItem "分公司 A"
With ActiveSheet.ListBox1
.AddItem "分公司 a"
End With
End Sub

TOP

rph

中學生 Rank: 2

帖子: 41
主題: 7
精華: 0
積分: 79
點名: 8
作業系統: WIN XP
軟體版本: SP2
閱讀權限: 20
性別: 男
註冊時間: 2011-3-25
最後登錄: 2025-2-25

3^#

發表於 2011-4-25 11:58 | 顯示全部帖子

在這邊些感謝大家的指導!造成大家困擾,還請包涵!
我順便再重新說明一下我的問題!!
1.我自訂表單後,在表單上建了LISTBOX1
2.接下來我寫了建立清單的程式碼,按下F5執行,不過在我的LISTBOX中,並沒有出現我所做的清單項目
3.程式碼如下
Private Sub ListBox1_Click()
ActiveSheet.ListBox1.AddItem "分公司 A"
With ActiveSheet.ListBox1
.AddItem "分公司 A"
End With
End Sub

TOP

rph

中學生 Rank: 2

帖子: 41
主題: 7
精華: 0
積分: 79
點名: 8
作業系統: WIN XP
軟體版本: SP2
閱讀權限: 20
性別: 男
註冊時間: 2011-3-25
最後登錄: 2025-2-25

4^#

發表於 2011-4-25 13:52 | 顯示全部帖子

回復hugh0620
我做的東西,就是這樣!(p.s我照的書本範例弄的)
Private Sub ListBox1_Click()
ActiveSheet.ListBox1.AddItem "分公司 A"
With ActiveSheet.ListBox1
.AddItem "分公司 A"
End With
End Sub

TOP

rph