Excel VBA教程:处理三维区域

如果要处理若干工作表上相同位置的单元格区域,可用 Array函数选定两张或多张工作表。下例设置三维单元格区域的边框格式。


Sub FormatSheets()
    Sheets(Array("Sheet2", "Sheet3", "Sheet5")).Select
    Range("A1:H1").Select
    Selection.Borders(xlBottom).LineStyle = xlDouble
End Sub

下例应用FillAcrossSheets方法,在活动工作簿中,将 Sheet2 上的单元格区域的格式和任何数据复制到该工作簿中所有工作表上的相应区域中。


Sub FillAll()
    Worksheets("Sheet2").Range("A1:H1") _
        .Borders(xlBottom).LineStyle = xlDouble
    Worksheets.FillAcrossSheets (Worksheets("Sheet2") _
        .Range("A1:H1"))
End Sub

上页:Excel VBA教程:工作簿对象事件 下页:Excel VBA教程:处理图形(绘图对象)

Excel VBA教程:处理三维区域

Excel VBA教程:处理图形(绘图对象) Excel VBA教程:处理活动单元格
Excel VBA教程:Worksheet对象事件 Excel VBA教程:页眉和页脚的格式代码
Excel VBA教程:ActiveX 控件 Excel VBA教程:“帮助”主题不可用
Excel VBA教程:“帮助”主题不可用 Excel VBA教程:“帮助”主题不可用
Excel VBA教程:“帮助”主题不可用 Excel VBA教程:单元格错误值
Excel VBA教程:内置对话框参数列表 Excel VBA教程:Hidden属性
Excel VBA教程:与语言相关的属性、方法和函数 Excel VBA教程:可用于 Visual Basic 的工作表函数列表
Excel VBA教程:新的事件 Excel VBA教程:新的方法(按字母顺序列出)
Excel VBA教程:新的方法(按对象列出) Excel VBA教程:新的对象
Excel VBA教程:新的属性(按字母顺序列出) Excel VBA教程:新的属性(按对象排序)
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号