Tự động chèn dòng phía trên (1 người xem)

[toandiennuoc123]

Chào các bạn ! nhờ các bạn giúp tôi bài này với, trong file đính kèm tôi ghi đầy đủ các yêu cầu rồi. Rất mong được sự giúp đỡ của các bạn. Xin chân thành cám ơn.

 

[Quang_Hải]

Chào các bạn ! nhờ các bạn giúp tôi bài này với, trong file đính kèm tôi ghi đầy đủ các yêu cầu rồi. Rất mong được sự giúp đỡ của các bạn. Xin chân thành cám ơn.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [C5].Address Then
   Application.EnableEvents = False
      With Target
         .Offset(, -1) = Date
         .Offset(, -2) = .Offset(1, -2) + 1
         .Offset(, -2).Resize(, 3).Insert
      End With
   Application.EnableEvents = True
End If
End Sub

 

[toandiennuoc123]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [C5].Address Then
   Application.EnableEvents = False
      With Target
         .Offset(, -1) = Date
         .Offset(, -2) = .Offset(1, -2) + 1
         .Offset(, -2).Resize(, 3).Insert
      End With
   Application.EnableEvents = True
End If
End Sub

Cám ơn bạn ! bạn sửa giúp tôi cột ghi thời gian nó sẽ nối tiếp như trong file đính kèm nhé, trong code này thì phần thời gian nó cập nhật ngày hôm nay "TODAY()". Giả sử ở dòng thứ 6 tôi đã có sẵn dữ liệu rồi thì khi nhập mới ở C5 dòng thời gian sẽ được cộng thêm 1 ngày...... cứ thế......cứ thế, tóm lại thời gian được cập nhật theo dòng dưới ( B6). Rất mong được bạn giúp đỡ tiếp !

 

[Quang_Hải]

Cám ơn bạn ! bạn sửa giúp tôi cột ghi thời gian nó sẽ nối tiếp như trong file đính kèm nhé, trong code này thì phần thời gian nó cập nhật ngày hôm nay "TODAY()". Giả sử ở dòng thứ 6 tôi đã có sẵn dữ liệu rồi thì khi nhập mới ở C5 dòng thời gian sẽ được cộng thêm 1 ngày...... cứ thế......cứ thế, tóm lại thời gian được cập nhật theo dòng dưới ( B6). Rất mong được bạn giúp đỡ tiếp !

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [C5].Address Then
   Application.EnableEvents = False
      With Target
         .Offset(, -1) = .Offset(1, -1) + 1
         .Offset(, -2) = .Offset(1, -2) + 1
         .Offset(, -2).Resize(, 3).Insert
      End With
   Application.EnableEvents = True
End If
End Sub

 

[toandiennuoc123]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [C5].Address Then
   Application.EnableEvents = False
      With Target
         .Offset(, -1) = .Offset(1, -1) + 1
         .Offset(, -2) = .Offset(1, -2) + 1
         .Offset(, -2).Resize(, 3).Insert
      End With
   Application.EnableEvents = True
End If
End Sub

Tuyệt cú mèo ! chúc bạn 1 ngày nghỉ vui vẻ