Giúp đỡ gom về 1 dòng để trả mã voucher cho KH (5 người xem)

[tuyet2101]

Hiện nay em cần xử lý 1 file dữ liệu như sau:
- Sheet đầu tiên của File đính kèm là DS số Điện thoại của KH và cột MÃ KM: Cột Số ĐT thì có thể trùng nhau vì 1 số ĐT thì có nhiều mã KM, còn mã KM thì không trùng nhau.
- em muốn gom lại sao cho tất cả các số điện thoại trùng nhau thì được gom lại về 1 dòng, và bên cạnh là cột toàn bộ mã KM cách nhau bằng dấu ;

File đính kèm là file Ví dụ:
Sheet 1: Dữ liệu gốc
Sheet 2: Dữ liệu kết quả mong muốn

Em cảm ơn các anh/chị ạ

 

[LamNA]

Hiện nay em cần xử lý 1 file dữ liệu như sau:
- Sheet đầu tiên của File đính kèm là DS số Điện thoại của KH và cột MÃ KM: Cột Số ĐT thì có thể trùng nhau vì 1 số ĐT thì có nhiều mã KM, còn mã KM thì không trùng nhau.
- em muốn gom lại sao cho tất cả các số điện thoại trùng nhau thì được gom lại về 1 dòng, và bên cạnh là cột toàn bộ mã KM cách nhau bằng dấu ;

File đính kèm là file Ví dụ:
Sheet 1: Dữ liệu gốc
Sheet 2: Dữ liệu kết quả mong muốn

Em cảm ơn các anh/chị ạ

Xem đúng ý bạn không?

 

[ndu96081631]

Xem đúng ý bạn không?

Cũng may dữ liệu gốc là số điện thoại (number). Nếu dữ liệu là text thì code của bạn sẽ... có chuyện
Đố bạn biết đó là chuyện gì?

 

[LamNA]

Cũng may dữ liệu gốc là số điện thoại (number). Nếu dữ liệu là text thì code của bạn sẽ... có chuyện
Đố bạn biết đó là chuyện gì?

Em cũng không biết nữa thầy, em chuyển dạng text thấy cũng chạy, thầy hướng dẫn thêm giúp em để rút kinh nghiệm nhe

 

[ndu96081631]

Em cũng không biết nữa thầy, em chuyển dạng text thấy cũng chạy, thầy hướng dẫn thêm giúp em để rút kinh nghiệm nhe

Bạn gõ chử b vào cell A3 là biết liền chứ gì (b chứ không phải B)

 

[LamNA]

Bạn gõ chử b vào cell A3 là biết liền chứ gì (b chứ không phải B)

Lỗi thầy là bị gì vậy thầy, chưa tìm ra vấn đề em nghi vấn ở 2 dòng này, không biết đúng không nữa?
Thầy cho em xin giải pháp nhe

For i = LBound(CritTmp, 1) To UBound(CritTmp, 1)
   For j = LBound(CritTmp, 2) To UBound(CritTmp, 2)

 

[♫ђöล♥ßล†♥†µ♫]

Lỗi thầy là bị gì vậy thầy, chưa tìm ra vấn đề em nghi vấn ở 2 dòng này, không biết đúng không nữa?
Thầy cho em xin giải pháp nhe

For i = LBound(CritTmp, 1) To UBound(CritTmp, 1)
   For j = LBound(CritTmp, 2) To UBound(CritTmp, 2)

Bài 3 Thầy đã nói thì lỗi không phải mấy dòng đó

 

[LamNA]

Bài 3 Thầy đã nói thì lỗi không phải mấy dòng đó

Không em hiểu và kiểm tra là đã thấy lỗi nếu chữ thường mà không biết nguyên nhân sao lỗi

 

[♫ђöล♥ßล†♥†µ♫]

Không em hiểu và kiểm tra là đã thấy lỗi nếu chữ thường mà không biết nguyên nhân sao lỗi

Vậy là b khác B rồi. Đứa kia nó to chành bành đứa còn lại nhỏ xí. Bạn thử đưa 2 đứa ấy về cùng nhau xem.

 

[phulien1902]

Lỗi thầy là bị gì vậy thầy, chưa tìm ra vấn đề em nghi vấn ở 2 dòng này, không biết đúng không nữa?
Thầy cho em xin giải pháp nhe

For i = LBound(CritTmp, 1) To UBound(CritTmp, 1)
   For j = LBound(CritTmp, 2) To UBound(CritTmp, 2)

Thêm dòng dưới vào phần khi báo

Option Compare Text

 

[♫ђöล♥ßล†♥†µ♫]

Không em hiểu và kiểm tra là đã thấy lỗi nếu chữ thường mà không biết nguyên nhân sao lỗi

