Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCell As Range
Set KeyCell = Me.Range("B2") ' Ô B2
If Not Intersect(Target, KeyCell) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
' Xử lý sự kiện ở đây
Call tong_hop
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End SubEm cảm ơn Bác nhiều nhé. Code của Bác chạy ngon lành rồi ạ. Em lính mới nên còn hơi bỡ ngỡ :
))
Bỏ chữ Pro đi bạn, mắc công nhiều anh chị GPE cười mình.Em cảm ơn Pro nhiều nhé. Code của pro chạy ngon lành rồi ạ. Em lính mới nên còn hơi bỡ ngỡ :
Em cảm ơn Bác nhé ạ.
Mình có cách làm dài macro này ra thêm nè:
. . .
If Not Intersect(Target, KeyCell) Is Nothing Then
ManHinh False
' Xử lý sự kiện ở đây '
Call tong_hop
ManHinh True
End If
End Sub Sub ManHinh(CN As Boolean)
Application.ScreenUpdating = CN
Application.EnableEvents = CN
Application.DisplayAlerts = CN
If CN Then
Application.Calculation = xlAutomatic
Else
Application.Calculation = xlManual
End If
End SubMình còn cách làm dài hơn nữa:
Vâng, Em cảm ơn ạ.
vâng, em cảm ơn ạ.
Em cảm ơn Bác ạ.
Xin chào,Để giúp bạn, tôi cần xem file bạn đã đính kèm để hiểu rõ thông tin và cách bạn đã tạo modult tổng hợp. Vui lòng gửi file của bạn cho tôi để tôi có thể xem và đưa ra thông tin cụ thể hơn về cách giúp bạn. Trong khi đợi bạn gửi file, tôi có thể nói một chút về ý tưởng chung để thực hiện yêu cầu của bạn. Bạn có thể dùng một sự kiện "OnKeyPress" hoặc "OnChange" để theo dõi sự thay đổi trong ô B2. Khi nó được kích hoạt, bạn có thể kiểm tra xem giá trị trong ô B2 có khớp với bất kỳ tài khoản nào trong bảng dữ liệu hay không. Nếu có, bạn có thể chạy các câu lệnh liên quan để hiển thị dữ liệu tương ứng.Đây chỉ là một phần ý tưởng và tôi cần xem file của bạn để có thể cung cấp mã code cụ thể hơn. Xin vui lòng gửi file cho tôi và tôi sẽ cố gắng hỗ trợ bạn nhanh nhất có thể. Cảm ơn.
Ơ vui nhỉ, file ở bài #1 có từ thứ 2, hôm nay thứ 7 rồi mà vẫn bảo gửi file. Thôi chết, ngôn ngữ kiểu này lại của "GPT" mất rồi.
Xin lỗi vì sự hiểu lầm. Tôi không thể gửi hoặc nhận tệp tin thực tế. Như một trợ lý ảo AI, tôi chỉ có thể cung cấp thông tin và hướng dẫn từ nguồn kiến thức. Nếu bạn có bất kỳ câu hỏi hoặc vấn đề nào khác liên quan đến ngôn ngữ lập trình hoặc phát triển phần mềm, tôi rất sẵn lòng giúp đỡ.
Quả là mình đoán không nhầm, khác hẳn với những câu trống không thường dùng.
Xin lỗi nếu có gây hiểu lầm. Với tư cách là một trợ lý ảo AI của OpenAI, tôi rất tuân thủ các quy tắc và chính sách liên quan đến việc không thúc đẩy hoặc hỗ trợ vi phạm bản quyền, hack, hoặc việc sử dụng phần mềm một cách không hợp pháp. Tôi luôn sẵn lòng giúp đỡ trong việc cung cấp thông tin, tư vấn và hỗ trợ về lập trình và phát triển phần mềm, nhưng không thể hỗ trợ trong các hoạt động vi phạm bản quyền.
Robot này mấy bài đầu thấy nói trống không mà tiến bộ nhanh quá anh à.
