Loại bỏ dữ liệu trùng nhau trong Combobox VBA

selves037

Thành viên hoạt động
Tham gia ngày
22 Tháng chín 2017
Bài viết
187
Được thích
65
Điểm
30
Tuổi
28
Em có cái combobox hiện thị lấy dữ liệu từ cột A của sheet1, và cột A này dùng làm nguồn dữ liệu cho các tính toán khác nên không thể xóa bất kì dữ liệu cột A được. Trong cột A có nhiều dữ liệu trùng nhau Em muốn khi sự kiện combobox_change() thực hiện, list combobox hiện lên các dữ liệu không trùng nhau mà dữ liệu A vẫn dữ nguyên. Ví dụ trong cột A dữ liệu là 1 1 2 3 3, sau khi xổ xuống chọn chỉ thấy combobox là 1 2 3 .Mà viết code hoài toàn thấy lỗi, có bác nào biết chỉ em với ạ.Cảm ơn
 

File đính kèm

befaint

|||||||||||||
Tham gia ngày
6 Tháng một 2011
Bài viết
8,681
Được thích
9,918
Điểm
560
Bạn chủ thớt sửa lại tiêu đề bài viết: Lọc loại trùng một cột và đưa vào Combobox.
Rồi sẽ có người xem giúp.
Tiêu đề như trên chẳng giải quyết được gì.
 

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
5,961
Được thích
9,942
Điểm
860
Trong khi chờ chủ bài đăng sửa lại tiêu đề, xin gợi ý sau:

Cách 0: AdvancedFiltr có chức năng lọc bỏ trùng

Cách 1: Copy toàn bộ dữ liệu cột [A:a] đó đem đến 1 nơi xa xăm nào đó cột trống cuối của trang tính & têến hành xóa trùng
Lấy dữ liệu còn lại làm nguồn cho ComboBox;

Cách 2: Cần biết về Dictionary

Cách 3:. . . . .
 

selves037

Thành viên hoạt động
Tham gia ngày
22 Tháng chín 2017
Bài viết
187
Được thích
65
Điểm
30
Tuổi
28
Trong khi chờ chủ bài đăng sửa lại tiêu đề, xin gợi ý sau:

Cách 0: AdvancedFiltr có chức năng lọc bỏ trùng

Cách 1: Copy toàn bộ dữ liệu cột [A:a] đó đem đến 1 nơi xa xăm nào đó cột trống cuối của trang tính & têến hành xóa trùng
Lấy dữ liệu còn lại làm nguồn cho ComboBox;

Cách 2: Cần biết về Dictionary

Cách 3:. . . . .
Dữ liệu cốt A của mình là dữ liệu động xuất hiện trong quá trình tính toán qua userform VBA nên không thể làm vậy được, ý mình là có bác nào biết code vba về xóa item trùng nhau trong combobox. khi sự kiện combobox_change xảy ra
 

PacificPR

Thành viên tích cực
Tham gia ngày
12 Tháng tư 2017
Bài viết
1,252
Được thích
1,919
Điểm
360
Nơi ở
Cái Bang
Dữ liệu cốt A của mình là dữ liệu động xuất hiện trong quá trình tính toán qua userform VBA nên không thể làm vậy được, ý mình là có bác nào biết code vba về xóa item trùng nhau trong combobox. khi sự kiện combobox_change xảy ra
Vậy bạn đính kèm cái file để mọi người đỡ phải đoán già đoán non nữa
 

hpkhuong

######
Tham gia ngày
20 Tháng năm 2011
Bài viết
4,607
Được thích
4,039
Điểm
560
Nơi ở
Quận 2 - TP.HCM
Dữ liệu cốt A của mình là dữ liệu động xuất hiện trong quá trình tính toán qua userform VBA nên không thể làm vậy được, ý mình là có bác nào biết code vba về xóa item trùng nhau trong combobox. khi sự kiện combobox_change xảy ra
Nhiều người trên GPE này biết lắm??? thì sao???
 

selves037

Thành viên hoạt động
Tham gia ngày
22 Tháng chín 2017
Bài viết
187
Được thích
65
Điểm
30
Tuổi
28
Nhờ mọi người giúp với ah
 

selves037

Thành viên hoạt động
Tham gia ngày
22 Tháng chín 2017
Bài viết
187
Được thích
65
Điểm
30
Tuổi
28
Chuẩn rồi bạn ơi, cám ơn nhiều nhé, mĩnh nghĩ mãi mà không ra, cho mình hỏi thêm sự kiện Initialize() là sự kiện gì thế ạ, khi nào thì áp dụng?
 

Lê Duy Thương

CẠO LẤY GÌ GỘI ?
Tham gia ngày
14 Tháng mười 2009
Bài viết
2,956
Được thích
4,641
Điểm
560
Nơi ở
BIÊN HÒA
Nhờ mọi người giúp với ah
xem file nhé.
công thức ở cột AA2
PHP:
=IFERROR(INDEX($A$1:$A$1001,MATCH(TRUE,INDEX(ISERROR(MATCH($A$1:A$1001,$AA$1:AA1,0)),0),0)),"")
sửa lại name DL
PHP:
=OFFSET(Sheet1!$AA$1,,,COUNTA(Sheet1!$AA:$AA)+1,1)
 

File đính kèm

PacificPR

Thành viên tích cực
Tham gia ngày
12 Tháng tư 2017
Bài viết
1,252
Được thích
1,919
Điểm
360
Nơi ở
Cái Bang

selves037

Thành viên hoạt động
Tham gia ngày
22 Tháng chín 2017
Bài viết
187
Được thích
65
Điểm
30
Tuổi
28
xin phép AD, bên lề chủ đề: Em muốn xóa dòng trong sheet1 từ dòng số 7 đến dòng có biến d, em đang dung mã
Mã:
for i =d to 7 step -1
sheet1.rows(d).delete
next i
Có cách nào khác để xóa dòng không, xóa luôn mà chứ không phải là xóa clearcontens
 

NguyenNgocThuHien

Cute Black Cat
Tham gia ngày
11 Tháng mười một 2016
Bài viết
596
Được thích
418
Điểm
235

HieuCD

Thành viên gạo cội
Tham gia ngày
14 Tháng chín 2010
Bài viết
5,704
Được thích
10,089
Điểm
1,560
xin phép AD, bên lề chủ đề: Em muốn xóa dòng trong sheet1 từ dòng số 7 đến dòng có biến d, em đang dung mã
Mã:
for i =d to 7 step -1
sheet1.rows(d).delete
next i
Có cách nào khác để xóa dòng không, xóa luôn mà chứ không phải là xóa clearcontens
Dùng bộ thu Macro để lấy lệnh, sau đó chỉnh lại cho phù hợp
 
Top Bottom