帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-3-14 19:08 | 只看該作者

[發問] 有關於ComBoBox 使用方法

請問各位前輩

最近在嘗試使用一些按鈕、清單
現在嘗試利用Combobox
跟其他語言好像有點不一樣

別的語言可以設預設清單內容還會編號
VBA好像沒有這種功能

我想請問我要如何利用
Combobox 來完成
例：
想吃的選項
1.水果
2.蔬菜

根據選擇的項目跳出 Msgbox "選擇的項目"

樓主熱帖

mmxxxx

中學生 Rank: 2

帖子: 61
主題: 7
精華: 0
積分: 72
點名: 0
作業系統: win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-11-4
最後登錄: 2015-9-16

8^#

發表於 2014-11-4 19:12 | 只看該作者

請問如何移除Item?

TOP

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

7^#

發表於 2012-3-15 18:17 | 只看該作者

回復 6# mark15jill

謝謝前輩~讓我多了解一種方法!

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

6^#

發表於 2012-3-15 11:30 | 只看該作者

b]回復 5# a703130

再提供個小方法

[

TOP

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

5^#

發表於 2012-3-15 11:28 | 只看該作者

本帖最後由 a703130 於 2012-3-15 11:30 編輯

我已經爬文找到方法了
http://forum.twbts.com/viewthrea ... ;highlight=combobox

這邊已經有我需要的方法
在 Workbook 填入下面程式碼，可以讓Excel一打開就先執行

Private Sub Workbook_Open()
Call Sheets(1).ComBoxInit
End Sub

複製代碼

在我的工作頁便如下面程式碼，就樣就能一開工作頁時，combobox就會有資料

Sub ComBoxInit()
With ComboBox1
.List = Array("蔬菜", "水果")
.Text = "清單"
End With
End Sub
End Sub

複製代碼

不好意思浪費論壇資源

TOP

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

4^#

發表於 2012-3-15 10:52 | 只看該作者

前輩可能搞錯我的問題了
我想要在檔案一打開時，工作頁上的Combobox 就先顯示裡面的清單
當我按下箭頭時，"蔬菜"跟"水果"選項就會出現
我爬文看到人家的作法是要先將清單寫在工作頁上，想請問是否有別種方式，是不需要建資料庫的
另外我想在請問，我發現combobox內的值是可以修改的，也想請問哪一個屬性值可以將它改成不能修改

未命名.JPG

再請前輩們幫忙~謝謝

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2012-3-15 10:52 | 只看該作者

回復 1# a703130

你是要表單還是儲存格的型態?

附檔為表單型態

水果蔬菜.rar (9 KB)

水果蔬菜.jpg

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

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

2^#

發表於 2012-3-15 10:28 | 只看該作者

回復 1# a703130

這個應該可以滿足你
沒有編號~ 我們可以自己設呀~ ^^
下圖是我模擬的格式~ 您再自行修改您要的

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.Clear
A = Range("A65536").End(xlUp).Row
For I = 2 To A
With ActiveSheet.ComboBox1
.AddItem I - 1 & Range("A" & I)
End With
Next
End Sub

複製代碼

學習才能提升自己

TOP