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

brabus

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

dino1978

回復 1# brabus


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

register313

回復 1# brabus


    活頁簿1.rar (4.17 KB)

下載次數: 12

2012-1-1 11:48

GBKEE

回復 1# brabus
可用 VBA

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     If Target(1).Cells = [B5] Then
   
4.         [C5] = ""
   
5.         For Each E In Range([G5], [G5].End(xlDown))
   
6.             If [B5] >= Val(Split(E, "~")(0)) And [B5] <= Val(Split(E, "~")(1)) Then
   
7.                 S = IIf(S = "", E.Offset(, -1), S & "," & E.Offset(, -1))
   
8.             End If
   
9.         Next
   
10.         With Range("C5").Validation
    
11.             .Delete
    
12.             If S <> "" Then
    
13.             .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
14.             xlBetween, Formula1:=S
    
15.             End If
    
16.         End With
    
17.     End If
    
18.     Application.EnableEvents = True
    
19. End Sub

複製代碼

brabus

回復 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,,,))
可否解釋一下什麼意思,謝謝

register313

回復 5# brabus

見附檔之分解說明
活頁簿1.rar (4.61 KB)

下載次數: 17

2012-1-1 21:23

Hsieh

回復 2# dino1978


    活頁簿1.zip (4.32 KB)

下載次數: 17

2012-1-2 15:38

brabus

回復 4# GBKEE

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

brabus

回復 7# Hsieh

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

lcc_seven

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