- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
12#
發表於 2013-5-26 07:11
| 只看該作者
本帖最後由 GBKEE 於 2013-5-26 07:15 編輯
回復 11# 小華
- Private Sub Year01_Change()
- Set x = Sheets("Base")
- For I = 4 To 20
- If x.Cells(I, 20) <> "" Then
- Year01.AddItem x.Cells(I, 20)
- End If '***你對調了**
- Next I '***你對調了**
- End Sub
附檔表單程式碼如要可以使用 x.[t4].End(xlDown)
不加 x. [t4]是ActiveSheet(使用中)工作表的儲存格,無法結合"Base"的儲存格與ActiveSheet的儲存格
如 "Base"是ActiveSheet時 就可以不加 x.
Private Sub Year01_Change()
Set x = Sheets("Base")
ComboBox1.List = x.Range("t4", x.[t4].End(xlDown)).Value
'** ComboBox1 *** 是否要改成 Year01
End Sub
1#說 要如何讓ComboBox也自動的增加
是希望點選Year01可以載入所有的年度資料供選擇,可如下
Enter、Exit 事件
Enter 主要發生在一個控制項，從同一表單上的另一個控制項取得駐點之前；Exit 會在一個控制項失去駐點時發生。
- Private Sub Year01_Enter()
- Set x = Sheets("Base")
- Year01.List = x.Range("t4", x.[t4].End(xlDown)).Value
- End Sub
|
|
發表於 2013-5-25 20:08
| 
