下面的VBA过程将生成从列A到列D的打印区域,而不管你是否更新数据,只要在列A至列D,都将包含在打印区域中。Sub PrintArea() Dim sh As Worksheet Set sh = Sheet1 With sh .PageSetup.PrintArea = _ .Range("A1", .Range("D" & Rows.Count).End(xlUp)).Address...
下面的VBA过程将生成从列A到列D的打印区域,而不管你是否更新数据,只要在列A至列D,都将包含在打印区域中。 代码语言:javascript 代码运行次数:0 SubPrintArea()Dim sh As Worksheet Set sh=Sheet1 With sh.PageSetup.PrintArea=_.Range("A1",.Range("D"&Rows.Count).End(xlUp)).Address End With End Sub ...
当在Excel中设置一个区域为打印区域后,Excel自动定义了一个名称“Print_Area",因而可以通过定义名称的方法来设置打印区域,代码如下: Sub SetPrintArea()Sheet1.Names.Add "Print_Area", Sheet1.Range("B2:G12")End Sub 设置动态打印区域: Sub SetPrintArea()Sheet1.Names.Add "Print_Area", Sheet1.Range("B...
用Names.Add方法。当在Excel中设置一个区域为打印区域后,Excel自动定义了一个名称“Print_Area",因而可以通过定义名称的方法来设置打印区域,代码如下: Sub SetPrintArea() Sheet1.Names.Add "Print_Area", Sheet1.Range("B2:G12") End Sub 设置动态打印区域: Sub SetPrintArea() Sheet1.Names.Add "Print_Are...
按下“Alt+F11”打开VBA编辑器。 在VBA编辑器中选择“插入”菜单下的“模块”选项。 在模块中输入以下代码: Sub SetPrintArea() Dim PrintArea As Range Set PrintArea = Selection ThisWorkbook.ActiveSheet.PageSetup.PrintArea = PrintArea.AddressEnd Sub ...
在Office中使用Excel.RangeAreas是通过Excel VBA编程实现的。Excel.RangeAreas是一个对象,它代表了一个或多个不连续的单元格区域。下面是如何在Office中使用Excel.RangeAreas的步骤: 打开Excel,并按下Alt + F11打开Visual Basic for Applications(VBA)编辑器。 在VBA编辑器中,选择插入菜单,然后选择模块。这将创建一...
如果需要用VBA代码在Excel工作表中设置打印区域，可以用下面的方法。一、设置打印区域 方法一：用PageSetup.PrintArea属性。代码如下：Sub SetPrintArea()Sheet1.PageSetup.PrintArea = "A1:F15"End Sub 上述代码将区域A1:F15设置为打印区域。如果要同时设置多个打印区域，可以将上述代码改为：Sub Set...
下面的VBA过程将生成从列A到列D的打印区域,而不管你是否更新数据,只要在列A至列D,都将包含在打印区域中。Sub PrintArea() Dim sh As Worksheet Set sh = Sheet1 With sh .PageSetup.PrintArea = _ .Range('A1', .Range('D' & Rows.Count).End(xlUp)).Address End WithEnd Sub 上述代码将捕获列D中...
Alt+F11打开VBA代码编辑器,在thisworkbook中写入如下代码后关闭VBA窗口。 Sub fill_color() Application.ScreenUpdating = False '暂停刷新屏幕 For i = 4 To 34 '为数据源的起始和结束行号 ActiveSheet.Shapes(Range("DataMap!A" & i).Value).Fill.ForeColor.RGB = Range(Range("DataMap!C" & i).Value)...
.PrintTitleRows = "$1:$3" ' Set print title rows. .PrintTitleColumns = "$A:$C" ' Set print title columns. .LeftHeader = "" ' Set the left header. ' More commands could appear before the End With. They are not ' shown here in order to keep the example short. ...