3个回答
展开全部
Private Sub Worksheet_Change(ByVal Txn As Range) '日期自动填写
r = Txn.Row
c = Txn.Column
If c = 2 Then Range("A" & r) = date
End Sub
按Alt+F11
打开宏编辑器,在左边选中表名,双击,在右边空白处将上面代码粘贴,关闭,保存
只要你在B列输入或点击,在前边的A列就写入了日期
r = Txn.Row
c = Txn.Column
If c = 2 Then Range("A" & r) = date
End Sub
按Alt+F11
打开宏编辑器,在左边选中表名,双击,在右边空白处将上面代码粘贴,关闭,保存
只要你在B列输入或点击,在前边的A列就写入了日期
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
日期公式
=today()
=today()
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询