[已解决]求解这两个宏 怎么能合到一起

doudon2008

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 14 Then Exit Sub
Cells(Target.Row, 15).Value = WorksheetFunction.Text(Now(), "h:m")
End Sub
这个宏是当在14列输入的时候15列会自动填上当前时间，但是我想实现当1列输入时11列也自动填当前时间，两个功能同时时间，如何将两个宏合起来。

最佳答案

月排行榜 / 总排行榜

爱疯

2013-5-8 10:41

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim r&, c&, t$
   
3.    
   
4.     r = Target.Row
   
5.     c = Target.Column
   
6.     t = WorksheetFunction.Text(Now(), "h:m")
   
7.    
   
8.     If c = 1 Then Cells(r, 11).Value = t
   
9.     If c = 14 Then Cells(r, 15).Value = t
   
10. End Sub

复制代码

跳转到最佳答案楼层

爱疯

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim r&, c&, t$
   
3.    
   
4.     r = Target.Row
   
5.     c = Target.Column
   
6.     t = WorksheetFunction.Text(Now(), "h:m")
   
7.    
   
8.     If c = 1 Then Cells(r, 11).Value = t
   
9.     If c = 14 Then Cells(r, 15).Value = t
   
10. End Sub

复制代码

doudon2008

爱疯 发表于 2013-5-8 10:41

貌似不行，输入以后要自动填写当前时间的表格不会显示时间

爱疯

"输入以后要自动填写当前时间的表格不会显示时间"

不明白这句意思。最好能上传一个有举例的附件。

doudon2008

爱疯 发表于 2013-5-8 10:54
"输入以后要自动填写当前时间的表格不会显示时间"

不明白这句意思。最好能上传一个有举例的附件。

当我在N列输入任何内容时，O列会自动填写上当前时间

doudon2008

爱疯 发表于 2013-5-8 10:41

不好意思，可以了，刚才是我的宏出了点小问题，非常感谢。已设置成最佳答案。