精华内容
下载资源
问答
  • VBA】Str与CStr辨析

    千次阅读 2017-05-28 01:19:16
    Str与CStr 1. Str 函数 返回代表一数值的 Variant (String)。 语法 Str(number) 必要的 number 参数为一 Long,其中可包含任何有效的数值表达式。 说明 当一数字转成字符串时,总会在...

    Str与CStr

    1. Str 函数

    返回代表一数值的 Variant (String)。

    语法
    Str(number)
    必要的 number 参数为一 Long,其中可包含任何有效的数值表达式。

    说明
    当一数字转成字符串时,总会在前头保留一空位来表示正负。如果 number 为正,返回的字符串包含一前导空格暗示有一正号。

    使用 Format 函数可将数值转成必要的格式,如日期、时间、货币或其他用户自定义格式。与 Str 不同的是,Format函数不包含前导空格来放置 number 的正负号。

    注意 Str 函数只视句点 (.) 为有效的小数点。如果使用不同的小数点(例如,国际性的应用程序),可使用 CStr 将数字转成字符串。

    Str 函数示例
    本示例使用 Str 函数来将一个数字转成字符串。当数字转成字符串时,字符串的第一个位一定是空格或是正负号。

    Dim MyString
    MyString = Str(459)    ' 返回 " 459"。
    MyString = Str(-459.65)    ' 返回"-459.65"。
    MyString = Str(459.001)    ' 返回 "459.001"。

    2. CStr函数

    expressionCStr 返回
    Boolean含有 True或 False 的字符串
    Date含有系统中短日期格式日期的字符串
    Null一个运行时错误
    Empty一个零长度字符串 (“”)
    Error包含单词 Error 以及错误号的字符串
    其他数值含有数值的字符串

    CStr 函数示例
    本示例使用 CStr 函数将一数值转换为 String。

    Dim MyDouble, MyString
    MyDouble = 437.324    ' MyDouble 为 Double 类型。
    MyString = CStr(MyDouble)    ' MyString的内容为“437.324”。
    展开全文
  • Val与Cstr功能相反,Cstr将数值表达式的值换成字符串 - Format函数: 它是根据格式表达式中的指令来格式化的,(它是cstr的一个成员函数,它通过格式操作使任意类型的数据转换成一个字符串) 列表...

    概述

    我们在初学过程中,经常很多的代码看不懂,其实也不是全部的代码看不懂,就是因为一些函数和参数的不理解导致看不下去。甚至很多的时候,几个重要的函数就是一个小程序的核心,想必应该知道它的重要了吧。下面我就把最近遇到的几个函数分享给大家。

    正文

    - Val是VB中的类型转换函数

      Val(字符串表达式)将数字字符串转换成数值
    

    例如:Val(“-3.16”)=-3.16

    - Cstr是将数值型转为字符型

    比如:a=123 则
    Cstr(a)=”123”(字符型,1前不空)

    - Str()的作用是将数字型变量或常量改变成字符型变量或常量

    例如:
    - (1)对于常量:Str(35)=” 35”,Str(-5.5)=”-5.5”,以此类推。(注意字符“ 35”的前面有一个空格)。
    (2)对于变量:则把变量的值变成字符串,如:假定A=287,则Str(A)=“ 287”,以此类推。(注意前面有空格)

    - 比较:

    (1)区别:Cstr与Str的区别是Str转成的字符型空一格。
    (2)联系:Str和Cstr都是将数值型转换成字符型的函数。

    - Val与Cstr对比:

    Val与Cstr功能相反,Cstr将数值表达式的值换成字符串

    -

    Format函数:

    它是根据格式表达式中的指令来格式化的,(它是cstr的一个成员函数,它通过格式操作使任意类型的数据转换成一个字符串)

    • 列表内容

    语法:

    Format(expression[,format[,firstdayofweek[,firstweekofyear]]])

       其中expression是必要参数,其他的参数都是可选参数
    

    例如: Label2.Caption = Format(s, “0.00”)
    意思就是变量s取两位小数点

    小奖励

    • 程序存盘后包含的内容:
      1、xxx.frm窗体文件,保存时用户输入
      2、xxx.vbp工程文件,保存时用户输入
      3、xxx.frx二进制文件,若在属性设置时有图片等,系统自动产生

    总结

    通过学习,发现看似不相关的函数间却有着这样的联系。特别是str在转换时前面要空格,很多时候我们只要稍微的不注意都会犯这样的错误,而且调错的时候会相当的麻烦。

    展开全文
  • VBA实现关键词匹配

    2021-06-10 16:09:02
    ZZ1 = CStr(neirong1) ZZ2 = CStr(neirong2) KK1 = CStr(tiaojian1) KK2 = CStr(tiaojian2) ZZ1 = VBA.UCase(ZZ1) ZZ2 = VBA.UCase(ZZ2) KK1 = VBA.UCase(KK1) KK2 = VBA.UCase(KK2) Do Until Trim(KK1) = "" Or (...

    一、界面展示

    • 匹配sheet页:在A/B列粘贴需要打标的源数据,然后在词库页面配置好关键词,最后在H列选择匹配模式,即可在C列得到达标结果
      在这里插入图片描述
    • 词库sheet页:按识别逻辑,在B/(F&G)/(K&L)列设置需识别的关键词,然后在C/H/M列匹配上想标记的词句,即完成词库配置
      在这里插入图片描述

    二、代码详情

    1. 单列匹配

    Sub 单列匹配()
    
    Dim tiaojian1 As Range
    
    Dim tiaojian2 As Range
    
    Dim neirong1 As Range
    
    Dim neirong2 As Range
    
    Dim ZZ1 As String
    
    Dim ZZ2 As String
    
    Dim KK1 As String
    
    Dim KK2 As String
    
    Range("A1") = "内容1"
    
    Range("B1") = "内容2"
    
    Range("C1") = "打标"	
    
    Set neirong1 = [a2]
    
    Set neirong2 = [B2]
    
    
    Do Until Trim(neirong1) = ""
    
    Set tiaojian1 = Worksheets("词库").Range("b4")
    
    ZZ1 = CStr(neirong1)
    
    KK1 = CStr(tiaojian1)
    
    ZZ1 = VBA.UCase(ZZ1)
    
    KK1 = VBA.UCase(KK1)
    
    
    Do Until Trim(KK1) = "" Or (ZZ1 Like "*" & KK1 & "*")
    
    Set tiaojian1 = tiaojian1.Offset(1, 0)
    
    KK1 = CStr(tiaojian1)
    
    KK1 = VBA.UCase(KK1)
    
    Loop
    
    If tiaojian1 <> "" Then
    
    neirong1.Offset(0, 2) = tiaojian1.Offset(0, 1)
    
    Else
    
    neirong1.Offset(0, 2) = "其他"
    
    End If
    
    Set neirong1 = neirong1.Offset(1, 0)
    
    ZZ1 = CStr(neirong1)
    
    ZZ1 = VBA.UCase(ZZ1)
    
    Loop
    
    MsgBox "OK"
    
    End Sub
    

    2. 模式一

    Sub 模式一()
    
    Dim tiaojian1 As Range
    
    Dim tiaojian2 As Range
    
    Dim neirong1 As Range
    
    Dim neirong2 As Range
    
    Dim ZZ1 As String
    
    Dim ZZ2 As String
    
    Dim KK1 As String
    
    Dim KK2 As String
    
    Range("A1") = "内容1"
    
    Range("B1") = "内容2"
    
    Range("C1") = "打标"
    
    
    Set neirong1 = [a2]
    
    Set neirong2 = [B2]
    
    Do Until Trim(neirong1) = ""
    
    Set tiaojian1 = Worksheets("词库").Range("f4")
    Set tiaojian2 = Worksheets("词库").Range("g4")
    
    ZZ1 = CStr(neirong1)
    ZZ2 = CStr(neirong2)
    
    KK1 = CStr(tiaojian1)
    KK2 = CStr(tiaojian2)
    
    ZZ1 = VBA.UCase(ZZ1)
    ZZ2 = VBA.UCase(ZZ2)
    
    KK1 = VBA.UCase(KK1)
    KK2 = VBA.UCase(KK2)
    
    Do Until Trim(KK1) = "" Or ((ZZ1 Like "*" & KK1 & "*") Or (ZZ1 Like "*" & KK2 & "*"))
    
    Set tiaojian1 = tiaojian1.Offset(1, 0)
    Set tiaojian2 = tiaojian2.Offset(1, 0)
    
    KK1 = CStr(tiaojian1)
    KK2 = CStr(tiaojian2)
    KK1 = VBA.UCase(KK1)
    KK2 = VBA.UCase(KK2)
    
    Loop
    
    If tiaojian1 <> "" Then
    
    neirong1.Offset(0, 2) = tiaojian1.Offset(0, 2)
    
    Else
    
    neirong1.Offset(0, 2) = "其他"
    
    End If
    
    Set neirong1 = neirong1.Offset(1, 0)
    
    ZZ1 = CStr(neirong1)
    
    ZZ1 = VBA.UCase(ZZ1)
    
    Loop
    
    MsgBox "OK"
    
    End Sub
    

    3. 模式二

    Sub 模式二()
    
    Dim tiaojian1 As Range
    
    Dim tiaojian2 As Range
    
    Dim neirong1 As Range
    
    Dim neirong2 As Range
    
    Dim ZZ1 As String
    
    Dim ZZ2 As String
    
    Dim KK1 As String
    
    Dim KK2 As String
    
    Range("A1") = "内容1"
    
    Range("B1") = "内容2"
    
    Range("C1") = "打标"
    
    
    Set neirong1 = [a2]
    
    Set neirong2 = [B2]
    
    Do Until Trim(neirong1) = ""
    
    Set tiaojian1 = Worksheets("词库").Range("k4")
    Set tiaojian2 = Worksheets("词库").Range("l4")
    
    ZZ1 = CStr(neirong1)
    ZZ2 = CStr(neirong2)
    
    KK1 = CStr(tiaojian1)
    KK2 = CStr(tiaojian2)
    
    ZZ1 = VBA.UCase(ZZ1)
    ZZ2 = VBA.UCase(ZZ2)
    
    KK1 = VBA.UCase(KK1)
    KK2 = VBA.UCase(KK2)
    
    Do Until Trim(KK1) = "" Or ((ZZ1 Like "*" & KK1 & "*") And (ZZ1 Like "*" & KK2 & "*"))
    
    Set tiaojian1 = tiaojian1.Offset(1, 0)
    Set tiaojian2 = tiaojian2.Offset(1, 0)
    
    KK1 = CStr(tiaojian1)
    KK2 = CStr(tiaojian2)
    KK1 = VBA.UCase(KK1)
    KK2 = VBA.UCase(KK2)
    
    Loop
    
    If tiaojian1 <> "" Then
    
    neirong1.Offset(0, 2) = tiaojian1.Offset(0, 2)
    
    Else
    
    neirong1.Offset(0, 2) = "其他"
    
    End If
    
    Set neirong1 = neirong1.Offset(1, 0)
    
    Set neirong2 = neirong2.Offset(1, 0)
    
    ZZ1 = CStr(neirong1)
    
    ZZ2 = CStr(neirong2)
    
    ZZ1 = VBA.UCase(ZZ1)
    
    ZZ2 = VBA.UCase(ZZ2)
    
    Loop
    
    MsgBox "OK"
    
    End Sub
    

    4. 模式三

    Sub 模式三()
    
    Dim tiaojian1 As Range
    
    Dim tiaojian2 As Range
    
    Dim neirong1 As Range
    
    Dim neirong2 As Range
    
    Dim ZZ1 As String
    
    Dim ZZ2 As String
    
    Dim KK1 As String
    
    Dim KK2 As String
    
    Range("A1") = "内容1"
    
    Range("B1") = "内容2"
    
    Range("C1") = "打标"
    
    Set neirong1 = [a2]
    
    Set neirong2 = [B2]
    
    Do Until Trim(neirong1) = ""
    
    Set tiaojian1 = Worksheets("词库").Range("f4")
    Set tiaojian2 = Worksheets("词库").Range("g4")
    
    ZZ1 = CStr(neirong1)
    ZZ2 = CStr(neirong2)
    
    KK1 = CStr(tiaojian1)
    KK2 = CStr(tiaojian2)
    
    ZZ1 = VBA.UCase(ZZ1)
    ZZ2 = VBA.UCase(ZZ2)
    
    KK1 = VBA.UCase(KK1)
    KK2 = VBA.UCase(KK2)
    
    Do Until Trim(KK1) = "" Or ((ZZ1 Like "*" & KK1 & "*") Or (ZZ2 Like "*" & KK2 & "*"))
    
    Set tiaojian1 = tiaojian1.Offset(1, 0)
    Set tiaojian2 = tiaojian2.Offset(1, 0)
    
    KK1 = CStr(tiaojian1)
    KK2 = CStr(tiaojian2)
    KK1 = VBA.UCase(KK1)
    KK2 = VBA.UCase(KK2)
    
    Loop
    
    If tiaojian1 <> "" Then
    
    neirong1.Offset(0, 2) = tiaojian1.Offset(0, 2)
    
    Else
    
    neirong1.Offset(0, 2) = "其他"
    
    End If
    
    Set neirong1 = neirong1.Offset(1, 0)
    
    ZZ1 = CStr(neirong1)
    
    ZZ1 = VBA.UCase(ZZ1)
    
    Loop
    
    MsgBox "OK"
    
    End Sub
    

    5. 模式四

    Sub 模式四()
    
    Dim tiaojian1 As Range
    
    Dim tiaojian2 As Range
    
    Dim neirong1 As Range
    
    Dim neirong2 As Range
    
    Dim ZZ1 As String
    
    Dim ZZ2 As String
    
    Dim KK1 As String
    
    Dim KK2 As String
    
    Range("A1") = "内容1"
    
    Range("B1") = "内容2"
    
    Range("C1") = "打标"
    
    
    Set neirong1 = [a2]
    
    Set neirong2 = [B2]
    
    Do Until Trim(neirong1) = ""
    
    Set tiaojian1 = Worksheets("词库").Range("k4")
    Set tiaojian2 = Worksheets("词库").Range("l4")
    
    ZZ1 = CStr(neirong1)
    ZZ2 = CStr(neirong2)
    
    KK1 = CStr(tiaojian1)
    KK2 = CStr(tiaojian2)
    
    ZZ1 = VBA.UCase(ZZ1)
    ZZ2 = VBA.UCase(ZZ2)
    
    KK1 = VBA.UCase(KK1)
    KK2 = VBA.UCase(KK2)
    
    Do Until Trim(KK1) = "" Or ((ZZ1 Like "*" & KK1 & "*") And (ZZ2 Like "*" & KK2 & "*"))
    
    Set tiaojian1 = tiaojian1.Offset(1, 0)
    Set tiaojian2 = tiaojian2.Offset(1, 0)
    
    KK1 = CStr(tiaojian1)
    KK2 = CStr(tiaojian2)
    KK1 = VBA.UCase(KK1)
    KK2 = VBA.UCase(KK2)
    
    Loop
    
    If tiaojian1 <> "" Then
    
    neirong1.Offset(0, 2) = tiaojian1.Offset(0, 2)
    
    Else
    
    neirong1.Offset(0, 2) = "其他"
    
    End If
    
    Set neirong1 = neirong1.Offset(1, 0)
    
    Set neirong2 = neirong2.Offset(1, 0)
    
    ZZ1 = CStr(neirong1)
    
    ZZ2 = CStr(neirong2)
    
    ZZ1 = VBA.UCase(ZZ1)
    
    ZZ2 = VBA.UCase(ZZ2)
    
    Loop
    
    MsgBox "OK"
    
    End Sub
    

    6. 模式五

    Sub 模式五()
    
    Dim tiaojian1 As Range
    
    Dim tiaojian2 As Range
    
    Dim neirong1 As Range
    
    Dim neirong2 As Range
    
    Dim ZZ1 As String
    
    Dim ZZ2 As String
    
    Dim KK1 As String
    
    Dim KK2 As String
    
    Range("A1") = "内容1"
    
    Range("B1") = "内容2"
    
    Range("C1") = "打标"
    
    
    Set neirong1 = [a2]
    
    Set neirong2 = [B2]
    
    Do Until Trim(neirong1) = ""
    
    Set tiaojian1 = Worksheets("词库").Range("f4")
    Set tiaojian2 = Worksheets("词库").Range("g4")
    
    ZZ1 = CStr(neirong1)
    ZZ2 = CStr(neirong2)
    
    KK1 = CStr(tiaojian1)
    KK2 = CStr(tiaojian2)
    
    ZZ1 = VBA.UCase(ZZ1)
    ZZ2 = VBA.UCase(ZZ2)
    
    KK1 = VBA.UCase(KK1)
    KK2 = VBA.UCase(KK2)
    
    Do Until Trim(KK1) = "" Or ((Not ZZ1 Like "*" & KK1 & "*") Or (Not ZZ1 Like "*" & KK2 & "*"))
    
    Set tiaojian1 = tiaojian1.Offset(1, 0)
    Set tiaojian2 = tiaojian2.Offset(1, 0)
    
    KK1 = CStr(tiaojian1)
    KK2 = CStr(tiaojian2)
    KK1 = VBA.UCase(KK1)
    KK2 = VBA.UCase(KK2)
    
    Loop
    
    If tiaojian1 <> "" Then
    
    neirong1.Offset(0, 2) = tiaojian1.Offset(0, 2)
    
    Else
    
    neirong1.Offset(0, 2) = "其他"
    
    End If
    
    Set neirong1 = neirong1.Offset(1, 0)
    
    ZZ1 = CStr(neirong1)
    
    ZZ1 = VBA.UCase(ZZ1)
    
    Loop
    
    MsgBox "OK"
    
    End Sub
    

    7. 模式六

    Sub 模式六()
    
    Dim tiaojian1 As Range
    
    Dim tiaojian2 As Range
    
    Dim neirong1 As Range
    
    Dim neirong2 As Range
    
    Dim ZZ1 As String
    
    Dim ZZ2 As String
    
    Dim KK1 As String
    
    Dim KK2 As String
    
    Range("A1") = "内容1"
    
    Range("B1") = "内容2"
    
    Range("C1") = "打标"
    
    
    Set neirong1 = [a2]
    
    Set neirong2 = [B2]
    
    Do Until Trim(neirong1) = ""
    
    Set tiaojian1 = Worksheets("词库").Range("k4")
    Set tiaojian2 = Worksheets("词库").Range("l4")
    
    ZZ1 = CStr(neirong1)
    ZZ2 = CStr(neirong2)
    
    KK1 = CStr(tiaojian1)
    KK2 = CStr(tiaojian2)
    
    ZZ1 = VBA.UCase(ZZ1)
    ZZ2 = VBA.UCase(ZZ2)
    
    KK1 = VBA.UCase(KK1)
    KK2 = VBA.UCase(KK2)
    
    Do Until Trim(KK1) = "" Or ((Not ZZ1 Like "*" & KK1 & "*") And (Not ZZ1 Like "*" & KK2 & "*"))
    
    Set tiaojian1 = tiaojian1.Offset(1, 0)
    Set tiaojian2 = tiaojian2.Offset(1, 0)
    
    KK1 = CStr(tiaojian1)
    KK2 = CStr(tiaojian2)
    KK1 = VBA.UCase(KK1)
    KK2 = VBA.UCase(KK2)
    
    Loop
    
    If tiaojian1 <> "" Then
    
    neirong1.Offset(0, 2) = tiaojian1.Offset(0, 2)
    
    Else
    
    neirong1.Offset(0, 2) = "其他"
    
    End If
    
    Set neirong1 = neirong1.Offset(1, 0)
    
    ZZ1 = CStr(neirong1)
    
    ZZ1 = VBA.UCase(ZZ1)
    
    Loop
    
    MsgBox "OK"
    
    End Sub
    

    8. 复位

    Sub 复位()
    '
    ' 复位 宏
    '
    ' 快捷键: Ctrl+l
    '
        Range("A2:C3").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.ClearContents
    End Sub
    
    展开全文
  • = "表格名称" For i = 1 To Sheets.Count If Worksheets(i).Name <> "表格目录页" Then .Cells(i + 1, 1).Value = CStr("sheet" & i) If Worksheets(i).Name <> "表格目录页" Then .Cells(i + 1, 2).Value = CStr...

    汇总分表信息至一张总表,是数据分析相关工作中常遇到的事情,一般办法是手动复制每个分表再粘贴到汇总表里,但利用以下vba代码可以在excel中自动实现:

    1、查看工作簿内所有工作表名称及对应顺序

    执行该步骤的目的是确保分表的顺序正确,便于之后进行合并时的for循环

    Sub check()
    Dim check As Worksheet
    Set check = Sheets.Add(after:=Sheets(Sheets.Count)) '添加的表放在最后
    check.Name = "表格目录页"
    With check
    .Range("A1") = "表格顺序"
    .Range("B1") = "表格名称"
    For i = 1 To Sheets.Count
    If Worksheets(i).Name <> "表格目录页" Then .Cells(i + 1, 1).Value = CStr("sheet" & i)
    If Worksheets(i).Name <> "表格目录页" Then .Cells(i + 1, 2).Value = CStr(Sheets(i).Name)
    Next i
    End With
    End Sub
    

    代码可以放在thisworkbook中:
    在这里插入图片描述

    2、合并工作表

    Sub 合并()
    Dim sh As Worksheet, a%, b%, j%, rss%, d%, st As Worksheet
     Set sh = Sheets.Add(after:=Sheets(Sheets.Count)) '添加的合并表放在最后
    With sh
    .Name = "合并"
    End With
    Sheets(1).UsedRange.Copy sh.Cells(1, 1) '复制第一个分表内容至合并表
    b = Sheets.Count - 2 
    For j = 2 To b
    Sheets(j).Activate
    y = sh.Range("a65536").End(xlUp).Row + 1
    Sheets(j).UsedRange.Copy sh.Cells(y, 1)
    Next
    End Sub
    

    使用注意:
    1、每个分表的表头内容和顺序必须一致
    2、添加的汇总表、表格目录页都需要放到最后,这样每一个分表的顺序才能保持不变,如果添加表格目录页和合并表时不限定放在最后,那么将默认表格目录页和合并表分别为第1张、第2张表,其余需要合并的分表顺序将延后,以上for循环就需要再修改啦~
    3、如果在合并之前明确分表顺序没有问题,那么可以直接执行第二段合并代码,但b值需修改为:

    b = Sheets.Count -1
    

    以上就是vba操作多工作分表合并的所有内容,如有错误或者不当之处,欢迎指正~

    展开全文
  • Excel VBA 处理图形图表详解
  • VBA基础知识

    千次阅读 2019-11-12 14:18:36
    VBA入门学习笔记本关键词:VB、VBA、Microsoft office、excel、access、PowerPoint1.VBA的基本概念2 数据类型2.1 VBA基本数据类型2.2 VBA自定义的数据类型3 VBA常量3.1 VBA系统定义常量3.2 VBA固有常量3.2 VBA符号...
  • VBA实现EXCEL转DBC

    2020-02-25 11:29:32
    利用VBA实现对EXCEL转成DBC文件 EXCEL的格式如下: VBA代码: Sub exceltodbc() Dim i, j As Integer Dim row As Integer Dim filepath, GenMsgCycleTime, CM, VAL As String Dim MsgName, MsgId, ...
  • Excel VBA编程

    万次阅读 多人点赞 2019-04-11 16:45:51
    文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引...
  • VBA笔记——collection方法

    千次阅读 2019-12-28 19:40:53
    文章目录 一、定义 二、成员 三、特点 四、读取集合元素 五、删除集合元素 1、三种方法删除集合元素 六、和普通数组相比集合的特点 七、和字典方法比较 1、集合添加时增加检索...VBA中集合collection方法的基础知识
  • 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 Project密码解除

    万次阅读 2019-01-08 14:43:03
    VBA Project密码解除 ...'新建一个Excel工作簿,Alt+F11 打开VBA编辑器,新建一个模块 ,复制以下代码 '移除VBA编码保护 Sub MoveProtect() Dim FileName As String FileName = Application...
  • VBA暂停10秒

    2021-11-04 16:48:46
    Dim time As String time = CStr(Now()) If Application.Wait(Now + TimeValue("00:00:10")) Then MsgBox time & Chr(10) & Now() End If
  • VBA将Excel导出为CSV文件

    千次阅读 2020-08-08 19:34:44
    Sub csv() Dim Fs, myFile As Object Dim myfileline As String 'txtfile的行数据 ...") MsgBox "已保存工作表内容到注册表:HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MyApp201912\MySection" End Sub
  • 关于【VBA 网抓】的那些事,最近,由于我的一个VBA工程项目,需要做到与网页里的特定数据进行比对,由于在此之前,也没有对VBA网抓有过多的了解,因此就凭着一股猛劲,边做边学,并最终达到了预期目的。 对于此过程...
  • 一、数值转化为字符串函数Str、CStr Str函数将数值转换为字符串,即返回一个代表一个数值的字符串,其语法为: Str(number) CStr函数将数值表达式转换为字符串,其语法为: CStr(mynumberExpression) 注意:...
  • 判断j列数据>m列数据>l列数据>m列数据,否则提示错误 Sub test() ... c1 = Range("j" + CStr(n)).Value 'j列判断 c2 = Range("k" + CStr(n)).Value c3 = Range("l" + CStr(n)).Value ...
  • excel vba复制黏贴 Using VBA to program Excel isn't as popular as it once was. However, there are still plenty of programmers who prefer it when working with Excel. If you are one of those people, this...
  • 常用VBA函数精选

    2013-02-25 18:36:11
    第1.1例 ASC函数 第1.2例 Chr函数 第1.3例 Choose函数 第1.4例 Cos函数 第1.5例 Date函数 ...第1.37例 Str 和CStr 函数 第1.38例 Time 函数 第1.39例 TimeSerial 和TimeValue 函数 第1.40例 Timer 函数
  • VBA Dictionary引用

    千次阅读 2018-06-04 15:55:23
    jg.Cells(count + 2, 2) = "'" & CStr(Join(dic2.Keys, ",")) '前面加上"'"确保前导0不被省略 dic2.RemoveAll End If huZhu = yb.Cells(startRow, "j") If Trim(yb.Cells(startRow, "h").Value) <> "" Then ...
  • VBA VarType()函数的应用

    千次阅读 2021-02-26 21:19:08
    As Variant Dim Y, M, D As Integer VtoD = True Select Case VarType(vDate) Case 0 To 2, Is = 6, Is > 8 VtoD = False Case 3 To 5 VtoD = VtoD(CStr(vDate)) Case 7: VtoD = Format(vDate, "yyyy-mm-dd") If ...
  • 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个字符组成...
  • OFFICE Excel表格中常用的vba代码集锦

    千次阅读 2019-08-06 12:15:33
    arr1(k, 3) = CStr(arr2(j, k)) Next k open_wd2 (arr1) Next j 'With CreateObject("Wscript.Shell") 'Call .RegWrite("HKEY_CURRENT_USER\Control Panel\International\iLZero", "0") '恢复到默认 小数点...
  • 随着字典讲解的深入,我们发现字典真的很神奇,在VBA代码中,给人以十分清爽的感觉,在这套数组与字典解决方案中,我会尽可能的把经常用到的实例多多讲解给大家,让大家对于字典的理解更加深入.虽然这块内容利用其它方案都...
  • VBA的Hex函数 利用工作表函数进行进制转换 以文本形式表示数字 单元格的Prefix属性与Excel的TransitionNavigKeys属性 其他进制数字在VBA中的表示方法 示例 利用Hex函数可以将十进制数转换为十六进制数,工作...
  • vba常用方法

    2020-10-06 08:43:59
    Excel VBA常用代码总结1 做了几个月的Excel VBA,总结了一些常用的代码,我平时编程的时候参考这些代码,基本可以完成大部分的工作,现在共享出来供大家参考。 说明:本文为大大佐原创,但部分代码也是参考百度得...
  • VBA统计字符串出现的次数

    千次阅读 2020-04-19 21:27:52
    Then 24 Set T = DB.OpenRecordset(td.Name, DB_OPEN_SNAPSHOT) 25 26 DoEvents 27 28 For F = 0 To td.Fields.Count - 1 29 30 31 32 criteria = "CStr('' & [" & td.Fields(F).Name & "])...
  • VBA-vba

    2021-09-29 16:15:07
    VBA-vba-初体验 wps 下载: WPS2019专业增强版带VBA_11.8.6.8810 技术文档:VBA-教程 背景:excel中日期字符串转日期时被当成int类型了,转换后的日期不是期望的值 eg: 19851017 目的:19851017 --> 1985-10-17...
  • VBA字符串处理函数1

    2012-03-02 10:09:44
    1 VBA中的字符串 VBA不仅可以处理数字,也可以处理文本(字符串)。VBA提供了两类字符串: 一类为固定长度的字符串,声明时包含指字的字符数。例如,下面的语句 Dim strFixedLong As String*100 声明字符串变量后...

空空如也

空空如也

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

cstrvba