VBA第7课 编写自定义函数

'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