EXcelvba：运行时错误‘13’，类型不匹配

更新时间2019-08-05 05:25:30

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Select Case Target

          Case "0"

               Target = "AAR"

           Case "1"

               Target = "AAH"

           Case "2"

                Target = "AA"

            Case "3"

               Target = "A"

           Case "4"

                Target = "A1"

         End Select

End Sub

你的Target是个range类型的变量，它的值怎么可能是"0","1"..这种的字串？

相关标签:lv