EXCEL运行时错误1004应用程序定义或对象定义错误,

点调试后PrivateSubWorksheet_Change(ByValTargetAsRange)IfTarget.Column=4ThenTarget.Offset(... 点调试后Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Target.Offset(0, 2) = Now()(这个是黄背景的)
End If
End Sub
请高手解决,我这个代码的原意是输入D列后自动在F列录入当前时间不更新,
展开
 我来答
绿水青山20198
2011-06-21 · TA获得超过500个赞
知道小有建树答主
回答量:668
采纳率:100%
帮助的人:304万
展开全部
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Cells(Target.Row, 6).Value = NOW '(这个是黄背景的)
End If

End Sub
NOW后面不带括号
追问
可是我去掉了还是不行吖
追答
这样:Cells(Target.Row, 6).Value = NOW 
或:
Range("d" & Target.Row).Offset(0, 2) = Now
行吗
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
兆青五安珊
2019-05-24 · TA获得超过4017个赞
知道大有可为答主
回答量:3100
采纳率:29%
帮助的人:200万
展开全部
搞搞打印机设置吧,或许有用
设置成发送至OneNote之类的,或者其他之前已经指定了的打印机
我的就是执行宏运算时出现1004,重新设置了下默认打印机就好了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
PangHao8
2016-03-17
知道答主
回答量:4
采纳率:0%
帮助的人:2532
展开全部
重新运行EXCEL--单击开发工具--加载项--加载宏--删除失效的宏,就不会出现运行时错误1004提示。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式