如何让sheet页面的vba代码用在整个文件？

zxx82

请教老师，一个工作表事件代码，希望用在整个文件上。按照如下方法无效，请教问题在哪里？

工作表事件代码如下：



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows().Interior.ColorIndex = 0
x = ActiveCell.Row
Rows(x).Interior.ColorIndex = 19
y = ActiveCell.Column
Columns(y).Interior.ColorIndex = 19
End Sub




套用Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)，好像不行。

蓝桥玄霜

应该用Workbook_SheetSelectionChange这个事件。

zxx82

谢谢大佬！！已解决。劳烦在问问，我试着另存为xlam文件，想加载后以后每个文件可以使用这个代码，但是在Excel加载项里面勾选确定后，另打开其他文件，没有效果，问题又在哪里呢？发现新开文件的thisworkbook里面是空的？

zpy2

zxx82 发表于 2023-1-1 12:40
谢谢大佬！！已解决。劳烦在问问，我试着另存为xlam文件，想加载后以后每个文件可以使用这个代码，但是在Ex ...

想加载后以后每个文件可以使用这个代码

https://club.excelhome.net/forum.php?mod=viewthread&tid=1489704&mobile&_dsign=6ae0c5a1

是不是类似这种？

可以搜索一下 类 模块。

zxx82

先感谢大佬解答再看！有问题再问