请教老师一个问题

wslyy

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
k = ActiveSheet.Range("H10").Value
If k > 0 And k < 8 Then ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
If k = 8 Then Call 另存
If InStr(k, "★") > 0 Then Call FH打印
Application.EnableEvents = True
End Sub

老师们,有这段代码是放在工作表里的,可以运行,现在想的想法是:1、放在工作簿里运行,不必每个工作表都有这段代码2、而且想把"财务"、"采购"这两个表排除在外,其他表可以运行,该怎么修改呢?

longwin

参考下图改一下看：

wslyy

longwin 发表于 2024-5-16 10:52
参考下图改一下看：

老师，要把财务和采购两个表排除掉该怎么改？要排除的表表有点多，有8个，以后还会增加，老师，这是一个汇总的表，麻烦老师了

longwin

wslyy 发表于 2024-5-16 11:20
老师，要把财务和采购两个表排除掉该怎么改？要排除的表表有点多，有8个，以后还会增加，老师，这是一个 ...

wslyy

longwin 发表于 2024-5-16 11:43

按照老师的方法成功啦！谢谢老师热心指点！要向老师学习！

wslyy

longwin 发表于 2024-5-16 11:43

Private Sub Workbook_Sheetchange(ByVal Sh As Object, ByVal Target As Range)
ts = "财务,采购,工程部"
If InStr(1, ts, Sh.Name) = 0 Then
         j = Sh.Cells(10, 8).Value
         If j > 0 And j < 8 Then Sh.UsedRange.Value = Sh.UsedRange.Value
         If j = 8 Then Call 另存
         If InStr(j, "★") > 0 Then Call FH打印
End If
End Sub
老师，在H10输入5的时候，提示  If j > 0 And j < 8 Then Sh.UsedRange.Value = Sh.UsedRange.Value这句有问题，而且excel提示要重启

longwin

wslyy 发表于 2024-5-17 09:22
Private Sub Workbook_Sheetchange(ByVal Sh As Object, ByVal Target As Range)
ts = "财务,采购,工程 ...

这句你要实现一个怎样的功能？没太看明白。
Sh.UsedRange.Value = Sh.UsedRange.Value ？
不能这样写吧

wslyy

longwin 发表于 2024-5-17 09:44
这句你要实现一个怎样的功能？没太看明白。
Sh.UsedRange.Value = Sh.UsedRange.Value ？
不能这样写吧

老师，我就是想去掉表格里的公式，全部换成数值

wslyy

longwin 发表于 2024-5-17 09:44
这句你要实现一个怎样的功能？没太看明白。
Sh.UsedRange.Value = Sh.UsedRange.Value ？
不能这样写吧

老师，改怎么改才能实现呢？

longwin

选定区域复制，然后只粘贴数值：你试试行不行
Sh.UsedRange.copy
Sh.UsedRange..PasteSpecial Paste:=xlPasteValues