返回列表 上一主題 發帖

一個下拉程式

aa7551

帖子
116 
主題
5 
精華
0 
積分
190 
點名
0  
作業系統
xp 
軟體版本
office 2002 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-17 
最後登錄
2026-5-27 
1# 跳轉到 »
發表於 2011-3-30 20:55 | 顯示全部帖子
版主:我試著去中斷Worksheet_SelectionChange發覺它都沒有動作,我把這一段程式複製至ComboBox1_Change改成:
Dim Sh As Worksheet

        Set Sh = Sheets("月份")

        ComboBox1.List = Sh.Range("d2", Sh.Range("E2").End(xlDown)).Value

        ComboBox1.ColumnCount = 2
        [C3] = ComboBox1.Value
發現它可以執行

TOP

aa7551

帖子
116 
主題
5 
精華
0 
積分
190 
點名
0  
作業系統
xp 
軟體版本
office 2002 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-17 
最後登錄
2026-5-27 
2#
發表於 2011-3-30 21:00 | 顯示全部帖子
以上程式,是試出來的,並不了解意思,請教GBKEE大大,Worksheet_SelectionChange它是在何種狀況下才會觸發

TOP

aa7551

帖子
116 
主題
5 
精華
0 
積分
190 
點名
0  
作業系統
xp 
軟體版本
office 2002 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-17 
最後登錄
2026-5-27 
3#
發表於 2011-3-30 22:29 | 顯示全部帖子
說明過於簡短,可能辭不達意
Private Sub ComboBox1_Change()
        Dim Sh As Worksheet
        Set Sh = Sheets("月份")
        ComboBox1.List = Sh.Range("d2", Sh.Range("E2").End(xlDown)).Value
        ComboBox1.ColumnCount = 2
        [C3] = ComboBox1.Value
End Sub
因執行中發現Worksheet_SelectionChange沒有觸動,故將其中一段(if判斷式拿掉)複製至ComboBox1_Change內,並放置於前

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題