返回列表 上一主題 發帖

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

a703130

帖子
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 "選擇的項目"
收藏 分享

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2012-3-15 10:28 | 只看該作者
回復 1# a703130


    這個應該可以滿足你
    沒有編號~ 我們可以自己設呀~ ^^
   下圖是我模擬的格式~ 您再自行修改您要的
   
  1. Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  2. ComboBox1.Clear
  3. A = Range("A65536").End(xlUp).Row
  4. For I = 2 To A
  5.    With ActiveSheet.ComboBox1
  6.        .AddItem I - 1 & Range("A" & I)
  7.    End With
  8. Next
  9. End Sub
複製代碼
學習才能提升自己

TOP

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

高中生Rank: 3Rank: 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

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
4#
發表於 2012-3-15 10:52 | 只看該作者
前輩可能搞錯我的問題了
我想要在檔案一打開時，工作頁上的Combobox 就先顯示裡面的清單
當我按下箭頭時，"蔬菜"跟"水果"選項就會出現
我爬文看到人家的作法是要先將清單寫在工作頁上，想請問是否有別種方式，是不需要建資料庫的
另外我想在請問，我發現combobox內的值是可以修改的，也想請問哪一個屬性值可以將它改成不能修改

未命名.JPG

再請前輩們幫忙~謝謝

TOP

a703130

帖子
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一打開就先執行
  1. Private Sub Workbook_Open()
  2.   Call Sheets(1).ComBoxInit
  3. End Sub
複製代碼
在我的工作頁便如下面程式碼，就樣就能一開工作頁時，combobox就會有資料
  1. Sub ComBoxInit()
  2.   With ComboBox1
  3.     .List = Array("蔬菜", "水果")
  4.     .Text = "清單"
  5.   End With
  6. End Sub
  7. End Sub
複製代碼
不好意思浪費論壇資源

TOP

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

高中生Rank: 3Rank: 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

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
7#
發表於 2012-3-15 18:17 | 只看該作者
回復 6# mark15jill

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

TOP

mmxxxx

帖子
61 
主題
7 
精華
0 
積分
72 
點名
0  
作業系統
win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-11-4 
最後登錄
2015-9-16 
8#
發表於 2014-11-4 19:12 | 只看該作者
請問如何移除Item?

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題