Excel Combobox _Click激活數據透視表刷新

Question

我在同一張表上有一個comboBox作爲幾個數據透視表。 comboBox根據所選內容更新數據透視表過濾器。

問題是，當數據透視表刷新（設置新的過濾器）時，它將激活組合框_click函數，啓動一個循環。

有沒有辦法解決這個問題？數據透視表刷新爲什麼激活組合框？

這是_Click事件中的代碼：

Private Sub cmb_SkuSelect_Click() 
    Dim xlSheetSort As Worksheet 
    Dim lastRow As Long 
    Dim xlCell As Range 
    Dim skuValue As Integer 

    Set xlSheetSort = ActiveWorkbook.Worksheets("Sort") 

    lastRow = xlSheetSort.Range("A1").End(xlDown).Row 

    With xlSheetSort.Range("B1:B" & lastRow) 
     Set xlCell = .Find(cmb_SkuSelect.Value, LookIn:=xlValues) 
     If Not xlCell Is Nothing Then 
      skuValue = xlSheetSort.Range("A" & xlCell.Row).Value 
     End If 
    End With 

    updatePivot skuValue 
End Sub 

updatePivot：

Public Sub updatePivot(ByVal sku As Integer) 
    Dim pt As PivotTable 
    Dim pt2 As PivotTable 
    Dim Field As PivotField 
    Dim Field2 As PivotField 
    Dim newSku As String 

    Set pt = Worksheets("Sku Inventory").PivotTables("SkuInfo") 
    Set Field = pt.PivotFields("Sku Number") 

    Set pt2 = Worksheets("Sku Inventory").PivotTables("InventoryInfo") 
    Set Field2 = pt2.PivotFields("Sku Number") 

    newSku = sku 

    With pt 
     Field.CurrentPage = newSku 
     pt.RefreshTable 
    End With 

    With pt2 
     Field2.CurrentPage = newSku 
     pt2.RefreshTable 
    End With 
End Sub 

Answer 1

thry這樣

Public Sub updatePivot(ByVal sku As Integer) 
    Dim pt As PivotTable 
    Dim pt2 As PivotTable 
    Dim Field As PivotField 
    Dim Field2 As PivotField 
    Dim newSku As String 

    Set pt = Worksheets("Sku Inventory").PivotTables("SkuInfo") 
    Set Field = pt.PivotFields("Sku Number") 

    Set pt2 = Worksheets("Sku Inventory").PivotTables("InventoryInfo") 
    Set Field2 = pt2.PivotFields("Sku Number") 

    newSku = sku 

    With pt 
     With Field 
      .Orientation = xlHidden 
      pt.RefreshTable 
      .Orientation = xlPageField 
      .CurrentPage = newSku 
     End With 
    End With 

    With pt2 
     With Field2 
      .Orientation = xlHidden 
      pt2.RefreshTable 
      .Orientation = xlPageField 
      .CurrentPage = newSku 
     End With 

    End With 
End Sub