EXCEL用VBA实现当某单元格满足指定条件时,打印指定区域?
发布网友
发布时间：2022-04-30 01:30
我来回答
共2个回答
热心网友
时间：2022-06-28 01:49
If Cells(4, 3) <> "" Then
ActiveSheet.PageSetup.PrintArea = "$B$4:$O$23"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If追问感谢，目前可以解决一个区域打印问题，但是如何实现多区域打印呢？也就是表格有多个区域要实现满足非空值则执行打印指定区域的要求？
追答
你直接复制粘贴一堆把单元格改一下不就好了(就加粗的地方有变动)
If [C4] <> "" Then
ActiveSheet.PageSetup.PrintArea = "$B$4:$O$23"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
If [R4] <> "" Then
ActiveSheet.PageSetup.PrintArea = "$Q$4:$AD$23"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
If [C25] <> "" Then
ActiveSheet.PageSetup.PrintArea = "$B$25:$O$44"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
If [R25] <> "" Then
ActiveSheet.PageSetup.PrintArea = "$Q$25:$AD$44"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
热心网友
时间：2022-06-28 01:50
Sub 打印()
If [C4] <> "" Then
Worksheets("Sheet1").PageSetup.PrintArea = "$B$4:$O$23"
Worksheets("Sheet1").PrintOut
End If
End Sub追问感谢，目前可以解决一个区域打印问题，但是如何实现多区域打印呢？也就是表格有多个区域要实现满足非空值则执行打印指定区域的要求？
追答多个区域，是依次打印？
就在END IF
前面继续写 其他区域
Worksheets("Sheet1").PageSetup.PrintArea = "$F$4:$Z$23"
Worksheets("Sheet1").PrintOut
EXCEL用VBA实现当某单元格满足指定条件时,打印指定区域?
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _IgnorePrintAreas:=False End If
在excel中如何用VBA对指定单元格区域打印,求具体代码
方法1：先用PrintArea 设置打印区域，然后再打印。这种设置将会保存到EXCEL文件中。比如：Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5"Worksheets("Sheet1").PrintOut 方法2：直接打印指定区域，而不修改打印区域设置。比如 Worksheets("Sheet1").Range("$A$1:$C$5").PrintOut ...
Excel当一个单元格有内容时,另一个单元格就会出现指定内容,要用VBA...
复制到 数据 表的 vba窗口，即可 Private Sub Worksheet_Change(ByVal Target As Range) 'Selection Dim tr, tc tr = Target.Row tc = Target.Column If tr = 2 And tc >= 1 And tc <= 6 Then x = Range("c65536").End(xlUp).Row Range(Cells(3, "A"), Cells(x, "a")) =...
excel如何用VBA实现搜索某些符合条件的行,并复制到同一个sheet中的指定...
"硬件版本号&型号定位宏")Dim Row, J, I As Integer, outStr() As StringRow = Sheet1.Cells(Sheet1.Rows.Count, 13).End(xlUp).RowReDim outStr(0)With Sheet1 For I = 2 To Row If .Cells(I, 14) = InStrs Then ReDim Preserve outStr(UBound(outStr) + 1) outS...
Excel 怎样用VBA实现自动设定打印区域
例如设置D8:E13为打印区域的VBA语句为：ActiveSheet.PageSetup.PrintArea = "$D$8:$E$13"
请教各位大师帮忙!!!EXCEL用VBA按选定有数据的单元格并按选择区域打印...
我这是自动找到最后一行的，符合你的要求，请试试。Private Sub CommandButton1_Click()Dim row_last As IntegerDim temp1 As IntegerSelection.SpecialCells(xlCellTypeLastCell).Selectflag = FalseDo While flag = False If ActiveCell.Row = 1 Then Exit Do End If Selection.End(xlToLeft...
用Excel地VBA怎么样获取指定区域单元格里面地所有数据
使用for each遍历所选择的单元格即可。如下代码将选择区域的单元格输出在立即窗口。Sub Get_Data()Dim myRange As RangeDim myCell As RangeSet myRange = Application.InputBox("选择区域", Type:=8)For Each myCell In myRangeDebug.Print myCell.ValueNextEnd Sub ...
excel 如何用VBA来实现双击某个单元格(A1)跳转到指定区域(B2:F18),注 ...
试试看下面这段代码：Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Count = 1 And Target.Row = 1 And Target.Column = 1 Then Range(Cells(2, 2), Cells(18, 6)).Select End If End Sub ...
如何用VBA去实现EXCEL的表中找到符合条件的单元格,然后再整行复制到...
Row y = y + 1 .Range(x & ":" & x).Copy Destination:=Sheets(3).Range("A" & y)End If Next End With End If Application.ScreenUpdating = True End Sub 这个代码的功能是在表1的A列输入数值，自动查找表二中对应A列数值然后事先复制到表三。欢迎到Excel Home论坛学习、交流”。
excel vba 如何依次输出某个符合条件的单元格,到另外一张表中:_百度知...
………获得区域cArea、日期dDate、颜色nColor(通过nColor=ActivateCell.Interior.ColorIndex取值)Sheet2.Activate 定位行号nRow Cells(nRow,3).Activate ActiveCell.Value=cArea Cells(nRow,4).Activate ActiveCell.Value=dDate Cells(nRow,5).Activate ActiveCell.Interior.ColorIndex = nColor ...
