| 查看: 400 | 回复: 0 | ||
[求助]
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 |
回复此楼» 猜你喜欢
你们遇到过吗
已经有6人回复
-
航天502所 高瑛珂博士 婚内征婚 欺骗女性开房
已经有33人回复
-
关于水星近日点进动成因的质疑 与实证分析
已经有9人回复
-
婚姻里的赢家
已经有6人回复
-
祈祷自己至少3A2B上会啊！
已经有7人回复
-
山东省优青 青B通知了？？？？
已经有3人回复