如何通过VBA创建用户定义函数
在本文中，我们将学习如何使用户定义的函数通过VBA仅从字符串中提取文本。
User Defined Function：Microsoft Excel允许您根据要求创建自己的函数，我们称其为User Defined Function。而且，我们可以像其他函数一样在Excel中使用用户定义函数。
让我们用一个非常简单的例子来理解：
我们有一系列字符串，从中我们只希望仅检索文本值。
要仅检索文本，我们将制作VBA代码。通过此代码，我们可以从单元格的任何位置检索文本。参见下面的过程和代码，您将了解这是多么容易：
打开VBA页面并按Alt + F11键插入一个模块*编写以下代码：
Function TextVba(entry) For I = 1 To Len(entry) ThisChar = Mid(entry, I, 1) Select Case Asc(ThisChar) Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58 Case Else TextVba = TextVba & ThisChar End Select Next i End Function
代码说明：首先，我们给了函数名称（TextVba）。
并且，然后我们给出了字符串的长度，然后我们使用了Asc函数（这是代码Function）。然后，我们定义了案例。现在，我们定义了TextVba的条件，然后关闭Select函数。
现在，我们将在Excel工作表中使用该函数。转至Excel工作表。在单元格B2中，输入公式= TextVba（A2），然后按Enter。*函数将仅返回文本
这样，我们可以创建用户定义的函数，并节省常规活动的时间。
如果您喜欢我们的博客，请在Facebook上与您的朋友分享。您也可以在Twitter和Facebook上关注我们。
我们很高兴收到您的来信，请让我们知道我们如何改进，补充或创新我们的工作，并为您做得更好。写信给我们[email protected]