帖子: 171
主題: 33
精華: 0
積分: 433
點名: 50
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2025-2-20

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-12-31 21:13 | 只看該作者

[發問] 請問下拉選單如何完成

本帖最後由 brabus 於 2012-1-2 21:21 編輯

如附件
我如何完成相對應的下拉選單
請高手指教
謝謝

活頁簿1.rar (3.34 KB)

活頁簿2.rar (5 KB)

樓主熱帖

jeason

dino1978

中學生 Rank: 2

帖子: 38
主題: 4
精華: 0
積分: 65
點名: 0
作業系統: Window7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-12-16
最後登錄: 2013-12-13

2^#

發表於 2012-1-1 02:28 | 只看該作者

回復 1# brabus

我無法下載樓主的附件, 不過您可以嘗試用下列程式碼試試看
With Range("F4").Validation
If Range("E4") = "" Then
.Delete
Else
.Delete
.Add xlValidateList, , , "=" & [E4]
End If
End With

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2012-1-1 11:48 | 只看該作者

回復 1# brabus

活頁簿1.rar (4.17 KB)

TOP

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兔年全勤獎章

4^#

發表於 2012-1-1 15:55 | 只看該作者

回復 1# brabus
可用 VBA

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target(1).Cells = [B5] Then
[C5] = ""
For Each E In Range([G5], [G5].End(xlDown))
If [B5] >= Val(Split(E, "~")(0)) And [B5] <= Val(Split(E, "~")(1)) Then
S = IIf(S = "", E.Offset(, -1), S & "," & E.Offset(, -1))
End If
Next
With Range("C5").Validation
.Delete
If S <> "" Then
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=S
End If
End With
End If
Application.EnableEvents = True
End Sub

複製代碼

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 50
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2025-2-20

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

5^#

發表於 2012-1-1 19:52 | 只看該作者

回復 3# register313

請問大大儲存格k5寫著=IF(ROW()>(8-COUNTIF($J$5:$J$8,"")),"",OFFSET($J$1,SMALL(IF($J$5:$J$8<>"",ROW($J$5:$J$8)," "),ROW(J1))-1,,,))
可否解釋一下什麼意思,謝謝

jeason

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

6^#

發表於 2012-1-1 21:24 | 只看該作者

回復 5# brabus

見附檔之分解說明

活頁簿1.rar (4.61 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 44
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-20

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-1-2 15:38 | 只看該作者

回復 2# dino1978

活頁簿1.zip (4.32 KB)

學海無涯_不恥下問

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 50
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2025-2-20

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

8^#

發表於 2012-1-2 21:20 | 只看該作者

回復 4# GBKEE

謝謝大大回覆可是小弟對於vba不是很熟悉,所以不了解您的回覆
可否翻譯一下呢
謝謝

jeason

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 50
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2025-2-20

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

9^#

發表於 2012-1-2 21:25 | 只看該作者

回復 7# Hsieh

感謝Hsieh大大的回覆
我看得出來您是用陣列解決
可是內容是什麼意思
要待我研究一下
不過我自己有想辦法作出來解決的方法
只是是用很笨的方法
在新上傳的活頁簿2
希望你不要笑到肚子痛
感恩
祝所有有給小弟回文的大大們
新年快樂,事事順利
龍年大發[

jeason

TOP

lcc_seven

小學生 Rank: 1

帖子: 21
主題: 2
精華: 0
積分: 27
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Tainan
註冊時間: 2012-1-3
最後登錄: 2013-2-28

10^#

發表於 2012-1-3 17:46 | 只看該作者

我沒有辦法下載資料，但是下拉式選單可以執行【資料驗證】->【儲存格內允許-清單】->【再選取清單範圍】，這樣應該會比較簡單？

TOP