如何让下列EXCEL的VBA代码，只在指定三个表格运行 如何让下列EXCEL的VBA代码，只在名为提示单个表格运行,

不太明确你的意思，看下面两段代码，第一段是在三个指定表中依次执行这个代码；第二段是只判断当前表格名字是否为指定的表格，才选择是否执行。
第一段
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

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

用工作簿的change事件

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

导出vba代码：
点工作表标签——右键——查看代码——出现《vba》窗口——选代码——复制……

For Each Ra In Range("c2:c" & Range("C65536").End(xlUp).Row) 修改为：
For Each Ra In worksheets("提示").Range("c2:c" & worksheets("提示").Range("C65536").End(xlUp).Row)

EXCEL大神知道怎么用VBA代码吗?
答：vba没有这种触发事件，只能借助SelectionChange事件。插入图片后需点击其它任意单元格才能触发调整。Dim c Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim p As Shape For Each p In ActiveSheet.Shapes If p.Type = 13 Then a = p.TopLeftCell.Address If p.TopLeftCell.Address ...

excel vba常用代码
答：在VBA中,可用Dim、Private、Public和Static这4个关键字来声明变量,使用不同关键字声明的变量其含义也有所不同。 [5] ◆ 利用Dim关键字声明变量:Dim关键字主要用来在内存中分配一块空间,并为该空间命名,是VBA中声明变量最常用的关键字。使用Dim关键字声明的变量只能在当前过程或模块中使用。 [5] ◆ 利用Priva...

如何让EXCEL文件只能在某台计算机上打开的VBA代码
答：close事件：隐藏开发工具，禁用vbe编辑器快捷键，禁用工作表工具栏，新建一个空白表，隐藏除空白表以外所有工作表 open事件：匹配主机名，正确则恢复工作表显示，恢复工作表工具栏

帮忙看看这个excel的功能用vba怎么实现!紧急!
答：代码如下：Sub aa()Dim i, j As Integer Dim s As String For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 s = WorksheetFunction.Substitute(Cells(i, 3), "-", "")k = Len(Cells(i, 3)) - Len(s)For j = k + 1 To 1 Step -1 Rows(i + 1).Select Sele...

EXCEL大神知道怎么用VBA代码吗?
答：Sub test()Dim arr As Variant Dim i, n As Integer Dim wk As Workbook Dim sh As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next For Each sh In Worksheets If sh.Name = "原始数据" Then GoTo line1 End If n = n + 1 Next She...

Excel VBA,VBA程序代码改变图片内容
答：领导签字图片随机生成。核心的代码不会写,这是一个VBA程序问题。假如现在有两幅不同图片,图片1,图片2,要求用VBA代码改变图片1的内容为图片看清问题了噢,只求一行VBA程序代码,其他说再多是没用的~可能我没有描述清楚噢,图片1,图片2是已经存在Excel的页面中的,而不是文件夹下的。 展开 ...

VBA 让Excel在指定的时间关闭重新打开,求代码?
答：Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.EnableEvents = True Application.DisplayAlerts = True Application.ScreenUpdating = True Application.OnTime

Excel写个VBA谁会?
答：以下是实现该功能的VBA代码：Sub FindDuplicate()Dim i As Long, j As Long, k As Long Dim rng1 As Range, rng2 As Range Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") '指定操作的工作表 For i = 5 To 20 Step 4 '循环遍历每4行数据 Set rng1 = ws.Range("A"...

以下为 excel vba汇总代码,谁能帮我注释!!
答：If Not d.Exists(arr(i, 1)) Then ‘建一个判断工程D的数组存在时则进行以下代码 m = m + 1: d(arr(i, 1)) = m ’实现数据第增 For j = 1 To 12 ‘建立一个从1到12的循环 brr(m, j) = arr(i, j) ’实现数据交换 Next ‘回归循环 Else: j = 0 ’执行不满上一条...

EXCEL 怎么使用VBA代码写将当前选定单元格内容另存为指定单元格的代码...
答：不知道你具体遇到了什么问题，你写的术语有点混淆，看不很明白。系统进行另存为的肯定是“工作簿”，也就是一个EXCEL文件成为一个“工作簿”，里面可以包含一个或者多个“工作表”，“工作表”里面有许多单元格。去掉公式、保留数值和格式的方法：Sheet1.UsedRange.Value = Sheet1.UsedRange.Value 另存...