VBA从形如”ABCD12455EDF”的字符串中取出数

563 次浏览

VBA代码功能说明

该VBA代码定义了一个名为"mydata"的函数,该函数接受一个字符串参数,然后返回该字符串中第一个数字之后的所有数字部分,以浮点数形式返回。函数首先找到字符串中的第一个数字,然后提取该数字后的所有数字部分,将其转换为浮点数并返回。如果在字符串中找不到数字,则函数将返回0。

VBA代码注释说明

Function mydata(mystring As String) As Double     '定义函数mydata,接受一个字符串参数,返回浮点数
    Dim i As Integer                              '定义整型变量i
    i = 1                                         '将i的值设置为1
    Do Until Val(Mid(mystring, i, 1)) > 0          '循环直到mystring中的第一个数字的值大于0
        i = i + 1                                 '递增i的值
    Loop                                          '循环结束
    mydata = Val(Mid(mystring, i, Len(mystring) - i + 1)) '提取字符串中第一个数字后的数字部分,并将其转换为浮点数赋值给mydata
End Function                                      '函数结束

VBA代码助手 人工智能生成代码 代码加密混淆密码破解

详细说明https://vbayyds.com/docs/vbahelper/shuoming