À tải file mới thấy câu lệnh này On Error Resume Next
Sau một thời gian cọc kẹc về Code và được sự giúp đỡ của các Thầy trên diễn đàn thì như mình thấy càng dùng ít đến dòng lệnh trên càng tốt ( Nuế dùng thì mình phải kiểm soát được nó. Thầy mình bảo vầy )

 

[ndu96081631]

Không em hiểu và kiểm tra là đã thấy lỗi nếu chữ thường mà không biết nguyên nhân sao lỗi

Trong VBA nếu bạn so sánh chuỗi A= chuỗi B thì chuỗi A phải y chang chuỗi B mới cho kết quả True. Tức nó có phân biệt HOA thường
---------------------------

Thêm dòng dưới vào phần khi báo

Option Compare Text

Bạn cũng không thể biết trước rằng người ta có muốn phân biệt HOA thường hay không mà ghi Option Compare Text ở đầu code
---------------------------
Điều tôi muốn nói ở đây là: Làm việc với chuỗi thì phải đặc biệt chứ ý đến CompareMethod. Các bạn không biết trước người ta muốn cái gì, có phân biệt HOA thường hay không thì nên để một đối số tùy chọn vào hàm. Người dùng muốn sao ta đều đáp ứng được tất
Để so sánh chuỗi, trong VBA có hàm StrComp đáp ứng được các yêu cầu này (chứ không nên so sánh =)

Function StrComp(String1, String2, [Compare As VbCompareMethod = vbBinaryCompare])

Là vậy đấy!

 

[LamNA]

Thêm dòng dưới vào phần khi báo

Option Compare Text

Cám ơn anh em đã hiểu, khai báo để nó xét 2 dạng text đều giống nhau giống như "Bê" với "Đê" vẫn là giới tính Nam.

 

[tuyet2101]

Em xin cảm ơn các anh/chị ạ!

 

[tuyet2101]

Các anh/chị cho em hỏi thêm nữa là dữ liệu của em ~100.000 bản ghi, khi đẩy vào file này thì có biểu tượng calculating rất lâu 0% mãi, trong thời gian đó không thể xử lý gì thêm với các file excel khác được. Có cách gì khắc phục không ạ?

 

[ndu96081631]

Các anh/chị cho em hỏi thêm nữa là dữ liệu của em ~100.000 bản ghi, khi đẩy vào file này thì có biểu tượng calculating rất lâu 0% mãi, trong thời gian đó không thể xử lý gì thêm với các file excel khác được. Có cách gì khắc phục không ạ?

Câu hỏi không liên quan đến chủ đề topic cả bạn à! Nếu muốn bạn có thể mở topic khác để hỏi nhé

 

[tuyet2101]

huhu, tình hình là em không thể sử dụng được file của a LAMNA khi dữ liệu của em lên đến ~100.000 bản ghi, mất nửa ngày không ra nổi dữ liệu, trong khi làm vài bước bằng tay thì mất ~30p hic hic. có cao thủ nào làm được bằng ACCESS không ạ

Bài đã được tự động gộp: 27/8/18

Câu hỏi không liên quan đến chủ đề topic cả bạn à! Nếu muốn bạn có thể mở topic khác để hỏi nhé

Anh ơi, vẫn theo luồng này, em đang là người post câu hỏi, sau khi dùng file ví dụ của anh, với ~100.000 bản ghi thì cứ bị đứng yên mãi nên em mới hỏi thêm ạ. Cảm ơn anh

 

[LamNA]

huhu, tình hình là em không thể sử dụng được file của a LAMNA khi dữ liệu của em lên đến ~100.000 bản ghi, mất nửa ngày không ra nổi dữ liệu, trong khi làm vài bước bằng tay thì mất ~30p hic hic. có cao thủ nào làm được bằng ACCESS không ạ

Thật ra trên diễn đàn cũng có nhiều rồi đó, bạn thử dùng lại file này và chạy lại nhe, mình để dữ liệu 600000 dòng chắc đủ để bạn xài

 

[tuyet2101]

Thật ra trên diễn đàn cũng có nhiều rồi đó, bạn thử dùng lại file này và chạy lại nhe, mình để dữ liệu 600000 dòng chắc đủ để bạn xài

Cảm ơn anh rất nhiều, ngon rồi ạ

 

[ndu96081631]

Thật ra trên diễn đàn cũng có nhiều rồi đó, bạn thử dùng lại file này và chạy lại nhe, mình để dữ liệu 600000 dòng chắc đủ để bạn xài

Cái tên Sub là Sub GPE ---> Phong cách của anh Ba Tê
Nội dung code thì thấy giống phong cách code của mình viết, từ cách đặt tên biến đến hình thức triển khai
Hic... là sao ta?