在该工作表代码模块中,输入代码: Private Sub Worksheet_Change(ByVal Target As Range)Dim rngToProcess As RangeDim sNewValueSetrngToProcess =Intersect(Target,Range("A1:A10"))IfNotrngToProcessIsNothingThenApplication.EnableE
Dim r1 As Range, r2 As Range,myMultipleRange As Range Set r1 =Sheets("Sheet1").Range("A1:B2") Set r2 =Sheets("Sheet1").Range("C3:D4") Set myMultipleRange = Union(r1, r2) myMultipleRange.Font.Bold = True 使用Areas属性引用选定...
Dim val As String '给 val 变量赋值,即"Hello World"val="Hello World"'在A1单元格写入 val 变量存储的数据Range("A1").Value=val 数组 组表示一组同类型的数据的集合,是 VBA 中最重要的概念之一。以下面的代码为例: 代码语言:javascript 代码运行次数:0 运行 AI代码解释 '创建数组 DimVal(1to4)As St...
set i = Range(“A1”) ‘set,可以将对象赋值给变量 判断变量未赋值 is nothing 数组 代码语言:javascript 代码运行次数:0 运行 AI代码解释 dim arr() '定义数组,不能单独给每个变量赋值,用区域赋值 dim arr(10) '下标从0开始' ReDim [Preserve] arr(1 To j) '数组中不能直接定义变量。需要重定义才能...
Set myRange = Range("A1:C4")myRange.Value = 100 Range("A1").ClearContents Range("b2").Clear MsgBox myRange.Count End Sub 代码截图：代码讲解：1) myRange.Value = 100 这句代码是令A1:C4的单元格值等于100 2）Range("A1").ClearContents 只清除了内容 3）Range("b2").Clear 清除了格式...
Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues '粘贴数值 1 2 3 4 5 6 7 8 9 4.9 设置字符格式 4.9.1设置单元格文本字符串格式 Sub CellCharacter() With Range("A1") .Clear .Value = "Y=X2+1" .Characters(4, 1).Font.Superscript = True '将第4个字符设置为上标 ...
Set myRange = Worksheets("Sheet1").Range("A1:D5") '对Range对象进行操作 myRange.Formula = "=RAND()" myRange.Font.Bold = True End Sub 示例说明:可以设置Range对象变量来引用单元格区域,然后对该变量所代表的单元格区域进行操作。 - - - - - - - - - - - - - - - - - - - - - -...
Set rg = Range("a1") ‘rg是单元格对象 rg = 100 End Sub 4 放数组 Sub t4() Dim arr(1 To 10) As Integer, X As Integer For X = 1 To 10 arr(X) = X Next X End Sub 三、变量的类型和声明 1 变量的类型 详见帮助文件 2 为什么要声明变量 ...
Set myRange = Range("A1:C4") myRange.Value = 100 Range("A1").ClearContents Range("b2").Clear MsgBox myRange.Count End Sub 代码截图: 代码讲解: 1) myRange.Value = 100 这句代码是令A1:C4的单元格值等于100 2)Range("A1").ClearContents 只清除了内容 ...
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...