Nhờ giải thích đoạn code private sub (1 người xem)

[tunguska]

Kính gửi các anh, chị trên diễn đàn
em mới tìm hiểm về VBA excel chưa đến đâu, thường hay lên mạng copy về chỉnh sửa lại rồi sài thôi.
có đoạn code bên dưới khi em nhấp phải vô 1 sheet trong workbook -> view code -> paste đoạn code bân dưới vô thì chạy được. Nhưng khi vô cửa sổ VBA -> inseet modul rồi paste thì lại chạy không đươc ạ. nhờ anh chị giải thích giúp ạ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cell_ As Range
Set rng = Intersect(Target, Range("a:a"))
If Not rng Is Nothing Then
Application.EnableEvents = fales
For Each cell_ In rng
If cell_.Value <> "" Then
cell_.Offset(, 4).Value = Date
Else
cell_.Offset(, 4).Value = ""
End If
Next cell_
Application.EnableEvents = True
End If
End Sub

 

[SA_DQ]

Phải nói trước rằng đây là macro sự kiện; Bạn fải bỏ vô CS VBE của trang tính mới xài được

Private Sub Worksheet_Change(ByVal Target As Range)
1 Dim rng As Range, cell_ As Range
Set rng = Intersect(Target, Range("a:a"))
3 If Not rng Is Nothing Then
   Application.EnableEvents = fales
5   For Each cell_ In rng
      If cell_.Value <> "" Then
7         cell_.Offset(, 4).Value = Date
      Else
9         cell_.Offset(, 4).Value = ""
      End If
11   Next cell_
   Application.EnableEvents = True
13 End If
End Sub

D1: Khai báo 2 biến đối tượng cần xài
D2: Gán vùng cột [A:A] của trang tính vô tham biến đã khai báo;
D3: Điều kiện nếu tham biến này có (điều này là hiễn nhiên; Có nghĩa câu lệnh này & cùng với nó là câu lệnh D13 là dư)
D5: Tạo vòng lặp duyệt tất thẩy các ô trong tham biến Rng; Vòng lặp này kết thúc tại D11
D6: Điều kiện: Nếu ô đang duyệt khác rỗng; & kết thúc điều kiện tại D10
D7: Thì ô cách ô đang duyệt vể fía fải 4 ô sẽ nhận giá trị ngày (hiện hành)
D8 (trường hợp ) không thỏa điều kiện thì thực hiện lệnh tiếp theo
D9 Ô cách 4 ô về fía fải sẽ nhận chuỗi rỗng

Những mong giúp được bạn tẹo nào đó để hiểu thêm!

 

[befaint]

Worksheet_Change

Từ khóa:

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/worksheet-change-event-excel


Có những câu thần chú chỉ có tác dụng ở một vị trí nhất định.
"Vừng ơi! Mở ra." thì chỉ có một cái cửa duy nhất được mở ra thôi, chứ về nhà không lấy chìa khóa mở cửa mà kêu "Vừng ơi! Mở ra." rồi chờ cửa mở ra hông?

Đại khái như thế.

 

[tunguska]

Dạ. em cảm ơn 2 bác ạ

 

[be_09]

Dạ. em cảm ơn 2 bác ạ

Bạn nhìn dòng đầu tiên nó là Worksheet, thì phải dùng code đó và áp dụng cho 1 sheet nào đó thôi.
Muốn sử dụng nó cho Module thì phải sửa code lại 1 tí.