VBA第7课 编写自定义函数

'1.取工作表总个数 在工作表里输入  "=shcount()"  即可,以下同理Function shcount()shcount = Sheets.CountEnd Function

'2.取得单元格显示的自定义函数Function getv(rg As Range)getv = rg.TextEnd Function

'3.截取字符串的函数    page为源文本,sym为分割符, num为要取字符位置Function jiequ(page As String, sym As String, num As Integer)Dim ArrArr = Split(page, sym)jiequ = Arr(num - 1)End Function

'1.怎么给自定义函数添加说明

转载请注明作者与出处：http://blog.csdn.net/u013511642   王小涛_同學