[已解决]VB程序中，这句话是什么意思

cathyzhang5_007

Sum test()
Dim sums As Long, cell As Range, i As Byte, MYSTR As String

For Each cell In Range("a1:a10")
    if vba.IsNumeric(cell)  then sums=sums+cell else mystr=mystr&cell

   基中“   if vba.IsNumeric(cell)  then sums=sums+cell else mystr=mystr&cell       ”这句话是什么意思 ？？？

最佳答案

月排行榜 / 总排行榜

youfang

2014-4-23 15:54

if vba.IsNumeric(cell)  then sums=sums+cell else mystr=mystr&cell
如果单元格内容是数字，那么就把单元格的数字累加赋值给sums
否则，把单元格内容连接赋值给mytr

跳转到最佳答案楼层

我心飞翔410

判断单元格是不是数字 是数字累加 不是的话就链接起来

youfang

if vba.IsNumeric(cell)  then sums=sums+cell else mystr=mystr&cell
如果单元格内容是数字，那么就把单元格的数字累加赋值给sums
否则，把单元格内容连接赋值给mytr

ghostjiao

判断每个单元格的值是不是数字 IsNumeric(cell)，如果是的话，累加 sums=sums+cell 不是的话 连接字符mystr=mystr&cell

cathyzhang5_007

youfang 发表于 2014-4-23 15:54
if vba.IsNumeric(cell)  then sums=sums+cell else mystr=mystr&cell
如果单元格内容是数字，那么就把单 ...

你说的真好，够仔细

cathyzhang5_007

谢谢大家