Question

如何在excel上设定，当A1单元格的数大于0时，自动执行“ 复制”这个宏?

Answer 1

在excel里按照Alt+F11这两个键，便自动进入VBA编辑器，然后将下面代码粘贴入代码区就可以了！

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 And Cells(1, 1) = 0 Then
Call 复制
End If
End Sub

Answer 2

这个需要工作表事件了。代码复制到工作表区，不是模块

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" and target.value>0 Then
call 复制()
end if
End Sub

需要说明的一点是，你的A1数值是手工输入，不能是公式因其他单元格值变化而产生。

追问

不明白，能说详细一点吗，或者发个工作表

追答

你的提问中，提到当满足条件执行复制这个宏
说明你有一个sub的名字是“复制”
假设你想当sheet1表的A1中的值大于0时，就自动执行你已经编好的这个名叫“复制”的宏
方法是
alt+F11
弹出vba编辑窗口，然后在“工程”里双击"sheet1"，然后在右边的空白区，复制以下代码
'--------------------------------------------------代码开始
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" And Target.Value > 0 Then
Call 复制
End If
End Sub
'-----------------------------------------------代码结束
然后存盘退出
重新打开这个工作簿时
选择启用宏。
当你在sheet1工作表的A1输入超过了0的数值，就会自动执行你之前已经编好的名叫“复制”的宏

至于文件，你连hi都没安装。怎么传给你呢？

追问

我自己录制的宏不能用，能帮我吗？我想要的结果是在B2中输入内容按回车后，系统自动把这个内容复制到D10，然后光标再回到B2，当我再次在B2中输入内容时，系统自动再把它复制到D11，以此类推，

Answer 3

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 And Cells(1, 1) = 0 Then
Call 复制
End If
End Sub

放在A1工作表代码区

Answer 4

题干模糊不清，无法作答