如果满足条件，则清除单元格值vba

Question

我正在尝试使用数据透视表来生成图表，但是如果选择了某个字符串，我想要使用vba代码来清除值，所以如果选择了某个字符串，我不想生成图表。

现在，我的vba代码使用了很多查找函数，我应该在那时加入iferror语句但是我觉得我回来太晚了，只需要花费更多的时间来修复我使用的每个vlookup函数。现在，由于我只是被困在这一部分，我只是要发布这部分的代码。

数据透视表和图表的工作原理是用户选择邮政编码和/或县，它会计算出价值和图表，这样我就可以监控月度数据。 3个选择按钮中的每一个都有N / A，它应该不返回任何值，因此图表不会图形，类似于重置按钮。我刚刚测试过我是否选择了邮政编码为N / A但代码失败了，所以我没有将我的测试代码扩展到县和地区。另外（全部）与N / A不同（全部），我正在计算一切，作为整本商业书。

我尝试将数据透视表复制并粘贴为值，看它是否会起作用，它就不会执行，当我按下 F8 时，它看起来像是跳过了范围选择和selection.clearcontents部分并跳到最后。

Sub test()

'take out n/a
Dim find As String

find = "N/A"

Select Case find
    Case Cells(2, 2).Value = find
        Range("E14:R14").Select
        Range("E43:R43").Select
        Range("E73:R73").Select
        Selection.ClearContents
End Select

End Sub