1、定义一个Range对象。Dim rng As Range 2、引用Range对象 ，假设我们定义了一个工作表对象ws。Set rng = ws.Range("A1:B2")Set rng = ws.Range("C1")Set rng = ws.Range(ws.Cells(1, 1), ws.Cells(3, 3)).Set rng = ws.UsedRangeSet rng = ws.Range("A1").CurrentRegion 3、批注：Set r...
(2)在插入的模块中输入如下代码(可以复制此处代码进行粘贴。能实现颜色求和功能的代码有多种,下方只是相对简单的一种。) Function SumColor(sum_range As Range, ref_rang As Range) Dim x As Range For Each x In sum_range If x.Interior.ColorIndex = ref_rang.Interior.ColorIndex Then SumColor = Applic...
Dim rng1 As Range, rng2 As Range, myMultiAreaRange As Range Worksheets("sheet1").Activate Set rng1 = Range("A1:B2") Set rng2 = Range("C3:D4") Set myMultiAreaRange = Union(rng1, rng2) myMultiAreaRange.Select End Sub 示例说明:可用 Union(range1, range2, ...) 返回多块区域,即...
利用&符号将列号与行号相连接，这与我们在Excel中将两个单元格中的信息连接到一起是同样的原理。Sub test()Dim i As IntegerFor i = 1 To 10Range("A" & i) = 214NextEnd Sub 我们执行更新后的过程，工作表中的A1至A10单元格都会填入我们所赋的值。如果是大量的单元格区域都要输入相同的信息，我们只需...
可用Union(range1, range2, ...) 返回多块区域,即该区域由两个或多个连续的单元格区域所组成。下例创建由单元格区域 A1:B2 和 C3:D4 组合定义的对象,然后选定该定义区域。 Dim r1 As Range, r2 As Range, myMultiAreaRange As RangeWorksheets('sheet1').ActivateSet r1 = Range('A1:B2')Set r2 =...
Dim rng As Range For Each rng In Range("b1:c7") If rng.Value = Target.Value Then rng.Interior.ColorIndex = 34 End If Next End Sub 代码的整体结构是Worksheet_SelectionChange事件。当单元格选择发生改变时,即触发事件将选中单元格传递到target参数。
Dim 声明变量Num 变量名称As 定义变量数据类型Double 数据类型为双精度类型 Dim Cel As Range 声明 Cel 变量，数据类型是单元格选择的范围For Each Cel In CelR 循环遍历CelR函数传递过来的单元格 MySUM = MySUM + Cel.Value 单元格的值累加到 MySQL 中Next Cel 循环遍历结束 End Function 这里是结束函数过程 ...
但是这个方法也有缺陷，就是当我们标记了一个新的黄色单元格时，求和的结果不会改变。所以我们还有方法二：用VBA代码方法 在开发工具，VBA工具中，我们插入一个模块，然后输入一段代码：Function SumColor(sumrange As Range, col As Range)Dim rng As Range For Each rng In sumrange If rng.Interior.ColorIndex...
Range("A1,C1:D2,A6").Select '使用并集的方法,将每个单元格组成一个大的组合选中 Union(Range("A1"), Range("C1:D2"), Range("A6")).Select End Sub Sub 循环隔行选中单元格()Dim rng As Range, x As Integer For x = 2 To 10 Step 2 If x = 2 Then Set rng = Cells(x, 1)Else Se...
Dim val As String '给 val 变量赋值,即"Hello World"val="Hello World"'在A1单元格写入 val 变量存储的数据Range("A1").Value=val 数组 组表示一组同类型的数据的集合,是 VBA 中最重要的概念之一。以下面的代码为例: 代码语言:javascript 代码运行次数:0 ...