Hỏi về hàm thời gian (1 người xem)

  • Thread starter Thread starter zen2505
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

zen2505

Thành viên chính thức
Tham gia
29/11/11
Bài viết
68
Được thích
4
Nghề nghiệp
Manage & Acountant
Các bạn cho mình hỏi , hàm time nào cập nhật được ngày hiện tại mình cập nhật nhưng đến ngày hôm sau mình làm việc thì hàm đó vẫn ở ngày hôm qua được nhỉ>**~**
 
Các bạn cho mình hỏi , hàm time nào cập nhật được ngày hiện tại mình cập nhật nhưng đến ngày hôm sau mình làm việc thì hàm đó vẫn ở ngày hôm qua được nhỉ>**~**
Bạn nên up file lên diễn đàn, nói rõ cập nhật như thế nào.
Tham khảo code và file đính kèm:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [B2:H22]) Is Nothing Then
Range("I" & Target.Row) = Now
End If
Application.ScreenUpdating = True
End Sub
[/gpecode]
 

File đính kèm

Upvote 0
mình up file mẫu các bạn xem giùm minh!

Bạn nên up file lên diễn đàn, nói rõ cập nhật như thế nào.
Tham khảo code và file đính kèm:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [B2:H22]) Is Nothing Then
Range("I" & Target.Row) = Now
End If
Application.ScreenUpdating = True
End Sub
[/gpecode]
Các bạn xem giúp mình tìm ra hàm để thực hiện lệnh này nhé!
Nếu không các bạn cho mình sử dụng VBA cũng được!
Thanks các bạn!
 

File đính kèm

Upvote 0
Cám ơn leonguyenz đã giúp mình!
Bạn xem có thể đưa hàm vào đây được không vậy?
 
Upvote 0
Cám ơn leonguyenz đã giúp mình!
Bạn xem có thể đưa hàm vào đây được không vậy?
Bạn sửa lại code một chút là được:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B4:B11]) Is Nothing Then
Application.ScreenUpdating = False
Target.Offset(, 1) = Date
Application.ScreenUpdating = True
End If
End Sub
[/gpecode]
Nới rộng vùng nhập ở cột B: B4:B11
Mở Marco khi nhập liệu.
Save file .xlsm hoặc xls, vì .xlsx không lưu giữ code.
 

File đính kèm

Upvote 0
Thanks các PRO nhiều lắm!:-=
 
Upvote 0

Bài viết mới nhất

Back
Top Bottom