|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
:=用于过程或函数的值传递
=用于变量、对象、单元格等赋值或者用于判断
给你举个例吧
有Optional字样的为可选参数,不赋值则取默认值
这个实例为取当前工作簿,当前工作表,F列有几行
- Sub test()
- '以下几种写法都可以
- j = RowX(Col:="F")
- j = RowX(,,"F")
- j = RowX("","","F")
- '当前工作簿,当前工作表,A列有几行 可直接写为
- j=RowX
- End Sub
- Function RowX&(Optional fn$, Optional SN$, Optional Col$ = "A") '行数
- Dim Rgx$
- If fn = "" Then fn = ActiveWorkbook.Name
- If SN = "" Then SN = ActiveSheet.Name
- Rgx = Col & 1048576
- RowX = Workbooks(fn).Sheets(SN).Range(Rgx).End(xlUp).Row
- End Function
复制代码 |
|