☰

第一張工作表（使用者介面）上的篩選值以符合第二張工作表上的篩選值

tag-icon • tag-icon microsoft-excel vba
第一張工作表（使用者介面）上的篩選值以符合第二張工作表上的篩選值

我正在嘗試製作一個介面儀表板 - 下面是一些螢幕截圖。其概念是將主頁上的下拉清單中的篩選值連結到第二頁上一列中的相同篩選值。我似乎無法讓它與各種變數一起工作..

這是一些螢幕截圖和我目前的 VBA 程式碼。我在這裡做錯了什麼？或是有其他選擇嗎？

在此輸入影像描述

在此輸入影像描述

代碼： 

Range("T8:V8").Select
Sheets(" Detail (Internal)").Select
ActiveSheet.Range("$A:$CT").AutoFilter Field:=16, Criteria1:=Range("T8").Value

感謝大家的幫忙..

答案1

選擇對你沒有任何幫助。選擇和 ActiveSheet 使用並不安全。

您必須定義變數

Dim sheet1 As Worksheet, sheet2 As Worksheet
Dim range1 As Range, range2 As Range

然後取得並使用工作表和範圍的參考。喜歡：

Set sheet1 = ThisWorkbook.Sheets("Sheet1")
Set range1 = ThisWorkbook.Sheets("Sheet2").Range("T8")
sheet1.Range("$A:$CT").AutoFilter Field:=16, Criteria1:=range1.Value

或者

Set range1 = ThisWorkbook.Sheets("Sheet1").Range("$A:$CT")
Set range2 = ThisWorkbook.Sheets("Sheet2").Range("T8")
range1.AutoFilter Field:=16, Criteria1:=range2.Value

或者

Set sheet1 = ThisWorkbook.Sheets("Sheet1")
Set sheet2 = ThisWorkbook.Sheets("Sheet2")
sheet1.Range("$A:$CT").AutoFilter Field:=16, Criteria1:=sheet2.Range("T8").Value

等等...

相關內容