Excel如何自定義一個函數以便快速使用這個函數組合（excel里怎么自定義函數）

Excel大約有500個函數，對于一般的辦公場景而言，單獨使用+組合使用能衍生出很多無數種函數，但是對于復雜的問題，往往函數十分復雜，不便于記憶。假如你經常使用這個函數組合，而又不想記住這些復雜的公式，你就需要自己發明一個函數了。

例如，要求地球上兩個點的距離，函數組合是這樣的：

于是我們就在想，要是有個函數可以計算距離就好了，好吧，我們動手自定義一個函數吧。

第一步：打開一個空白文檔

第二步：按鍵盤組合鍵“Alt+F11”或切換至“開發工具”功能區并點擊“Visual Basic”按鈕進入VBA環境。

第三步：在VBA環境下，右擊“Microsoft Excel對象”，從彈出的菜單中選擇“插入”->“模塊”項。

第四步：編寫代碼

Public Function Cal_Long_Lat(ByVal long1 AsDouble, ByVal lat1 As Double, ByVal long2 As Double, ByVal lat2 As Double) AsDouble

Const PI As Double = 3.1415926535

Dim AngleLong1, AngleLat1, AngleLong2, AngleLat2 As Double

AngleLong1 = long1 * PI / 180

AngleLat1 = lat1 * PI / 180

AngleLong2 = long2 * PI / 180

AngleLat2 = lat2 * PI / 180

Dim sinX, cosX As Double

sinX = Sin(AngleLat1) * Sin(AngleLat2)

cosX = Cos(AngleLat1) * Cos(AngleLat2) * Cos(AngleLong2 - AngleLong1)

x = sinX + cosX

On Error Resume Next

ax = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)

Cal_Long_Lat = 6378140 * ax

End Function

第五步：保存為xla文件

假設，你將這個加載宏文件放在了D盤xla文件夾里

第六步：添加信任位置

為保證excel的運行安全，Excel默認只信任部分文件夾。添加后，excel就知道這個文件夾是安全的。

第七步：添加加載項

以后啟動excel時，你編寫的宏就可以默認被加載了。

此后，在excel中可以直接使用剛創建的函數。

是不是特別簡單？[白眼]我讀書少，你不要騙我！

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。