Sắp xếp tên file trong Excel giống Explorer.

[cantl]

Các bác ạ, em tổng hợp và so sánh tên file mà gặp tình huống cách sắp xếp Excel nó không khớp với Explorer. Các bác xem giúp món này có cải thiện được không ạ?

PS: File "YEU CAU" trống để làm mẫu (là yêu cầu của đối tác) chứ không phải yêu cầu của em cho GPE nhé.

 

[vanthinh3101]

Các bác ạ, em tổng hợp và so sánh tên file mà gặp tình huống cách sắp xếp Excel nó không khớp với Explorer. Các bác xem giúp món này có cải thiện được không ạ?

PS: File "YEU CAU" trống để làm mẫu (là yêu cầu của đối tác) chứ không phải yêu cầu của em cho GPE nhé.

Trên Window Explorer của bạn đang là tên file có đuôi extension (.txt, .xlsx)
Trên Excel đang chỉ có tên file không có đuôi extension.
Bạn đồng nhất tên file giống nhau đi thì nó sẽ sắp xếp giống nhau.

 

[cantl]

Trên Window Explorer của bạn đang là tên file có đuôi extension (.txt, .xlsx)
Trên Excel đang chỉ có tên file không có đuôi extension.
Bạn đồng nhất tên file giống nhau đi thì nó sẽ sắp xếp giống nhau.

Đơn giản mà hiệu quả bác ạ.

 

[cantl]

Vẫn là vấn đề sắp xếp tên file.
Em có copy được code, nhưng với file tiếng Việt thì nó sắp xếp không chuẩn.
Chuẩn ở đây là so sánh với sắp xếp Data/Sort của Excel (và Sort by Name của Windows Explorer). Nhờ các anh chị sửa giúp ạ.

 

[tieutuvodanh192]

ExplorerXL - Quản lý thư mục với Excel: tìm, đổi tên, sao chép, di chuyển và xóa

