Excel VBA中Combo Box 如何加入已編的名字

2015-05-04 5:35 am
在VBA中的COMBO BOX

我輸入了

With mycombobox
.Clear
.Additem "ABC"
.Additem "DEF"
.Additem "GHI"
End With

但假設我已把 "ABC"、"DEF"、"GHI" 編成了名字,那我可以如何用這個名字代替

.Additem "ABC"
.Additem "DEF"
.Additem "GHI"

這三句??
更新1:

我的意思是不想在寫PROGRAMME時加入選項,選項的LIST寫於WORKSHEET中,而PROGRAMME則CALL個LIST來用。

更新2:

Cascade, 謝謝你的幫忙,根據你給我的資訊,我解決了我工作上的困難,非常謝謝! 煩請你把你的資料由"意見"中複製到"回答"內,以便我選出最佳答案,謝謝!!

回答 (2)

2015-05-06 11:47 pm
✔ 最佳答案
不太清楚版大的意思,純推測:
試試加上以下程式碼
Private Sub mycombobox_Change()
Select Case mycombobox.Value
Case "ABC"
TextBox1.Value = "張三"
Case "DEF"
TextBox1.Value = "李四"
Case "GHI"
TextBox1.Value = "王五"
End Select
End Sub

2015-05-04 23:21:51 補充:
假設資料來源在工作表1的A欄,則程式碼:
Private Sub UserForm_Initialize()
With mycombobox
.RowSource = "=工作表1!A1:A" & Sheets("工作表1").Range("A65536").End(xlUp).Row
End With
End Sub
請試試

2015-05-06 15:47:58 補充:
假設資料來源在工作表1的A欄,則程式碼:
Private Sub UserForm_Initialize()
With mycombobox
.RowSource = "=工作表1!A1:A" & Sheets("工作表1").Range("A65536").End(xlUp).Row
End With
End Sub
請試試
2015-05-08 9:24 am
我本來從沒遇到過修NAS修硬碟和隨身碟要資料救援,一開始也跟大家一樣總是問價格到處比價,因為不懂,凡事都從價格,考量,輕言聽信朋友介紹比較便宜一家,找錯家之後痛苦尾隨而來,以下省略500字........,後來自己上網找資料救援找到硬碟醫院,和他們經理溝通之後給我正確觀念,這是妳寶貴的資料,妳要考慮是救不救的回問題,而不是貴不貴問題,如果重要請找對人搶救NAS資料硬碟救援才能恢復你的NAS中多顆的硬碟資料
http://www.datamaster.com.tw/


收錄日期: 2021-04-22 23:33:56
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20150503000010KK03966

檢視 Wayback Machine 備份