UC知道指定单元格调用宏
来源：百度知道 编辑：UC知道 时间：2024/06/07 20:05:46
请帮我看一看吧！！当A1条件满足时，在B1调用宏，当A2满足条件时，在B2调用宏，当A3满足条件时，在B3调用宏，我写了一个循环A1-A3的宏，但是程序运行结果，全在第一行，不能换行，指定不了位置，请问是怎么回事，有高手愿意回答的，我可以把代码和EXCEL文件发过来，代码如下;Sub zonghong()
Dim x, y As Integer
For x = 1 To 3
y = Sheet1.Cells(x, z)
Select Case y
Case "012"
Call hong012
Case "013"
Call hong013
Case "014"
Call hong014
End Select
Next x
End Sub
分别调用的三个宏代码是;Sub hong012()
'
' hong012 Macro
' 宏由 User 录制，时间: 2008-11-3
'
'
ActiveCell.Select
ActiveCell.FormulaR1C1 = "12"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell
Dim x, y As Integer
For x = 1 To 3
y = Sheet1.Cells(x, z)
Select Case y
Case "012"
Call hong012
Case "013"
Call hong013
Case "014"
Call hong014
End Select
Next x
End Sub
分别调用的三个宏代码是;Sub hong012()
'
' hong012 Macro
' 宏由 User 录制，时间: 2008-11-3
'
'
ActiveCell.Select
ActiveCell.FormulaR1C1 = "12"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell
y = Sheet1.Cells(x, z) z 是什么意思？值是什么？
你的程序错了,如当改变A1、A2或A3中的值时自动执行宏，代码为：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 4 And Target.Column < 2 Then
If Target = 条件 Then '条件为A1或A2或A3单元格符合你的条件
。。。。。。 '当A1或A2或A3单元格符合条件时宏要执行的内容
End If
End If
End Sub