精华内容
下载资源
问答
  • VBA的运算符号

    千次阅读 2020-01-25 12:02:01
    VBA常用运算符 常规数学运算符: + - * / ^ 特殊数学运算符: \ 整除 mod 取余数 其他运算符: & () 比较运算符: =赋值 < > <= >= 特殊比较符: is like 逻辑运算符 : ...

     

    VBA常用运算符

    • 常规数学运算符:     +   -   *    /   ^
    • 特殊数学运算符:    \ 整除      mod 取余数 
    • 其他运算符:            &  ()  

     

    • 比较运算符:             =赋值   <  >  <= >=
    • 特殊比较符:           is   like

     

    • 逻辑运算符 :         and     or           xor     not
    • Xor同假异真  Eqv同真异假  Imp 先真后假才为真

     

    • XOR  逻辑排除。它是NOTOR运算符的组合。如果表达式中只有一个表达式的值为True,则结果为True。表示两者不同时为真,相同时为假 
    • EQV,表示两者相同是为真,不同是为假
    • imp逻辑蕴含

     

     

     

     

    Sub 计算测试()
    
    Dim arr1(30)
    
    arr1(0) = 99
    arr1(1) = 1 + 2
    arr1(2) = 2 - 1
    arr1(3) = 3 * 5
    arr1(4) = 10 / 3       '除法
    arr1(5) = 10 \ 3       '整除
    arr1(6) = 10 Mod 3     '去余数
    arr1(7) = (1 + 3) / 2
    
    
    arr1(11) = "a" & "b"
    arr1(12) = "a" + "b"     '字符串可以相加
    arr1(13) = 1 >= 2
    arr1(14) = 1 <= 2
    arr1(15) = (1 = 2)
    arr1(16) = (1 = 1)
    
    
    Dim a As Object
    Dim b As Object
    Dim c As Object
    Set a = b
    
    arr1(17) = a Is b        'is只能用于比较对象是否完全一样
    arr1(18) = Not a Is b
    arr1(19) = a Is c        '因为a,b,c 都是空对象,可以相等
    
    arr1(21) = "test1.xlsm" Like "*.xlsm"    'like 比较需要 ""之内的内容
    arr1(22) = (1 > 2) And (1 < 2)
    arr1(23) = (1 > 2) Or (1 < 2)
    
    
    arr1(30) = (1 > 2) Eqv (1 < 2)
    'arr1(31) = True Eqv True
    'arr1(32) = 1 Eqv 2
    'arr1(33) = 1 Eqv 1
    
    'arr1(34) = (1 > 2) Xor (1 < 2)
    'arr1(35) = (1 > 2) Xor (1 > 2)
    'arr1(36) = 1 Xor 2
    'arr1(37) = 1 Xor 1
    
    
    'arr1(38) = (3 > 2) Imp (5 > 2)    '逻辑包含关系
    'arr1(39) = (1 < 2) Imp (1 < 3)
    'arr1(40) = (1 < 2) Imp (1 < 2)
    
    
    
    For i = LBound(arr1) To UBound(arr1)
        Debug.Print "arr1(" & i & ")= " & arr1(i)
    Next
    
    
    End Sub
    

     

     

    运算结果

    arr1(0)= 99
    arr1(1)= 3
    arr1(2)= 1
    arr1(3)= 15
    arr1(4)= 3.33333333333333
    arr1(5)= 3
    arr1(6)= 1
    arr1(7)= 2
    arr1(8)= 
    arr1(9)= 
    arr1(10)= 
    arr1(11)= ab
    arr1(12)= ab
    arr1(13)= False
    arr1(14)= True
    arr1(15)= False
    arr1(16)= True
    arr1(17)= True
    arr1(18)= False
    arr1(19)= True
    arr1(20)= 
    arr1(21)= True
    arr1(22)= False
    arr1(23)= True
    arr1(24)= 
    arr1(25)= 
    arr1(26)= 
    arr1(27)= 
    arr1(28)= 
    arr1(29)= 
    arr1(30)= False
    

     

     

     

     

    有几个  还有问题


     

     

    他们的真值表如下 (图片转载)
    这里写图片描述

     

    展开全文
  • vba数据类型符号

    千次阅读 2018-08-11 10:46:00
    为什么80%的码农都做不了架构师?>>> ...
    • Integer %
    • Long &
    • Single !
    • Double #
    • String $
    • Currency @

    转载于:https://my.oschina.net/xfan/blog/1926137

    展开全文
  • 1 使用在语句中的特殊符号 连接号 - 用于连接不完整的2部分,为完整的1句 冒号 :用于连接2个句子 Sub test1001a() arr1 = array(1, 2, 3, 4, 5) For Each i In arr1 Debug.Print i; Next Debug.Print End Sub Sub ...

     

    1 使用在语句中的特殊符号

    •  连接号  - 用于连接不完整的2部分,为完整的1句
    •  冒号     :用于连接2个句子
    
    Sub test1001a()
        arr1 = array(1, 2, 3, 4, 5)
        For Each i In arr1
            Debug.Print i;
        Next
        Debug.Print
    End Sub
    
    
    Sub test1001b()                 '- 用于连接不完整的2部分,为完整的1句
        arr1 = array(1, 2, _
        3, 4, 5)
        For Each i In arr1
            Debug.Print i;
        Next
        Debug.Print
    End Sub
    
    Sub test1001c()
        arr1 = array(1, 2, 3, 4, 5)   ':用于连接2个句子
        For Each i In arr1: Debug.Print i;: Next
        Debug.Print
    End Sub
    
    

     

    2 其他字符串内用的符号

    • 其中 分号 ; 表示空格
    • 其中 逗号 , 表示 制表符 tab
    • 其中 连接号 & 表示连接,无空格连接
    Sub test1001d()
    
        Debug.Print 1; 2
        Debug.Print 1, 2
        Debug.Print 1 & 2
        
    End Sub

     

     

    展开全文
  • VBA中的标识符,常量和变量

    千次阅读 2018-06-07 23:33:52
    标识符: 在程序运行的过程中,通常需要将计算结果保存下来,在后面使用,程序中使用的数据都保存在计算机...2、长度不能超过255个字符3、不能使用VBA的关键字4、同一个过程内不能使用重复的名称常量: 在程序运行...

     标识符:

         在程序运行的过程中,通常需要将计算结果保存下来,在后面使用,程序中使用的数据都保存在计算机的内存中。数据保存在内存中,需要使用某种方式引用它,就必须给这些内存一个名称,这就是标识符。

    定义标识符时应该遵循以下规则:

    1、以字符开头,包含字母、数字和下划线,不区分大小写。

    2、长度不能超过255个字符

    3、不能使用VBA的关键字

    4、同一个过程内不能使用重复的名称

    常量

         在程序运行过程中值不能发生变化的数据是常量,常量的值在程序执行之前已经确定,在程序执行的过程中是不能被改变的。

    分为两类常数与符号常量

          常数是一个唯一的所见即所得的数据,根据数据类型的不同,常数可以分为数值型常数、字符串常数、日期型常数和布尔型常数。

    数值型常数:由数字、小数点和正负号所组成的常数。数值型常数包括整型、浮点型、货币型几种。

    例:

    520是整型常数,

    520.1314是浮点型常数,

    20180520.1314货币型常数是为财务数据的表示和计算而设置的,它的取值范围可以达到小数点前15位,小数点后保留4位。

    字符串常数字符串常数是由一对“”界定的,可以包括数字、字符、特殊符号和汉字的字符串。

    例:

    “VBA程序设计”、“abcedfg”、 “10+20=30”都是正确的字符串常数。

    日期型常数日期型常数是用一对“”或者一对#界定的,里面以日期和时间的形式表示。日期的年、月、日之间的分隔符用“/”或“-”,顺序为年月日或月日年。

    例:

    “2017/7/30”、#12-24-2016#、“2009年9月9日”等都是正确的表示日期的方法。

    布尔型常数:布尔型常数也叫逻辑常数,只有两个值True和False,表示真和假。

    符号常量:

          如果在程序中需要反复使用某一个常数,可以用一个标识符来命名这个常数,在需要使用该常数的地方用其名称即可,这就叫符号常量。

          符号常量可以保持常量的性质,其值在程序运行过程中不能被改变。

          使用符号常量的优点在于见名知其意,符号常数一般都是有意义的名字,可以提高程序的可读性;符号常量可以代替冗长的常数,简化输入,并易于修改。符号常量分为两种,一种是系统提供的符号常量,一种是用户自定义的符号常量。

          系统提供的符号常量是VBA系统内部提供的各种不同用途的符号常量,往往与应用程序的对象、方法或属性相结合使用,有确定的标识符和值。

          在VBA中,系统符号常量一般采用大小写混合的格式,前缀表示常量的对象库名。例如在Excel中系统符号常量都是以xl作为前缀,而VB中的系统常量通常以vb作为前缀。 “vbBlack”表示黑色,“xlWorkBook”表示Excel的一个工作薄。

           用户自定义的符号常量声明的语句格式如下:

                                                            Const符号常量名=符号常量值/符号常量表达式

      符号常量的命名规则与标识符的命名规则一样。

    注意:

    1、自定义的符号常量不能使用系统符号常量相同的名称;

    2、等号的右边可以是一个常数,也可以是由常量和运算符组成的表达式,但这个表达式要可以计算出唯一的确定的值;

    3、可以在一行中声明若干个符号常量,不同的符号常量之间以逗号隔开。

    Const PI=3.1415926           '声明一个常数

    Const name=”李平”        ‘a声明一个字符串常数

    Const area=3.14*6*6          '用表达式声明一个常数

    Const a=10,b=15,c=20         '声明多个符号常量

    变量:

           在程序运行过程中,值可以被改变的量叫做变量。

           变量和常量不同,在程序运行的过程中,变量保存的值可以被改变。

           变量在使用之前应该先声明,让VBA知道该变量的名称和数据类型,变量的命名规则与标识符的命名规则相同

            VBA中可以使用Dim语句来声明变量,语法格式如下:

                                                                          Dim变量名[as 数据类型]

           变量在声明的时候可以不指定数据类型,变量的声明可以放在程序的任何地方,但一定要在变量使用之前,一般变量的声明都集中放在程序的开头。每个变量可以在单独的一行进行声明,也可以在同一行声明多个变量,声明时用逗号将各变量隔开。

    Dim str as String                

    '定义一个字符串型变量str

    Dim a as integer, b as Boolean     

    '定义两个变量:整型变量a,布尔型变量b












    展开全文
  • VBA统计字符串出现的次数

    千次阅读 2020-04-19 21:27:52
    手机边亲爱的大家好! 今天我要给大家分享一个示例:统计出某个字符串在某表某字段中出现的次数。 大家先来看一下结果效果图: ...先来讲一下原理,其实就是循环数据库中的所有表,然后找模糊查找,找到了就记录...
  • VBA运算符使用

    2018-11-02 14:27:41
    1、“&”是强制性连接,就是不管什么都连接。 2、“+”是对字符串进行连接,对数字则进行加法运算。(用“+”号的时候,“+”前后类型要一致)
  • excel vba 特殊符号

    千次阅读 2013-09-30 19:20:42
    常数 值 描述 vbCr Chr(13) 回车符。 vbCrLf Chr(13)&Chr(10) 回车符与换行符。 vbLf Chr(10) 换行符。 vbTab Chr(9) 制表符
  • 如果必须重用它,有时会更改命名约定,避免使用不良的匈牙利符号和bad_naming_with_underscores_which_i_was_using_before 。 有一天(可能永远不会),如果我有时间,我会以更好的方式将它们分组。 在此之前,我...
  • Selection.Range.ListFormat.RemoveNumbers
  • word自动排版,公文自动排版,word自动排版 高效办公,提高办公效率 很好的选择,可以自动设置很多需要手动重复操作的内容!
  • 公文自动排版VBA代码

    2018-05-08 09:34:04
    使用vba代码,使得繁琐的公文排版工作变成自动化的享受!
  • 二分法实现的符号表 ' 二分查找的符号表 ' 隔离索引,从1开始,数组操作从0开始 ' 这种设计隔离数组操作,只是为了方便理解,如果实际使用,可以修改为 从0开始,能节省不少操作。 Private keys() Private values...
  • 但是由于Excel并不支持一次替换所有的中文,英文,数字等,所以有些解决方法是复制到Word中进行替换,但是这种方法个人感觉比较麻烦不好用,因此提供一个利用VBA解决这个问题的方法. 具体操作如下: 使用“Alt+F11”...
  • Then Set x = y Else x = y End If End Sub ' 二叉树实现的符号表 Private root As node ' 把值加入符号表中,如果值为空,就删除主键 Sub putValue(key As Variant, val As Variant) Set root = doPut(root, key, ...
  • 基于CorelDRAW VBA的地图制图符号化程序设计
  • vba 实现红黑树符号

    2020-12-31 00:21:22
    Private root As RedNode Private n As Long ' 暂时省略辅助的增加和缩减,如有需要,参照以前的博客 ' 基本的符号表api Public Sub putValue(key As Variant, val As Variant) Set root = doPut(root, key, val) ...
  • 1 VBA和EXCEL使用符号常数有语法差别 1.1 语法差别 比如EXCEL里使用char(10) VBA中只能写成 chr(10) VBA的语法错误,VBE没有把第1个首字母大写就应该看出来 char(13) 是错误的 1.2 举例: chr(32) 类空格 ...
  • 批量上标平方、立方符号的wordVBA源码
  • VBA示例之 求人不如自已动手 取得单元格中指定字符前的字符,供初学者参考,大牛勿进~~~~~~~
  • 汉字转拼音取首字母 excel vba 汉字转拼音 取首字母 排除特殊符号 excel里面取汉字首字母 汉字转拼音 排除了特殊符号 非常实用
  • 有个网友希望使用代码输入如下“月亮”字符,从截图中可以看出其字体是Segoe UI Symbol。如果文件中已经有这个字符,当然最简单的方法就是复制/粘贴,可以如果空白文档,...是否可以使用VBA代码直接输入这个特殊字符?
  • 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 (...
  • chr码值对应列表大全

    2010-10-24 18:59:39
    chr码值对应列表大全, 用于VB编程,可以查找键盘各个字对应值
  • 提取字符中指定类型的字符_Excel VBA应用.rar,在实际工作中经常需要从字符串中提取指定类型的字符,假设目标字符串为“I Love Excel Home中123-45文 论67890坛”,利用本例介绍的代码能够提取其中的字母、数字和中文...
  • 使用VBA在Office中输入特殊字符(3/3) 感谢网友T_DC_Q提出的问题 Function UTF16(sHex As String, Optional sMode As String = "HEX") As String Dim lByte, hByte, arrRes If Application.Hex2Dec(sHex) > ...
  • '匹配标点符号和汉字 End With With TextBox1 For i = 1 To Len ( . Text ) strs = Mid ( . Text , i , 1 ) If Not reg.test ( strs ) Then . Text = Replace ( . Text , ...
  • Base 类型 Byte Boolean single! currency@ Double# date ## integer% long & decimal String [*10] $ Object null is noting Variant ... (...
  • VBA 常用代码 - 01

    2021-02-08 20:18:23
    1、运用VBA.Split() 给字符串分列,选取第一部分 例:“101203\其他货币资金\低于等于3个月的流动性理财存款”,选取“101203” Sub test() Dim rows As Integer '声明变量 rows = Range("A1048576").End(xlUp)...
  • '示例:=myget(srg,1,3)'从第 3 位开始取出中文字符' =myget(srg,2)'从第 1 位开始取出英文字母,第 3个参数省略默认为 1' =myget(srg,,5)'从第 5 位开始取出数字,第 2个参数省略默认为 0' =myget(srg) '第 2、3 个...
  • 想通过replace替换€符号为空,但是发现VBA中无法输入该符号。 然后想通过格式变更将currency的格式变成number。但是currency格式的单元格的选择方式好像不太对。 Private Sub Fchange() ActiveSheet.Cells....

空空如也

空空如也

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

vba符号