求宏代码，先谢过了！~~

yoomeet

如图：   附件也上了。

清风竹-

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column = 5 Then
   
3.        Target.Cells.Offset(0, -4) = Format(Now, "yyyy/mm/dd")
   
4.        Target.Cells.Offset(0, -3) = Format(Now, "hh:mm")
   
5.        Target.Cells.Offset(0, -2) = "A"
   
6.     End If
   
7. End Sub
   

复制代码

清风竹-

请测试一下。

yoomeet

清风竹- 发表于 2014-8-10 19:21
请测试一下。

好厉害啊， 是我没说清楚。我不想宏自动运行，也不仅仅是E列行，而是想通过快捷键ctrl +p，运行宏，在任意的一个单元格（选中），往左4格输入日期，左3输入时间，左2输入A。 本人不会改，麻烦你帮我改下。非常感谢啊！~~

清风竹-

yoomeet 发表于 2014-8-11 12:56
好厉害啊， 是我没说清楚。我不想宏自动运行，也不仅仅是E列行，而是想通过快捷键ctrl +p，运行宏，在任意 ...

1. Sub 填数() 'ctrl+P运行。
   
2. r = ActiveCell.Row
   
3. c = ActiveCell.Column
   
4.     If c > 4 Then
   
5.      Cells(r, c).Offset(0, -4) = Format(Now, "yyyy/mm/dd")
   
6.       Cells(r, c).Offset(0, -3) = Format(Now, "hh:mm")
   
7.        Cells(r, c).Offset(0, -2) = "A"
   
8.     End If
   
9. End Sub

复制代码

Sub 填数() 'ctrl+P运行。

With ActiveCell

    If .Column > 4 Then

     .Offset(0, -4) = Format(Now, "yyyy/mm/dd")

      .Offset(0, -3) = Format(Now, "hh:mm")

       .Offset(0, -2) = "A"

    End If

End With

End Sub

清风竹-

yoomeet 发表于 2014-8-11 12:56
好厉害啊， 是我没说清楚。我不想宏自动运行，也不仅仅是E列行，而是想通过快捷键ctrl +p，运行宏，在任意 ...

修改完毕，请测试一下。