2017-05-09 157 views
0

我想構建一個VBA宏來創建一個單元格,我可以在其中鍵入一個字符串,從另一個名爲PIVOT的表單中啓動用於過濾數據透視表的宏。宏在Excel中通過單元格過濾數據透視表

我有一個解決方案通過Inputbox(見下文),但我更喜歡使用單元格。

Sub Macro1() 

Dim IdentificationNo As String 
IdentificationNo = InputBox(Prompt:="Identification", Title:="ENTER IDENTIFICATION NUMBER") 
    Sheets("PIVOT").PivotTables("PivotTable1") _ 
     .PivotFields("Identification #").CurrentPage = IdentificationNo 

End Sub 
+0

很棒!非常感謝:) –

+0

如果您要使用'PivotTable'工作很多,您應該使用像Dim PTPTl這樣的對象作爲數據透視表,以及其他數據透視表對象 –

回答

1

變化

IdentificationNo = InputBox(Prompt:="Identification", Title:="ENTER IDENTIFICATION NUMBER") 

IdentificationNo = Worksheets("Sheet1").Range("A1").Value 

,將使用從Sheet1!A1作爲輸入值,所以改變 「Sheet 1中」,並根據需要 「A1」。

相關問題