If Target.Count > 1 Then Exit Sub '改变的单元格大于1个,退出
If Target.Column = 1 Then Call A宏 '改变的单元格在第1列,
If Target.Column = 2 Then Call B宏 '改变的单元格在第1列,
End Sub
Private Sub A宏()
MsgBox "A宏"
End Sub
Private Sub B宏()
MsgBox "B宏"
End Sub
见附件
Private Sub Worksheet_Change(ByVal Target As Range)
If target.column=1 Then Call 宏1
If target.column=2 Then Call 宏2
End Sub
Sub 宏1()
MsgBox "宏1"
End Sub
Sub 宏2()
MsgBox "宏2"
End Sub
If Target.Count = 1 Then
If Target.Column = 1 Then Call 宏1
If Target.Column = 2 Then Call 宏2
End If
End Sub
Sub 宏1()
MsgBox "宏1"
End Sub
Sub 宏2()
MsgBox "宏2"
End Sub
On Error Resume Next
With Target
If .Count = 1 Then
If .Column = 1 Then
{执行A宏}
End If
If .Column = 2 Then
{执行B宏}
End If
End If
End With
End Sub
希望采纳！
if target.column=2 then B宏
excel中某一指定单元格中输入数据回车后自动执行宏
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '选定单元格改变时,运行此段程序.If Target.Count > 1 Then Exit Sub '改变的单元格大于1个,退出If Target.Column = 1 Then Call A宏 '改变的单元格在第1列,If Target.Column = 2 Then Call B宏 '改变的单元格在第1...
excel如何利用宏程序在一个单元格输入特定数字后,自动在另外几个单元...
CTRL+SHIFT+回车 然后下拉
Excel 怎样在某一单元格的数据改变后自动执行一个宏
1、先选中要转换格式的一个单元格，记住一定要先选中它，然后点击录制宏。2、打开录制宏对话框，你可以给宏起一个名字，帮助你以后使用的时候方便，将其保存在个人宏中，然后点击确定按钮 3、接下来我们几开始录制宏了，右键单击已经被选中的单元格，在右键菜单中选择：单元格格式 4、选择一批想要转换...
EXCEL VBA,单元格H9数值修改后按回车键,自动执行指定宏
代码如下：Private Sub Worksheet_Change(ByVal Target As Range)If Target.Row = 9 And Target.Column = 8 Then Call 保存 End If End Sub
Excel在单元格按回车触发宏问题
把你写的代码放在正面这个过程里，表里的单元格一变动（完成输入，即移开光标，如回车、点击其他单元格等），代码就被执行。Private Sub Worksheet_Change(ByVal Target As Range)End Sub
Excel表格在一个单元格输入任意内容另一个单元格自动填我设定的内容怎样...
如字体、颜色等，以使其更符合你的要求。3. **测试**： 在A1单元格中输入任意内容，观察B1单元格是否自动显示了“已设定内容”。这种方法简单直观，不需要使用复杂的VBA宏或数据验证功能，适用于大多数基本需求。如果需要更复杂的逻辑判断或动态内容填充，可以考虑使用VBA宏或Excel的“数据验证”...
如何实现Excel表格中在一个单元格输入任意内容后,另一个单元格自动填充...
在Excel中，IF函数可以用来进行条件判断，并根据判断结果返回不同的值。如果你想在A1单元格输入任意内容后，B1单元格自动填充你设定的内容，可以在B1单元格中输入一个IF公式。但需要注意的是，IF函数通常用于基于某个条件来改变输出的内容，如果你只是想要在A1有输入时B1显示固定内容，可能需要结合其他函数...
怎样使excel中某个单元格等于一定数值后,excel会自动启用一个宏。
把下面代码复制到你这个单元格所在的表就好了。记得是这个单元格所在的表，不要复制到模块里面去了。Private Sub Worksheet_Change(ByVal Target As Range)If Range("A1") = 1 Then Application.EnableEvents = False Range("B1").FormulaR1C1 = "1"Range("B2").FormulaR1C1 = "1"Range("B3...
EXCEl 如何判断指定单元格内数据改动后自动运行宏代码
用IF语句判断E3的值，Private Sub Worksheet_Change(ByVal Target As Range)If [e3].value<>"" then ActiveSheet.Name = [e3]endif End Sub
Excel表格在一个单元格输入任意内容,另一个单元格自动填我设定的内容...
在Excel表格中，可以通过设置公式来实现一个单元格输入任意内容后，另一个单元格自动填充设定的内容。具体实现方法有多种，以下是一种简单且常用的方式：首先，假设我们希望在A1单元格中输入任意内容，B1单元格则根据A1的内容自动填充我们设定的内容。如果B1需要显示的是A1的内容，我们可以直接在B1单元格中...
