Hỏi mã code tự động nhảy ngày giờ khi nhập liệu (1 người xem)

[khongphai02]

Em có 1 file
Khi nhập dữ liệu vào cột B thì cột C tự động ghi lại thời gian: ngày/tháng giờhút của thời điểm nhập liệu. Khi thay đổi dữ liệu ở cột B thì dữ liệu ở cột C không thay đổi.

Em có tham khảo bài: http://www.giaiphapexcel.com/forum/archive/index.php/t-22291.html nhưng làm không được.

Các bác giúp em với

 

[comet_1701]

Em có 1 file
Khi nhập dữ liệu vào cột B thì cột C tự động ghi lại thời gian: ngày/tháng giờhút của thời điểm nhập liệu. Khi thay đổi dữ liệu ở cột B thì dữ liệu ở cột C không thay đổi.

Em có tham khảo bài: http://www.giaiphapexcel.com/forum/archive/index.php/t-22291.html nhưng làm không được.

Các bác giúp em với

Mình cũng từng nghĩ đến cái này nhưng sợ hơi khó, để hiện ngày giờ cùng Now là ok, nhưng sau đó khi B thay đổi thì C ko thay đổi nữa. Không biết có làm được ko, bạn cứ chờ xem sao

 

[doatmenhhon]

Em có 1 file
Khi nhập dữ liệu vào cột B thì cột C tự động ghi lại thời gian: ngày/tháng giờhút của thời điểm nhập liệu. Khi thay đổi dữ liệu ở cột B thì dữ liệu ở cột C không thay đổi.

Em có tham khảo bài: http://www.giaiphapexcel.com/forum/archive/index.php/t-22291.html nhưng làm không được.

Các bác giúp em với

Hihi bài này ghi lại bài đầu tiên mình viết bài ở GPE ^^. Giờ thì mới thấy và sẽ trả lời bác Leo là now() cũng ok.

 

[phihndhsp]

Giờ thì mới thấy và sẽ trả lời bác Leo là now() cũng ok.

có chắc là ok? Khi thay đổi dữ liệu ở cột B thì dữ liệu ở cột C không thay đổi.

 

[doatmenhhon]

có chắc là ok? Khi thay đổi dữ liệu ở cột B thì dữ liệu ở cột C không thay đổi.

Mình mới ôn lại kỉ niệm xưa. Chưa trả lời bài này. Sorry bạn.

 

[Ngoai Thanh]

Em có 1 file
Khi nhập dữ liệu vào cột B thì cột C tự động ghi lại thời gian: ngày/tháng giờhút của thời điểm nhập liệu. Khi thay đổi dữ liệu ở cột B thì dữ liệu ở cột C không thay đổi.

Em có tham khảo bài: http://www.giaiphapexcel.com/forum/archive/index.php/t-22291.html nhưng làm không được.

Các bác giúp em với

Bạn xem file đính kèm xem đúng ý không nhé !

 

[comet_1701]

Bạn xem file đính kèm xem đúng ý không nhé !

Không được roài bạn Ngoai Thanh ơi, lúc đầu B thay đổi thì C thay đổi. Lân 2 mình test khi B thay đổi thì C cũng thay đổi cùng luôn

 

[doatmenhhon]

Không được roài bạn Ngoai Thanh ơi, lúc đầu B thay đổi thì C thay đổi. Lân 2 mình test khi B thay đổi thì C cũng thay đổi cùng luôn

Bạn thử xem lại xem. Mình thấy của Ngoai Thanh chuẩn rồi mà. À qua 1 phút thì đúng thật. Cần xem xét lại

 

[comet_1701]

Bạn thử xem lại xem. Mình thấy của Ngoai Thanh chuẩn rồi mà.

Mình thử thấy ko được mà, khi thay đổi B thì C vẫn nhảy số giây bình thường. Các bạn khác thử xem, hay máy mình có vấn đề, Bạn thử xem lại trên thanh Formula bar xem sao

 

[giaiphap]

Không được roài bạn Ngoai Thanh ơi, lúc đầu B thay đổi thì C thay đổi. Lân 2 mình test khi B thay đổi thì C cũng thay đổi cùng luôn

Bạn sửa đoạn code như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, s As String
s = Now
For Each c In Target
If c.Column = 2 And c <> "" And c.Offset(, 1) = "" Then
   c.Offset(, 1) = s
ElseIf c.Column = 2 And c = "" And c.Offset(, 1) <> "" Then
   c.Offset(, 1) = ""
End If
Next
End Sub

 

[doatmenhhon]

Mình thử thấy ko được mà, khi thay đổi B thì C vẫn nhảy số giây bình thường. Các bạn khác thử xem, hay máy mình có vấn đề, Bạn thử xem lại trên thanh Formula bar xem sao

Ờ đúng rồi tại time để ở phút nên mình cũng chả để ý. Hihi

 

[comet_1701]

