Nhờ giúp đỡ về sự kiện change trong VBA

[tieugia35]

E tàu ngầm diễn đàn mình đã lâu, cũng học lóm được nhiều thứ. Hiện tại e đang viết đoạn code sử dụng sự kiện change để lọc dữ liệu trong VBA nhưng cái ô được tagret e có gán 1 Hàm dò tìm vlookup ở sheet khác. Kết quả là khi chạy code thì excel ko chạy lệnh, e phải nhấp vào ô target rồi enter thì VBA mới chạy. Mọi người có cách gì hay bày e với

 

[bebo021999]

Worksheet_change chỉ hoạt động khi data thay đổi bằng nhập liệu tay.
Còn thay đổi từ công thức thì dùng worksheet_calculate thử nhé.

 

[tieugia35]

Worksheet_change chỉ hoạt động khi data thay đổi bằng nhập liệu tay.
Còn thay đổi từ công thức thì dùng worksheet_calculate thử nhé.

Đây là đoạn code của e à, e chuyển sang calculate mà nó cư báo lỗi dòng target.address. A sửa giúp e đoạn này ạ

Private Sub Worksheet_Calculate()
Dim arr(), kq(), tong, tongsl As Double
lr = Sheet4.Range("A" & Rows.Count).End(xlUp).Row
lrhide = Range("A72").End(xlUp).Row + 1
If Target.Address = "$L$65" Then
arr = Sheet4.Range("A5" & lr).Value
ReDim kq(1 To UBound(arr, 1), 1 To UBound(arr, 2))
For i = 1 To UBound(arr, 1)
If arr(i, 4) = Target.Value Then
a = a + 1
kq(a, 1) = a
kq(a, 2) = arr(i, 2)
kq(a, 3) = arr(i, 3)
kq(a, 4) = arr(i, 4)
End If
Next i

Range("A65:J72").ClearContents
If a = 0 Then
MsgBox "Khong co du lieu"
Exit Sub
Range("A65").Activate
End If
kq(a + 1, 4) = Range("H1").Value
Range("A65").Resize(a + 1, 3) = kq
End If
End Sub

 

[snow25]

Đây là đoạn code của e à, e chuyển sang calculate mà nó cư báo lỗi dòng target.address. A sửa giúp e đoạn này ạ

Xóa nó đi nhìn vào sự kiện kia làm gì có Target.

 

[tieugia35]

Xóa nó đi nhìn vào sự kiện kia làm gì có Target.

A có thể sửa đoạn code này dùm e ko, do cái sự kiện calculate này e chưa sử dụng lần nào. Search trên mạng cũng rất ít dữ liệu về cái này, hoặc dùng changle nhưng chèn thêm đoạn code để nó thực hiện lệnh luôn ấy

 

[HUONGHCKT]

Bạn thử thay dòng "Private Sub Worksheet_Calculate()" thành
Private Sub Worksheet_Change(ByVal Target As Range)
xem sao

 

[tieugia35]

Bạn thử thay dòng "Private Sub Worksheet_Calculate()" thành
Private Sub Worksheet_Change(ByVal Target As Range)
xem sao

Ban đầu là nó là sự kiện change mà, ý mình là cái ô target ấy. Mình gài 1 hàm dò tìm vào ô ấy nhưng sự kiện change chỉ hoạt động khi mình nhấp vào ô và enter. Đây là cái mình muốn nhờ làm sao mà mình dùng hàm và ở ô target tự nhảy kết quả thực hiện lệnh luôn

 

[batman1]

Ban đầu là nó là sự kiện change mà, ý mình là cái ô target ấy. Mình gài 1 hàm dò tìm vào ô ấy nhưng sự kiện change chỉ hoạt động khi mình nhấp vào ô và enter. Đây là cái mình muốn nhờ làm sao mà mình dùng hàm và ở ô target tự nhảy kết quả thực hiện lệnh luôn

Đính kèm tập tin, mô tả kỹ, chưa chắc đã đủ để người ta giúp, nói chi tới vài giọt nước bọt suông. Hãy thử đặt mình vào vị trí của người khác đi. Rõ ràng là khi ô có công thức thay đổi thì không có sự kiện Change. Vậy phải tìm cách khác. Nhưng ai có thể giúp cách khác trên cơ sở vài câu vu vơ? Phải có tập tin, và mô tả kỹ, là khi giá trị NÀY thay đổi thì tôi muốn LỌC thế này thế này. Lúc đó người ta nhìn vào dữ liệu, thấy các mối liên hệ ràng buộc thì rất có thể người ta sẽ đề nghị phản ứng khi giá trị KIA thay đổi chứ không phải giá trị NÀY thay đổi. Và có thể không phải là LỌC mà SÀNG. Còn nếu chỉ một vài câu chung chung thì ngồi đấy mà đợi nhé.

