精华内容
下载资源
问答
  • VBA示例之 从字符串提取纯数字,供初学者参考,大牛勿进~~~~~~~
  • VBA示例之 获取一个字符串有多少个数字字符,供初学者参考,大牛勿进~~~~~~~
  • '示例:=myget(srg,1,3)'从第 3 位开始取出中文字符' =myget(srg,2)'从第 1 位开始取出英文字母,第 3个参数省略默认为 1' =myget(srg,,5)'从第 5 位开始取出数字,第 2个参数省略默认为 0' =myget(srg) '第 2、3 个...
  • VBA一键文字数值

    2018-01-19 10:58:30
    excel vba宏程序,一键将所有文字格式的数字转换为数值格式,自动更新数据。
  • VBA示例之 求人不如自已动手 字符转数字型 ,供初学者参考,大牛勿进~~~~~~~
  • 1.利用自带的columns函数 ...按照字符"$"进行拆分得到数组,索引为2的就是我们需要的列字母 Function ColLetter(Num As Long) As String ColLetter = Split(Columns(Num).Address, "$")(2) End Function ...

    1.利用自带的columns函数

    如Columns(27).Address表示27列的地址,也就是"$AA:$AA"

    2.使用split函数

    按照字符"$"进行拆分得到数组,索引为2的就是我们需要的列字母

    Function ColLetter(Num As Long) As String
         ColLetter = Split(Columns(Num).Address, "$")(2)
    End Function

    举例:Split(Columns(27).Address, "$")(2) 的结果是 AA

    展开全文
  • 一、数值转化为字符串函数Str、CStr Str函数将数值转换为字符串,即返回一个代表一个数值的字符串,其语法为: Str(number) CStr函数将数值表达式转换为字符串,其语法为: CStr(mynumberExpression) 注意:...

    一、数值转化为字符串函数Str、CStr

     Str函数将数值转换为字符串,即返回一个代表一个数值的字符串,其语法为:
    

    Str(number)

     CStr函数将数值表达式转换为字符串,其语法为:
    

    CStr(mynumberExpression)

    注意:当一个数值转换成字符串时,总会在其前面保留一个空位来表示正负,即字符串的第一位一定是空格或正负号,Str将英文句号(.)作为有效的小数点。
    

    演示代码:
    Sub StrTranfomationDemo()

    Dim myDouble As Double
    
    myDouble = 234.823
    
    Debug.Print "Str:<" & str(24.32) & ">"
    Debug.Print "Str:<" & str(-24.32) & ">"
    Debug.Print "CStr:<" & CStr(myDouble) & ">"
    

    End Sub

    运行结果

    Str:< 24.32>
    Str:<-24.32>
    CStr:<234.823>

    二、字符型数值转化为数值型数据

     Val函数可以将包含数值的字符型数据转化为Double(双精度)数值型数据类型,其语法为:
    

    Val(string)
    演示代码:
    Sub ShowFormatVal()

    Dim num As Double, str As String
    
    str = Format(Now, "Short Time")
    num = Val(str)
    '如果现在的时间是 4:31 PM,下面语句展示的结果为: 16:31    16
    Debug.Print str, num
    

    End Sub

    【应用】
    字符型数值是不能进行四则运算的,只能通过Val函数将其转换后才能使用。
    可以将8进制、16进制等转化为10进制数,如,Val(&o77)(8进制)、Val(&HFF)(16进制)分别转化为十进制的63和255

    展开全文
  • Excel-VBA:文本转换数字

    万次阅读 2019-08-15 22:34:55
    With Sheet2.UsedRange .Value = .Value End With
    With Sheet2.UsedRange
        .Value = .Value
    End With

     

    展开全文
  • VBA提取字符数字

    千次阅读 2021-04-26 15:15:28
    上一篇讲了用 python 提取字符数字,这次用VBA来事项。总体思路和 python 是一样的,代码如下: Option Explicit Sub GetNumbers() Dim from_string As String, convert_numbers As String Dim i, j, k, ...

    上一篇讲了用 python 提取字符串中的数字,这次用VBA来实现。总体思路和 python 是一样的,代码如下:

    Option Explicit
    
    Sub GetNumbers()
        
        Dim from_string As String, convert_numbers As String
        Dim i, j, k, m, first_number_location
        Dim i1 As String
        Dim check_start(9) As String, check_end(10) As String
        Dim split_string() As String, get_numbers() As String
        
        ' 给 from_string 赋值
        from_string = Cells(1, 1)
        from_string = CStr(from_string)
        
        ' 先求出 check_start 和 check_end
        ' 用于后续检验 from_string 中每个字符是否是数字
        For i = 0 To 9
            i1 = CStr(i)
            check_start(i) = i1
            check_end(i) = i1
        Next i
        
        check_end(10) = "."
        
        ' 将 from_string 拆分,每个字符都存到 split_string 中
        ReDim split_string(Len(from_string) - 1)
        For i = 1 To Len(from_string)
            split_string(i - 1) = Mid(from_string, i, 1)
        Next i
        
        
        ' 先求出 split_string 中第一个数字及其位置
        For i = LBound(split_string()) To UBound(split_string())
            For j = LBound(check_start()) To UBound(check_start())
                If split_string(i) = check_start(j) Then
                    ReDim get_numbers(UBound(split_string) - i)
                    get_numbers(0) = split_string(i)
                    first_number_location = i
                    GoTo GetFirstNumberAlready
                End If
            Next j
        Next i
        
    GetFirstNumberAlready:
        m = 1
        
        ' 从第一个数字开始,求出之后紧连的每个数字,包括小数点
        For j = first_number_location + 1 To UBound(split_string())
            For k = LBound(check_end()) To UBound(check_end())
                If split_string(j) = check_end(k) Then
                    get_numbers(m) = split_string(j)
                    m = m + 1
                End If
            Next k
        Next j
        
        ' 把 get_numbers() 输出
        For j = LBound(get_numbers()) To UBound(get_numbers())
            convert_numbers = convert_numbers & get_numbers(j)
        Next j
        
        MsgBox convert_numbers
        
    End Sub
    
    展开全文
  • 提取字符中指定类型的字符_Excel VBA应用.rar,在实际工作中经常需要从字符串中提取指定类型的字符,假设目标字符串为“I Love Excel Home中123-45文 论67890坛”,利用本例介绍的代码能够提取其中的字母、数字和中文...
  • VBA中将 Excel 列号转换为字母字符
  • Function RegTest(ByVal sText ... '定义匹配字符串集合对象 Dim oMatches As Object '创建正则表达式 Dim a As String '定义要执行正则查找的文本变量 Set oRegExp = CreateObject("vbscript.regexp") .
  • VBA 字符串函数&转换函数

    千次阅读 2018-12-05 16:58:09
    1,vba字符串函数列表: Trim(string) 去掉string左右两端空白 Ltrim(string) 去掉string左端空白 Rtrim(string) 去掉string右端空白 Len(string) 计算string长度 Left(string, x) 取string左段x个字符组成...
  • VBA提取字符串纯数字的方法

    千次阅读 2020-07-05 16:54:26
    如下要提取单元格里得数字,怎么才能实现?很简单,一个自定义函数马上搞定。 代码如下 在VBE编辑窗口插入一个模块,记得是要在模块上写函数代码。 选择插入菜单,选择过程的函数,命名函数名(根据自己的喜好定义...
  • 自:http://www.pinlue.com/article/2018/09/1514/087188585901.html
  • Function GetPureName(filename As String) Dim i As Integer Dim s, RstStr As String Dim Bol As Boolean For i = 1 To Len(filename) s = Mid(filename, i, 1) If (s Like "[0-9a-zA-Z]") Then ...
  • VBA 限制输入中文或只能输入数字
  • 32位操作系统屏幕保护程序 64位操作系统屏幕保护程序 黑客帝国数字雨、字符雨屏保 下载直接能使用 默认scr后缀的屏保
  • 数字全角半角VBA

    2021-05-22 07:33:29
    Sub 数字全角半角() ' ' 全角半角 Macro ' Dim qjsz, bjsz As String, i As Integer '定义qjsz(全角数字)、bjsz....Text = Mid(qjsz, i, 1) 'mid函数:返回文本字符从指定位置开始的特定数目的字符,每次取一.
  • 函数输入双精度数值,长度13位,输出字符串,转换位到兆。
  • 一、数值转化为字符串函数Str、CStr Str函数将数值转换为字符串,即返回一个代表一个数值的字符串,其语法为: Str(number) CStr函数将数值表达式转换为字符串,其语法为: CStr(mynumberExpression...
  • 判断一行字符数字出现的个数。  Input 输入只有一行。输入一个字符串,该字符可以包含&^$^#@*任何符号以及空格。输入以回车结束。  Output 有多行。输出该字符每个出现过的数字,然后在冒号“:”...
  • VBA快速合并字符串方法

    千次阅读 2020-12-23 02:16:44
    本文将就讲一下VBA中快速连接字符串的集中方法。 我们使用一个简单的示例,提取1-10的偶数并输出结果,判断偶数非常简单,程序主框架如下。 Sub Demo() Dim i As Integer, msg As String For i = 1 To 10 If ...
  • VBA示例函数之 求人不如自已动手 提取定串汉字,供初学者参考,大牛勿进~~~~~~~
  • 正则表达式的元字符特殊字符重复字符字符集通配符其它字符运算符优先级  正则表达式由若干个 分支 构成,分支之间用符号 | 相连。从逻辑上讲,分支之间是一种“或”的关系,一个字符串只要与正则表达式的任何一...
  • VBA中将数字列转换成字母的方法

    千次阅读 2016-03-06 12:51:32
    传入参数为Excel列的序号。例如:传入1返回A,传入2返回B。 Public Function Fun_GetEngName(ByVal argColumn As Integer) As String Dim strEngName As String Dim iNum, iMod As Integer iNum = argColumn \ ...
  • 在博文《使用VBA在Office输入特殊字符(1/3)》我们知道月亮符号的字符代码为0x1F319。本文讲解如何计算特殊字符对应的Byte数组的值。
  • VBA中字符串的相关函数

    千次阅读 2019-05-24 15:53:56
    目录 trim()、lcase()、ucase() ...使用 replace() 把字符的某个字符替换成其它字符 使用 split() 把字符串按某个字符分割 instr运算符 Like运算符 使用string()进行填充 trim()、lcase()、ucase() ...
  • VBA数字与字母互换

    千次阅读 2018-01-31 12:33:24
    vba数字与字母互换: 方案一:速度:快 Function NumToStr(ByVal Num As Long) As String '数字转字母  Dim M As Long  If Num  Do  M = Num Mod 26  If M = 0 Then M = 26  NumToStr
  • Sub 查找文档有多少个指定字符串() dai_cha_zhao_text = InputBox("请输入您要查找到字符串:", " 包含多少个字符串查找") With ActiveDocument.Content.Find Do While .Execute(FindText:=dai_cha_zhao_text...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,328
精华内容 1,731
关键字:

vba中数字转字符