Question

如何让下列EXCEL的VBA代码，只在指定三个表格运行

下列代码，只在表格名“提货单”，“销售单”，“记录单”三个表格中运行，麻烦将需要修改的代码贴出来，谢谢

Dim Ra As Range
For Each Ra In Range("c2:c" & Range("C65536").End(xlUp).Row)
If Ra.Offset(0, 1) > Ra Then
Beep
Shell "D:\Program Files\TTP\TTPlayer.exe C:\yinpin.mp3"
Exit For
End If
Next

End Sub

Answer 1

不太明确你的意思，看下面两段代码，第一段是在三个指定表中依次执行这个代码；第二段是只判断当前表格名字是否为指定的表格，才选择是否执行。
第一段
Sub abc()
Dim Ra As Range
For Each Ra In Range("c2:c" & Range("C65536").End(xlUp).Row)
If Ra.Offset(0, 1) > Ra Then
Beep
Shell "D:\Program Files\TTP\TTPlayer.exe C:\yinpin.mp3"
Exit For
End If
Next
End Sub
Sub 调用()
Sheets("提货单").Select
Call abc
Sheets("销售单").Select
Call abc
Sheets("记录单").Select
Call abc
End Sub

第二段
Sub abc()
shi = ActiveSheet.Name
If shi = "提货单" Or shi = "销售单" Or shi = "记录单" Then
Dim Ra As Range
For Each Ra In Range("c2:c" & Range("C65536").End(xlUp).Row)
If Ra.Offset(0, 1) > Ra Then
Beep
Shell "D:\Program Files\TTP\TTPlayer.exe C:\yinpin.mp3"
Exit For
End If
Next
End If
End Sub

追问

我试一下能不能用，再有问题再问你

Answer 2

Dim Ra As Range，arr,r%
arr=array("提货单","销售单","记录单")
for r=lbound(arr) to ubound(arr)
    worksheets(arr(r)).select
     For Each Ra In Range("c2:c" & Range("C65536").End(xlUp).Row)
       If Ra.Offset(0, 1) > Ra Then
           Beep
           Shell "D:\Program Files\TTP\TTPlayer.exe C:\yinpin.mp3"
           Exit For
       End If
   Next
next
End Sub

Answer 3

用工作簿的change事件

追问

能用我上面代码修改后贴出来吗？谢谢