24小时热门版块排行榜

返回列表

goodwoniu

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 38.7
帖子: 14
在线: 3.9小时
虫号: 2930942
注册: 2014-01-14
专业: 生物信息学

[求助] vb语言宏

运行vb是显示：运行时错误‘6’，溢出
下面是代码，麻烦大神解答!!请尽量详细点，本人小白。
Function bValidateLinkageRng(rng As Range) As Boolean
  Dim i As Integer
  bValidateLinkageRng = True

  If rng.Columns.Count < 3 Then
bValidateLinkageRng = False
Exit Function
  End If

  For i = 1 To rng.Rows.Count
If Len(rng.Cells(i, 1)) * Len(rng.Cells(i, 2)) * Len(rng.Cells(i, 3)) = 0 Then
   bValidateLinkageRng = False
   Exit Function
ElseIf Not Application.WorksheetFunction.IsNumber(rng.Cells(i, 2)) Then
   bValidateLinkageRng = False
   Exit Function
End If
  Next
End Function

回复此楼

» 猜你喜欢

1楼 2014-03-13 19:44:44

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 goodwoniu 的主题更新

返回列表

24小时热门版块排行榜

goodwoniu

[求助] vb语言 宏

» 猜你喜欢

[求助] vb语言宏