Tô màu họ và tên bị trùng từ 2 sheet khác nhau (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Gà Công Nghệ

Thành viên mới
Tham gia
11/8/15
Bài viết
800
Được thích
451
Xin nhờ Anh, chị xem hỗ trợ giùm em: khi nhập liệu nếu họ và tên cột E sheet DS-GPE nhập trùng với họ và tên cột C ở sheet PC-GPE thì họ và tên nhập trùng ở cột E sheet DS-GPE sẽ tô màu vàng. Em xin cám ơn Anh chị nhiều.
 

File đính kèm

Xin nhờ Anh, chị xem hỗ trợ giùm em: khi nhập liệu nếu họ và tên cột E sheet DS-GPE nhập trùng với họ và tên cột C ở sheet PC-GPE thì họ và tên nhập trùng ở cột E sheet DS-GPE sẽ tô màu vàng. Em xin cám ơn Anh chị nhiều.
Xem file đính kèn:
đặt chuột vào 1 ô trong vùng E6:E...(những ô đã có dữ liệu), hoặc nhập vào ô rỗng và Enter====> nếu trùng ===> tô màu ô đó.
Lưu ý code chỉ chạy khi:
+2 Workbook này đều đặt chung trong 1 folder.
+Tên của sheet là PC2022.
 

File đính kèm

Xem file đính kèn:
đặt chuột vào 1 ô trong vùng E6:E...(những ô đã có dữ liệu), hoặc nhập vào ô rỗng và Enter====> nếu trùng ===> tô màu ô đó.
Lưu ý code chỉ chạy khi:
+2 Workbook này đều đặt chung trong 1 folder.
+Tên của sheet là PC2022.
Anh xem hộ giùm em khi em nhập thêm tên thì báo lỗi như vậy.
 

File đính kèm

  • báo lỗi.jpg
    báo lỗi.jpg
    53.9 KB · Đọc: 5
Mình thì dùng Conditional Formatting, gửi bạn tham khảo thêm ở file đính kèm. Thân!
 

File đính kèm

Anh xem hộ giùm em khi em nhập thêm tên thì báo lỗi như vậy.
Bạn chạy lại modul1 sau đó quay về Trang tính : từ đây bạn gõ tên vào cột E , nếu tên trùng (đã có trong cột C/Sh PC2022/File PC.... thì ô đó sẽ tô màu vàng
Còn nếu muốn sửa lại cho chạy để lần sau khi mở máy ra không vấp lỗi nữa thì.
1-Thêm dòng lệnh để chạy Sub Add_Dic(modul1) khi mở file DS-GPE.xlsm
Copy code dưới đây và paste vào module ThisWorkbook
Mã:
Private Sub Workbook_Open()
Call Add_Dict
End Sub
xem file đính kèm
 

File đính kèm

Lần chỉnh sửa cuối:
Bạn chạy lại modul1 sau đó quay về Trang tính : từ đây bạn gõ tên vào cột E , nếu tên trùng (đã có trong cột C/Sh PC2022/File PC.... thì ô đó sẽ tô màu vàng
Còn nếu muốn sửa lại cho chạy để lần sau khi mở máy ra không vấp lỗi nữa thì.
1-Thêm dòng lệnh để chạy Sub Add_Dic(modul1) khi mở file DS-GPE.xlsm
Copy code dưới đây và paste vào module ThisWorkbook
Mã:
Private Sub Workbook_Open()
Call Add_Dict
End Sub
xem file đính kèm
Vâng, em cám ơn anh nhiều.
Bài đã được tự động gộp:

Mình thì dùng Conditional Formatting, gửi bạn tham khảo thêm ở file đính kèm. Thân!
Vâng, cám ơn bạn đã hỗ trợ thêm.
 

Bài viết mới nhất

Back
Top Bottom