Decorative image frame

哈哈哈

要饱儿根新 | 会点Excel | 在学vba

哈哈哈

工作表逐行操作打印

EH论坛中,有题主问如何实现自工作表第二行起逐行背景加灰,并一式打印三份。

1
2
3
4
5
6
7
Sub test()
For I = 2 To Range("A1").CurrentRegion.Rows.Count
Range("A" & I & ":" & "C" & I).Interior.ThemeColor = xlThemeColorDark2
Application.ActiveSheet.PrintOut COPIES:=3
Range("A" & I & ":" & "C" & I).Interior.ThemeColor = xlThemeColorDark1
Next
End Sub

琴瑟在御,莫不静好。

愿你免为尘杂所侵
愿你获得永世的安宁
愿你修得一颗平等心
不贪爱不嗔恨
喜悦地活在当下

愿你三冬暖,愿你春不寒
愿你天黑有灯,下雨有伞
愿你一路上,有良人相伴

琴瑟在御,莫不静好。