先貼一個類型聲明符表：?

1.iPower

求一個值的指定次方數的結果?

'求次方iPower(源值,次方數) Function iPower(iVal, Pw) As Long'聲明一個自定義函數,函數名為iPower,iVal 為源值,Pw為次方數Application.Volatile '自動刷新計算結果iPower = 1 '先給iPower賦值為1,此為次方的基數If Pw > 0 Then '如果Pw大于0則iPower = iPower(iVal, Pw - 1) * iVal'iPower等于iPwer(源值的pw-1次方)*源值,這個里面要細細口味, Pw其實就是迭代次數End If End Function

示例:

2.sliCaSN

返回指定日程表的開始時間和結束時間

'本函數得出指定日程表的開始時間和結束時間sliCaSN(日程表名稱) Function sliCaSN(sName As String) As String 'sName為日程表的名字Application.Volatile '自動刷新計算結果Dim startDay '開始日期Dim endDay '結束日期Dim iDay '日期差With ActiveWorkbook.SlicerCaches("NativeTimeline_" & sName) '調用數據并賦值startDay = .TimelineState.StartDateendDay = .TimelineState.EndDateEnd WithiDay = endDay - startDay '計算日期差If iDay Then '開始日期不等于結束日期If Format(startDay, "yy") = Format(endDay, "yy") Then '年相等endDay = Format(endDay, "m月d日")If Format(startDay, "mm") = Format(endDay, "mm") Then '年月相等endDay = Format(endDay, "d日")End IfElse '年不相等endDay = Format(endDay, "yyyy年m月d日")End IfsliCaSN = Format(startDay, "yyyy年m月d日") & "-" & endDayElse '年月日相等sliCaSN = Format(startDay, "yyyy年m月d日")End IfEnd Function

?

?

示例:

?

總結

以上是生活随笔為你收集整理的EXCEL自定义函数学习与分享(持续更新)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。