Tập tin và mô tả đầy đủ còn chả nhằm nhò gì thì đừng mơ là vài câu chung chung, vu vơ sẽ đủ.

 

[SA_DQ]

Giả sử ở trang Sheet4 bạn đang có danh sách nhân viên (NV) cơ quan với 4 cột dữ liệu như sau:

STT	Mã NV	Họ & Tên	Mã DV
1	BXT01	Bùi Thị Xuân Thành	B
2	BXT00	Bùi Xuân Thắm	A
3	CCH00	Châu Chấn Huy	C
4	CNS00	Chu Ngọc Sơn	F
5	CVA00	Cỗ Văn Ẩn	F
6	CMN00	Công Tằng Tôn Nữ Minh Nguyệt	E
7	CNM00	Công Tằng Tôn Nữ Nguyệt Minh	E
8	CJL00	Cù Lân	D
9	FFD00	Đào Đức Dương	A
10	FLT00	Đinh La Thăng	C
11	FFD01	Đỗ Đăng Dung	B
12	DAH00	Dương Ánh Hòa	F
13	LCM01	Lã Chí Mai	E
14	LCM00	Lê Công Minh	D
15	LCT00	Lê Công Thành	E

Bạn cần tại thời điểm nào đó cần lọc ra những NV ở 1 trong 5 đơn vị của CQ bằng macro sự kiện, cách làm mình nghĩ sẽ phải vầy:
B1: Tại ô [L65] - nơi diễn ra sự kiện, bạn cần có 1 Validation gồm các mã đơn vị thuộc CQ của bạn.
B2: Thiết lập macro sự kiện lọc (như bạn nêu) ; Macro này sẽ lọc cho bạn các thành viên có mã ĐV mà bạn đã chọn

Rất vui được tiếp câu chuyện cùng bạn!

 

[tieugia35]

Đính kèm tập tin, mô tả kỹ, chưa chắc đã đủ để người ta giúp, nói chi tới vài giọt nước bọt suông. Hãy thử đặt mình vào vị trí của người khác đi. Rõ ràng là khi ô có công thức thay đổi thì không có sự kiện Change. Vậy phải tìm cách khác. Nhưng ai có thể giúp cách khác trên cơ sở vài câu vu vơ? Phải có tập tin, và mô tả kỹ, là khi giá trị NÀY thay đổi thì tôi muốn LỌC thế này thế này. Lúc đó người ta nhìn vào dữ liệu, thấy các mối liên hệ ràng buộc thì rất có thể người ta sẽ đề nghị phản ứng khi giá trị KIA thay đổi chứ không phải giá trị NÀY thay đổi. Và có thể không phải là LỌC mà SÀNG. Còn nếu chỉ một vài câu chung chung thì ngồi đấy mà đợi nhé.

Tập tin và mô tả đầy đủ còn chả nhằm nhò gì thì đừng mơ là vài câu chung chung, vu vơ sẽ đủ.

Giả sử ở trang Sheet4 bạn đang có danh sách nhân viên (NV) cơ quan với 4 cột dữ liệu như sau:

STT	Mã NV	Họ & Tên	Mã DV
1	BXT01	Bùi Thị Xuân Thành	B
2	BXT00	Bùi Xuân Thắm	A
3	CCH00	Châu Chấn Huy	C
4	CNS00	Chu Ngọc Sơn	F
5	CVA00	Cỗ Văn Ẩn	F
6	CMN00	Công Tằng Tôn Nữ Minh Nguyệt	E
7	CNM00	Công Tằng Tôn Nữ Nguyệt Minh	E
8	CJL00	Cù Lân	D
9	FFD00	Đào Đức Dương	A
10	FLT00	Đinh La Thăng	C
11	FFD01	Đỗ Đăng Dung	B
12	DAH00	Dương Ánh Hòa	F
13	LCM01	Lã Chí Mai	E
14	LCM00	Lê Công Minh	D
15	LCT00	Lê Công Thành	E

Bạn cần tại thời điểm nào đó cần lọc ra những NV ở 1 trong 5 đơn vị của CQ bằng macro sự kiện, cách làm mình nghĩ sẽ phải vầy:
B1: Tại ô [L65] - nơi diễn ra sự kiện, bạn cần có 1 Validation gồm các mã đơn vị thuộc CQ của bạn.
B2: Thiết lập macro sự kiện lọc (như bạn nêu) ; Macro này sẽ lọc cho bạn các thành viên có mã ĐV mà bạn đã chọn

Rất vui được tiếp câu chuyện cùng bạn!

Sr các a, e gửi file để các a tham khảo.
Phiền các a xem thử, ở ô L65 có cài VBA để tra dữ liệu ở sheet TC và nhận sự thay đổi dữ từ ô L12, còn ô L12 là key dò tìm từ sheet DULIEU. E chỉ muốn khi ô L12 đổi số thì ở ô L65 chạy theo sẽ thực hiện lệnh tự động mà ko phải nhấp chuột vào ô L65 và enter thì lệnh mới thực thi ạ.

 

