Excel：表單控件組合框更改數據透視表過濾器：獲取錯誤

我創建了一個儀表板，並在一張紙上有一些透視圖和窗體控件組合框，然後是另一張紙上的透視表。我想要在組合框中選擇下拉列表以更改數據透視表上的過濾器，以便它將更改儀表板表中的圖表。我在網上找到了一些代碼來做到這一點，它效果很好。我從組合框中選擇「West」，它會更改數據透視表以顯示西部地區，然後在儀表板上顯示數據透視表。Excel：表單控件組合框更改數據透視表過濾器：獲取錯誤

問題是，我現在無故收到錯誤消息。我根本沒有改變工作表中的任何內容，但突然間VB錯誤消息顯示「代碼執行已被中斷」。如果我繼續它執行完美。如果我打了調試，有時候簡單的「End sub」被突出顯示，有時候，其他的東西是。它是隨機的。我很困惑。我不能向最終用戶推薦這個dashbaord，因爲這個錯誤消息不斷出現。有人可以看看這個，讓我知道發生了什麼？我使用excel 2007.如果你需要源文件，我會通過電子郵件發送給你。謝謝您的幫助！

Sub weekly_select_region() 
' 
' weekly_select_region Macro 
' selects the region from the weekly pivot table 
' 

' 
    Sheets("Weekly Pivots").Select 
    ActiveSheet.PivotTables("Weekly Quote Production Pivot").PivotFields("Region").CurrentPage _ 
     = Range("N2").Text 
    ActiveSheet.PivotTables("Weekly Re-Quote Production Pivot").PivotFields("Region").CurrentPage _ 
     = Range("N2").Text 
    Range("D1").Select 
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 
End Sub 

Sub weekly_select_segment() 
' 
' weekly_select_segment Macro 
' selects the segment from the weekly pivot table 
' 

' 
    Sheets("Weekly Pivots").Select 
    ActiveSheet.PivotTables("Weekly Quote Production Pivot").PivotFields("Segment"). _ 
     CurrentPage = Range("O2").Text 
    ActiveSheet.PivotTables("Weekly Re-Quote Production Pivot").PivotFields("Segment"). _ 
     CurrentPage = Range("O2").Text 
    Range("D1").Select 
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 
End Sub

來源

2013-04-30 Steve Holland

可能只是一個剩餘的斷點。在代碼編輯器中，從菜單中選擇Debug - > Clear all breakpoints。

此外，您可以在子程序的開始處添加此行， On Error Resume Next

來源

2013-06-20 16:58:23 John

Excel：表單控件組合框更改數據透視表過濾器：獲取錯誤

回答

相關問題