帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-3-30 19:33 | 只看該作者

一個下拉程式

大大們, 好
小弟請大大們協助一個下拉程式, 附件中有說明, 先謝過大大們,,,,,

aaa.rar (7.87 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-3-30 19:57 | 只看該作者

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

Private Sub ComboBox1_Change()
[C3] = ComboBox1.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C3" Then
Dim Sh As Worksheet
Set Sh = Sheets("月份")
ComboBox1.List = Sh.Range("d2", Sh.Range("E2").End(xlDown)).Value
ComboBox1.ColumnCount = 2
End If
End Sub

複製代碼

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

3^#

發表於 2011-3-30 20:14 | 只看該作者

回復 2# GBKEE

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

aaa.rar (10.33 KB)

TOP

aa7551

中學生 Rank: 2

帖子: 116
主題: 5
精華: 0
積分: 190
點名: 0
作業系統: xp
軟體版本: office 2002
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-17
最後登錄: 2025-10-24

4^#

發表於 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

中學生 Rank: 2

帖子: 116
主題: 5
精華: 0
積分: 190
點名: 0
作業系統: xp
軟體版本: office 2002
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-17
最後登錄: 2025-10-24

5^#

發表於 2011-3-30 21:00 | 只看該作者

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

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

6^#

發表於 2011-3-30 21:46 | 只看該作者

回復 5# aa7551

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

TOP

aa7551

中學生 Rank: 2

帖子: 116
主題: 5
精華: 0
積分: 190
點名: 0
作業系統: xp
軟體版本: office 2002
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-17
最後登錄: 2025-10-24

7^#

發表於 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

chin15