Hôm nay, tôi chia sẻ với các bạn ứng dụng quản lý thư mục và tập tin được viết dựa trên bảng tính Excel và VBA, ứng dụng giúp dễ dàng tìm kiếm thư mục và tập tin, cũng như đổi tên, sao chép, di chuyển đến thư mục khác hoặc xóa tập tin rất linh hoạt. Hình ảnh ứng dụng: File ứng dụng: (***Mật...

www.giaiphapexcel.com

Đây là 1 file quản lý tập tin bằng Excel rất tuyệt vời của tác giả HeSanbi, chắc nó sẽ giúp ích được cho bạn.

 

[cantl]

Cảm ơn bạn, sau khi chạy xong thì nó vẫn bị chỗ phần sắp xếp như thế này. Vẫn chưa đúng mong muốn của mình lắm.

 

[Nhattanktnn]

Cảm ơn bạn, sau khi chạy xong thì nó vẫn bị chỗ phần sắp xếp như thế này. Vẫn chưa đúng mong muốn của mình lắm.

Mà cái này giống hay không giống thứ tự mục đích cuối cùng là để làm gì bạn?

 

[tieutuvodanh192]

Cảm ơn bạn, sau khi chạy xong thì nó vẫn bị chỗ phần sắp xếp như thế này. Vẫn chưa đúng mong muốn của mình lắm.

Nếu sắp xếp theo tên mà có nhiều sai lệch thì bạn thử đổi sắp xếp theo ngày Date modified xem có đúng thứ tự mà bạn muốn không.

 

[cantl]

Mà cái này giống hay không giống thứ tự mục đích cuối cùng là để làm gì bạn?

Mình hơi nông dân về mặt so sánh file thiếu hay đủ.

Cột bên phải để cập nhật cứ có file Báo giá nào thêm thì nhập tay vào (cứ thêm là nhập vào): Nội dung liên quan thì sẽ ghi ở các cột sau. Báo giá thì (lúc bổ sung, lúc thay, lúc hết hạn) nhưng vẫn để vì sau so sánh với dự án khác.
Cột bên trái là cho chạy để đề phòng xem có bỏ sót cái nào không.
Sau còn phải tổng hợp từng vật tư nằm ở Báo giá nào, file nào để gửi bên A kiểm tra. (cái này thì làm bằng tay rồi).

Kết quả cũng tương đối rồi, mình gặp tình huống cách sắp xếp VBA khác Explorer nên không hiểu và xin cách xử lý ấy.
Nếu được thì tốt quá, còn nếu không thì phải chấp nhận 1 số chỗ sẽ có sai lệch như vậy (mặc dù ).

 

[cantl]

Nếu sắp xếp theo tên mà có nhiều sai lệch thì bạn thử đổi sắp xếp theo ngày Date modified xem có đúng thứ tự mà bạn muốn không.

Cảm ơn bạn, vì mình dùng Sort trong Menu Data nên muốn xếp theo tên thôi.
Có thể VBA không hỗ trợ tiếng Việt nên khác như vậy.
Đại loại ý mình là đã có array1(tên tất cả file có dấu), giờ tạo array2(ten tat ca file) và sort array2(), rồi lấy thứ tự array2() mà đảo các vị trí của array1().
Con đường có vẻ nhiều chông gai.

 

[Nhattanktnn]

Mình hơi nông dân về mặt so sánh file thiếu hay đủ.

Cột bên phải để cập nhật cứ có file Báo giá nào thêm thì nhập tay vào (cứ thêm là nhập vào): Nội dung liên quan thì sẽ ghi ở các cột sau. Báo giá thì (lúc bổ sung, lúc thay, lúc hết hạn) nhưng vẫn để vì sau so sánh với dự án khác.
Cột bên trái là cho chạy để đề phòng xem có bỏ sót cái nào không.
Sau còn phải tổng hợp từng vật tư nằm ở Báo giá nào, file nào để gửi bên A kiểm tra. (cái này thì làm bằng tay rồi).

Kết quả cũng tương đối rồi, mình gặp tình huống cách sắp xếp VBA khác Explorer nên không hiểu và xin cách xử lý ấy.
Nếu được thì tốt quá, còn nếu không thì phải chấp nhận 1 số chỗ sẽ có sai lệch như vậy (mặc dù ).

Mình thấy cốt lõi là bạn muốn xem file báo giá nào có mà trong folder lại không có hoặc ngược lại. Vậy thì conditional formatting tô màu file nào không có là đủ dùng rồi chứ cần gì phức tạp?

 

[cantl]

Mình thấy cốt lõi là bạn muốn xem file báo giá nào có mà trong folder lại không có hoặc ngược lại. Vậy thì conditional formatting tô màu file nào không có là đủ dùng rồi chứ cần gì phức tạp?

Cảm ơn bạn, mình đã kết hợp thêm conditional formatting luôn ấy chứ.
Cơ bản là nhìn không vừa ý nên cứ tức anh ách thôi, mò mãi không được nên xin trợ giúp.
Thôi quay lại sửa thủ công mấy chỗ cục bộ vậy.

 

[befaint]

Từ khóa dịch sang tiếng Việt: Cái đó gọi là thứ tự sắp xếp tự nhiên.

Vài dòng Python rồi chuyển thành thư viện VBA là ngon lành.

 

[cantl]

Từ khóa dịch sang tiếng Việt: Cái đó gọi là thứ tự sắp xếp tự nhiên.

Vài dòng Python rồi chuyển thành thư viện VBA là ngon lành.

View attachment 283856

Nhờ bạn giúp mình với.
Đặt tên file theo như bạn thì VBA nó xếp khác với Data/Sort như ảnh nè.

 

[huuthang_bd]

Mình hơi nông dân về mặt so sánh file thiếu hay đủ.

Cột bên phải để cập nhật cứ có file Báo giá nào thêm thì nhập tay vào (cứ thêm là nhập vào): Nội dung liên quan thì sẽ ghi ở các cột sau. Báo giá thì (lúc bổ sung, lúc thay, lúc hết hạn) nhưng vẫn để vì sau so sánh với dự án khác.
Cột bên trái là cho chạy để đề phòng xem có bỏ sót cái nào không.
Sau còn phải tổng hợp từng vật tư nằm ở Báo giá nào, file nào để gửi bên A kiểm tra. (cái này thì làm bằng tay rồi).

Kết quả cũng tương đối rồi, mình gặp tình huống cách sắp xếp VBA khác Explorer nên không hiểu và xin cách xử lý ấy.
Nếu được thì tốt quá, còn nếu không thì phải chấp nhận 1 số chỗ sẽ có sai lệch như vậy (mặc dù ).

Sao phải khổ vậy. Đã dùng VBA rồi còn phụ thuộc vào sort làm gì!
--
Mang1 là mảng từ dữ liệu nhập tay, có sẵn trên Excel.
Mang2 là mảng danh sách file thực tế lấy bằng cách duyệt file trong thư mục.
Mang3 là kết quả, dùng để ghi xuống sheet.
Mang3 được tạo bằng cách so sánh từng phần tử của Mang2 với các phần tử của Mang1, nếu có thì ghi vào Mang3 ở vị trí tương ứng với Mang1, không có thì ghi vào cuối Mang3. Code so sánh đơn giản đại loại như sau:

k = Ubound(Mang1, 1)
For i = 1 to Ubound(Mang2, 1)
  For j = 1 to Ubound(Mang1, 1)
    If Mang2(i) = Mang1(j, 1) Then
      Mang3(j, 1) = Mang2(i)
      Go to Next_i
    End If
  Next
  k = k + 1
  Mang3(k, 1) = Mang2(i)
Next_i:
Next

Tôi trả lời trên điện thoại nên chỉ viết đoạn chính, code có thể có lỗi chính tả.

 

[cantl]

Sao phải khổ vậy. Đã dùng VBA rồi còn phụ thuộc vào sort làm gì!
--
Mang1 là mảng từ dữ liệu nhập tay, có sẵn trên Excel.
Mang2 là mảng danh sách file thực tế lấy bằng cách duyệt file trong thư mục.
Mang3 là kết quả, dùng để ghi xuống sheet.
Mang3 được tạo bằng cách so sánh từng phần tử của Mang2 với các phần tử của Mang1, nếu có thì ghi vào Mang3 ở vị trí tương ứng với Mang1, không có thì ghi vào cuối Mang3. Code so sánh đơn giản đại loại như sau:

k = Ubound(Mang1, 1)
For i = 1 to Ubound(Mang2, 1)
  For j = 1 to Ubound(Mang1, 1)
    If Mang2(i) = Mang1(j, 1) Then
      Mang3(j, 1) = Mang2(i)
      Go to Next_i
    End If
  Next
  k = k + 1
  Mang3(k, 1) = Mang2(i)
Next_i:
Next

Tôi trả lời trên điện thoại nên chỉ viết đoạn chính, code có thể có lỗi chính tả.

Vâng. Cách tiếp cận của bác khác hẳn cách nghĩ của em, em thì cứ nghĩ lấy hết tên file rồi sắp xếp A->Z nên mới bị vậy. Đúng là so sánh thế này thì sẽ theo thứ tự luôn. Nhưng kết quả gần có nên em chờ tí nữa.