读书人

怎么调用这个Function ,小弟我写了xly

发布时间: 2012-01-24 23:11:55 作者: rapoo

如何调用这个Function ,我写了xlyb(5,8) ,VB报错说要有=号怎么回事??

VB code
Private Sub Command1_Click()  xlyb(5,9)  '系统提示我少了=, 为什么明明是传递了两个参数,并且没有返回的值的,我该怎么去调用Function xlyb???End SubFunction xlyb(ByVal n As Integer, ByVal n2 As Integer)        For I = 4 To xlsheet2.[E65536].End(xlUp).Row           If xlsheet2.Cells(I, 21) <> "" And xlsheet2.Cells(I, 18) <> "" And xlsheet2.Cells(I, 20) <> "" And xlsheet2.Cells(I, 21) <= Date And xlsheet2.Cells(I, 22) = "已完成" Then                'xlsheet2.Rows(I).Copy                '写裁床的'               For n = 5 To 8    '先将前面的数据写到表的前面去                   xlsheet1.Cells(j, n - 4) = xlsheet2.Cells(I, n)               Next               If xlsheet2.Cells(I, 9) <> "" And xlsheet2.Cells(I, 11) <> "" And xlsheet2.Cells(I, 11) > xlsheet2.Cells(I, 9) Then               xlsheet1.Cells(j, 5) = xlsheet2.Cells(I, 9)                For n = 1 To DateDiff("d", xlsheet2.Cells(I, 9), xlsheet2.Cells(I, 11))   '从第5列开始填充颜色                    xlsheet1.Cells(j, n + 5).Interior.ColorIndex = 41                Next                xlsheet1.Cells(j, n + 1) = xlsheet2.Cells(I, 11)   '写入预计完成时间'End Function


[解决办法]
方法1:某变量= xlyb(5,9)

方法2:xlyb 5,9

方法3:call xlyb(5,9)

[解决办法]
直接调用函数,用call要带括号,不用call不能带括号。
[解决办法]
调用函数方法:
1,a=xlyb(5,9)'用于需要将返回值保存到变量中时候
2, xlyb 5,9 '函数作为过程使用,不保存返回值
3,call xlyb(5,9)’和2相当
4,if xlyb(5,9)=a then '使用返回值和某个数进行比较

读书人网 >VB

热点推荐