VBAがエラーを検出し、エラーメッセージを表示せずにデータを利用できないというプロンプトを表示することは可能ですか？

Question

ピボットテーブルをセットアップするGUIを作成しました。

たとえば、button1をクリックすると、ピボットテーブルが実行され、セットアップされます。

button3をクリックすると、データに値がないため、run time error 1004が表示されます。それで、VBAにそのエラーを受け入れ、そのデータが利用できないというプロンプトを表示させることは可能ですか？ところで

、私は、この設定に

ActiveSheet.PivotTables("PivotTable1").PivotFields("Test").CurrentPage = "Data1"

ピボットテーブルを使用しています。

3つの異なる変数があります。 データ1,データ2,データ3。 データ3が利用できない場合は、エラーが表示されますが、利用できないことを示すプロンプトが表示されます。どうすればいいのか分かりますか？ありがとうございました！

Answer 1

はい。そのためには、適切なエラー処理を行う必要があります。このサンプルコードを参照してください。

Sub Sample() 
    On Error GoTo Whoa 

    '<Your REST OF THE CODE> 

LetsContinue: 
    Exit Sub 
Whoa: 
    '~~> This gives the exact desription and the error number of the error 
    MsgBox "Description  : " & Err.Description & vbNewLine & _ 
      "Error Number : " & Err.Number 

    '~~> This part resumes the code without breaking it :) 
    Resume LetsContinue 
End Sub 

Answer 2

私はこれを行うだろう：

On Error Resume Next ' Don't stop execution when an error occurs. 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Test").CurrentPage = "Data1" 

If Err.Number <> 0 Then ' Can also check for a specific error number instead 
    'Oops! An error occured. 
    MsgBox "Data isn't available." 
    Err.Clear 
End If 

On Error GoTo 0 ' Go back to stoping execution when an error occurs.