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

rph

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

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

可否幫小弟解惑,感謝

GBKEE

回復 1# rph

1. Sub Ex()
   
2.    ActiveSheet.ListBox1.AddItem "分公司  A"
   
3.    '''''''''  同下    '''''''''''''''''''''
   
4.    With ActiveSheet.ListBox1
   
5.         .AddItem "分公司  b"
   
6.     End With
   
7. End Sub

複製代碼

rph

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

chin15

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

hugh0620

回復 1# rph


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

Hsieh

回復 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

複製代碼

rph

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

hugh0620

回復 7# rph


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

oobird

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

rph

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