- Tham gia
- 13/6/06
- Bài viết
- 4,737
- Được thích
- 10,243
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên, CEO tại Bluesofts
Gửi các bạn phương pháp sắp xếp các Sheet trong Workbook theo thứ tự nào đó.
Sắp xếp các Sheet - Bài toán sắp xếp
- Thread starter Nguyễn Duy Tuân
- Ngày gửi
Đây là tình huống có vẽ đơn giản nhưng có nhiều vấn đề hửu ích để luyện tập viết code, nên mọi người mới trao đổi thêm với bạn để thấy rỏ hơn vấn đề, như nhiều lần bạn Vietmini nói tiêu chuẩn code hiệu quả không phải là ngắn nhất hay chạy nhanh nhất mà là cách giải quyết vấn đề rỏ ràng mạch lạc, các thành phần của code và toàn bộ code có thể kiểm soát được đầu vào và đầu ra, từ đó mới có khả năng lường hết các khả năng xảy ra, và khi cần điều chỉnh cũng sẽ dể dàng hơn.
Viết code, khó nhất là phải lường trước tất cả khả năng xảy ra và kiểm soát các khả năng nầy, khi mình còn nghi ngờ về một khả năng nào đó, đồng nghĩa code còn chưa hoàn chỉnh: "chỉ cần sắp 2 lần là được nếu để chắc ăn thì lên 100 lần"
Upvote
0
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,893
- Được thích
- 11,223
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
Nếu bạn để ý thì sẽ thấy các công thức dùng tham chiếu vòng tôi không khuyến khích sử dụng. Làm chỉ mang tính chất nghiên cứu mà thôi
Ví dụ căn 2 mà bạn đưa ra. Sử dụng vòng lặp Do... While, trong đó thực hiện phép tính căn và kiểm tra kết quả là một giải pháp hoàn toàn phù hợp vì khi thoát vòng lặp bạn sẽ biết chắc chắn bài toán đưa ra có nghiệm hay không. Nếu có thì nghiệm là bao nhiêu.
Quay lại bài sắp xếp này, bạn cũng có thể dùng vòng lặp với bao nhiêu vòng tùy ý nhưng phải đảm bảo sau khi chạy macro các sheet chắc chắn đã được sắp xếp theo yêu cầu đưa ra. Có thể làm như trên là đưa vào Do... While và kiểm tra (kiểm tra sự thay đổi, đối chiếu với thứ tự cần sắp xếp)
Upvote
0
Néu ai có thuật toán mẹo gì thì tôi chưa biết. Chứ theo lô gic thuật toán "ăn chắc mặc bền" thì chỉ cần lập một mảng chứa tên tất cả các sheets theo thứ tự cần sắp xếp. Sau đó:
For i = 1 to Ubound(mang)-1
sheets(mang(i)).move before:=sheets(i)
Next i
Nếu muốn bẫy lỗi gì gì đó thì lúc sắp xếp cái mảng chứa tên sheets trên sẽ lòi ra.
For i = 1 to Ubound(mang)-1
sheets(mang(i)).move before:=sheets(i)
Next i
Nếu muốn bẫy lỗi gì gì đó thì lúc sắp xếp cái mảng chứa tên sheets trên sẽ lòi ra.
Upvote
0
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,893
- Được thích
- 11,223
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
Xếp kiểu này có trường hợp không đúng nha bạn.
Upvote
0
Đó là lô gic tổng thể, nó chỉ có thể đúng hoặc không đúng. Không thể "có trường hợp không đúng"
Upvote
0
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,893
- Được thích
- 11,223
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
Xin lỗi, tôi đọc không kỹ. Cách xếp bạn đưa ra là đúng rồi.
Tôi nói có trường hợp không đúng là đang nói đến từng trường hợp cụ thể, giống như code đầu tiên của bạn eke_rula có khi kết quả đúng có khi kết quả sai tùy vào từng trường hợp cụ thể.
Và đương nhiên khi đã có trường hợp không đúng thì thuật toán / cách làm đó sai.
Upvote
0
Vấn đề của tôi bây giờ là lập bảng sắp tên sheets. Nhất thời chưa nghĩ ra cách nào đặc sắc cho nên dùng kiểu rừng vậy
Mã:
' code sắp xếp tên sheet vào mảng theo thứ tự yêu cầu
' mảng sẽ xếp tên sheet theo thứ tự yêu cầu của chúng.
' Những sheets không có trong yêu cầu thì sẽ giữ lại vị trí TƯƠNG ĐỐI của chúng
Dim ordList() As String, reqList As Variant, staList as String
reqList = [range chứa yêu cầu] ' cột 1 chứa tên sheet, cột 2 chứa thứ tự yêu cầu
Redim ordList(1 to sheets.count)
for i = 1 to ubound(reqList)
ordList(reqList(i, 2)) = reqList(i, 1)
next i
staList = "," & Join(ordList, ",") & "," ' danh sách các sheets đã vào mảng
Dim lastBlank as integer
lastBlank = 1 ' đoán đại chỗ trống trong mảng sắp xếp, sẽ dò lại sau
for i = 1 to sheets.count ' định vị các sheets không có trong danh sách
if Instr(staList, "," & sheets(i).Name & ",") < 1 Then
For j = lastBlank to sheets.Count
if ordList(j) = "" Then ' chỗ này còn trống
ordList(j) = sheets(i).Name
lastBlank = j + 1
Exit For
End If
Next j
End If
next i
' đến đây thì ta có mảng ordList là mảng tên các sheets đã sắp xếp theo thứ tự yêu cầu
' code này nếu dùng ArrayList thì có thể nhanh và gọn hơn.
' code chỉ viết theo diễn giải thuật toán, chưa chạy thử
Upvote
0
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,893
- Được thích
- 11,223
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
Excel cho phép dùng dấu phẩy (,) trong tên sheet nên khi kiểm tra trên chuỗi được nối bằng dấu phẩy (,) có thể xảy ra trường hợp ngoài mong muốn. Tôi nghĩ chỗ này nên dùng một ký tự mà Excel không cho phép dùng để đặt tên sheet.
Upvote
0
eke_rula
Thành viên tích cực
- Tham gia
- 12/11/16
- Bài viết
- 1,076
- Được thích
- 1,245
Vâng cám ơn anh, em sẽ để ý chỗ này!!!Nếu bạn để ý thì sẽ thấy các công thức dùng tham chiếu vòng tôi không khuyến khích sử dụng. Làm chỉ mang tính chất nghiên cứu mà thôi
Ví dụ căn 2 mà bạn đưa ra. Sử dụng vòng lặp Do... While, trong đó thực hiện phép tính căn và kiểm tra kết quả là một giải pháp hoàn toàn phù hợp vì khi thoát vòng lặp bạn sẽ biết chắc chắn bài toán đưa ra có nghiệm hay không. Nếu có thì nghiệm là bao nhiêu.
Quay lại bài sắp xếp này, bạn cũng có thể dùng vòng lặp với bao nhiêu vòng tùy ý nhưng phải đảm bảo sau khi chạy macro các sheet chắc chắn đã được sắp xếp theo yêu cầu đưa ra. Có thể làm như trên là đưa vào Do... While và kiểm tra (kiểm tra sự thay đổi, đối chiếu với thứ tự cần sắp xếp)
Upvote
0
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,893
- Được thích
- 11,223
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
Không phải vậy đâu bạn, không -1 cũng không thể sai vì vòng lặp duyệt các sheet theo thứ tự mà yêu cầu đặt ra (mảng đã sắp xếp) nên xếp đến sheet nào thì sheet đó đã ở đúng vị trí của nó (không chen ngang). Việc xếp sheet cuối vào vị trí cuối là không cần thiết mà thôi.
Upvote
0
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,893
- Được thích
- 11,223
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
Bấm trả lời tự nhiên thấy trích dẫn mấy dấu gạch. Tưởng bấm nhầm bấm lại vẫn thế .
.
Upvote
0
constructxda
Thành viên mới
- Tham gia
- 10/2/09
- Bài viết
- 22
- Được thích
- 4
Cảm ơn các bác đã tham gia giúp đỡ rất nhiều, nhưng em coppy các code về chạy thử vẫn không được như ý muốn. Giờ em tải chính file em đang làm lên các bác giúp em nhé.
Mục lục tại sheet index, em muốn nó sắp xếp các sheet theo thứ tự cho trước như ở cột A:B. Mong các bác giúp đỡ, em cảm ơn nhiều!!!!
Mục lục tại sheet index, em muốn nó sắp xếp các sheet theo thứ tự cho trước như ở cột A:B. Mong các bác giúp đỡ, em cảm ơn nhiều!!!!
Upvote
0
Tiêu đề bạn hỏi à "bài toán..." tôi tưởng bạn muốn hỏi thuật toán rồi tự code lấy.
Ai biết đâu bạn muốn xin code từ a đến z. Lần sau nói thẳng "nhờ code giùm"
Chờ mấy bạn kia đi nhé. Thuật toán thì tôi có hứng chứ viết code từ a đến z thì tôi lười lắm.
Ai biết đâu bạn muốn xin code từ a đến z. Lần sau nói thẳng "nhờ code giùm"
Chờ mấy bạn kia đi nhé. Thuật toán thì tôi có hứng chứ viết code từ a đến z thì tôi lười lắm.
Upvote
0
constructxda
Thành viên mới
- Tham gia
- 10/2/09
- Bài viết
- 22
- Được thích
- 4
Đoạn code mọi người cho ở trên em chạy trên file VD làm ví dụ thì OK lắm nhưng khi chạy trên file thực tế cần làm thì nó lại chạy không ra thứ tự gì. Bác VietMini nói thế thành ra chả ai giúp em. Thực ra e mới biết sử dụng macro thôi chứ để viết ra nó thì em chưa biết. Chắc là bác thấy file em gửi lên có macro ở trong nên bác nghĩ em biết mà không chịu làm lại đi nhờ người khác phải không ạ. Huhu em chưa biết thuật toán trong đó là gì ạ. Mong các bác biết thông thạo rồi thì bớt chút thời gian giúp em vì em đang cần gấp, sau này em sẽ cố gắng học.
Lần chỉnh sửa cuối:
Upvote
0
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,893
- Được thích
- 11,223
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
Bạn nghĩ xem cái này là do ai?
Upvote
0
Bài viết mới nhất
- Question
