Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Cells(Target.Row, 6).Value = NOW '(这个是黄背景的)
End If
End Sub
NOW后面不带括号
搞搞打印机设置吧,或许有用
设置成发送至OneNote之类的,或者其他之前已经指定了的打印机
我的就是执行宏运算时出现1004,重新设置了下默认打印机就好了
重新运行EXCEL--单击开发工具--加载项--加载宏--删除失效的宏,就不会出现运行时错误1004提示。