[HUONGHCKT]

Sr các a, e gửi file để các a tham khảo.
Phiền các a xem thử, ở ô L65 có cài VBA để tra dữ liệu ở sheet TC và nhận sự thay đổi dữ từ ô L12, còn ô L12 là key dò tìm từ sheet DULIEU. E chỉ muốn khi ô L12 đổi số thì ở ô L65 chạy theo sẽ thực hiện lệnh tự động mà ko phải nhấp chuột vào ô L65 và enter thì lệnh mới thực thi ạ.

Thử file đính kèm.
Vẫn file và code của bạn tôi chỉ sửa lại đôi chút.
Tôi cho rằng tại cái buttonspint đó bạn dùng Form controls để vẽ, Tôi dùng ActiveX Controls để vẽ thì code sự kiện ở ô L12 chạy.

 

[tieugia35]

Thử file đính kèm.
Vẫn file và code của bạn tôi chỉ sửa lại đôi chút.
Tôi cho rằng tại cái buttonspint đó bạn dùng Form controls để vẽ, Tôi dùng ActiveX Controls để vẽ thì code sự kiện ở ô L12 chạy.

Cảm ơn a, lại học thêm được cái mới

 

[tieugia35]

Thử file đính kèm.
Vẫn file và code của bạn tôi chỉ sửa lại đôi chút.
Tôi cho rằng tại cái buttonspint đó bạn dùng Form controls để vẽ, Tôi dùng ActiveX Controls để vẽ thì code sự kiện ở ô L12 chạy.

Em có viết thêm 1 đoạn code để nó tự ẩn dòng khi show ko hết, nhưng ko hiểu sao nó ko ẩn dòng như ý muốn, lúc thì chạy được lúc thì ko. Nhờ anh xem giúp ạ

 

[HUONGHCKT]

Em có viết thêm 1 đoạn code để nó tự ẩn dòng khi show ko hết, nhưng ko hiểu sao nó ko ẩn dòng như ý muốn, lúc thì chạy được lúc thì ko. Nhờ anh xem giúp ạ

nếu đúng bạn muốn ẩn những dòng không có dữ liệu của vùng A65:J71 thì thử xem file.
Đoạn code ẩn dòng được viết ngày trong Sub ABC. nên khi có sự kiện ở L12 đã kích hoạt Sub ABC hoạt động, sau khi gán dữ liệu xuống Sh xong sẽ kiểm tra xem còn dòng nào thừa và ẩn luôn.
Khuyên bạn: đã dùng VBA thì nên hạn chế dùng hàm

 

[tieugia35]

nếu đúng bạn muốn ẩn những dòng không có dữ liệu của vùng A65:J71 thì thử xem file.
Đoạn code ẩn dòng được viết ngày trong Sub ABC. nên khi có sự kiện ở L12 đã kích hoạt Sub ABC hoạt động, sau khi gán dữ liệu xuống Sh xong sẽ kiểm tra xem còn dòng nào thừa và ẩn luôn.
Khuyên bạn: đã dùng VBA thì nên hạn chế dùng hàm

Do viết hàm trong VBA hơi phức tạp và gõ chữ tiếng Việt trong VBA khó khăn nên em thường viết hàm cho những cái đơn giản. Chỉ cái nào phức tạp em mới dùng VBA, việc viết hàm và dùng VBA cùng nhau sẽ gây ra xung đột hay sao anh ?

 

[HUONGHCKT]

Do viết hàm trong VBA hơi phức tạp và gõ chữ tiếng Việt trong VBA khó khăn nên em thường viết hàm cho những cái đơn giản. Chỉ cái nào phức tạp em mới dùng VBA, việc viết hàm và dùng VBA cùng nhau sẽ gây ra xung đột hay sao anh ?

Bạn đã thử file chưa? kết quả thế nào?có đúng ý không?
Tất nhiên là 1 vài công thức ở một số trăm ô thì cũng không có vấn đề gì. Nhưng nếu mà một bảng tính cả ngàn dòng, vài 3 chục cột tính ra khoảng hàng trăm ngàn, hàng triệu ô có công thức thì khi load file, hoặc mỗi khi bảng tính có sự thay đổi, Máy sẽ lại phải tính lại toàn bộ cả triệu ô ấy? Khi ấy Phần khay dưới của màn hình sẽ hiện lên % của khối lượng tính toán. (nhất là đối với những file công thức được tham chiếu đến nhiều vùng, nhiều trang tính, thì thời gian để cho nó load hết sẽ chiếm 1 thời gian và dung lượng đáng kể). Tôi không có kiến thức chuyên sâu về vấn đề này, chỉ tạm hiểu thế thôi.