Hoỉ: code ngày tháng (1 người xem)

[pro8x]

Mình có đoạn code về ngàny tháng.vd: khi nhập dữ liệu cột A thì ô tương ứng cột B hiện giờ nhập.vấn đề là khi coppy paste dữ liệu nó lại k nhảy.
các bạn chỉ m cách khắc phục với.
PS: cho m hỏi luôn code khi mình xóa dữ liệu cột A thì giờ cột B cũng mất với

 

[ndu96081631]

Mình có đoạn code về ngàny tháng.vd: khi nhập dữ liệu cột A thì ô tương ứng cột B hiện giờ nhập.vấn đề là khi coppy paste dữ liệu nó lại k nhảy.
các bạn chỉ m cách khắc phục với.
PS: cho m hỏi luôn code khi mình xóa dữ liệu cột A thì giờ cột B cũng mất với

Vầy thử xem:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range, rCel As Range
  On Error GoTo ExitSub
  If Not Intersect(Range("A1:A20"), Target) Is Nothing Then
    Set rng = Intersect(Range("A1:A20"), Target)
    For Each rCel In rng
      If Len(rCel.Value) Then
        With rCel.Offset(, 1)
          .Value = Time
          .NumberFormat = "hh:mm:ss"
        End With
      Else
        rCel.Offset(, 1).ClearContents
      End If
    Next
  End If
ExitSub:
End Sub

 

[pro8x]

Được rồi bạn ơi.m gõ nhầm.thank bạn nhé

 

[pro8x]

Bạn ơi mình muốn làm cho nhiều cột nữa có cách nào KHÔNG vì mình làm thế này không được

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range, rCel As Range
  On Error GoTo ExitSub
  If Not Intersect(Range("A1:A20","D1:D20","F1:F20","H1:H20"), Target) Is Nothing Then
    Set rng = Intersect(Range("A1:A20","D1:D20","F1:F20","H1:H20"), Target)
    For Each rCel In rng
      If Len(rCel.Value) Then
        With rCel.Offset(, 1)
          .Value = Time
          .NumberFormat = "hh:mm:ss"
        End With
      Else
        rCel.Offset(, 1).ClearContents
      End If
    Next
  End If
ExitSub:
End Sub

 

[pro8x]

UP
BẠN nào biết chỉ mình với

 

[Quang_Hải]

Bạn ơi mình muốn làm cho nhiều cột nữa có cách nào KHÔNG vì mình làm thế này không được

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range, rCel As Range
  On Error GoTo ExitSub
  If Not Intersect(Range("A1:A20","D1:D20","F1:F20","H1:H20"), Target) Is Nothing Then
    Set rng = Intersect(Range("A1:A20","D1:D20","F1:F20","H1:H20"), Target)
    For Each rCel In rng
      If Len(rCel.Value) Then
        With rCel.Offset(, 1)
          .Value = Time
          .NumberFormat = "hh:mm:ss"
        End With
      Else
        rCel.Offset(, 1).ClearContents
      End If
    Next
  End If
ExitSub:
End Sub

Muốn sửa thì phải hiểu sơ sơ chứ.

If Not Intersect(Range("A1:A20, D120, F1:F20, H1:H20"), Target) Is Nothing Then
Set rng = Range("A1:A20, D120, F1:F20, H1:H20")

 

[pro8x]

ah ah.tại mình đang tự học mà.hic trên mạng toàn tài liệu tiếng anh mãi mới mày mò được ít