HƯỚNG DẪN CÁCH VIẾT CODE TỰ ĐỘNG GHI LẠI THỜI GIAN NHẬP LIỆU TRONG EXCEL

Làm thay nào để có thể tự động ghi nhận thời gian dữ liệu được nhập vào trong tệp tin Excel? chưa đến vài dòng code dễ dàng và đơn giản trong VBA là bạn cũng có thể làm được việc này rồi. Hãy cùng emcanbaove.edu.vn mày mò cách có tác dụng nhé:

1, Nháy đúp vào Worksheet đề nghị tạo sự khiếu nại trong hành lang cửa số Project, lấy ví dụ là Sheet1

2, Chọn đối tượng Worksheet

3, chọn sự kiện Change

4, Một Sub được tự động tạo thành là Worksheet_Change

5, Viết code phía bên trong Sub đó:

Cú pháp:

If Not Application.Intersect(Range(“A3”), Target) Is Nothing Then…End If

Nghĩa là xét sự thay đổi có ra mắt trong ô A3 tốt không

Cú pháp:

Active
Sheet.Range(“B3”).Value = Now

Nghĩa là gán giá trị Now vào ô B3

Khi đó quay trở lại Excel, nhập tài liệu tại ô A3 sẽ sở hữu ngay giá chỉ trị thời gian thực tại ô B3

Bước 3: bao quát câu lệnh, mở rộng phạm vi tác động

Để câu lệnh được tối ưu, chúng ta không chỉ xét 1 ô A3 mà hoàn toàn có thể sẽ áp dụng trong 1 vùng rộng hơn: A2:A100, hoặc không dừng lại ở đó là cả cột A.

Tại bất cứ ô nào được nhập văn bản trong cột A, tại cột B trên chiếc tương ứng cũng sẽ lấy giá chỉ trị tác dụng hàm NOW

Như vậy câu lệnh tổng thể là:

If Not Application.Intersect(Range(“A2:A100”), Target) Is Nothing Then

If Range(“A” và Target.Row).Value = “” Then

Range(“B” & Target.Row).Clear
Contents

Else

Range(“B” & Target.Row).Value = Now

End If

End If

Trong đó:

Intersect(Range(“A2:A100”), Target) là vùng diễn ra sự kiện. Các bạn thay đổi tọa độ vào Range(“….”) là được.

Target chính là phương châm (ô được chọn).

Target.Row là số mẫu của ô được chọn.

Logic là:

Xét sự kiện ra mắt trong vùng A2:A100

Nếu cực hiếm trong cột A tại dòng tác động là rỗng (không tất cả nội dung) thì

Xóa câu chữ trong cột B, tại dòng tương ứng cùng với dòng đang tác động

Còn lại / ngoài ra (giả định bên trên bị sai)

Gán giá trị công dụng hàm NOW vào cột B, tại dòng đang tác động

Kết thúc hàm if xét quý hiếm rỗng

Kết thúc hàm if xét vùng ra mắt sự kiện

Kết trái thu được như sau:

2. Sự kiện mang lại Worksheet
Là các sự kiện gắn liền đến 1 sheet trong file Excel (Worksheet vào Workbook), các đối tượng người tiêu dùng trong sự khiếu nại Worksheet ít hơn trong Workbook, nó thường tương quan đến sự thay đổi trong tính toán, chọn lọc hay update dữ liệu trong sheet.

Tiếp tục với lấy một ví dụ của chúng ta: trường hợp bạn đổi khác dữ liệu tại ô A3 nằm trong Sheet1 thì bạn phải thực hiện gọi sự kiện Worksheet_Change trên Sheet1 và gắn câu lệnh hàm NOW vào như sau:

– Tại cửa sổ Project, nháy đúp loài chuột vào Worksheet yêu cầu tọa sự kiện (Sheet1)

– lựa chọn Worksheet, tiếp nối chọn sự kiện Change

– Từ đó Sub Worksheet_Change được tạo ra tự động

– tiếp theo sau bạn nhập đoạn mã VBA sau:

Trong đó:

If Not Application.Intersect(Range(“A3”), Target) Is Nothing Then….End If

– Xét xem tại ô A3 bao gồm xảy ra biến đổi dữ liệu không

Active
Sheet.Range(“B3”).Value = Now

– Gán hiệu quả hàm NOW vào ô B3Bây giờ khi bạn nhập tài liệu tại ô A3 vào Excel, tác dụng sẽ tự động trả về ô B3.

Xem thêm: Làm Sao Để Người Khác Không Cho Người Khác Thấy Mình Like Trên Facebook

Bước 3: về tối ưu phạm vi ảnh hưởng tác động của câu lệnh

Như vậy là bạn đã thực hiện thành công việcghi nhận thời gian nhập dữ liệu tự động bằng VBA bên trên 1 ô tính trong Excel. Bây chừ chúng ta hãy thử vận dụng câu lệnh với cùng 1 vùng rộng hơn từ A2 mang đến A100 tuyệt cả cột A nhé!

Đoạn mã VBA để công dụng hàm NOW được trả về cột B với tất cả các ô cột A khớp ứng được nhập dữ liệu như sau:

If Not Application.Intersect(Range(“A2:A100”), Target) Is Nothing Then If Range(“A” và Target.Row).Value = “” Then Range(“B” & Target.Row).Clear
Contents Else Range(“B” & Target.Row).Value = Now kết thúc If
End If

Trong đó:

Intersect(Range(“A2:A100”), Target): Xét sự kiện diễn ra trong vùng A2:A100 (nếu muốn biến hóa vùng sự kiện bạn chỉ cần biến hóa tại Range(“vùng sự kiện”))If Range(“A” & Target.Row).Value = “” Then: Nếu quý hiếm tại cột A sinh hoạt dòng ảnh hưởng rỗng thì
Range(“B” và Target.Row).Clear
Contents: Xóa văn bản tại dòng tương xứng ở cột BElse: phương diện khác
Range(“B” & Target.Row).Value = Now: Gắn tác dụng hàm NOW tại mẫu tương ứng tác động vào cột BEnd if: kết thúc hàm if xét quý hiếm rỗng
End if: dứt hàm if xét vùng sự kiện

Kết luận

Trong bài viết trên, Gitiho đã thuộc bạn tìm hiểu về cách tự động hóa ghi nhận thời gian nhập dữ liệu bằng VBA với ví dụ cố gắng thể. Vậy nên là chưa đến vài mã code đơn giản và dễ dàng trong VBA đã có thể tự hóa các thao tác Excel và tiết kiệm thời hạn làm việc của bản thân rồi đó.

Ngay hiện giờ hãy thuộc luyện tập thêm với bộ bài xích tập Excel tất cả đáp án của emcanbaove.edu.vn để nằm lòng tin học văn phòng nhé!

emcanbaove.edu.vn cũng giúp lời giải những vấn đề sau đây: