在OFFICE EXCEL中,怎么能实现在单元格内输入内容,后面单元格跟着自动填充当前时间?

Question

如题所述

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count <= 1 Then

'选中的单元格是否只有一个，防止一次对多个单元格复制、删除等操作，容易导致失误

  

   If Target.Column = 2 And Trim(Target.Value) <> "" Then

    '光标在第4列姓名，并且当前单元格的值不为空

        

       If Target.Offset(0, 1).Value = "" Then

        '判断右边的单元格内容是否为空，如果有数值，

        '表明是修改当前姓名单元格，则不用重新赋予时间;

        '如果为空，则表明是新增与会者，其右边的单元格重新赋予时间

     

         Target.Offset(0, 1).Value = Now()

          '将当前单元格右边单元格的数值设为当前系统时间

          

        End If

    ElseIf Target.Column = 2 And Trim(Target.Value) = "" Then

     '如果光标所在单元格是第2列姓名，并且当前单元格的值为空，

     '表明删除了某个与会者，右边单元格的时间也相应删除

     

     Target.Offset(0, 1).Value = ""

     '将当前单元格的右边单元格的数值设为空值

    End If

End If

End Sub

Answer 2

自动获取当前日期与时间，单元格输入 ： =now（）
快捷获取日期： ctrl+；
快捷获取时间： ctrl+shift+；

Answer 3

参照附件~

Answer 4

通过 vba实现追问

请告诉我如何做？

追答

你有vba基础吗？没有的话，告诉你也没用。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
编上你的程序
End Sub

Answer 5

=IF(A1<>"",NOW(),"")