公司建设网站计入什么分录百度识图搜索引擎
Excel VBA：自动调整打印区域的实用代码解析
在Excel中，我们经常需要调整打印区域。今天介绍一段VBA代码，它可以根据C列的内容自动调整打印区域。
Dim ws As Worksheet
Dim lastRow As Long
Dim r As Long' 设置当前工作表
Set ws = ActiveSheet' 找到C列最后一个非空单元格的行号
lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row' 从后往前查找C列中第一个非0的值
For r = lastRow To 1 Step -1If ws.Cells(r, "C").Value <> 0 ThenlastRow = rExit ForEnd If
Next r' 设置打印区域（从C1到Y列的最后一行）
ws.PageSetup.PrintArea = "$C$1:$Y$" & lastRowIf Err.Number <> 0 ThenMsgBox "设置打印区域时出错: " & Err.Description
ElseMsgBox "打印区域已成功调整为 $C$1:$Y$" & lastRow
End IfOn Error GoTo 0
1. 基础结构和错误处理
Sub AdjustPrintArea()On Error Resume NextDim ws As WorksheetDim lastRow As LongDim r As Long
Sub用于声明一个子程序，AdjustPrintArea()是程序名On Error Resume Next是错误处理语句，允许程序在出错时继续执行Dim用于声明变量ws As Worksheet声明工作表对象Long用于声明大整数类型变量
2. 工作表引用
Set ws = ActiveSheet
Set用于给对象变量赋值ActiveSheet表示当前活动的工作表- 这行代码创建了对当前工作表的引用
3. 查找最后一行
lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
这是一个常用的Excel VBA技巧：
ws.Rows.Count获取工作表的最大行数End(xlUp)从底部向上查找第一个非空单元格.Row获取行号
4. 遍历查找非零值
For r = lastRow To 1 Step -1If ws.Cells(r, "C").Value <> 0 ThenlastRow = rExit ForEnd If
Next r
For...To...Step是VBA的循环结构Step -1表示倒序遍历
If...Then是条件判断语句Exit For用于提前退出循环Cells(r, "C")引用特定单元格.Value获取单元格的值
5. 设置打印区域
ws.PageSetup.PrintArea = "$C$1:$Y$" & lastRow
PageSetup.PrintArea用于设置打印区域&是字符串连接符$表示绝对引用- 这行代码将打印区域设置为C1到Y列的最后一个非零行
6. 结果反馈
If Err.Number <> 0 ThenMsgBox "设置打印区域时出错: " & Err.Description
ElseMsgBox "打印区域已成功调整为 $C$1:$Y$" & lastRow
End IfOn Error GoTo 0
Err.Number获取错误代码MsgBox显示消息框On Error GoTo 0恢复正常的错误处理
使用技巧
- 该代码可以放在标准模块中
- 可以通过快捷键或按钮调用
- 适用于需要经常调整打印区域的场景
注意事项
- 代码只检查C列的值
- 打印区域的宽度固定为C到Y列
- 如果C列全为0，打印区域将只包含第一行