Dim myArray() As Long Dim i As Long myArray = GetArray For i = LBound(myArray) To UBound(myArray) Debug.Print myArray(i) Next i End Sub Function GetArray() As Long() Dim arr(5) As Long Dim i As Long For i =...
Sub Cycle()Dim i As Long Dim j As Long Dim MaxCnt As Long Dim arr As Variant Dim Cell As Range For Each Cell In Range("G9:G13")arr = Application.Transpose(Application.Transpose(Cell.Resize(1, 8)))Cells(Cell.Row, "C").Clear For i = LBound(arr) To UBound(arr)Max...
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...
都可以不加的。如果你定义了类型，则在赋值的时候要赋给对应类型的值，比如int，比如string；如果你给变量赋了其它类型的，比如定义了一个int类型，但赋了一个string类型的值，那这个变量自动转变为对应的类型。如果定义的时候没有指定类型，你在赋值的时候，这个变量就自动变成和赋值对应类型的变量。
Dim i As Long For i = 0 To alColl.Count - 1 Debug.Print alColl(i) Next i End Sub 运行结果如下图7所示。 图7 “克隆”ArrayList 使用Clone方法可以创建ArrayList的全新副本: Sub testClone() Dim alColl1 As Object Set alColl1 = CreateObject("System.Collections.ArrayList") ...
在图2中,显示的是我们自定义的一个名为GetLink的函数,没有相应的帮助信息。该函数为《VBA实用小程序40:获取单元格链接的地址》中我们介绍的一个自定义函数,其代码如下: '获取单元格文本的超链接地址 Function GetLink(rng As Range) '声明变量 Dim strF...
我们的 VBA 代码又派上用场了: Sub 修改工作表名称()Dim i As LongFor i = 2 To Sheets.Count Sheets(i).Name = Sheets(i).Range("C2")NextEnd Sub 给大家大致解释下代码 —— ❶ 第一行、第二行、第五行及第六行,与前面代码功能一致,在此不再赘述。
首发于Excel VBA 切换模式写文章 登录/注册 Excel VBA入门 - 基础语法 超Q面 2 人赞同了该文章 变量的定义 Dim - 局部变量 Private - 私有变量 Public - 公有变量 Global - 全局变量 Static - 静态变量 Const - 常量 :Const Pi=3.1415 as single '声明变量的缩写 Dim i% 'Dim i as Integer Dim i& ...
Private Sub Workbook_Open() 打开工作表就执行下面代码.Dim i As Long 定义i为长整型数字 Dim times As Long 定义times为长整型数字 Dim j As Long 定义j为长整型数字 times = Range("S2") 将S2储存格的值赋给times j = times * 31 + 30 将times的值乘以31再加30赋给j...
本节说明VBA的基本语法，主要包括变量、常量的定义，if、iif条件语句及其具体的使用场景。工具/原料 Excel软件 方法/步骤 1 一、变量和常量：1、常量、变量的基本语法：Sub fun()Const pi = 3.14 '常量定义格式：Const 常量 =常量值Debug.Print piDim a As Integer '变量定义格式：Dim 变量 AS ...