求助帮忙写一组VBA代码

xiaofaerie

求助帮忙写一组VBA代码，如果打印列打勾，就要求打印相对应的工作表，否则就不用打印

于箱长

哥，这个不需要上个附件么

sdytsxd991122

最好有附件。

xiaofaerie

于箱长 发表于 2023-6-16 11:09
哥，这个不需要上个附件么

传不了附件

xiaofaerie

附件已上传

xiaofaerie

xiaofaerie 发表于 2023-6-16 12:33
传不了附件

上传附件了

xiaofaerie

sdytsxd991122 发表于 2023-6-16 11:13
最好有附件。

上传了，原来要压缩才可以上传

xiaofaerie

于箱长 发表于 2023-6-16 11:09
哥，这个不需要上个附件么

上传了，原来要压缩才可以上传

cidanji

挨个判断下就可以了

1. Sub 勾选打印()
   
2.     For i = 2 To Cells(Rows.Count, 3).End(3).Row
   
3.         If Cells(i, 4) = "√" Then Sheets(Cells(i, 3) & "").PrintOut
   
4.     Next
   
5. End Sub

复制代码

于箱长

xiaofaerie 发表于 2023-6-16 12:37
上传附件了

我没测试，猜的