精华内容
下载资源
问答
  • 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函数

    expression CStr 返回
    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”。
    展开全文
  • VBA开发手记

    2019-04-24 10:32:00
    本博文,将主要记录VBA for Excel项目中遇到并解决的问题和不熟悉的知识点,不定期更新。 1.日期单元格前面加空格就变成文本了,find查找参数注意:what:=Cstr(Date),lookat:=2 2. Function ff() ff = 123 ...

    本博文,将主要记录VBA for Excel项目中遇到并解决的问题和不熟悉的知识点,不定期更新。

    1.日期单元格前面加空格就变成文本了,find查找参数注意:what:=Cstr(Date),lookat:=2

    2.

    Function ff()
        ff = 123
        MsgBox "hello"
    End Function

    该函数在单元格中使用时,会先弹出 消息框 确定后,再返回 123,说明函数返回值是等该函数所有代码执行完才返回。

     3.加号与&的区别?

     112” & “34” = “1234 212” + “34” = “1234 3 
     4 
     512” & 34 = “1234 612” + 34 = 46  ‘类型自动转换
     7 
     8 
     9 “ab” & 34 = “ab34”
    10 “ab” + 34 =  ‘类型自动转换失败,报错

     4.Range的不常用使用用法

    1 Range("C1,D2,A1:A2").Cells.Count              '个数为4
    2 Range(Cells(1, 1), Cells(1, 4)).Cells.Count    '个数为4
    3 Range(Cells(1, 1))  ‘这种写法错误

     5.给单元格区域赋值的不常见写法。

    1 Range("A1:B1") = [{"编号", "目录"}]    '写入标题,采用数组形式,可以一次性写入多个单元格
    2. 
    If [=SUM(1/COUNTIF(A1:A10,A1:A10))] < 10 Then MsgBox "区域中存在重复值,程序无法继续", vbOKOnly, "友情提示"

     6.工作表的codeName属性就是VBE中每一张工作表对象的名称,可以在自己的属性窗口中修改,用codeName可以直接代表对应的工作表对象使用。

     7.Worksheets(1).Copy 将直接生成一张未保存的工作簿,内容为Worksheets(1)

    8.如果新建的工作簿未保存,则 Len(Dir(ActiveWorkbook.FullName)) = 0.

    9.由于end释放一切变量(包括各种级别的变量,如:过程级,模块级等),所有a显示的始终是1

    1 Sub t()
    2     Static a As Byte
    3     a = a + 1
    4     MsgBox a
    5     End
    6 
    7 End Sub

     10.range区域赋值给变量时,该变量下标为1.   Evaluate函数创建的数组默认下标也是1

    转载于:https://www.cnblogs.com/carlous/p/10760944.html

    展开全文
  • VBA解密工具

    千次阅读 2009-12-21 16:03:00
    去除VBA编码保护Sub MoveProtect() Dim FileName As String FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解") If FileName = CStr(False) Then Exit Sub E

     

           使用方法: 很简单 ,两种使用方法
          第一:  建立一个excel文档, 工具-》宏-》visual basci
                       将以上代码全部拷贝进去  保存 退出
                      重新打开那个excel,工具-》宏-》宏 可以看到两个
                    分别是moveprotect 和 setprotect
                    解密的话点moveprotect    运行
                      加密的话就是setprotect  运行
        第二:  建立一个excel  打开 ,视图-》工具栏-》visual basic
                    然后可以在excel里建立连个按钮,caption分别是命名为 加密  解密
                    将moveprotect中的代码拷贝到 解密 按钮的相应中去
                      将setprotect中的代码拷贝到   加密  按钮的响应中去
                    保存!!!!!
    展开全文
  • 20161226 VBA密码破解

    千次阅读 2016-12-26 19:30:39
    Sub MoveProtect() Dim FileName As String FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解") If FileName = CStr(False) Then Exit Sub Else VB
    Sub MoveProtect()
    
      Dim FileName As String
       FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解")
       If FileName = CStr(False) Then
          Exit Sub
       Else
          VBAPassword FileName, False   '  引用下面的自定义函数
       End If
    End Sub
    
    Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
         If Dir(FileName) = "" Then
            Exit Function
         Else
            FileCopy FileName, FileName & ".bak"
         End If
    
         Dim GetData As String * 5
         Open FileName For Binary As #1
         Dim CMGs As Long
         Dim DPBo As Long
         For i = 1 To LOF(1)
             Get #1, i, GetData
             If GetData = "CMG=""" Then CMGs = i
             If GetData = "[Host" Then DPBo = i - 2: Exit For
         Next
         If CMGs = 0 Then
            MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
            Exit Function
         End If
         If Protect = False Then
            Dim St As String * 2
            Dim s20 As String * 1                                         '取得一个0D0A十六进制字串
            Get #1, CMGs - 2, St                                          '取得一个20十六制字串
            Get #1, DPBo + 16, s20                                     '替换加密部份机码
            For i = CMGs To DPBo Step 2
                Put #1, i, St
            Next                                                                   '加入不配对符号
            If (DPBo - CMGs) Mod 2 <> 0 Then
               Put #1, DPBo + 1, s20
            End If
            MsgBox "文件解密成功......", 32, "提示"
         Else
            Dim MMs As String * 5
            MMs = "DPB="""
            Put #1, CMGs, MMs
            MsgBox "对文件特殊加密成功......", 32, "提示"
         End If
         Close #1
    End Function
    
    

    展开全文
  • vba转换函数

    2010-06-24 21:51:00
    vba 随机函数 | <a href="www.g006.cn" target='_blank' >a ...2009-11-17vba 类型转换函数 关键字: excel 类型转换函数  <br />例子: dim s as Integer  s=21  dim str as String ...
  • Private Sub CommandButton1_Click()Dim i, j As IntegerDim a As Datea = #10/1/2013#j = 2i = 2' If Worksheets("改后B").Range("a... CStr(i)) = Worksheets("改后A").Range("a" & CStr(j)) And Worksheets(...
  • VBA 字符串处理函数

    2012-12-09 23:15:46
    VBA字符串处理 (1) VBA中处理字符串的函数 ... 2.2 StrConv,Str,CStr 转换字符串  2.3 Space,String 创建字符串  2.4 Len 获取字符串的长度  2.5 Format 格式化字符串  2.6 InStr,InStrRev 查找字符串
  • vba 设置单元格文本格式

    千次阅读 2013-05-05 09:27:22
    VBA,设置单元格格式为文本: Public Sub demo() irow = ActiveSheet.UsedRange.Rows.Count For i = 2 To irow If Len(Range("E" & i).Value) = 4 And CStr(Range("E" & i).Value) Range("F" & i)....
  • VBA自动画图

    千次阅读 2008-12-24 09:28:00
    Private Sub CommandButton1_Click() Call doitEnd SubPublic column_range As StringPublic counter_num As IntegerSub getLinenum(range_num) column_range = column_range + CStr
  • 常用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 函数
  • Sub hong3()'' 宏3 宏d Dim a, b As Integer Dim str As String For a = 227 To 947 Step 15 b = a + 5 str = "Sheet1!B" + CStr(a) + ":G" + CStr(b) sh = ActiveSheet.Shapes.AddChar...
  • 兰色幻想vba-作业1

    2020-03-05 12:54:01
    代码如下: Public Sub copy_table() Sheets("日报表模板").Visible = True Sheets("日报表模板").Copy after:=Sheets(Sheets.Count) Set sh = ActiveSheet ... sh.Name = CStr(Sheets.Coun...
  • VBA使用总结(3)

    2012-01-12 16:43:19
    VBA基本类型转化 Val("&HFF") => 255 hex(255) => "FF" LCase(hex(255)) => "ff" Asc("a") => 97 Chr(97) => a CStr(97) => "97"   □InStr 函数 : 一字符串在另一字符串中最先出?的位置。 InStr([start...
  • <p>My first question ... CStr(Asc( Mid(strIn, i, 1) ) Xor Salt) Next I EncryptEasy = strChr End Function </code></pre> <p>To give you an idea, when I run EncryptEasy("test") in VBA, it returns: ...
  • vba 类型转换函数

    2009-11-17 16:38:19
    迅雷文学是小说阅读网提供小说免费阅读,小说大全,好看的小说,...类型转换函数 例子: dim s as Integer s=21 dim str as String str=CStr(s) 每个函数都可以强制将一个表达式转换成某种特定数据类型。 语法...
  • Str函数将数值转换为字符串,即返回一个代表一个数值的字符串,其语法为:Str(number)CStr函数将数值表达式转换为字符串,其语法为:CStr(mynumberExpression)注意:当一个数值转换成字符串时,总会在其前面保留一个...
  • EXCEL使用了多少行:ActiveSheet.UsedRange.Rows.Count(再也不用循环到头啦) 创建线条并命名:ActiveSheet.Shapes.AddLine(x1...CSTR(i) E.G. Private Sub ClearPreviousLines() Const LINE_FLAG As Stri...
  • 将文本中的一个文本字符串替换为另一个文本字符串。此代码片示例将页面上所有出现的“#”替换为当前日期。 参考代码 ... s.Text.Replace "#", CStr(Date), False, ReplaceAll:=True Next s End
  • 【访问工作簿】 对已经打开的工作簿,可以通过使用索引号来访问工作簿,也可以通过名称来访问工作簿 【代码区域】 Sub 访问工作簿() Dim counter As Integer ... counter = Workbooks.Count ... CStr(coun...
  • 一、数值转化为字符串函数Str、CStr Str函数将数值转换为字符串,即返回一个代表一个数值的字符串,其语法为: Str(number) CStr函数将数值表达式转换为字符串,其语法为: CStr(mynumberExpression...
  • Try the CStr() function Dim myVal as String; Dim myNum as Integer; myVal = "My number is:" myVal = myVal & CStr(myNum);
  • 文件名 & "【" & CStr(Format(Now, "yyyy-mm-dd hh-mm-ss")) & " " & "】" 转载于:https://www.cnblogs.com/lybstudy/p/10744183.html
  • 1、将数字转换为字符:cstr函数 2、将数字格式为某个固定位数的字符串:format Dim MyTime, MyDate, MyStr MyTime = #17:04:23# MyDate = #January 27, 1993# ' Returns current system time in the system-...
  • VBA 程序暂停10秒后向下执行

    千次阅读 2014-07-25 11:06:46
    Dim time As String time = CStr(Now()) 方式一 ' If Application.Wait(Now + TimeValue("0:00:10")) Then ' MsgBox time & Chr(10) & Now() ' End If 方式二 newHour = Hour(Now()) newM
  • 全民一起VBA提高篇 第七回 数据原形轻松识破 四舍五入务必当心 相关知识点 一、判断数据类型 isdate() 判断是否为日期 isnumeric() 判断是否为数字 typename() 判断变量类型 二、转换数据类型 cint() clng() cstr()...
  • VBA转到VB6该如何转?

    千次阅读 2014-02-15 15:14:17
    Dim i, k As Integer Dim KH(100) As String Dim DS(100) As Double Dim WD(100) As Double ...wjm = "d:\上传\" & CStr("SW-" & Month(Date) & "-" & Day(Date) & "-" & Hour(Time) & "-" & Minute(Time) &

空空如也

空空如也

1 2 3
收藏数 50
精华内容 20
热门标签
关键字:

cstrvba