怎么实现EXCEL不同单元格内容变化执行不同的宏？

比如发现A1:A5单元格内容变化就执行宏1
比如发现A6:A10单元格内容变化就执行宏2
VBA里要怎么写啊，谢谢！

举报该问题

第1个回答 2023-10-14

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub '多于1个单元格时直接退出sub
If Not Intersect(Target, Range("A1:A5")) Is Nothing Then
Call 宏1
ElseIf Not Intersect(Target, Range("A6:A10")) Is Nothing Then
Call 宏2
End If
End Sub

相似回答

Excel根据单元格内容执行指定宏代码?答：在VBA编辑器中，右键点击你的工作簿名称，选择“插入” -> “模块”。编写代码：假设你想要检查A1单元格的内容，并根据其内容执行不同的宏。以下是一个简单的示例：vba 复制 Sub CheckAndRunMacro()Dim cellContent As String cellContent = ThisWorkbook.Sheets("Sheet1").Range("A1").Value If ce...

在excel中,单元格数据是通过公式计算得到的,如何根据该值的大小变化自动...答：再写一个宏，就OK了。Sub test() If Range("A3")=1 Call 宏1 Else If Range("A3")=2 Call 宏2 Else If Range("A3")=3 Call 宏3 End If End Sub

Excel中的“宏”怎么用?答：1)选择任何一个单元格,比如A3。 2)选择“工具”—“宏”—“宏”,显示“宏”对话框。 3)选择“改变颜色”,选择“执行”,则A3单元格的颜色变为红色。试着选择其它单元格和几个单元格组成的区域,然后再执行宏,以便加深印象。 1.5 查看录制的代码到底是什么在控制EXCEL的运行呢?你可能有些疑惑.好,让我们看看...

1、excel中如何让控件指定多个宏?或者说每操作一次,执行不同的命令...答：1、先判断指定的选区有没有颜色 if 有 then 执行清除颜色 ELSE 添加颜色 endif 2.按ctrl+ 右键？？？3.对所有区域循环查找黄色的单元格，一个一个设定过去，这个我没做过 4.指定一个全体的宏把需要切换的宏做成不同函数在全体的宏里面对条件做判定并调用相应的宏 ...

excel中某个单元格(例如B18)在发生一个特定的变化的时候执行一个自定义...答：Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$12" Then If IsNumeric(Target.Value) = False Then MsgBox "你输入的不是数字": Exit Sub If Target.Value >= 0 And Target.Value <= 14 Then Call 宏3 End IfEnd Sub用单元格事件呀 ...

excel两张表两个单元格显示相同信息修改其中任意一个单元格内容 另一...答：将表格保存成.xlsm格式，打开自动启用宏，按Alt+F11进入VBA编辑页面依次右键sheet1和sheet2查看代码，编写代码 sheet1:Private Sub Worksheet_Change(ByVal Target As Range)If Sheets(2).Cells(1, 1) <> Sheets(1).Cells(1, 1) Then Sheets(2).Cells(1, 1) = Sheets(1).Cells(1, 1)En...

大家正在搜

合并单元格后怎么调行高宏怎么给单元格指定宏 excel宏的功能在单元格内输入宏如何执行下一个单元格单元格不能合并怎么解决有合并的单元格怎么排序合并单元格的宏 excel宏获取单元格的值 excel宏单元格变量