VBA自定義函數(shù)大全

目   錄

001.返回 Column 英文字 

002.查詢某一值第 num 次出現(xiàn)的值 

003.返回當(dāng)個人工資薪金所得為 2000 元（起征點為 850元）時的應(yīng)納個人所得稅稅額 

004.從形如“123545ABCDE”的字符串中取出數(shù)字

005.從形如“ABCD12455EDF”的字符串中取出數(shù)字

006.按 SplitType 取得 RangeName 串值中的起始位置

007.將金額數(shù)字轉(zhuǎn)成中文大寫

008.計算某種稅金

009.人民幣大、小寫轉(zhuǎn)換

010.查漢字區(qū)位碼

011.把公元年轉(zhuǎn)為農(nóng)歷

012.返回指定列數(shù)的列標

013.用指定字符替換某字符

014.從右邊開始查找指定字符在字符串中的位置

015.從右邊開始查找指定字符在字符串中的位置

016.計算工齡

017.計算日期差，除去星期六、星期日

018.將英文字反轉(zhuǎn)的自定函數(shù)

019.計算個人所得稅

020.一個能計算是否有重復(fù)單元的函數(shù)

021.數(shù)字金額轉(zhuǎn)中文大寫

022.將數(shù)字轉(zhuǎn)成英文

023.人民幣大小寫轉(zhuǎn)換

024.獲取區(qū)域顏色值

025.獲取活動工作表名

026.獲取最后一行行數(shù)

027.判斷是否連接在線

028.幣種轉(zhuǎn)換

029.檢驗工作表是否有可打印內(nèi)容

030.查 找 一 字 符 串（withinstr）在 另 一 字 符 串 中（findstr1）中某一次（startnum）出現(xiàn)時的位置，返回零表示沒找到

031.增加文件路徑最后的“\”符號

032.計算所得稅

033.從工作表第一行的標題文字以數(shù)字形式返回所在號

034.在多個工作表中查找一個范圍內(nèi)符合某個指定條件的項目對應(yīng)指定范圍加總求和

035.返回 Column 英文字

036.查找指定列名的列數(shù)

037.文字格式的時間（分:秒）轉(zhuǎn)化為數(shù)字格式（秒）

038.將（hh:mm:ss）格式的時分秒數(shù)轉(zhuǎn)換成秒數(shù)

039.金額中文大寫轉(zhuǎn)數(shù)字

040.把角度轉(zhuǎn)為度秒分、弧度等顯示

041.身份證號碼偵測

042.顯示公式

043.方便財務(wù)人員理帳查找

044.數(shù)值轉(zhuǎn)換為字符地址

045.字符地址轉(zhuǎn)換為數(shù)值

046.等待時間（以秒計算）

047.得到字符串實際的長度（以單字節(jié)記）

048.18 位身份證最后一位有效性驗證

049.計算符合 maturity condition 的拆解金額

050.對多個用同一分隔符分隔的待查找元素，逐一在表區(qū)域首列內(nèi)搜索，將返回選定單元格的值相加

051.根據(jù)個人所得稅（工資）反算工資數(shù)

052.判斷表是否存在

053.角度轉(zhuǎn)弧

054.比較相同的字符串

055.對選定的數(shù)組進行排序

056.取得指定月份天數(shù)

057.排序工作表活頁薄

058.統(tǒng)計數(shù)組中非重復(fù)數(shù)據(jù)個數(shù)

059.摘取子字符串

060.計算 20000 余個漢字的筆畫

061.刪除當(dāng)前工作表中的全部超連接

062.取得相近數(shù)據(jù)

063.提取定串中漢字

064.搜索重復(fù)數(shù)據(jù)（選定范圍）

065.字符型轉(zhuǎn)數(shù)字型

066.小寫人民幣轉(zhuǎn)大寫人民幣

067.取得指定月份人星期天個數(shù)

068.偵測檔案是否包含宏

069.獲取循環(huán)參照單元格

070.創(chuàng)建桌面快捷方式

071.自動建立多級目錄

072.統(tǒng)計經(jīng)篩選后符合條件的記錄條數(shù)

073.復(fù)制單元格列高與欄寬

074.取消隱藏工作表（包括 vba Project 工程保護的）

075.刪除單元格自定義名稱

076.從文件路徑中取得文件名

077.取得一個文件的擴展名

078.取得一個文件的路徑

079.十進制轉(zhuǎn)二進制

080.檢查一個數(shù)組是否為空

081.字母欄名轉(zhuǎn)數(shù)字欄名

