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

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
點名: 316
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-11-22

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
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

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