作者:乔山办公网日期:
返回目录:excel表格制作
sub 过程可以带参.
Sub test()
Dim arr(), H As Long, L As Long
arr = Range("A1:C8")
L = 2
H = 5
MsgBox "工作表自的第百度" & H & "行,第" & L & "列的值是:" & arr(H, L), , Title:="主程问序信答息"
Call CD(arr, H, L)
End Sub
Sub CD(iarr, iH, iL)
ss = iarr(iH, iL)
MsgBox "工作表的第" & iH & "行,第" & iL & "列的值是:" & ss, Title:="子程序信息"
End Sub
可以的你调用的就是原来的程序,只要原来程序的变量不是公共变量就没问题
用法有三种
1、赋值给变量就要带括号 比如 a = PicInComment (1, 250)
2、call PicInComment (1, 250)
3、PicInComment 1, 250