Sub Insert_Numbers_From_Bottom()Dim i As Integer For i = 20 To 1 Step -1 Cells(i, 1).Value = i Next i End Sub 示例 5 插入从10到1的序列号 代码 Sub Ten_To_One()Dim i As Integer Dim j As Integer j = 10 For i = 1 To 10 Range("A" & i).Value = j j = j - 1 N...
DimVal(1to4)As String '给数组的元素赋值Val(1)="Excel"Val(2)="Word"Val(3)="PowerPoint"Val(4)="Outlook" 基础运算符 使用VBA 开发某项功能,本质上是,对变量进行基础的运算和操作,例如加减乘除比较等。为此,VBA 提供了很多运算符和操作符,利用它们可以实现复杂的运算。 今天先学习 VBA 提供的基础运算...
变量名必须以字母或汉字开头,不能包含特殊字符和空格 变量名最长不得超过 255 字符(超过 255 字符的,难道贵司以代码长短考核 KPI 吗?) 3. VBA 的数据类型 4. 声明多个变量 可以写在同一个 Dim 后面,变量名之间用逗号隔开,例如 Dim i As Integer, j As Long 也可以用不同的 Dim 语句声明,例如 Dim i ...
K = -I '结果等于-2 K = J Mod I '结果等于1 End Sub 2.比较运算符 在VBA中,有7种比较运算符,如下表所示。 示例如下: Sub Sameple2242() Dim I As Integer, J As Long Dim H As Object, F As Object Dim s1 As String, s2 As String, s3 As String Dim K As Boolean I = 2 J = 3...
Dim i As Integer '声明变量 i = 1 '给变量赋初始值 '循环 Do While i <= 10 Cells(i, 1).Value = i i = i + 1 Loop End Sub 注意,与For-Next循环不同的是,在进入循环之前,需要先给变量i赋初始值。在循环中,还需要能够增加变...
Dim i As Integer Dim count As Integer Dim flag As Boolean Dim findName As String findName = "Sheet7" Set wb = Application.ActiveWorkbook count = wb.Worksheets.count flag = False For i = 1 To count If wb.Worksheets(i).name = findName Then ...
DimText()As String,j As Integer Dim char As String Dim i As Integer,n As Integer Dim substr0 As String,substr1 As String substr0=str0&"#":substr1=str1 j=0:n=1:char=""ReDim PreserveText(j)For i=1ToLen(substr0)+1char=Mid(substr0,1,n)IfInStr(substr1,char)>0Then ...
在之前的一篇文章中介绍过VBA中的for循环。在Excel录制宏中添加for循环 这里简单介绍一下for each循环，看一下和for有什么不一样的地方。1. 打开Visual Basic，添加一个新模块和过程。2. 如果要在当前工作表中A1到A10单元格都输入同一个数字，用for循环如下图。Sub 测试()Dim i As IntegerFor i = 1 To ...
dim arr(49)as string ”数组长度为50,如果在模块的第一句写上option base 1,尽管只使用一个自然数确定数组长度,数组起始索引号也是1。 如:sub sztest() dim arr (1 to 10)as integer,i as integer for i = 1 to 10 arr(i)= i ”arr数组赋值 ...
一、数组简介在VBA中，数组是一种数据结构，可以使用单个变量名引用一系列值。这些值通过索引进行访问，索引通常是整数，用于标识数组中的每个元素的位置。 数组可以分为静态数组和动态数组两种。静态数组在声明时大小固定，而动态数组可以在运行时改变大小。二、创建数组使用Array函数创建数组Dim arr(1 To 3) As ...