一句excel宏代码
答案:3 悬赏:0 手机版
解决时间 2021-01-26 00:54
- 提问者网友：浪荡绅士
- 2021-01-25 01:37
在一段宏中插入如下代码：如果sheet2里d3单元格发生变动，才能执行下面宏
最佳答案
- 五星知识达人网友：躲不过心动
- 2021-01-25 03:08
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If UCase(ActiveSheet.Name) = "SHEET2" And Target.Address = "$D$3" Then
MsgBox "你要执行的代码"
End If
End Sub
If UCase(ActiveSheet.Name) = "SHEET2" And Target.Address = "$D$3" Then
MsgBox "你要执行的代码"
End If
End Sub
全部回答
- 1楼网友：慢性怪人
- 2021-01-25 04:40
如果sheet2里d3单元格发生变动，就会触动 change 事件
- 2楼网友：玩家
- 2021-01-25 04:07
这个好办，你h我，我可以帮你做。
也可以直接用下面代码：
sub abc()
sheets("sheet1").select
range("a1:e10").copy '假设要把sheet1表中的a1:e10部份复制到sheet2表
sheets("sheet2").select
s = application.worksheetfunction.counta(range("a1:a100"))
cells(s + 1, 1).select '选中数据下面第一个空格
activesheet.paste
application.cutcopymode = false
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