Board logo

標題: [發問] 請問下拉選單如何完成 [打印本頁]
作者: brabus    時間: 2011-12-31 21:13     標題: 請問下拉選單如何完成

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

如附件
我如何完成相對應的下拉選單
請高手指教
謝謝
作者: dino1978    時間: 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
作者: register313    時間: 2012-1-1 11:48

回復 1# brabus


    [attach]8974[/attach]
作者: GBKEE    時間: 2012-1-1 15:55

回復 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    時間: 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,,,))
可否解釋一下什麼意思,謝謝
作者: register313    時間: 2012-1-1 21:24

回復 5# brabus

見附檔之分解說明
[attach]8975[/attach]
作者: Hsieh    時間: 2012-1-2 15:38

回復 2# dino1978


    [attach]8990[/attach]
作者: brabus    時間: 2012-1-2 21:20

回復 4# GBKEE

謝謝大大回覆可是小弟對於vba不是很熟悉,所以不了解您的回覆
可否翻譯一下呢
謝謝
作者: brabus    時間: 2012-1-2 21:25

回復 7# Hsieh

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

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

回復 10# lcc_seven


    感謝你的回覆
因為下拉中的選項
會因條件不同有所變化
所以你說的那樣
不能解決問題
但還是謝謝你



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)