关于区域单元格的改变，时间自动更新的问题！！！

庄小白

意思就是黄色区域改动，F3时间自动更新。但是我现在写了个宏，只是改变了F3，
如果要一整F列，都随其对应列黄色区域单元格改变而自动更新时间，要怎么修改代码呢？？

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 3 Then
      If Target.Column > 6 And Target.Column < 39 Then
         Cells(3, "F") = Now()
      End If
  End If
End Sub

代码是这样，只是改变F3而已，要整一个F列都改变的话要怎么修改。附件如下。
或者有没更简单的方法，就是有公式可以实现。

庄小白

附件不知道为啥上传不了，有大神明白吗，就是将F3，改为F整一列

Look我在这

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 3 Then
      If Target.Column > 6 And Target.Column < 39 Then
         Columns("F:F")= Now()
      End If
  End If
End Sub

庄小白

Look我在这 发表于 2018-3-28 10:28
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 3 Then
      If Target.Colum ...

首先感谢你的解答，但是我试了下意思不对啊，你这个修改的只是在G3：X3，任意单元格改变然后F列全部自动更新时间。可是我想要的是，对应的那一列，就是G3：X3中任意单元格改变，然后F3自动更新时间，若G4：X4中任意单元格改变，然后F4自动更新时间。我想要的是这种情况

袁勇

庄小白 发表于 2018-3-28 10:35
首先感谢你的解答，但是我试了下意思不对啊，你这个修改的只是在G3：X3，任意单元格改变然后F列全部自动 ...

试试这个：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.       If Target.Row >= 3 Then
   
3.             If Target.Column > 6 And Target.Column < 39 Then
   
4.                 Cells(Target.Row, "F") = Now()
   
5.             End If
   
6.       End If
   
7. End Sub
   

复制代码

Look我在这

恩 ，
也许是你说的不清楚 ，
也许是我理解的不对，
具体参考5楼吧。

庄小白

袁勇 发表于 2018-3-28 10:43
试试这个：

是的没错！感谢大神！

庄小白

Look我在这 发表于 2018-3-28 10:48
恩 ，
也许是你说的不清楚 ，
也许是我理解的不对，

对的，是5楼那样没错。也是我表达的不够清楚，还是非常感谢！