excel批量设置单元格颜色(excel批量设置打印区域)

霍馥菁
导读 大家好,乐天来为大家解答以下的问题,关于excel批量设置单元格颜色,excel批量设置打印区域这个很多人还不知道,现在让我们一起来看看吧!1

大家好,乐天来为大家解答以下的问题,关于excel批量设置单元格颜色,excel批量设置打印区域这个很多人还不知道,现在让我们一起来看看吧!

1、第一步:编写自动设置打印区域的宏。

2、代码如下:Sub 打印区域自动选择()Dim I1, J1, I2, J2 As IntegerDim mYrange As RangeI1 = ActiveCell.RowJ1 = ActiveCell.ColumnI2 = I1J2 = J1Do While Cells(I2, J1) <> ""I2 = I2 + 1LoopI2 = I2 - 1Do While Cells(I1, J2) <> ""J2 = J2 + 1LoopJ2 = J2 - 1Set mYrange = Range(Cells(I1, J1), Cells(I2, J2))ActiveSheet.PageSetup.PrintArea = mYrange.AddressEnd Sub注:该代码运行前需将选择当前单元格为起始单元格,即行号、列号为最小。

3、程序是从这个单元格开始向下和向右查找非空单元格,然后得到需要设置打印区域的范围。

4、第二步:设置打印区域A1:C12.如图:第三步:选择单元格A1后运行宏。

5、如图:运行后,结果如图:。

本文分享完毕,希望对大家有所帮助。

标签:

免责声明:本文由用户上传,如有侵权请联系删除!