是什么导致此运行时错误 13“类型不匹配”？答案

【问题标题】：What is causing this Run-time Error 13 "Type Mis-Match"?是什么导致此运行时错误 13“类型不匹配”？
【发布时间】：2016-10-04 19:41:20
【问题描述】：

下面的代码根据哪些单元格包含“是”来增加一个变量。它一直有效，直到我使用自动填充将 F13:F59 中任何单元格的值设置为“是”。当我手动输入单词“是”时，不会发生运行时错误。但是自动填充似乎是导致问题的原因。

Select Case (changedcell)
'Issues Mgmt
Case Range("F15"), Range("F19"), Range("F23"), Range("F27"), Range("F30"), Range("F39"), Range("F42"), Range("F45"), Range("F50"), Range("F53"), Range("F54") 'Issues
      If Range("F15").Value = "Yes" Then
        issues = issues + 1
      End If
      If Range("F19").Value = "Yes" Then
        issues = issues + 1
      End If
      If Range("F23").Value = "Yes" Then
        issues = issues + 1
      End If
      If Range("F27").Value = "Yes" Then
        issues = issues + 1
      End If
      If Range("F30").Value = "Yes" Then
        issues = issues + 1
      End If
      If Range("F39").Value = "Yes" Then
        issues = issues + 1
      End If
      If Range("F42").Value = "Yes" Then
        issues = issues + 1
      End If
      If Range("F45").Value = "Yes" Then
        issues = issues + 1
      End If
      If Range("F50").Value = "Yes" Then
        issues = issues + 1
      End If
      If Range("F53").Value = "Yes" Then
        issues = issues + 1
      End If
      If Range("F54").Value = "Yes" Then
        issues = issues + 1
      End If

      If issues > 1 Then
    Application.EnableEvents = False
        MsgBox "Issues Management has already been selected under another old solution category.", vbCritical, "Duplicate Use Case Selected"
        Range(target.Address).Value = ""
     End If
End Select

代码的第一部分是发生错误的地方。有什么想法吗？

Case Range("F15"), Range("F19"), Range("F23"), Range("F27"), Range("F30"), Range("F39"), Range("F42"), Range("F45"), Range("F50"), Range("F53"), Range("F54") 'Issues

【问题讨论】：

这是Worksheet_Change 过程的一部分吗？
嗯...我很少使用Select Case，但我以前从未见过它是这样构造的..(changedcell) 是什么？你的Case 在哪里？写Select Case 的意义不在于您不必编写一堆If Then Else 声明吗？
An example of Select Case，微软要说什么about Select Case
请检查单元格中自动填充的内容；错误link 的解释指向单元格中的错误内容。
是的，这与Select Case 的用途完全相反。我不能肯定地说，但我怀疑是 Case 语句本身引发了错误。它期待一个布尔表达式，并得到一系列范围。

标签： excel runtime-error autofill vba

【解决方案1】：

试试这个：

Dim rIssues As Range
Dim rCll As Range
    Set rIssues = Range("F15,F19,F23,F27,F30,F39,F42,F45,F50,F53,F54")
    For Each rCll In rIssues
        If rCll.Value = "Yes" Then Issues = 1 + Issues
    Next

    If Issues > 1 Then
        Application.EnableEvents = False
        MsgBox "Issues Management has already been selected under another old solution category.", _
            vbCritical, "Duplicate Use Case Selected"
        Range(Target.Address).Value = ""
     End If

建议阅读以下页面：

For Each...Next Statement,

Select Case Statement

【讨论】：

我会测试目标是否与 rIssues 范围相交，只是为了避免在更改任何单元格时循环。也就是说，我假设 OP 在 WorkSheet_Change 事件中有这个。还要确保 EnableEvents 返回 True。
@ScottCraner 我假设这是 Worksheet_Change 事件的一部分，还假设交叉点和所有其他相关部分都在那里并且工作正常，因为问题确认只有在案例中使用自动填充时才会失败选择，所以似乎所有其他部分（我们只是不知道它是什么）都被很好地覆盖了。感谢您的意见...
EEM 解决了我的问题！另外，感谢斯科特的建议。 EnableEvents 在 sub 结束时返回 true。