Tự động lấy ngày giờ hệ thống trong excel (12 người xem)

[ndu96081631]

nếu thêm DAY vào qua ngày 23 vẫn là ngày 23 bạn ah, có cách nào giúp mình được không, và hướng dẫn cho mình cái code, cám ơn cả nhà.

Thế các bài viết từ đầu topic đến giờ vẫn không giúp được gì cho bạn à? Hay bạn chưa đọc? Hoặc đọc mà không hiểu?

 

[phucbugis]

nếu thêm DAY vào qua ngày 23 vẫn là ngày 23 bạn ah, có cách nào giúp mình được không, và hướng dẫn cho mình cái code, cám ơn cả nhà.

mình sơ ý quá (do bạn ko up file lên), bạn xem file nhé

Link: https://www.mediafire.com/?s06d4ifa2d1aemc

 

[Ba Tê]

nếu thêm DAY vào qua ngày 23 vẫn là ngày 23 bạn ah, có cách nào giúp mình được không, và hướng dẫn cho mình cái code, cám ơn cả nhà.

- Cái code đây:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C4:C1000]) Is Nothing Then
    If Target.Rows.Count = 1 Then
        If Target.Value <> Empty Then
            Target.Offset(, -2).Value = "=max(R3C1:R[-1]C1)+1"
            Target.Offset(, -1).Value = Date
        Else
            Target.Offset(, -2).Resize(, 2).ClearContents
        End If
    End If
End If
End Sub

- Hướng dẫn đây: Chỉ nhập từ C4:C1000, mỗi lần nhập hoặc xoá 1 ô code mới hoạt động.
- File đây:

 

[nhoctuoixitin]

- Cái code đây:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C4:C1000]) Is Nothing Then
    If Target.Rows.Count = 1 Then
        If Target.Value <> Empty Then
            Target.Offset(, -2).Value = "=max(R3C1:R[-1]C1)+1"
            Target.Offset(, -1).Value = Date
        Else
            Target.Offset(, -2).Resize(, 2).ClearContents
        End If
    End If
End If
End Sub

- Hướng dẫn đây: Chỉ nhập từ C4:C1000, mỗi lần nhập hoặc xoá 1 ô code mới hoạt động.
- File đây:

mình tải file đính kèm của bạn vể rồi mình sẽ dựa vào đó mà làm nhưng xin hỏi copy đoạn code dán vào đau và lưu như thế nào vậy bạn

 

[nhoctuoixitin]

Thế các bài viết từ đầu topic đến giờ vẫn không giúp được gì cho bạn à? Hay bạn chưa đọc? Hoặc đọc mà không hiểu?

cảm ơn bạn đã trả lởi mình , nói chung mình đọc nhưng không hiểu lắm về excel lắm, mình muốn các bạn chỉ là copy đoạn code vào đầu và làm thê nào để lưu code và tinh chỉnh Excel như thế nào để đoạn code hoạt động, mình kg biết nhiều về Excel lắm

 

[chuot0106]

cảm ơn bạn đã trả lởi mình , nói chung mình đọc nhưng không hiểu lắm về excel lắm, mình muốn các bạn chỉ là copy đoạn code vào đầu và làm thê nào để lưu code và tinh chỉnh Excel như thế nào để đoạn code hoạt động, mình kg biết nhiều về Excel lắm

Bạn chưa tìm hiểu những cái "Tối thiểu" nhất sao bạn có thể làm việc với VBA và vận dụng nó phù hợp với công việc được.
Bạn mở File Excel lên bấm ALT + F11 sau đó Insert--> Modul--> Copy--> Paste code vào.

 

[phucbugis]

cảm ơn bạn đã trả lởi mình , nói chung mình đọc nhưng không hiểu lắm về excel lắm, mình muốn các bạn chỉ là copy đoạn code vào đầu và làm thê nào để lưu code và tinh chỉnh Excel như thế nào để đoạn code hoạt động, mình kg biết nhiều về Excel lắm

đâu phải copy code vào file của bạn là chạy được liền đâu ---> phải chỉnh lại cho phù hợp với cái form của sheet mà bạn muốn áp dụng.
=> nếu ko biết cách sửa thì tốt nhất là up file lên, để mọi người có thể giúp bạn.

'- - - -
To Chuot0106:
Sự kiện ws_change phải gắn trực tiếp vào sheet chứ, chèn module làm gì.

 

[chuot0106]

To Chuot0106:
Sự kiện ws_change phải gắn trực tiếp vào sheet chứ, chèn module làm gì.

Hic, mình không đọc kĩ.

 

[nhoctuoixitin]

View attachment theo doi XN.xls
cái này là file mình cần làm ai bổ sung giúp mình cái ngày tháng với

 

[phucbugis]

View attachment 116715
cái này là file mình cần làm ai bổ sung giúp mình cái ngày tháng với

