`

Excel VBA 基础语法

阅读更多
  1.  
    Is 比较两个对象的引用变量|| 对象1 Is 对象2 || 当对象1和对象2引用相同的对象时返回True,否则返回False
  2.  
    Like 比较两个字符串是否匹配 || 字符串1 Like 字符串2 || 当字符串1与字符串2匹配时返回True,否则返回False
  3.  
     
  4.  
    Range("A1") >= 500
  5.  
     
  6.  
    Range("B2") Like "陈*"
  7.  
     
  8.  
    "*"是通配符,代替任意多个字符
  9.  
    "?" 代替任意的单个字符
  10.  
    "#" 代替任意单个数字
  11.  
    [A-Z] 代替位于charlist中的任意一个字符
  12.  
    [!H-J] 代替不在charlist中的任意一个字符
  13.  
     
  14.  
    3.8.4 逻辑运算符
  15.  
    And 逻辑"与"
  16.  
    Or 逻辑"或"
  17.  
    Not 逻辑"非"
  18.  
    Xor 逻辑"异或"
  19.  
    Eqv 逻辑"等价"
  20.  
    Imp 逻辑"蕴含"
  21.  
     
  22.  
    3.10.3 使用Select Case语句解决“多选一”的问题
  23.  
    Sub Test()
  24.  
        Select Case Range("B2").Value
  25.  
            Case Is >= 90
  26.  
                Range("C2").Value = "优秀"
  27.  
            Case Is >= 80
  28.  
                Range("C2").Value = "良好"
  29.  
            Case Is >= 60
  30.  
                Range("C2").Value = "及格"
  31.  
            Case Else
  32.  
                Range("C2").Value = "不及格"
  33.  
        End Select
  34.  
    End Sub
  35.  
     
  36.  
    3.10.4For...Next语句循环执行同一段代码
  37.  
    Sub ShtAdd()
  38.  
        '在活动工作表前插入一张新工作表,新插入的工作表即为活动工作表
  39.  
        Worksheets.Add
  40.  
    End Sub
  41.  
     
  42.  
    Sub ShtAdd()
  43.  
        '定义一个Byte类型的变量,名称为i
  44.  
        Dim i As Byte
  45.  
        For i = 1 To 5 Step 1
  46.  
            '在活动工作表前插入一张新工作表
  47.  
            Worksheets.Add
  48.  
        Next i
  49.  
    End Sub
  50.  
     
  51.  
    使用Exit For终止For循环
  52.  
     
  53.  
    Sub Test()
  54.  
        Dim i As Byte                  '定义一个Byte类型的变量,名称为i
  55.  
        For i = 2 To 11 Step 1                         '用For语句定义循环次数
  56.  
            Select Case Range("B" & i).Value      'B列第i行的成绩是要评定等次的成绩
  57.  
                Case Is >= 90
  58.  
                    Range("C" & i).Value = "优秀"        '成绩达到90时要执行的代码
  59.  
                Case Is >= 80
  60.  
                    Range("C" & i).Value = "良好"        '成绩达到80时要执行的代码
  61.  
                Case Is >= 60
  62.  
                    Range("C" & i).Value = "及格"        '成绩达到60时要执行的代码
  63.  
                Case Else
  64.  
                    Range("C" & i).Value = "不及格"      '成绩是其他情况时要执行的代码
  65.  
            End Select             'Select语句到此结束
  66.  
        Next i                      'For语句到此结束
  67.  
    End Sub
  68.  
     
  69.  
    3.10.5For Each...Next语句循环处理集合或数组中的成员
  70.  
    Sub ShtName()
  71.  
        Dim sht As Worksheet, i As Integer    '定义两个变量,其中sht是Worksheet(工作表)类型
  72.  
        i = 1                                 '第1次写入工作表名称的是A1单元格,所以变量值定义为1
  73.  
        For Each sht In Worksheets            '循环语句开始
  74.  
            Range("A" & i) = sht.Name         '将工作表名称写入A列第i行的单元格
  75.  
            i = i + 1                         '让变量i的值增加1,以便下次能将工作表名写入其他单元格中
  76.  
        Next sht '循环语句结束
  77.  
    End Sub
  78.  
     
  79.  
    问题:将1-100写入A1-A100中
  80.  
    Sub RN()
  81.  
        Dim c As Range, i As Integer
  82.  
        i = 1
  83.  
        For Each c In RANGE("A1:A100")
  84.  
            c.Value = i
  85.  
            i = i + 1
  86.  
        Next c
  87.  
    End Sub
  88.  
     
  89.  
    3.10.6Do语句按条件控制循环
  90.  
    Sub ShtAdd_01()
  91.  
        Dim i As Byte           '定义一个Byte类型的变量,名称为i
  92.  
        i = 1                   '给变量i赋值
  93.  
        Do While i <= 5         '当变量i小于或等于5时执行循环体
  94.  
            Worksheets.Add      '在活动工作表前插入一张新工作表
  95.  
            i = i + 1           '每执行一次循环体,变量i的值就增加1
  96.  
        Loop                    'Do语句结束的标志
  97.  
    End Sub
  98.  
     
  99.  
    Sub ShtAdd_02()
  100.  
        Dim i As Byte                '定义一个Byte类型的变量,名称为i
  101.  
        i = 1                        '给变量i赋值
  102.  
        Do                           'Do语句开始
  103.  
            If i > 5 Then Exit Do    '如果变量i的值大于5,那么终止循环
  104.  
            Worksheets.Add           '在活动工作表前插入一张新工作表
  105.  
            i = i + 1                '每执行一次循环体,变量i的值就增加1
  106.  
        Loop                         'Do语句结束的标志
  107.  
    End Sub
  108.  
     
  109.  
    Sub ShtAdd_03()
  110.  
        Dim i As Byte           '定义一个Byte类型的变量,名称为i
  111.  
        i = 1                   '给变量i赋值
  112.  
        Do                      'Do语句开始
  113.  
            Worksheets.Add      '在活动工作表前插入一张新工作表
  114.  
            i = i + 1           '每执行一次循环体,变量i的值就增加1
  115.  
        Loop While i <= 5       '如果变量i小于或等于5,那返回Do语句开始处再执行一次循环体
  116.  
    End Sub
  117.  
     
  118.  
    3.10.7 使用GoTo语句让程序转到另一条语句去执行
  119.  
    Sub Sum_Test()
  120.  
        Dim mysum As Long, i As Integer         '定义两个变量
  121.  
        i = 1 '变量i的初始值为1
  122.  
    x:  mysum = mysum + i                       '将变量mysum的值与变量i的值相加,并将结果重新赋给变量mysum
  123.  
        i = i + 1                               '变量i的值在原值的基础上增加1
  124.  
        If i <= 100 Then GoTo x                 '如果i小于或等于100,跳转到x标签处
  125.  
        MsgBox "1到100的自然数和是:" & mysum   '用对话框显示变量mysum的值
  126.  
    End Sub
  127.  
     
  128.  
    3.10.8 With语句简写代码离不开它
  129.  
    Sub FontSet_02()
  130.  
        With Worksheets("Sheet1").Range("A1").Font    '开始With语句,定义要设置的对象
  131.  
            .Name = "仿宋"                            '设置字体仿宁
  132.  
            .Size = 12                                '设置字号为12号
  133.  
            .Bold = True                              '设置字体为加粗字体
  134.  
            .ColorIndex = 3                           '设置字体颜色为红色
  135.  
        End With                                      'With语句到这里结束
  136.  
    End Sub
  137.  
     
  138.  
    3.11.2 Sub过程的基本结构
  139.  
    Sub hong()
  140.  
        RANGE("A1:A8").Select
  141.  
        SELECTION.COPY
  142.  
        RANGE("C1").Select
  143.  
        ACTIVESHEET.PASTE
  144.  
    END Sub
分享到:
评论

相关推荐

    ExcelVBA语法与应用辞典

    资源名称:Excel VBA 语法与应用辞典内容简介: 《Excel VBA语法与应用辞典》共分为13章。其中第1-2章介绍了Excel 2007 VBA相对于以往版本的新功能。构成要素和语法基础知识。第3-4章介绍了使用VBA语法进行单元格...

    Excel VBA基础入门(PDF)

    ### Excel VBA基础入门知识点详解 #### 一、VBA语言基础 **1.1 标识符** - **定义**: 标识符是用于命名变量、常量、子程序等的基本元素。 - **规则**: 必须以字母开头;长度最长可达255个字符;不能包含特殊符号...

    Excel_VBA_语法与应用辞典

    Chapter 02 Excel VBA语法基础  2-1 变量  2-2 常量  2-3 运算符  2-4 函数  2-5 VBA流程控制  2-6 使用对话框  2-7 错误处理  2-8 数组 Chapter 03 单元格的基本操作   3-1 单元格的选取 ...

    Excel VBA语法辞典

    1. **VBA基础** - **变量与数据类型**:VBA支持多种数据类型,如Integer、Double、String等,理解它们的用途和限制至关重要。 - **常量与声明**:定义常量以保持值不变,使用`Const`关键字声明。 - **运算符**:...

    Excel VBA语法速查手册源代码

    1. **VBA基础语法** - **变量声明**:在VBA中,我们需要先声明变量再使用,例如`Dim myVariable As Integer`声明一个整型变量。 - **数据类型**:包括Integer、Double、String、Boolean等,每个都有其特定用途。 ...

    Excel VBA 经典代码应用大全

    1. **VBA基础知识**:了解VBA的基础语法,如变量声明(Dim、Static、Public、Private),数据类型(Integer、Double、String、Boolean等),以及控制结构(If...Then...Else、For...Next、Do...Loop)。 2. **子...

    Excel VBA语法与应用手册 源代码

    总的来说,《Excel VBA语法与应用手册》的源代码涵盖了从基础语法到高级应用的方方面面,包括文件操作、用户界面设计、数据处理、数据库连接等复杂主题。通过学习这些源代码,读者能够深入理解VBA的工作原理,从而在...

    Excel VBA参考手册CHM

    1. **VBA基础**:了解VBA的基本语法,包括变量声明、数据类型(如Integer, String, Double等)、常量、运算符和控制流语句(如If...Then...Else, For...Next, Do...Loop等)。 2. **Sub和Function过程**:学习如何...

    EXCEL VBA基础入门示例文件

    本压缩包包含的“EXCEL VBA基础入门示例文件”旨在帮助初学者理解并掌握VBA的基础知识。 1. **VBA简介** - VBA是Visual Basic的子集,专为应用程序开发而设计,如Microsoft Office套件。 - 它允许用户通过编写...

    EXCEL-VBA常用语句300句

    ### EXCEL-VBA常用语句解析 #### 一、定制模块行为 ...这些命令是开发高效、可靠的Excel VBA应用程序的基础。掌握它们不仅能够帮助你更有效地利用Excel的自动化功能,还能够提升工作效率和数据处理能力。

    Excel VBA教程完全版

    通过录制宏,初学者可以快速了解VBA的基本语法和命令。 接下来,你将深入理解VBA的变量、常量、数据类型和数组。这些是编程的基础,它们决定了程序如何存储和处理数据。例如,了解Integer、Double、String等数据...

    Excel VBA语法基础简介

    Excel VBA 语法基础简介 Excel VBA 是一个功能强大的编程语言,广泛应用于 Microsoft Office 软件中的自动化办公操作。学习 Excel VBA 的基础知识对于提高办公效率和自动化办公操作至关重要。 本节课程将为读者...

    来吧!带你玩转Excel VBA随书光盘

    VBA的基础语法包括变量声明、数据类型(如Integer、Double、String)、控制结构(如If...Then...Else、For...Next、While...Wend等)以及函数和过程的使用。理解这些基本概念是学习VBA的第一步。同时,学会使用Sub和...

    从零开始学Excel.VBA

    Excel VBA基础篇系统地讲解了Excel VBA开发环境,以及Excel VBA的数据类型、运算符、函数与过程等语法知识。Excel VBA对象模型篇针对性地详细讲解了Excel VBA中常用的Application对象、Workbook工作簿、Worksheet...

    EXCEL VBA 范例应用大全1001例

    1. **基本语法与数据类型**:从简单的打印语句到变量声明,了解VBA的基础构建块,包括字符串、数字、布尔值等数据类型的使用。 2. **流程控制**:学习如何使用If...Then...Else、Select Case、For...Next、Do......

    最新Excel VBA活用范例大辞典 光盘

     本书适用于具有Excel与Excel VBA基础知识的各类人员阅读,同时适用于从事公司信息管理应用系统开发的各类人员阅读,也可作为相关专业大中专教材或参考书。 目录 Chapter1 Application对象实用操作技巧 Chapter2 ...

    【免费下载】ExcelVBA和WordVBA教程.rar

    - VBA基础语法:变量、数据类型、运算符、流程控制语句等。 - 对象、属性和方法:理解VBA中的核心概念。 - 宏的创建和调试:如何使用开发工具创建宏,以及调试技巧。 - 用户界面设计:创建自定义对话框和用户窗体。 ...

    Excelvba.rar_Excel VBA_excelvba_vba excel

    1. **VBA基础知识**:理解什么是VBA,它是如何与Excel集成的,以及如何启用和配置VBA编辑器。 2. **VBA环境**:熟悉Visual Basic编辑器,如代码窗口、项目浏览器、属性窗口和 Immediate窗口等。 3. **对象模型**:...

    Excel VBA Reference v1.2.7z

    通过这个文件,你可以学习到VB的基础语法,这对于理解VBA至关重要,因为VBA的语法结构和VB非常相似。 "Excel VBA Reference v1.2.exe"是VBA的参考指南的可执行程序版本,可能包含了更详细的VBA函数和命令的解释,...

Global site tag (gtag.js) - Google Analytics