0

ダッシュボードを作成していて、ピボット チャートとフォーム コントロール コンボ ボックスを 1 つのシートに配置し、ピボット テーブルを別のシートに配置しています。コンボ ボックスのドロップダウンで選択した内容で、ピボット テーブルのフィルターが変更され、ダッシュボード シートのグラフが変更されるようにします。これを行うためのコードをオンラインで見つけたところ、うまくいきました。コンボ ボックスから [西] を選択すると、ピボット テーブルが変更されて西地域が表示され、ダッシュボードのピボット チャートが変更されます。

問題は、理由もなくエラー メッセージが表示されることです。シートで何も変更していませんが、「コードの実行が中断されました」という VB エラー メッセージが突然表示されます。続行を押すと、完全に実行されます。デバッグを押すと、単に「サブの終了」が強調表示されることもあれば、他のものが強調表示されることもあります。そのランダム。困惑しています。このエラー メッセージが頻繁に表示されるため、このダッシュボードをエンド ユーザーに提供することはできません。誰かがこれを見て、何が起こっているのか教えてもらえますか? 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 に答える