一個下拉程式

周大偉

大大們, 好
小弟請大大們協助一個下拉程式, 附件中有說明, 先謝過大大們,,,,,
aaa.rar (7.87 KB)

下載次數: 25

2011-3-30 19:32

GBKEE

回復 1# 周大偉
SHEET2 的 程式嗎

1. Private Sub ComboBox1_Change()
   
2.     [C3] = ComboBox1.Value
   
3. End Sub
   
4. Private Sub Worksheet_Change(ByVal Target As Range)
   
5.     If Target.Address(0, 0) = "C3" Then
   
6.         Dim Sh As Worksheet
   
7.         Set Sh = Sheets("月份")
   
8.         ComboBox1.List = Sh.Range("d2", Sh.Range("E2").End(xlDown)).Value
   
9.         ComboBox1.ColumnCount = 2
   
10.     End If
    
11. End Sub

複製代碼

周大偉

回復 2# GBKEE


大大好:
小弟把程式貼於工作表2, 但沒法成功, 小弟在程序上錯了哪裡, 請大大教導, 謝謝!!

aaa.rar (10.33 KB)

下載次數: 7

2011-3-30 20:14

aa7551

版主:我試著去中斷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
發現它可以執行

aa7551

以上程式,是試出來的,並不了解意思,請教GBKEE大大,Worksheet_SelectionChange它是在何種狀況下才會觸發

周大偉

回復 5# aa7551


可否還修改的程式碼張貼, 好讓學習..

aa7551

說明過於簡短,可能辭不達意
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內,並放置於前

chin15

aaa.rar (11.34 KB)

下載次數: 24

2011-3-30 22:35

周大偉

謝謝樓上各大大, 感恩, 祝願健康, 快樂, 謝謝!!

solely

回復 1# 周大偉


   

下載 (247 KB)

2011-3-30 23:29