Excel的過濾後的數據驗證列表上的單元格內容

Question

我現在有有一個表，看起來像這樣：

| A |  B  | 
    +-------+-----------+ 
1 | State | City  | 
    +=======+===========+ 
2 | NSW | Goulburn | 
3 | NSW | Sydney | 
4 | VIC | Melbourne | 
5 | VIC | Horsham | 
6 | NSW | Tamworth | 

然後我還有一個表，看起來像這樣：

| A |  B  |  C  | 
    +-------+-----------+------------+ 
1 | State | City  | Other data | 
    +=======+===========+============+ 
2 |  |   |   | 

在這第二個表我已經將數據驗證應用於State和City列，並引用第一個表中的數據。所以我列出了所有州和城市的名單。

我希望能夠做的是，如果用戶在狀態欄中輸入「NSW」什麼，在城市列選項列表進行過濾，只顯示位於新南威爾士州

Answer 1

廣場這個城市在工作表的代碼模塊中。

變化shTable的定義，指在其上您的查找表所在的工作表。

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim myVal As String 
Dim cityList As String 
Dim table As Range 
Dim cl As Range 
Dim shTable As Worksheet: Set shTable = Sheets("Index") '<modify as needed' 

If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub 

myVal = Target.Value 
With shTable 
    Set table = .Range("A2", .Range("A2").End(xlDown)) 'contains your city/state table' 
End With 
    For Each cl In table 
    'Build a comma-separated list of matching cities in the state.' 
     If cl.Value = myVal Then 
      If cityList = vbNullString Then 
       cityList = cl.Offset(0, 1) 
      Else: 
       If InStr(1, cityList, cl.Offset(0,1).Value, vbBinaryCompare) > 0 Then 
       'avoid duplicates, but this is not a foolproof method.' 
       'probably should rewrite using an array or scripting dictionary' 
       'otherwise the possibility of partial match is a potential error.' 
        cityList = cityList & "," & cl.Offset(0, 1) 
       End If 
      End If 

     End If 
    Next 

'Now, with the cell next to the changed cell, remove ' 
' any existing validation, then add new validation ' 
' based on the cityList we compiled above. 
With Target.Offset(0, 1).Validation 
    .Delete 
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
    xlBetween, Formula1:=cityList 
    .IgnoreBlank = True 
    .InCellDropdown = True 
    .InputTitle = "" 
    .ErrorTitle = "" 
    .InputMessage = "" 
    .ErrorMessage = "" 
    .ShowInput = True 
    .ShowError = True 
End With 

End Sub