國防部在VBA Excel中

我有一些問題Mod。國防部在VBA Excel中

我的錯誤說Incompability

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

來源

2012-07-30 user1564291

中秋節返回一個字符串，格式化字符串到INT /長/雙/浮法ECT ....

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

來源

2012-07-30 22:53:24 Sorceri

喜歡這個？<子測試（）對於= 1〜5 昏暗cellValuekm作爲字符串昏暗b以整數 b = MID（cellValuekm，9,1） cellValuekm =範圍（「C1」）。偏移（A，0）若b模2 = 0。然後範圍（「G1」）。偏移（A，0）= 「Kvinna」否則範圍（「G1 「）.Offset（A，0）= 「人」結束如果接着一個結束子因爲那dident工作，要麼 – user1564291 2012-07-30 22:58:13

或者你可以嘗試'Cint中（MID（cellValuekm，9,1））模2 = 0' – Brad 2012-07-30 23:01:57

Dident工作要麼。 – user1564291 2012-07-30 23:03:19

國防部在VBA Excel中

回答

相關問題