怎样使用VBA按条件插入分页符

 时间:2024-11-10 20:13:37

随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA按条件插入分页符?

怎样使用VBA按条件插入分页符

工具/原料

手机

方法/步骤

1、首先在开发工具中打开VBA编辑器

怎样使用VBA按条件插入分页符

2、在单元格区域当中输入一些内容作为例子

怎样使用VBA按条件插入分页符

3、在VBA编辑器中插入模块

怎样使用VBA按条件插入分页符

4、在模块当中输入如下代码,然后运行Sub遇审核二字则插入分页符()DimiAs咯悝滩镞Long,jAsLong,A_rowAsLong,arr,rr惺绅寨瞀Application.ScreenUpdating=False'关闭屏幕更新WithActiveSheet.ResetAllPageBreaks'重新设置指定工作表上的所有分页符.PageSetup.PrintArea=""'设置打印区域为空.PageSetup.PrintTitleRows="$1:$3"'行标题A_row=.Range("a1048576").End(xlUp).Row'a列的最后一行arr=.Range("a1:a"&A_row)'为数组arr赋值Fori=2ToA_rowIfarr(i,1)="审核:"Ori-j>46Then'如果单元格是“审核:”或连续46次没有插入分页符时.HPageBreaks.AddBefore:=.Cells(i+1,1)'插入分页符j=i'记录当前i值EndIfNextEndWithApplication.ScreenUpdating=TrueEndSub

怎样使用VBA按条件插入分页符

5、[5]用快捷键Alt+F8调出运行宏窗口,然后单击“执行”按钮,工作表已按需求遇“审核:”则插入分页符,如图

怎样使用VBA按条件插入分页符

在VBA编程中怎样知道打开的工作薄的数量? 怎样使用VBA将已用区域合并取消且填充单元格? VBA代码给单元格赋值 通过VBA设置excel的最后一行的第n列单元格的值 Excel VBA 如何存放代码?
热门搜索
魔兽剑圣异界纵横漫画 长颈鹿图片卡通 十八禁漫画老师挤奶 傻笑图片 父爱图片