082.數(shù)字欄名轉(zhuǎn)文字欄名

083.判斷一件活頁夾中是否還有子目錄

084.判斷一個文件是否在使用中

085.列出檔案詳細摘要信息

086.獲取菜單 ID 編號及名稱列表

087.狀態(tài)列動態(tài)顯示文字

088.取得一個文件的路徑2

089.取得一個文件的路徑3

090.取得 Activecell 的欄名

091.取得單元格中指定字符前的字符

092.前單元格指定字符前的字符顏色改成紅色

093.根據(jù)數(shù)字返回對應(yīng)的字母列號

094.取工作表名字

095.取消所有隱藏的宏表

096.導(dǎo)出 VBA Project 代碼

097.導(dǎo)入 VBA Project 代碼

098.取得漢字拼音的第一個字母

099.獲取兩欄中相同的數(shù)據(jù)

100.選取當(dāng)前工作表中公式出錯的單元格，關(guān)返回出錯個數(shù)

101.將工作表中最后一列作為頁腳打印在每一面頁尾

102.獲取 vbproject 引用項目

103.移除 Excel 工作表中的外部數(shù)據(jù)連接

104.將選擇定單元格作成鏡像圖片

105.反選擇單元格中的數(shù)

106.在 Excel 中加入一個量度尺（以厘米為單位）

107.在 Excel 中加入一個量度尺（以寸為單位）

108.取得一個短文件名的長文件名

109.取得臨時文件名

110.等用 Shell 調(diào)用的程序執(zhí)行完成后再執(zhí)行其它程序

111.將 Mouse 顯示成動畫

112.限制 Mouse 移動范圍

113.取得當(dāng)前激活窗品句柄及標題

114.取得屏幕分辨率

115.自動建立多級目錄

116.將文件長度置零

117.讀取 WIN9X / Me 共享文件夾密碼

118.取得預(yù)設(shè)的打印機及設(shè)置預(yù)設(shè)的打印機

119.獲得當(dāng)前操作系統(tǒng)的打印機個數(shù)及檢測打印是否存在

120.枚舉打印機名稱清單

121.讀取網(wǎng)絡(luò)服務(wù)器當(dāng)前時間

122.下載文件到指定目錄

123.自動映射網(wǎng)絡(luò)驅(qū)動器

124.自動斷開網(wǎng)絡(luò)驅(qū)動器

125.連接選定單元格中的內(nèi)容

126.獲取一個單元格中有指定字體顏色部份數(shù)據(jù)

127.對指定文件加 XLS 加密

128.選擇指定范圍內(nèi)使用了填充顏色的單元格

129.在特定的區(qū)域內(nèi)查找文本，返回值是包含查找文本的單元格

130.返回特定區(qū)域中最大值的地址

131.刪除表格中使用范圍內(nèi)的所有空白單元格

132.返回數(shù)組中有多少個指定的字符串

133.返回當(dāng)前工作表中引用了指定的單元的地址 

134.獲取 Excel 中字型列表

135.獲取一個字符串中有多少個數(shù)字字符

136.在 Excel 中對多列進行填充

137.對選定的范圍進行數(shù)據(jù)填充（忽略單元格格式）

138.VBA Project 加密及解密

139.列出收藏夾中的網(wǎng)址

140.計算兩個日期之間相隔的年份，比如年齡，工齡等，可計算從1000年01月01日起的日期

141.從字符串提取純數(shù)字

142.將一個數(shù)組按升序排列

143.將一個數(shù)組按降序排列

144.刪除空白列

145.判斷工作表是否為空白

146.將數(shù)據(jù)按類分到不同工作薄

147.單元格內(nèi)數(shù)據(jù)排序

148.對多欄排序

149.返回計算公式的值[值的計算公式]

150.把第一列=某個值對應(yīng)的第二列的內(nèi)容連在一起，并用、隔開

151.取得系統(tǒng)使用模式

152.計算機注銷/關(guān)機/重啟

153.更改計算機名稱

154.從 n 位開始取出字符串中的漢字、英文字母、數(shù)字

155.在指定列中尋找含有指定字符串的單元格，并將符合條件的單元格標為紅色，并將對應(yīng)的下一列單元格賦值為1

156.清除字符串中的空格

157.查找合并單元格位置

158.陰陽歷轉(zhuǎn)換和陰陽歷生日

159.利用數(shù)組和 Substitute 來替換某字符

160.一鍵創(chuàng)建斜線表頭

161.函自動獲取指定月的工作日