求助C列如何自动赋值

RexxarHuang

当往A列粘贴或者输入数据的时候，对应C2的值赋予当前时间前，C3以下行赋予C2的值
例如A列粘贴了10个数据，C2赋予当前时间，C3到C11等于C2的值
如果A列粘贴30个数据，C2赋予当前时间，C3到C31等于C2的值

shenjianrong163

看下这个贴子：http://club.excelhome.net/thread-223530-1-1.html

RexxarHuang

shenjianrong163 发表于 2020-2-25 15:01
看下这个贴子：http://club.excelhome.net/thread-223530-1-1.html

虽然这个可以实现，但是这个也是需要拉公式的，我是希望VB操作，就不用拉公式

gbgbxgb

参考下列代码：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim rng As Range
   
3.     '
   
4.     With Target.Parent
   
5.         Set rng = Intersect(Target, .Columns(1))
   
6.         If Not rng Is Nothing Then
   
7.             If rng.Areas.Count = 1 Then
   
8.                 Application.EnableEvents = False
   
9.                 With rng.Offset(, 2)
   
10.                     .NumberFormat = "hh:mm:ss"
    
11.                     .Value = Now
    
12.                 End With
    
13.                 Application.EnableEvents = True
    
14.             End If
    
15.         End If
    
16.     End With
    
17.     Set rng = Nothing
    
18. End Sub

复制代码

RexxarHuang

gbgbxgb 发表于 2020-2-25 19:35
参考下列代码：

谢谢帮忙，但是怎么可以在清空ABC3列旧数据的时候，C列不会出现数据

gbgbxgb

RexxarHuang 发表于 2020-2-26 00:34
谢谢帮忙，但是怎么可以在清空ABC3列旧数据的时候，C列不会出现数据

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim rng As Range
   
3.     '
   
4.     With Target.Parent
   
5.         Set rng = Intersect(Target, .Columns(1))
   
6.         If Not rng Is Nothing Then
   
7.             If rng.Areas.Count = 1 Then
   
8.                 If WorksheetFunction.CountA(rng.Resize(, 2)) > 0 Then
   
9.                     Application.EnableEvents = False
   
10.                     With rng.Offset(, 2)
    
11.                         .NumberFormat = "hh:mm:ss"
    
12.                         .Value = Now
    
13.                     End With
    
14.                     Application.EnableEvents = True
    
15.                 End If
    
16.             End If
    
17.         End If
    
18.     End With
    
19.     Set rng = Nothing
    
20. End Sub

复制代码