在excel中如何把奇数偶数行弄成不同的颜色,谢谢了!
3个回答
展开全部
Sub
PrintOddPage()
Dim
TotalPg
As
Integer
TotalPg
=
ExecuteExcel4Macro("GET.DOCUMENT(50)")
For
i
=
1
To
TotalPg
Step
2
ActiveSheet.PrintOut
From:=i,
To:=i
Next
End
Sub
这个是宏。。是打印奇数页的。。。把For
i
=
1
To
TotalPg
Step
2改为For
i
=
2
To
TotalPg
Step
2就变为打印偶数页了。。。
PrintOddPage()
Dim
TotalPg
As
Integer
TotalPg
=
ExecuteExcel4Macro("GET.DOCUMENT(50)")
For
i
=
1
To
TotalPg
Step
2
ActiveSheet.PrintOut
From:=i,
To:=i
Next
End
Sub
这个是宏。。是打印奇数页的。。。把For
i
=
1
To
TotalPg
Step
2改为For
i
=
2
To
TotalPg
Step
2就变为打印偶数页了。。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
全选-格式-条件格式-公式
=mod(row(),2)
设成一个颜色
=mod(row(),2)-1
设成一个颜色
=mod(row(),2)
设成一个颜色
=mod(row(),2)-1
设成一个颜色
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询