ComboBox 和 ToggleButton - Excel程式區

[發問] ComboBox 和 ToggleButton

1^# 跳轉到 »

發表於 2011-10-1 17:44 | 顯示全部帖子

回復 1# jesscc
以下程式放在 "工作表1"

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton2 = False
ToggleButton3 = False
End If
End Sub
Private Sub ToggleButton2_Click()
If ToggleButton2 = True Then
ToggleButton1 = False
ToggleButton3 = False
End If
End Sub
Private Sub ToggleButton3_Click()
If ToggleButton3 = True Then
ToggleButton1 = False
ToggleButton2 = False
End If
End Sub
Sub ComBoxInit() ' 另外新增此部份程式, ComBox 給初值, 只要於開啟檔案時執行一次即可
ComboBox1.List = Array("夢", "八德", "義", "巨", "樂", "糖", "中鋼", "新人訓", "實習", "自訂")
ComboBox2.List = Array("9-17", "9-21", "9-2230", "10-22", "1030-22", "1030-2230", "11-17", "11-22", "11-2230", "12-17", "12-20", "12-22", "12-2230", "14-22", "14-2230", "18-22", "19-22", "自訂")
End Sub

複製代碼

以下程式放在 "ThisWorkBook"

複製代碼

2^#

發表於 2011-10-2 12:02 | 顯示全部帖子

回復 luhpro
謝謝 luhpro 大，基本功能已經達到我所要的效果了。
至於 Combobox 初始值的設定， ...
jesscc 發表於 2011-10-1 22:14

應該並不是沒什麼作用,
只要點開下拉式選單應該就會看到加入的選項內容.
上述程式在加上選項內容後沒有給定有秀文字的初值,
所以未操作前看起來沒內容.

Sub ComBoxInit()
With ComboBox1
.List = Array("夢", "八德", "義", "巨", "樂", "糖", "中鋼", "新人訓", "實習", "自訂")
.Text = "自訂"
End With
With ComboBox2
.List = Array("9-17", "9-21", "9-2230", "10-22", "1030-22", "1030-2230", "11-17", "11-22", "11-2230", "12-17", "12-20", "12-22", "12-2230", "14-22", "14-2230", "18-22", "19-22", "自訂")
.Text = "自訂"
End With
End Sub

複製代碼

這樣就有初值了.

另外, 因為 ComboBox 的初始化是在 Workbook_Open 上執行,
所以程式異動後必須再執行一次 Workbook_Open,
或是關閉 Excel 檔案重開後新的程式才有效喔.

靜思自在 : 忘功不忘過，忘怨不忘恩。