如何在 Excel 2016 VBA 中使用包裝函數

在這裡,您會發現一些相對簡單的自定義 Excel VBA 工作表函數,它們也非常有用。這些函數被稱為包裝函數,因為它們由包裝在內部 VBA 元素周圍的代碼組成。換句話說,它們允許您在工作表公式中使用 VBA 函數。

函數用戶()
' 返回當前用戶名
  用戶 = 應用程序.用戶名
結束函數

該函數實質上允許您的公式訪問 Application 對象的 UserName 屬性。

NumberFormat 函數

此函數僅顯示單元格的數字格式。如果您需要確保一組單元格都具有相同的數字格式,它會很有用。

函數編號格式(單元格)
' 返回單元格的數字格式
  NumberFormat = Cell(1).NumberFormat
結束函數

注意到 Cell (1) 的使用了嗎?如果將多單元格範圍用作參數,則僅使用第一個單元格。

您可以輕鬆編寫類似的函數來返回單元格的文本顏色、背景顏色、字體等。

提取元素函數

此包裝函數從包含多個元素的文本字符串中返回一個子字符串,這些元素由分隔符分隔。例如,此公式返回母牛,它是字符串中使用空格作為分隔符的第三個元素。當然,參數可以是單元格引用。

=ExtractElement(“狗馬牛貓”, 3, “”)

這是代碼,它是 VBA 的 Split 函數的包裝器:

函數 ExtractElement(Txt, n, Sep)
' 返回文本字符串的第 n 個元素,其中
' 元素由指定的分隔符分隔
  ExtractElement = Split(Application.Trim(Txt), Sep)(n - 1)
結束函數

下圖顯示了工作表公式中使用的 ExtractElement 函數。A 列包含文本字符串,B 列包含要提取的元素編號,C 列包含分隔符(顯示為空白的單元格包含空格字符)。

如何在 Excel 2016 VBA 中使用包裝函數

使用 ExtractElement 函數從字符串中返回一個元素。

SayIt 函數

這個簡單的函數是 Application.Speech 對象的 Speak 方法的包裝器。它使用合成聲音來“說出”論點。

功能說它(txt)
' 講論點
  Application.Speech.Speak txt, 真
結束函數

下面是一個例子:

=IF(C10>10000,SayIt(“超出預算”),“OK”)

該公式檢查單元格 C10。如果該值大於 10,000,則函數會說出文本:“超出預算”。如果該值小於 10,000,該函數將顯示文本 OK(並且什麼也不說)。

謹慎使用。如果您多次使用此功能,可能會非常混亂。另外,請記住,每次計算工作表時都會評估此函數,因此如果您進行很多更改,語音可能會非常煩人。此功能可能更適合娛樂目的。

IsLike 函數

VBA 的 Like 運算符是一種非常靈活的比較文本字符串的方法。在 VBA 幫助系統中查看。此功能為您的工作表公式帶來了這種力量:

函數 IsLike(文本,模式)
' 如果第一個參數與第二個參數相同,則返回 true
  IsLike = text Like 模式
結束函數

Leave a Comment

HTKK 5.0.3

HTKK 5.0.3

HTKK 是稅務總局免費發布的報稅支援軟體,提供企業快速建立報稅表。了解HTKK的安裝步驟與升級功能。

有用的 Microsoft Power Query 日期函數

有用的 Microsoft Power Query 日期函數

探索 Excel 中的 Microsoft Power Query 日期函數,快速處理日期計算和操作,其中包含添加天數、提取日期部分等功能的詳細說明。

如何在 Excel 2019 中使用 3D 地圖功能

如何在 Excel 2019 中使用 3D 地圖功能

3D 地圖是 Excel 2019 中提供的令人興奮的可視化分析功能,讓你能夠在 Excel 中創建動態的 3D 地圖。探索如何利用這項技術提升數據分析的效果。

如何在 Excel 中使用 SKEW 和 SKEW.P 函數

如何在 Excel 中使用 SKEW 和 SKEW.P 函數

了解如何在 Excel 中使用 SKEW 和 SKEW.P 函數來衡量數據分佈的偏度,這對於分析數據的對稱性至關重要。

如何為 Excel 儀表板創建時間線切片器

如何為 Excel 儀表板創建時間線切片器

時間軸切片器的工作方式與標準切片器的工作方式相同,因為它允許您使用視覺選擇機製過濾數據透視表。了解如何在 Excel 中使用時間軸切片器來高效管理日期字段。

如何在 Excel 2016 中使用 XLOOKUP 函數

如何在 Excel 2016 中使用 XLOOKUP 函數

了解如何在 Excel 2016 中使用 XLOOKUP 函數,這是一個 VLOOKUP 函數的優秀替代品,具有更強大和靈活的功能!

智能表9.1.1

智能表9.1.1

Smartsheet 是一個動態工作平台,可讓您管理專案、建立工作流程以及與團隊合作。

共享點

共享點

SharePoint 是一個基於 Web 的協作系統,它使用各種工作流程應用程式、「清單」資料庫和其他 Web 元件以及安全功能來控制業務群組的協同工作。

萬年曆1.0.38/1.0.36

萬年曆1.0.38/1.0.36

萬年日曆是一款手機上的日曆檢視應用程式,可協助您在手機上快速查看陰陽日期,從而安排您的重要工作。

微軟 Outlook 2021

微軟 Outlook 2021

Microsoft Outlook 是由 Microsoft Corporation 開發的商業和生產力應用程式。