- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2012-6-7 07:34 編輯
回復 3# av8d
改用 ComboBox
1在工作表 使用控制工具箱的ComboBox事件- Private Sub ComboBox1_LostFocus()
- 'LostFocus 事件 ActiveX 控制項失去輸入焦點時即發生此事件
- If ComboBox1 <> "" Then If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1
- End Sub
- Option Explicit
- Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
- '離開控制項後: 發生在控制項中的資料有所改變時。的事件
- If ComboBox1 <> "" Then If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1
- End Sub
- Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- 'Enter、Exit 事件
- 'Enter 主要發生在一個控制項，從同一表單上的另一個控制項取得駐點之前
- 'Exit 會在一個控制項失去駐點時發生。
- If ComboBox1 <> "" Then If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1 & "AA"
- End Sub
|
|
發表於 2012-6-7 07:32
| 