mình dựa theo code của bác Bate và có chỉnh sửa 1 chút, bạn xem thử có đúng ko nhé.

(để thấy được code dưới bạn chọn Tab sheet1 - Right_click --> view_code)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C4:C1000")) Is Nothing Then
     'xay ra loi~ xoa' khi quet chon nhieu cot, nhieu hang
        If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
            If Target.Value <> Empty Then
                Target.Offset(, -1) = Date
            End If
        End If
    End If
End Sub

'- - -
to chuot0106: sao ko thấy bác ra tay làm các bài toán như thế này nhỉ

Link: https://www.mediafire.com/?p3u4s2654q8751d

 

[nhoctuoixitin]

mình dựa theo code của bác Bate và có chỉnh sửa 1 chút, bạn xem thử có đúng ko nhé.

(để thấy được code dưới bạn chọn Tab sheet1 - Right_click --> view_code)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C4:C1000")) Is Nothing Then
     'xay ra loi~ xoa' khi quet chon nhieu cot, nhieu hang
        If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
            If Target.Value <> Empty Then
                Target.Offset(, -1) = Date
            End If
        End If
    End If
End Sub

'- - -
to chuot0106: sao ko thấy bác ra tay làm các bài toán như thế này nhỉ

cảm ơn bạn đã giúp mình, cảm ơn cả nhà

 

[nhoctuoixitin]

mình có mẩu thẻ kho, để theo dõi, mình muốn khi nhập vào bất kỳ ở cột C12,hoặc D12,hoặc E12 thì ở cột B12 sẽ hiện thị ngày tháng của hệ thống, phucbugis giúp mình với
View attachment Mẫu Thẻ Kho 1.xls

 

[chuot0106]

mình có mẩu thẻ kho, để theo dõi, mình muốn khi nhập vào bất kỳ ở cột C12,hoặc D12,hoặc E12 thì ở cột B12 sẽ hiện thị ngày tháng của hệ thống, phucbugis giúp mình với
View attachment 116772

Tại ô B1, bạn gõ công thức:
=IF(OR(C12<>"",D12<>"",E12<>""),NOW(),"")
Sau đó copy xuông các ô còn lại.
Bạn lưu ý chọn định dạng ngày tháng dạng DD/MM/YYYY

 

[phucbugis]

mình có mẩu thẻ kho, để theo dõi, mình muốn khi nhập vào bất kỳ ở cột C12,hoặc D12,hoặc E12 thì ở cột B12 sẽ hiện thị ngày tháng của hệ thống, phucbugis giúp mình với
View attachment 116772

bạn mở file xem, mình cài sẵn 3 cách, bạn muốn chọn cách nào cũng được
'- - - -
To Chuot0106
bạn kia đang hỏi về Macro của #50 trước đó mà, chuot ko nhớ ah

Link: https://www.mediafire.com/?kloiaz5z3om720b

 

[nhoctuoixitin]

Bạn Chuot0106 ởi mình dựa vào cái Macro của phucbugic
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E12:E1000")) Is Nothing Then
'xay ra loi~ xoa' khi quet chon nhieu cot, nhieu hang
If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
If Target.Value <> Empty Then
Target.Offset(, -3) = Date
End If
End If
End If
End Sub
thì trong bản của mình khi nhập vào ô E12 thì nó hiện ở ngày tháng ở B12 giờ mình muốc từ macro này nếu nhập ở C12 hoặc D12 thì B12 sẽ hiện ngày tháng , chỉnh sao bạn

 

[nhoctuoixitin]

Cảm ơn bạn phucbugic nhiều mình đã làm được và chọn cách 1 đơn giản hơn,

 

[hieuhufs]

Xin giúp !

Bạn nhập công thức tại D1
=if(counta(A1:C1)=3;now();"")

Xin lỗi cho mình hỏi: Mình có 5 cột A B C D E, mình muốn cứ nhập A1 thì D1 tự nhảy thời gian và ngày tháng đến A10000 thì D10000 thì làm thế nào ?
cám ơn nhiều !

 

[Hoangnen]

Em đang muốn làm một bảng tính dùng để kiểm hàng nhập và xuất vào khoảng thời gian cụ thể nhưng không biết hàm nhờ các bác giúp em với ạ! ví dụ: lượt hàng về nhận lúc 8h30 sau đó giao hàng xong lúc 9h, khi nhập vào ô giao hàng thì giá trị trong ô thời gian đó đều phải được giữ nguyên là 8h30 và 9h ko được trả về 9h. thanks các bác

 

[Hoangnen]

cả cái này nữa ạ! mong các bác chỉ giáo ạ

 

[Hoangnen]

Làm đủ mọi cách nhưng vẫn ko được các bác ợ. khi nhập xong tất cả đều trở về ngày hiện tại của hệ thống chứ không lưu được thời gian của từng thời điểm nhập dữ liệu.