Mod在VBA Excel中

我在Mod有一些问题。

我的错误说不兼容

 Sub test() For a = 1 To 5 Dim cellValuekm As String cellValuekm = Range("C1").Offset(a, 0) If Mid(cellValuekm, 9, 1) Mod 2 = 0 Then Range("G1").Offset(a, 0) = "Kvinna" Else Range("G1").Offset(a, 0) = "Man" End If Next a End Sub 

Answer 1

Mid返回一个string，将string格式化为int / long / double / float等等….

 Mid(cellValuekm, 9, 1) Mod 2 = 0 Sub test() For a = 1 To 5 Dim cellValuekm As String cellValuekm = Range("C1").Offset(a, 0) If Len(cellValuekm) < 10 Then MsgBox "String is less then 10 digits" End If If CInt(Mid(cellValuekm, 9, 1)) Mod 2 = 0 Then Range("G1").Offset(a, 0) = "Kvinna" Else Range("G1").Offset(a, 0) = "Man" End If Next a End Sub