任意选择单个或多个Sheet打印

vistababy

使用Ctrl单击Sheet可以多重打印，但如果忘了取消多选，总会不小心多重编辑，内容面目全非。
是的，这个太惨了。。去年我就有一次，一个文件七八个工作表，全是数据，改sheet1的某一个单元格，没想到所有工作表的同一个单元格同时改，改了差不多10处才发现，后面头大啊。。

jave000

vistababy 发表于 2023-3-30 18:04
使用Ctrl单击Sheet可以多重打印，但如果忘了取消多选，总会不小心多重编辑，内容面目全非。
是的，这个太 ...

是的，当时都懵了，没想到还有这种骚设定。
后来做了VBA按钮打印，就方便多了

vistababy

jave000 发表于 2023-3-31 09:10
是的，当时都懵了，没想到还有这种骚设定。
后来做了VBA按钮打印，就方便多了

但是我发现，如果只是VBA打印后加上ActiveSheet.Select还不足以永远防止类似事故发生，还必须在Workbook_SheetSelectionChange事件中加上上面的代码，只要在任何一个工作表中的单元格点一下，就会只选当前工作表，就不可能出现在已经选择了多个工作表的情况下，在其中一个工作表修改导致所有表同时被改的情况。用不用VBA打印都不会有影响了。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Select
End Sub

vistababy

23楼的方法，如果只是想让某一个xlsx文件起作用，可以改成xlsm文件，将代码放到thisworkbook中。
如果想让任何一个xlsx文件起作用，就要存成一个加载项文件（xlam文件），到C:\Users\用户名\AppData\Roaming\Microsoft\AddIns文件夹并点“加载项”，打上√。或放到别的加载项文件代码里面也行。

jave000

vistababy 发表于 2023-3-31 12:34
23楼的方法，如果只是想让某一个xlsx文件起作用，可以改成xlsm文件，将代码放到thisworkbook中。
如果想让 ...

现在想达到这样的效果，那就完美了
https://club.excelhome.net/forum ... ;extra=#pid11219071