方法/步骤 1 编写绘制边框的程序：'绘制置单元格边框Public Sub unitBorder() With Selection.Borders(xlEdgeLeft) '设置左边框 .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) '设置上边框 .LineStyle = xlCo...
With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub 观察代码,我们发现,宏录制器为设置字体和单元格背景的两段代码都使用了With … En...
With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub 视察代码,我们发现,宏录制器为设置字体和单元格背景的两段代码都使用了With … End With结构,这就是VBA为我们提供的处理对象的行之有效的方法之一。 在...
Selection.Font.ColorIndex = xlAutomatic Selection.Font.TintAndShade = 0 Selection.Font.ThemeFont = xlThemeFontNone End Sub 3)with的作用是什么? 仅仅是为了代替Selection.Font重复书写。 4)with使用语法? With……..End With 2、案例理解:想实现选中某个单元格,单元格整行都变黄色,选中下一个单元格,下一...
With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub 观察代码,我们发现,宏录制器为设置字体和单元格背景的两段代码都使用了With … End With结构,这就是VBA为我们提供的处理对象的有效方法之一。
With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub 观察代码，我们发现，宏录制器为设置字体和单元格背景的两段代码都使用了With … End With结构，这就是VBA为我们提供的处理对象的有效方法之一...
for i=1 to 100 Columns(i).Select With Selection.Interior .ColorIndex = 40 .Pattern = xlSolid End With next i for i=1 to 100 rows(i).Select With Selection.Interior .ColorIndex = 40 .Pattern = xlSolid End With next i
Selection.Font.Bold = True Selection.Font.Italic = True With Selection.Font .Color = -16776961 .TintAndShade = 0 End With End Sub 代码中: Sub SetFontandColor():告诉Excel正在编写一组新的指令。单词Sub表示VBA的下列行是子过程(或子程序)。在计算机术语中...
With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub 观察代码,我们发现,宏录制器为设置字体和单元格背景的两段代码都使用了With … End With结构,这就是VBA为我们提供的处理对象的有效方法之一。
1.With语句 With语句的作用是在用户自定义类型或对象内执行一系列语句。例如,设置某个对象的格式属性,具体示例如下: Sub WithSample() Range("B5:B10").Select '选择需要设置格式的单元格 With Selection.Font '设置单元格的字体 .Name = "宋体" '设置为宋体 ...