Question

我遇到运行一些相对基本的“Case”代码的问题。当选择了正确的大小写并且正在执行操作时，我不断收到“运行时错误'13'：类型不匹配”。在这种情况下，我的得分值为单元格A6，存储为文本。数据通过我们使用的另一个报告工具传递，因此我无法修改单元格值的格式。它必须保留为文本。当前值为“May”，因此代码正在运行不同的情况并正确选择“May”，但不会执行该情况的操作。有关如何纠正此运行时错误的任何想法？我已经为声明尝试了各种不同的数据类型，但似乎没有任何工作。谢谢！

Dim score As Variant
score = Range("KPI!A6").Value
Select Case score
Case "January"
    Columns("D:N").EntireColumn.Hidden = True
Case score = "February"
    Columns("C:C,E:N").EntireColumn.Hidden = True
Case "March"
    Columns("C:D,F:N").EntireColumn.Hidden = True
Case "April"
    Columns("C:E,G:N").EntireColumn.Hidden = True
Case "May"
    Columns("C:F,H:N").EntireColumn.Hidden = True
Case "June"
    Columns("C:G,I:N").EntireColumn.Hidden = True
Case "July"
    Columns("C:H,J:N").EntireColumn.Hidden = True
Case "August"
    Columns("C:I,K:N").EntireColumn.Hidden = True
Case "September"
    Columns("C:J,L:N").EntireColumn.Hidden = True
Case "October"
    Columns("C:K,M:N").EntireColumn.Hidden = True
Case "November"
    Columns("C:L,N:N").EntireColumn.Hidden = True
Case "December"
    Columns("C:M").EntireColumn.Hidden = True
End Select

运行时错误13：在case sub上输入不匹配

0 个答案: