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列录入当前时间不更新, 展开
If Target.Column = 4 Then
Target.Offset(0, 2) = Now()(这个是黄背景的)
End If
End Sub
请高手解决,我这个代码的原意是输入D列后自动在F列录入当前时间不更新, 展开
3个回答
展开全部
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Cells(Target.Row, 6).Value = NOW '(这个是黄背景的)
End If
End Sub
NOW后面不带括号
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
行吗
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
搞搞打印机设置吧,或许有用
设置成发送至OneNote之类的,或者其他之前已经指定了的打印机
我的就是执行宏运算时出现1004,重新设置了下默认打印机就好了
设置成发送至OneNote之类的,或者其他之前已经指定了的打印机
我的就是执行宏运算时出现1004,重新设置了下默认打印机就好了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
重新运行EXCEL--单击开发工具--加载项--加载宏--删除失效的宏,就不会出现运行时错误1004提示。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |