返回列表下一主題上一主題發帖

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

rph

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-22 16:25 | 顯示全部帖子

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

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

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

可否幫小弟解惑,感謝

樓主熱帖

rph

中學生 Rank: 2

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

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
點名: 1
作業系統: WIN XP
軟體版本: SP2
閱讀權限: 20
性別: 男
註冊時間: 2011-3-25
最後登錄: 2026-3-16

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
點名: 1
作業系統: WIN XP
軟體版本: SP2
閱讀權限: 20
性別: 男
註冊時間: 2011-3-25
最後登錄: 2026-3-16

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