目录:
视频: 蘭弦的投資世界_EXCEL財務分析_ 存貨週轉率的重要 2024
的名称在这里，您将找到一些相对简单的自定义Excel VBA工作表函数，这些函数也非常有用。这些函数被称为 包装函数 ，因为它们包含了围绕内部VBA元素的代码。换句话说，它们允许您在工作表公式中使用VBA函数。
函数User（）'返回当前用户的名称User = Application。 UserName End Function
这个函数本质上可以让你的公式访问Application对象的UserName属性。
<！ --1 - >NumberFormat函数
此函数只显示单元格的数字格式。如果您需要确保一组单元格都具有相同的数字格式，那么这会很有用。
函数NumberFormat（单元格）'返回单元格的数字格式NumberFormat =单元格（1）。 NumberFormat End Function
请注意使用Cell（1）？如果使用多单元范围作为参数，则只使用第一个单元。
你可以很容易地写出类似的函数来返回单元格的文本颜色，背景颜色，字体等等。
ExtractElement函数
这个包装函数从包含多个元素的文本字符串中返回一个子字符串，用分隔符分隔。例如，此公式返回cow，它是使用空格作为分隔符的字符串中的第三个元素。当然，争论可能是单元格引用。
<！下面是代码，这是VBA的拆分函数的包装：Function ExtractElement（Txt，n， Sep）返回文本字符串的第n个元素，其中'元素被指定的分隔符分开ExtractElement = Split（Application。Trim（Txt），Sep）（n - 1）End Function
工作表公式中使用的ExtractElement函数。列A包含文本字符串，列B包含要提取的元素编号，列C包含分隔符（显示为空白的单元格包含空格字符）。使用ExtractElement函数从字符串中返回一个元素。
SayIt函数
这个简单的函数是应用程序的Speak方法的包装器。语音对象。它用一个合成的声音“说出”这个论点。
下面是一个例子：
= IF（C10> 10000，SayIt（“Over budget”），“OK”）
公式检查单元格C10。如果该值大于10,000，则该函数会说出文字：“超出预算。“如果该值小于10,000，则该函数显示文本OK（并且什么都不说）。
谨慎使用。如果您多次使用此功能，可能会非常混乱。另外，请记住，每次计算工作表时都会对此函数进行评估，所以如果您进行了许多更改，语音可能会变得非常烦人。这个功能可能更适合于娱乐目的。
IsLike函数
VBA的Like运算符是比较文本字符串的一种非常灵活的方法。在VBA帮助系统中检查它。这个函数为你的工作表公式提供了这个功能：
函数IsLike（text，pattern）'如果第一个参数和第二个参数一样IsLike = text返回true类型结束函数
