如何错误陷阱或错误验证Sub Workbook_SheetChange for Pivot Table过滤器

Question

我可以使用一些帮助来解决以下VBA代码的错误问题。此代码非常好地控制2个数据透视表从工作表上的单个单元格值过滤值。在筛选器中未发生值时会发生此问题。我可以使用一种优雅的方式简单地告诉用户一个或两个数据透视表中不存在该值。

Dta = matrix(0,10000,2)
colnames(Dta) <- c("School_ID","Class_ID")
Dta = as_data_frame(Dta)
Dta$School_ID = sample(100)
Dta$School_ID = sort(Dta$School_ID)
for (i in unique(Dta$School_ID) ) Dta[Dta$School_ID == i,'Class_ID'] = sample(5)

Answer 1

我想有很多方法可以解决这个问题。这样的事情对你有用。

Sub HandleError()
' Your code here

On Error GoTo ErrMsg

Exit Sub

ErrMsg:
MsgBox ("Type in your message here."), , "MESSAGE TITLE"

End Sub

或者。 。 。

MsgBox Err.Description