[發問] 分類問題

ayubbs

ex1.rar (5.92 KB)

問題
下載次數: 12

2014-1-17 13:09

想請教各位老師
小妹一個關於分類的問題請教，內容如附件，因不太會描述，想請教各位先進，此
工作明細可否使用VBA方式完成下拉式選單，謝謝

Hsieh

回復 1# ayubbs

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. If Target.Address = "$I$7" Then
   
4.     For Each a In Range([C3], [C3].End(xlDown))
   
5.       If a = Target Then d(a.Offset(, 1).Value) = ""
   
6.     Next
   
7.     With Target.Offset(1).Validation
   
8.     .Delete
   
9.     .Add xlValidateList, , , Join(d.keys, ",")
   
10.     End With
    
11. End If
    
12. End Sub
    
13. 
    
14. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
15. Set d = CreateObject("Scripting.Dictionary")
    
16. If Target.Address = "$I$7" Then
    
17.     For Each a In Range([C3], [C3].End(xlDown))
    
18.     d(a.Value) = ""
    
19.     Next
    
20.     With Target.Validation
    
21.     .Delete
    
22.     .Add xlValidateList, , , Join(d.keys, ",")
    
23.     End With
    
24. End If
    
25. End Sub

複製代碼

ex.zip (12.76 KB)

下載次數: 13

2014-1-17 14:42

ayubbs

回復 2# Hsieh


謝謝老師指導，非常好用，但另可請教老師，因我資料整理時，通常是取用共用的資料不方便將巨集放置於內，
另可有其它方式可不用worksheet change 方式可達成作業嗎?
比如使用commendButton方式，將vba放置於另一工作業面，需要使用時執行即可，此種方式未知是否可達成，
老師的方式非常神奇，如方便可否為程式碼，稍加註解讓小妹可以學習其中的應用方式，謝謝

Hsieh

回復 3# ayubbs
重點是你的清單是隨著每個檔案不同還是清單放在一個檔案內，而要其他檔案抓取這些清單作為驗證來源?

GBKEE

回復 3# ayubbs
   

通常是取用共用的資料不方便將巨集放置於內

共用的資料檔的格式如一致,可將巨集設於功能表上