视察代码,我们发现,宏录制器为设置字体和单元格背景的两段代码都使用了With … End With结构,这就是VBA为我们提供的处理对象的行之有效的方法之一。 在这里,宏录制器自动优化了代码,在With … End With结构中对同一个对象履行多项操作。当需要对某个对象履行多项操作时(举例来看,为同一对象的多个属性赋值),使用...
With 结构由 With 和 End With 两个语句构成,对象的属性和方法都写在两者之间。基本语法如下: With [对象] With [对象] .[属性] = [数据] .[方法] '其他属性和方法 End With With结构里,对象的属性和方法均有点 (.)符号开始,后接对象的属性名和方法名。 With 结构实例 现在看一个实际的例子,需要将工...
i变量的初始值是 1,根据While后的条件,只要i变量小于等于 10,后续的代码就可以一直循环执行。 这里为了演示使用了Do While循环,实际情况下,这种求和问题,使用For循环更简洁。 With 结构语法 With结构由With和End With两个语句构成,对象的属性和方法都写在两者之间。基本语法如下: 代码语言:javascript 复制 With[对象...
代码的解析说明：上述代码过程将执行选择区域的字体设置，.Name 是字体的设置，.Size将字号的设置。 VBA过程代码24：With 语句 Sub MyNZ()With 对象 .描述 .方法 End With END SUB 代码的解析说明：上述代码过程运用With可以使代码简洁，With和End With要成对出现，中间执行的是With后跟的对象的描述或者方法，wit...
with <对象> [语句代码] end with 结构相对简单,下面我们就将上节字体属性代码用with语句来修改如下: 代码中间所有属性的对象worksheets(1).range("b2").font 单独列出来,然后另起一行。加上英文逗号和属性,如.name等,代码如下: Sub test() With Worksheets(1).Range("b2").Font ...
With语句也可以嵌套。 下面的示例将公式插入单元格 A1 中,然后设置字体的格式。 VB SubMyInput()WithWorkbooks("Book1").Worksheets("Sheet1").Cells(1,1) .Formula ="=SQRT(50)"With.Font .Name ="Arial".Bold =True.Size =8EndWithEndWithEndSub ...
End With 引用参考:(VBA) 使用 With 语句 | Microsoft Learn Goto语句 Goto语句是一个无条件跳转语句,它可以使程序的执行指针,转移到任意一条语句上。 语法格式:Goto Line_tag,其中的Line_tag是一个行标志或行号。行标志的名称由编程者设定,以冒号“:”结束。在一个过程中可以使用许多行标志,但每一个行标志必...
With [对象] .[属性] = [数据] .[方法] '其他属性和方法 End With With结构里,对象的属性和方法均有点 (.)符号开始,后接对象的属性名和方法名。 With 结构实例 现在看一个实际的例子,需要将工作簿中 Sheet1 工作表设置新名称,然后设置标签颜色为黑色,最后隐藏工作表。
'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 End Sub 完成后,在工作表中试验一下。你会发现结果和修改前的状况一样。在With 语句前加入一行: Range("A5").Select 试着运行该宏,则无论开始选择哪个单元格,宏运行结果都是使A5单元格变红. 现在可以看到,编辑录制的宏同样非常简单。需要编辑宏是因为以下三个方面的原因。一:在录制中出错而不得不...