0

我正在创建一个仪表板，并在一个工作表上有一些数据透视图和表单控制组合框，然后在另一张工作表上有数据透视表。我想要您在组合框下拉列表中选择的内容来更改数据透视表上的过滤器，以便更改仪表板工作表上的图表。我在网上找到了一些代码来做到这一点，效果很好。我从组合框中选择“西部”，它会更改数据透视表以显示西部区域，这反过来又会在我的仪表板上更改数据透视图。

问题是，我现在无缘无故地收到错误消息。我根本没有更改工作表中的任何内容，但我突然收到 VB 错误消息，说“代码执行已被中断”。如果我点击继续，它会完美执行。如果我点击调试，有时会突出显示“End sub”，有时会突出显示其他内容。它的随机。我很困惑。如果此错误消息不断弹出，我无法将此仪表板提供给最终用户。有人可以看看这个，让我知道发生了什么吗？我正在使用 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
4

1 回答 1

1

可能只是一个剩余的断点。在代码编辑器中，从菜单中选择调试 -> 清除所有断点。

您也可以在子程序的开头添加这一行，On Error Resume Next

于 2013-06-20T16:58:23.547 回答