Board logo

標題: [發問] 分類問題 [打印本頁]
作者: ayubbs    時間: 2014-1-17 13:11     標題: 分類問題

[attach]17281[/attach]

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

回復 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

  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
複製代碼
[attach]17282[/attach]
作者: ayubbs    時間: 2014-1-20 21:04

回復 2# Hsieh


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

回復 3# ayubbs
重點是你的清單是隨著每個檔案不同還是清單放在一個檔案內，而要其他檔案抓取這些清單作為驗證來源?
作者: GBKEE    時間: 2014-1-21 10:05

回復 3# ayubbs
   
通常是取用共用的資料不方便將巨集放置於內

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



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