Hỏi về ADO filter, sự kiện khi đóng/mở file, đổi giá trị cell theo điều kiện (1 người xem)

[vijnanamatrata]

Xin chào các anh chị,

Mình gặp một số vấn đề không giải quyết được bằng VBA nên mong mọi người giúp đỡ. Mình đã gửi kèm file Sample file.xls và sau đây là mô tả về các sheet và các vấn đề đó:


Mô tả các sheet:

Feuil1: quan tâm các cột U, V, W. Các cột này cần nhập dữ liệu theo thứ tự U rồi V rồi W. Hiện đang dùng Data validation kết hợp VBA. Giá trị mặc định cho mỗi cell là "to select". Nếu muốn chọn cell ở cột V (hay W) mà cell cột U (hay cột V) trống hoặc là "to select" thì sẽ được chuyển về cell trống (hoặc "to select") đó để nhập dữ liệu. Nếu cell bên trái có dữ liệu rồi mà đổi lại giá trị khác thì chỉ 1 cell sát bên phải sẽ có giá trị "to select", còn cell bên phải còn lại (nếu có, vì chỉ có 3 cột U, V, W) sẽ là rỗng. Nếu cell bên trái được đổi thành "to select" thì (các) cell bên phải (V+W hoặc W) sẽ rỗng.

Teleport_NMS_Ntw: là dữ liệu thô cho Data validation cột U, V, W sheet Feuil1. Sheet này có code để khi có thay đổi giá trị cột A thì dữ liệu được sắp xếp lại cho Data validation trong sheet Lookups sẽ thay đổi theo.

BUC và LNB: không cần quan tâm

Lookups: là dữ liệu được sắp xếp lại cho Data validation của sheet Feuil1. Dữ liệu trong đây được thay đổi bằng VBA (module mdlADOfilter).


Các vấn đề chưa giải quyết được hoàn toàn:

[1] Đổi giá trị cell theo điều kiện
Như mô tả sheet Feuil1, chỗ này chưa làm được:
Nếu cell bên trái có dữ liệu rồi mà đổi lại giá trị khác thì chỉ 1 cell sát bên phải sẽ có giá trị "to select", còn cell bên phải còn lại (nếu có, vì chỉ có 3 cột U, V, W) sẽ là rỗng.
Hiện tại thì mọi cell bên phải đều trở thành "to select".

[2] ADO filter
Module mdlADOfilter chỉ có thể xử lý được dữ liệu là text, còn nếu dữ liệu là số thì không hoạt động được. Làm sao để mình có thể xử lý được cả dữ liệu số?

[3] Sự kiện khi đóng/mở file
Trong cửa sổ VBA, object ThisWorkbook có code dùng khi đóng/mở file. Các dòng code hiện được biến thành ghi chú là những dòng bị báo lỗi khi chạy. Xin hướng dẫn mình khắc phục lỗi.


Vấn đề chưa tìm ra cách thực hiện:

Mình được yêu cầu là trong sheet Feuil1 làm sao khi người dùng nhập dữ liệu vào bất cứ ô nào trong các cột từ A đến T thì ở cùng hàng đó, ô cột U sẽ có giá trị "to select". Mong mọi người chỉ giúp mình các làm được.


Xin cảm ơn sự giúp đỡ của mọi người.

 

[vijnanamatrata]

Anh, chị nào có thể giúp mình với. Giúp mình được vấn đề nào trong 4 vấn đề cũng được, hoặc có thể chỉ mình cần tìm hiểu về cái gì để mình tự xem xét cũng được. Xin cảm ơn.