12
返回列表 上一主題 發帖

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

rph

帖子
41 
主題
7 
精華
0 
積分
79 
點名
18  
作業系統
WIN XP 
軟體版本
SP2 
閱讀權限
20 
性別
男 
註冊時間
2011-3-25 
最後登錄
2025-10-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-22 16:25 | 只看該作者

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

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

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

可否幫小弟解惑,感謝
收藏 分享

GBKEE

帖子
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
  1. Sub Ex()
  2.    ActiveSheet.ListBox1.AddItem "分公司  A"
  3.    '''''''''  同下    '''''''''''''''''''''
  4.    With ActiveSheet.ListBox1
  5.         .AddItem "分公司  b"
  6.     End With
  7. End Sub
複製代碼

TOP

rph

帖子
41 
主題
7 
精華
0 
積分
79 
點名
18  
作業系統
WIN XP 
軟體版本
SP2 
閱讀權限
20 
性別
男 
註冊時間
2011-3-25 
最後登錄
2025-10-12 
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

帖子
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: 3Rank: 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

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2011-4-25 11:45 | 只看該作者
回復 5# hugh0620
如果是這樣，試試
  1. Private Sub CommandButton1_Click()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. n = InputBox("請輸入清單項目", , "ItemA")
  4. Do Until n = ""
  5.    If d.exists(n) = False Then ComboBox1.AddItem n
  6.    d(n) = d.Count
  7.    n = InputBox("請輸入清單項目", , "ItemB")
  8. Loop
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

rph

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

帖子
41 
主題
7 
精華
0 
積分
79 
點名
18  
作業系統
WIN XP 
軟體版本
SP2 
閱讀權限
20 
性別
男 
註冊時間
2011-3-25 
最後登錄
2025-10-12 
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

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
12
返回列表 上一主題