excel VBA中的类型不匹配
excel VBA中的类型不匹配
提问于 2014-04-05 12:13:09
我试着学习VBA。此代码：
Dim i As Integer
Dim damage As String
i = 1
Do While 1
damage = CStr(Worksheets("charakters").Range("d14").Value)
you_min_damage = CInt(Left(damage, i))
If Right(i, 0) = "-" Then
Trim (you_min_damage)
Exit Do
End If
i = i + 1
Loop导致此问题(在4次迭代中)：
在细胞D14中，我有“4-11”。我想把第一个数字nad分开，把它改成整数。
You_min_damage是整数。
回答 1
Stack Overflow用户
回答已采纳
发布于 2014-04-05 12:18:47
试试这个：
Dim you_min_damage As Integer, you_max_damage As Integer
Dim arr
'store all values in array
arr = Split(Worksheets("charakters").Range("d14").Value, "-")
'get first value
you_min_damage = CInt(arr(0))
'get last value
you_max_damage = CInt(arr(UBound(arr)))页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/22880745
复制相关文章
相似问题
腾讯云开发者
