如何在excel上设定，当A1单元格的数大于0时，自动执行“ 复制”这个宏?
答案:4 悬赏:40 手机版
解决时间 2021-03-02 09:55
- 提问者网友：难遇难求
- 2021-03-01 16:00
如何在excel上设定，当A1单元格的数大于0时，自动执行“ 复制”这个宏?
最佳答案
- 五星知识达人网友：骨子里都是戏
- 2021-03-01 16:40
这个需要工作表事件了。代码复制到工作表区，不是模块
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数值是手工输入，不能是公式因其他单元格值变化而产生。
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数值是手工输入，不能是公式因其他单元格值变化而产生。
全部回答
- 1楼网友：胯下狙击手
- 2021-03-01 19:57
在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
- 2楼网友：摆渡翁
- 2021-03-01 18:30
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工作表代码区
- 3楼网友：你哪知我潦倒为你
- 2021-03-01 17:03
a1等于1、10时没说，暂写公式为：=if(a1<1,0,if(a1<10,c1,c1*0.95)
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