Bạn sửa đoạn code như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, s As String
s = Now
For Each c In Target
If c.Column = 2 And c <> "" And c.Offset(, 1) = "" Then
   c.Offset(, 1) = s
ElseIf c.Column = 2 And c = "" And c.Offset(, 1) <> "" Then
   c.Offset(, 1) = ""
End If
Next
End Sub

Lúc đầu chiều em cũng mơ màng định thêm else, cảm ơn bác nhé

 

[doatmenhhon]

Lúc đầu chiều em cũng mơ màng định thêm else, cảm ơn bác nhé

Em cũng tính để else nhưng thế quái nào bạn ấy lại trích dẫn đúng bài viết đầu tay của em nên lại bồi hồi thành ra thôi

 

[Ngoai Thanh]

Không được roài bạn Ngoai Thanh ơi, lúc đầu B thay đổi thì C thay đổi. Lân 2 mình test khi B thay đổi thì C cũng thay đổi cùng luôn

Ồ xin lỗi, mình text không kỹ , bạn copy sub sau thay sub cũ xem :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, s As String
s = Now
For Each c In Target
If c.Column = 2 And c.Offset(, 1) = "" Then c.Offset(, 1) = s
Next
End Sub

 

[comet_1701]

Ồ xin lỗi, mình text không kỹ , bạn copy sub sau thay sub cũ xem :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, s As String
s = Now
For Each c In Target
If c.Column = 2 And c.Offset(, 1) = "" Then c.Offset(, 1) = s
Next
End Sub

Hehe, mình test thử thấy ổn

 

[comet_1701]

Ồ xin lỗi, mình text không kỹ , bạn copy sub sau thay sub cũ xem :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, s As String
s = Now
For Each c In Target
If c.Column = 2 And c.Offset(, 1) = "" Then c.Offset(, 1) = s
Next
End Sub

c.Offset(, 1) = "". Chỉ cần thêm điều kiện này là ok mà không nghĩ ra, cảm ơn hai tác giả bài viết nhé.

 

[khongphai02]

Bạn xem file đính kèm xem đúng ý không nhé !

Xin chân thành cảm ơn bác Ngoai Thanh

 

[pinklove]

Tương tự như tiêu đề của bài, mình có code này muốn hỏi các bạn:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1:C3000")) Is Nothing Then
Target(1, 2).Value = Date
End If
If Not Intersect(Target, Range("E1:E3000")) Is Nothing Then
Target(1, 2).Value = Date
End If
End Sub

Khi cột C và E thay đổi thì cột D và cột F sẽ nhận ngày tháng hiện thời. Bây giờ mình cũng muốn nếu như trong các cột D và F có ngày tháng rồi thì sẽ không nhảy nữa khi thay đổi cột C và E thì mình phải sửa làm sao???

 

[comet_1701]

Tương tự như tiêu đề của bài, mình có code này muốn hỏi các bạn:


Khi cột C và E thay đổi thì cột D và cột F sẽ nhận ngày tháng hiện thời. Bây giờ mình cũng muốn nếu như trong các cột D và F có ngày tháng rồi thì sẽ không nhảy nữa khi thay đổi cột C và E thì mình phải sửa làm sao???

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range, Rng1 As Range, Cll As Range, Cll1 As Range
    If Not Intersect(Target, Range("C1:C3000")) Is Nothing Then
        Set Rng = Intersect(Target, Range("C1:C3000"))
        For Each Cll In Rng
            If Cll.Offset(, 1) = "" Then
                Cll.Offset(, 1).Value = Now()
            End If
        Next Cll
    ElseIf Not Intersect(Target, Range("E1:E3000")) Is Nothing Then
        Set Rng1 = Intersect(Target, Range("E1:E3000"))
        For Each Cll1 In Rng1
            If Cll1.Offset(, 1) = "" Then
                Cll1.Offset(, 1).Value = Now()
            End If
        Next Cll1
    End If
    Set Rng = Nothing
    Set Rng1 = Nothing


End Sub

Anh thử xem có được ko nhé

 

[pinklove]

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range, Rng1 As Range, Cll As Range, Cll1 As Range
    If Not Intersect(Target, Range("C1:C3000")) Is Nothing Then
        Set Rng = Intersect(Target, Range("C1:C3000"))
        For Each Cll In Rng
            If Cll.Offset(, 1) = "" Then
                Cll.Offset(, 1).Value = Now()
            End If
        Next Cll
    ElseIf Not Intersect(Target, Range("E1:E3000")) Is Nothing Then
        Set Rng1 = Intersect(Target, Range("E1:E3000"))
        For Each Cll1 In Rng1
            If Cll1.Offset(, 1) = "" Then
                Cll1.Offset(, 1).Value = Now()
            End If
        Next Cll1
    End If
    Set Rng = Nothing
    Set Rng1 = Nothing


End Sub

Anh thử xem có được ko nhé

Được rồi. Cảm ơn bạn.