精华内容
下载资源
问答
  • 虽然它应该是 0.10 0.20(0.10,0.20) 那么,在Excel VBA中转换为字符串时,如何保留NumberFormat? CStr方法似乎不起作用 . (编辑:我还要补充一点,在我的较大代码中,小数位数正在从一个单元格改变到另一个小数位,...

    请考虑以下代码:

    Sub CombineNumbersToASTring()

    ' force Excel to show two decimals, even when there are trailing zeros

    Range("A1", "B1").NumberFormat = "0.00"

    ' give some values to the previously mentioned cells

    Cells(1, 1).Value = 0.1

    Cells(1, 2).Value = 0.2

    ' combine the previous two values into one cell

    Cells(1, 3).Value = "(" & Cells(1, 1).Value & ", " & Cells(1, 2).Value & ")"

    End Sub

    结果是错误的

    0.10 0.20(0.1,0.2)

    虽然它应该是

    0.10 0.20(0.10,0.20)

    那么,在Excel VBA中转换为字符串时,如何保留NumberFormat? CStr方法似乎不起作用 .

    (编辑:我还要补充一点,在我的较大代码中,小数位数正在从一个单元格改变到另一个小数位,因此在编写VBA代码时,无法事先知道小数位数 . )

    展开全文
  • Str函数将数值转换为字符串,即返回一个代表一个数值的字符串,其语法为:Str(number)CStr函数将数值表达式转换为字符串,其语法为:CStr(mynumberExpression)注意:当一个数值转换成字符串时,总会在其前面保留一个...

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

    Str(number)

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

    CStr(mynumberExpression)

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

    演示代码:

    Sub StrTranfomationDemo()

    Dim myDouble As Double

    myDouble = 234.823

    Debug.Print "Str:"

    Debug.Print "Str:"

    Debug.Print "CStr:"

    End Sub

    运行结果

    Str:

    Str:

    CStr:<234.823>

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

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

    Val(string)

    演示代码1:

    Sub ShowFormatVal()

    Dim num As Double, str As String

    str = Format(Now, "Short Time")

    num = Val(str)

    ‘如果现在的时间是 4:31 PM,下面语句展示的结果为: 16:31

    Debug.Print str, num

    End Sub

    演示代码2:

    Sub TransformStr2Int()

    Dim num As Double, str As String, tmp As String

    ‘ A1单元格中的数据为 0.8051

    str = ThisWorkbook.Worksheets("Sheet1").Range("A1")

    MsgBox "str: " & str

    tmp = Right(str, Len(str) - 1)

    MsgBox "tmp: " & tmp

    num = Val(tmp) + 1  ‘ 字符串转数字

    MsgBox "num: " & num

    MsgBox Hex(num)   ‘ 十进制转换成十六进制数

    End Sub

    【应用】

    字符型数值是不能进行四则运算的,只能通过Val函数将其转换后才能使用。

    可以将8进制、16进制等转化为10进制数,如,Val(&o77)(8进制)、Val(&HFF)(16进制)分别转化为十进制的63和255

    展开全文
  • 一个简单的函数,从包含有数字信息的字符串中取出这个数据,利用VAL函数将字符串转换为数值,该函数或略数字字符串后面的字母和汉字信息,所以,只要把数字前面的字母和汉字信息去掉就行了。  '函数,从字符串...

    作者:iamlaosong

    一个简单的函数,从包含有数字信息的字符串中取出这个数据,利用VAL函数将字符串转换为数值,该函数或略数字字符串后面的字母和汉字信息,所以,只要把数字前面的字母和汉字信息去掉就行了。


     '函数,从字符串“ABC123456.78DEF”中取出数据
    Function mydata(mystring As String) As Double
        Dim i, k As Integer
        i = 1
        k = Len(mystring)
        Do Until Val(Mid(mystring, i, 1)) > 0 Or i > k
            i = i + 1
        Loop
        If i <= k Then
            mydata = Val(Right(mystring, Len(mystring) - i + 1))
        Else
            mydata = 0
        End If
    End Function

    展开全文
  • 1、excel工作表中,只能存放1900年以后的日期,所以遇到之前日期,可以先转换为字符串再保存到单元格中。 2、asc() 返回字符对应的编码 如 asc(&quot;A&quot;)=65 3、chr() 返回数字对应的字符 如 chr(65)=&...

    学习日志

    全民一起VBA提高篇

    第八回 文本字符也是数字,编码函数两界穿梭

    相关知识点

    1、excel工作表中,只能存放1900年以后的日期,所以遇到之前日期,可以先转换为字符串再保存到单元格中。
    2、asc() 返回字符对应的编码 如 asc("A")=65
    3、chr() 返回数字对应的字符 如 chr(65)="A"
    4、chr(13)回车符 chr(10) 换行符
    
    

    将日期转换为字符串,再赋值给单元格

    Option Explicit
    Sub dateaddjust1()
        Dim i%, j%
        j = 0
        For i = 4 To 9
            If IsDate(Cells(i, 1)) Then
                Cells(i, 2) = CStr(dateadd("d", 38, Cells(i, 1)))
            Else
                Cells(i, 1).Interior.Color = vbRed
                j = j + 1
            End If
        Next i
        If j <> 0 Then
            MsgBox "请输入正确的日期,格式如1989-03-09"
        End If
    End Sub
    

    回车符换行符应用

    Option Explicit
    Sub funnytest()
        Dim s$
        s = "您好,该功能暂未开放。" & Chr(13) & Chr(10) & "但若您扫二维码发红包,立即可以使用"
        MsgBox s
    End Sub
    
    展开全文
  • 实现功能:选中当前工作表中的所有数据内容,将文本型数字转换为数值型数字。 缺点:日期格式的字符串会变成数值 Sub 转数值型数字() With ActiveSheet.UsedRange .NumberFormatLocal = "G/通用格式" .Value = ....
  • 判断检查:判断是否正确算术计算:对数字值执行计算程序流程:控制程序流程Sql合计函数:sql语句计算函数文本字符串:操作转化、合并或操作字符串。域函数 :合计函数返回有关一个域的统计数据。域合计函数通常用在...
  • 相关知识点 变体类型还有一个缺点就是总是猜数据,...自动类型转换:Dim a As Integer a=”23”转换为数字23,a=”你好”无法转换,报错 +不可以取代& 相同:“12”&”34”=”1234”, “12”+”34”=”...
  • Excel_VBA 常用函数

    2012-09-25 12:08:29
    可以将字符串的数字型转换为数值。 语法 Val(string) 必要的 string 参数可以是任何有效的字符串表达式. 说明 Val 函数,在它不能识别为数字的第一个字符上,停止读入字符串。那些被认为是数值的一部分的符号...
  • 37.文字格式的时间(分:秒)转化为数字格式(秒) 38.将"hh:mm:ss"格式的时分秒数转换成秒数 39.金额中文大写转数字 40.把角度转为度秒分、弧度等显示 41.身份证号码侦测 42.显示公式 43.方便财务人员理帐查找 44.数值...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧6 替换单元格内字符串 12 技巧7 复制单元格区域 12 技巧8 仅复制数值到另一区域 12 8-1 使用选择性粘贴 12 8-2 直接赋值的方法 12 技巧9 单元格自动进入编辑状态 12 技巧10 禁用单元格拖放功能 12 技巧11 单元格...
  • 系统:Windows 7 软件:Excel 2016 本系列参考LeetCode一些题目,将其进行超级简化,用VBA来解 Part 1: 题目 整数各位数的积与和之差 ...将输入n数字转换为字符串strN 获取字符串的长度length
  • 1、将数字转换为字符:cstr函数 2、将数字格式为某个固定位数的字符串:format Dim MyTime, MyDate, MyStr MyTime = #17:04:23# MyDate = #January 27, 1993# ' Returns current system time in the system-...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧6 替换单元格内字符串 26 技巧7 复制单元格区域 27 技巧8 仅复制数值到另一区域 30 8-1 使用选择性粘贴 30 8-2 直接赋值的方法 31 技巧9 单元格自动进入编辑状态 32 技巧10 禁用单元格拖放功能 32 技巧11 单元格...
  • 函数作用:文字格式的时间(分:秒)转化为数字格式(秒)..61 '38.函数作用:将"hh:mm:ss"格式的时分秒数转换成秒数.....62 '39.函数作用:金额中文大写转数字.......................62 '40.函数作用:把角度转为度秒分、...
  • 04124向单元格输入数字字符串 04125向单元格输入日期 04126向单元格输入时间 04127向单元格输入分数 04128向单元格输入邮政编码 04129向连续的单元格行区域一次性输入不同的数据 04130向连续的单元格列区域一次性...
  • 相关知识点: Format(原始内容,期望格式,每周起始日,每年起始周)将原始内容(数字、日期、文本等)转换成 指定格式的字符串并返回。除了第一个参数(原始内容)外,其他参数均...例1 将数字转换为货币格式 ...
  • ' 采用了将数字型字符串类型转换为数字之后再比较的方法,结果更为准确。 ' 3、其他算法和运算速度: ' 编制过程中,试验过使用 正则+逻辑分支+表达式引用 的方法, ' 可以实现几乎等同于SQL查询语句的复杂功能,...
  • Excel列标与列号转换

    千次阅读 2019-08-01 11:02:11
    熟悉Excel操作的用户都只有工作表中列标题可以有列标...例如应用C6单元格可以如下几种方式,对于Cells的第二个参数,即可以使用数字列号,也可以使用列标字母,然而对于Range来说参数为字符串,也就是使用列标形式。
  • VBSCRIPT中文手册

    热门讨论 2010-11-12 10:13:06
    LCase 函数 返回已被转换为小写字母的字符串。 Left 函数 返回字符串最左边的指定数量的字符。 Len 函数 返回字符串中的字符数量,或者存储变量所需的字节数。 Length 属性 返回在搜索字符串中匹配的长度。 ...
  • vb Script参考文档

    2009-07-28 22:13:02
    LCase 函数 返回已被转换为小写字母的字符串。 Left 函数 返回字符串最左边的指定数量的字符。 Len 函数 返回字符串中的字符数量,或者存储变量所需的字节数。 Length 属性 返回在搜索字符串中匹配的长度。 ...
  • VBSCRIP5 -ASP用法详解

    2010-09-23 17:15:46
    LCase 函数 返回已被转换为小写字母的字符串。 区域设置 ID (LCID) 图表 区域设置 ID 及其相关值列表. Left 函数 返回字符串最左边的指定数量的字符。 Len 函数 返回字符串中的字符数量,或者存储变量所需的字节...
  • LCase 函数 返回已被转换为小写字母的字符串。 区域设置 ID (LCID) 表 区域设置 ID 及其相关值列表. Left 函数 返回字符串最左边的指定数量的字符。 Len 函数 返回字符串中的字符数量,或者存储变量所需的字节数...
  • VBScript 语言参考

    2008-10-07 21:30:05
    LCase 函数 返回已被转换为小写字母的字符串。 区域设置 ID (LCID) 图表 区域设置 ID 及其相关值列表. Left 函数 返回字符串最左边的指定数量的字符。 Len 函数 返回字符串中的字符数量,或者存储变量所需的字节...
  • 数字转英文】 将选中区域(默认)或已使用区域存储格的金额数字转换成英文格式显示的表达字符串三资企业制作客户外汇付款通知书的理想工具。 【文本转EXCEL】 将文本文件按指定的分隔符号分隔一次性导入到...
  • 数字转英文】 将选中区域(默认)或已使用区域存储格的金额数字转换成英文格式显示的表达字符串三资企业制作客户外汇付款通知书的理想工具。 【文本转EXCEL】 将文本文件按指定的分隔符号分隔一次性导入到...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    数字转英文】 将选中区域(默认)或已使用区域存储格的金额数字转换成英文格式显示的表达字符串三资企业制作客户外汇付款通知书的理想工具。 【文本转EXCEL】 将文本文件按指定的分隔符号分隔一次性导入到...
  • 函数功能与参数:与“大写”函数相反,将大写字符转换为阿拉伯数字。 函数名称:分割取数 函数功能与参数:按分割符取数。第一参数为单元格,第二参数表示取第N个,第三个参数表示分割符。 函数名称:共有项 ...
  • 数字转英文】 将选中区域(默认)或已使用区域存储格的金额数字转换成英文格式显示的表达字符串三资企业制作客户外汇付款通知书的理想工具。 【文本转EXCEL】 将文本文件按指定的分隔符号分隔一次性导入到...
  • 数字转英文】 将选中区域(默认)或已使用区域存储格的金额数字转换成英文格式显示的表达字符串三资企业制作客户外汇付款通知书的理想工具。 【文本转EXCEL】 将文本文件按指定的分隔符号分隔一次性导入到...
  • 函数功能与参数:与“大写”函数相反,将大写字符转换为阿拉伯数字。 函数名称:分割取数 函数功能与参数:按分割符取数。第一参数为单元格,第二参数表示取第N个,第三个参数表示分割符。 函数名称:共有项 函数...

空空如也

空空如也

1 2 3
收藏数 55
精华内容 22
关键字:

vba字符串转换为数字