.PatternTintAndShade = 0 End With End Sub 视察代码,我们发现,宏录制器为设置字体和单元格背景的两段代码都使用了With … End With结构,这就是VBA为我们提供的处理对象的行之有效的方法之一。 在这里,宏录制器自动优化了代码,在With … End With结构中对同一个对象履行多项操作。当需要对某个对象履行多项操作...
With 结构由 With 和 End With 两个语句构成,对象的属性和方法都写在两者之间。基本语法如下: With [对象] With [对象] .[属性] = [数据] .[方法] '其他属性和方法 End With With结构里,对象的属性和方法均有点 (.)符号开始,后接对象的属性名和方法名。 With 结构实例 现在看一个实际的例子,需要将工...
如果不用 With 结构,代码如下: 代码语言:javascript 复制 SubMyCode()Worksheets("Sheet1").Name="新名称"Worksheets("Sheet1").Tab.ThemeColor=xlThemeColorLight1Worksheets("Sheet1").Visible=xlSheetHidden End Sub 可以看到,每个语句都重复写 Worksheets(“Sheet1”) 部分。 使用With 结构,可以避免重复写同...
代码的解析说明：上述代码过程将执行选择区域的字体设置，.Name 是字体的设置，.Size将字号的设置。 VBA过程代码24：With 语句 Sub MyNZ()With 对象 .描述 .方法 End With END SUB 代码的解析说明：上述代码过程运用With可以使代码简洁，With和End With要成对出现，中间执行的是With后跟的对象的描述或者方法，wit...
With语句也可以嵌套。 下面的示例将公式插入单元格 A1 中,然后设置字体的格式。 VB SubMyInput()WithWorkbooks("Book1").Worksheets("Sheet1").Cells(1,1) .Formula ="=SQRT(50)"With.Font .Name ="Arial".Bold =True.Size =8EndWithEndWithEndSub ...
(1)With的用法 With rege .global=true .pattern="\d" End With (2)for Each rng in [a2:a6] 在这里一定要有Each 4.正则表达式中的限定符。(量词) 量词是对原字符的一种限定。 ? 匹配前面的子表达式零次或一次(有没有都行,有的话只能有一次) ...
'ApplyDataLabels方法使图表显示数据标签和数据点的值③ myChart.Chart.ApplyDataLabels ShowValue:=True '设置图表标题的文字 myChart.Chart.HasTitle = True myChart.Chart.ChartTitle.Text = "我的图表"With myChart.Chart.ChartTitle.Font .Size = 20 .ColorIndex = 3 .Name = "华文新魏"End With '设置...
End With:结束With 语句。 End Sub:整个宏的结束语 编辑录制的代码 在上一节,我们录制了一个宏并查看了代码,代码中有两句实际上并不起作用。哪两句? 现在,在宏中作一个修改,删除多余行,直到和下面代码相同: Sub 改变颜色() ‘ ‘ 改变颜色 Macro ‘ xw 记录的宏 2000-6-10 ‘ ‘ With Selection.Interi...
End With 引用参考:(VBA) 使用 With 语句 | Microsoft Learn Goto语句 Goto语句是一个无条件跳转语句,它可以使程序的执行指针,转移到任意一条语句上。 语法格式:Goto Line_tag,其中的Line_tag是一个行标志或行号。行标志的名称由编程者设定,以冒号“:”结束。在一个过程中可以使用许多行标志,但每一个行标志必...
End Sub 将来会十分熟悉这种代码,虽然现在它们看上去像一种奇怪的外语。学习VBA或编程语言在某种程度上比较像在学习一种外语。 Sub 改变颜色():这是宏的名称。 中间的以” ‘”开头的五行称为”注释”,它在录制宏时自动产生。 以With 开头到End With 结束的结构是With结构语句,这段语句是宏的主要部分。注意单...