九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng)，轉(zhuǎn)載請(qǐng)保留鏈接: http://www.zhanzhanrufeng.com/cat4/537.html，VBA交流群273624828。

今天來看個(gè)加載宏的例子。在普通Excel中自定義的函數(shù)只能應(yīng)用于該Excel文件本身，如果想要將自定義的函數(shù)用于所有的工作簿那就要用到加載宏了。

以自定義一個(gè)小寫金額轉(zhuǎn)大寫金額的函數(shù)為例。新建一個(gè)工作簿，插入一個(gè)模塊，輸入下面的代碼

Function DXMoney(M_MONEY As Double)
'將人民幣小寫金額轉(zhuǎn)換為中文大寫金額
Dim M_code As String
On Error GoTo 900
M_MONEY = Round(M_MONEY, 2)
If M_MONEY = 0 Then
M_code = ""
GoTo 900
End If
If M_MONEY < 0 Then
M_code = "負(fù)"
M_MONEY = Abs(M_MONEY)
End If
If M_MONEY < 0.1 Then
M_code = M_code & Application.WorksheetFunction.Text(Int(M_MONEY * 100), "[dbnum2]") & "分"
GoTo 900
End If
If M_MONEY >= 1 Then
M_code = M_code & Application.WorksheetFunction.Text(Int(M_MONEY), "[dbnum2]") & "元"
End If
M_MONEY = Round((M_MONEY - Int(M_MONEY)) * 100, 2)
If M_MONEY = 0 Then
M_code = M_code & "整"
GoTo 900
End If
If M_MONEY >= 10 Then
M_code = M_code & Application.WorksheetFunction.Text(Int(M_MONEY / 10), "[dbnum2]") & "角"
M_MONEY = M_MONEY Mod 10
Else
M_code = M_code & "零"
End If
If M_MONEY = 0 Then
GoTo 900
Else
M_code = M_code & Application.WorksheetFunction.Text(Int(M_MONEY), "[dbnum2]") & "分"
End If
900:
DXMoney = M_code
End Function

保存，類型選Excel加載宏（*.xlam），一般來說選了這項(xiàng)之后會(huì)跳轉(zhuǎn)到默認(rèn)保存位置C:\Users\Administrator\AppData\Roaming\Microsoft\AddIns，就保存這里就好了。

加載宏做好了下面就是要加載了。隨便打開一個(gè)Excel，點(diǎn)擊左上角那個(gè)Excel圓按鈕-Excel選項(xiàng)-加載項(xiàng)-（Excel加載項(xiàng)）轉(zhuǎn)到，現(xiàn)在就出現(xiàn)了加載宏對(duì)話框

點(diǎn)瀏覽，找到剛才保存的xlam文件，確定，然后剛才你保存的xlam就會(huì)出現(xiàn)在上面的對(duì)話框中，打勾，該加載宏就可以用了。

加載宏在打開Excel時(shí)會(huì)自動(dòng)加載，只不過是隱藏的，在VBA編輯界面會(huì)有加載宏工作簿的工程選項(xiàng)，可以在這里對(duì)你的加載宏進(jìn)行編輯，所以一個(gè)加載宏工作簿就可以放多個(gè)自定義的函數(shù)和功能了，除非特殊需要，沒有必要每項(xiàng)功能都建一個(gè)加載宏。