'1.取工作表总个数 在工作表里输入 "=shcount()" 即可,以下同理
Function shcount()
shcount = Sheets.Count
End Function
'2.取得单元格显示的自定义函数
Function getv(rg As Range)
getv = rg.Text
End Function
'3.截取字符串的函数 page为源文本,sym为分割符, num为要取字符位置
Function jiequ(page As String, sym As String, num As Integer)
Dim Arr
Arr = Split(page, sym)
jiequ = Arr(num - 1)
End Function
'1.怎么给自定义函数添加说明