.PatternTintAndShade = 0 End With End Sub 观察代码,我们发现,宏录制器为设置字体和单元格背景的两段代码都使用了With … End With结构,这就是VBA为我们提供的处理对象的有效方法之一。 在这里,宏录制器自动优化了代码,在With … End With结构中对同一个对象执行多项操作。当需要对某个对象执行多项操作时(例...
With结构由With和End With两个语句构成，对象的属性和方法都写在两者之间。基本语法如下：With [对象].[属性] = [数据].[方法]'其他属性和方法 End With With结构里，对象的属性和方法均由点 (.)符号开始，后接对象的属性名和方法名。With 结构实例 现在看一个实际的例子，需要将工作簿中 Sheet1 工作表设置...
观察代码,我们发现,宏录制器为设置字体和单元格背景的两段代码都使用了With … End With结构,这就是VBA为我们提供的处理对象的有效方法之一。 在这里,宏录制器自动优化了代码,在With … End With结构中对同一个对象执行多项操作。当需要对某...
视察代码,我们发现,宏录制器为设置字体和单元格背景的两段代码都使用了With … End With结构,这就是VBA为我们提供的处理对象的行之有效的方法之一。 在这里,宏录制器自动优化了代码,在With … End With结构中对同一个对象履行多项操作。当需要对某个对象履行多项操作时(举例来看,为同一对象的多个属性赋值),使用...
If you are going to perform several different actions on the same object use the With ... End With. This enables you to perform multiple operations on a single object. After an object is assigned to a variable VBA can access it more quickly than it can a lengthy reference that has to ...
With~对象引用> <语句1> End With 例如,要改变一个对象的多个属性,可在With控制结构中加上属性的赋值语句,只需引用对象一次而不必在每个属性赋值时都引用它。例如: With MyLabel ’给MyLabel对象的多个属性赋值 .Height=2000 .Width=2000 .Caption=\"This is MyLabel\" End With 注:由于程序进入With块后,...
"秒"End Sub 代码解析：MyWithSta过程在单元格填充时使用With语句来引用工作表对象从而获得较快的运行速度。运行WithSta过程，消息框显示两种方法的运行时间，可以看出使用With语句来引用工作表对象的运行速度较快.代码窗口：运行窗口：今日内容回向：1 今日讲的优化代码是什么方式？2 with语句是如何能够优化代码呢？
这样需要写很多对象（sheet5），不但看起来不美观，还过多地引用对象，会造成程序缓慢。End...End With结构正适合处理这个问题，在运用此结构的时候，记住，有End开头，必然有End With结尾。上面代码改写成With结构更加舒服，但请记得，那个 “点”，range前面的 ' . '不要写漏。假如第一个range('a1')...
在VBA 中,With 结构用于组合同一个对象的多个属性和方法,避免重复写同一个对象名,提高编程和运行效率。 With 结构由 With 和 End With 两个语句构成,对象的属性和方法都写在两者之间。基本语法如下: With[对象] .[属性] = [数据] .[方法]'其他属性和方法EndWith ...
With MyLabel’给MyLabel对象的多个属性赋值 .Height=2000 .Width=2000 .Caption=\"This is MyLabel\" End With 注:由于程序进入With块后,对象就不能改变了,因此不能用一个With语句来设置多个不同的对象。可将一个With块放在另一个之中,产生嵌套的With语句。但在内层的With块中,要使用完整的对象引用来指出在...