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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-4-22 16:25 | 只看該作者

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

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

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

可否幫小弟解惑,感謝

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-4-22 16:50 | 只看該作者

回復 1# rph

Sub Ex()
ActiveSheet.ListBox1.AddItem "分公司 A"
''''''''' 同下 '''''''''''''''''''''
With ActiveSheet.ListBox1
.AddItem "分公司 b"
End With
End Sub

複製代碼

TOP

rph

中學生 Rank: 2

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

3^#

發表於 2011-4-25 09:56 | 只看該作者

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

TOP

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

4^#

發表於 2011-4-25 11:21 | 只看該作者

AddItem必須先有清除的動作
否則會加入一堆相同的序列
較建議的作法是：
Private Sub ListBox1_GotFocus()
A = Array("A", "B", "C", "D", "E")
ActiveSheet.ListBox1.List = A
End Sub

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2011-4-25 11:36 | 只看該作者

回復 1# rph

樓主的用意~ 應該要更清楚的說明會較好唷~
看起來一開始的文意~ 應該是
1. 按下BUTTOM
2.跑出一個可建置資料在LISTBOX的輸入視窗,可用INPUTBOX 或是設計一個表單方式來處理
3.將輸入的資料~新增在LISTBOX中 (要考量是否為重覆資料,若是重覆資料這不建入,否則則建入)

學習才能提升自己

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 243
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-9

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2011-4-25 11:45 | 只看該作者

回復 5# hugh0620
如果是這樣，試試

Private Sub CommandButton1_Click()
Set d = CreateObject("Scripting.Dictionary")
n = InputBox("請輸入清單項目", , "ItemA")
Do Until n = ""
If d.exists(n) = False Then ComboBox1.AddItem n
d(n) = d.Count
n = InputBox("請輸入清單項目", , "ItemB")
Loop
End Sub

複製代碼

學海無涯_不恥下問

TOP

rph

中學生 Rank: 2

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

7^#

發表於 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

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

8^#

發表於 2011-4-25 12:24 | 只看該作者

回復 7# rph

樓主要不要把做的上傳上來~ 這樣比較簡單處理~

學習才能提升自己

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

發表於 2011-4-25 13:14 | 只看該作者

我自訂表單後,在表單上建了LISTBOX1
又怎會是
ActiveSheet.ListBox1.AddItem "分公司 A"
With ActiveSheet.ListBox1
ListBox1到底在userfoum中還是工作表上的OLEObject？

TOP

rph

中學生 Rank: 2

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

10^#

發表於 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