Xếp Hạng Trong Bóng đá (1 người xem)

[boy_h3_9019]

Cột A là tên đội, cột B là điểm, cột C là hiệu số (số tự nhiên). Bây giờ mình muốn xếp hạng (giả sử 4 đội) dựa trên điểm và hiệu số (nếu điểm bằng nhau thì xét HS), với các thứ hạng 1 - 2 - 3 - 4. Sau đó bảng tính sẽ tự động sắp xếp thứ tự các đội từ cao xuống thấp.
Có lẽ vấn đề này đã được các bạn khác hỏi nhiều rồi,nhưng mình tìm hoài vẫn không thấy trên diễn đàn. Nhờ các bạn chịu khó giúp với nha.

 

[boyxin]

Cột A là tên đội, cột B là điểm, cột C là hiệu số (số tự nhiên). Bây giờ mình muốn xếp hạng (giả sử 4 đội) dựa trên điểm và hiệu số (nếu điểm bằng nhau thì xét HS), với các thứ hạng 1 - 2 - 3 - 4. Sau đó bảng tính sẽ tự động sắp xếp thứ tự các đội từ cao xuống thấp.
Có lẽ vấn đề này đã được các bạn khác hỏi nhiều rồi,nhưng mình tìm hoài vẫn không thấy trên diễn đàn. Nhờ các bạn chịu khó giúp với nha.

tham khảo thêm trong file này

EURO 2008.rar (pas UnProtect sheet: euro2008)
TRONG CHỦ ĐỀ: Lịch thi đấu bóng đá EURO 2008​

 

[boy_h3_9019]

boyxin : tham khảo thêm trong file này

EURO 2008.rar (pas UnProtect sheet: euro2008)
TRONG CHỦ ĐỀ: Lịch thi đấu bóng đá EURO 2008

Mình đã coi file này cả buổi chiều, nhưng thật tình vẫn không thể hiểu được vùng Z (và cả những vùng phía sau) - những con số đó đc lấy từ đâu nữa ??!!!
Ban đầu mình chỉ nghĩ muốn xếp hạng 4 đội bóng dựa trên hai tiêu chí : điểm và hiệu số thì đơn giản thôi. Ai dè lại phức tạp đến như vậy. Hjx. Không biết có cao thủ nào có cách khác không nhỉ? (hình như dùng macro cũng đc mà).

 

[hunglieu]

mình là thành viên mới và bắt đầu tìm hiểu về excel, mình rất thích file sếp hạng đó nhưng mình không hiểu dùng công thức macro hay gì gì đó mà ra như vậy được vì khi mình nháy vào các ô trong đo mình không thấy có công thức hay gì cả, trả lời giúp với.

 

[boyxin]

Mình đã coi file này cả buổi chiều, nhưng thật tình vẫn không thể hiểu được vùng Z (và cả những vùng phía sau) - những con số đó đc lấy từ đâu nữa ??!!!
Ban đầu mình chỉ nghĩ muốn xếp hạng 4 đội bóng dựa trên hai tiêu chí : điểm và hiệu số thì đơn giản thôi. Ai dè lại phức tạp đến như vậy. Hjx. Không biết có cao thủ nào có cách khác không nhỉ? (hình như dùng macro cũng đc mà).

ec ec ec

trong file đó 100% là dùng công thức, không dùng tý tẹo tèo teo nào gọi là macro

 

[salam]

(hình như dùng macro cũng đc mà).

Bạn chỉ cần ghi lại một macro sắp xếp các bảng thoe tiêu chí trên là được rồi.

 

[boy_h3_9019]

ec ec ec

trong file đó 100% là dùng công thức, không dùng tý tẹo tèo teo nào gọi là macro

Thì đúng là toàn công thức nên mới phải phức tạp như thế. hjx. Ước gì có topic nào "mổ xẻ" vấn đề này cho anh em học hỏi nhỉ ^^ (về việc những con số đó tính thế nào ý).

Bạn chỉ cần ghi lại một macro sắp xếp các bảng thoe tiêu chí trên là được rồi.

Thanks bạn nhìu nhìu vì đã giúp cái macro xử lý ^^, nhưng vấn đề ở đây là hình như ko ai dùng một Button như vậy để xếp hạng cả (hơi mất công nhỉ). Có thể nào tạo một hàm cho riêng trường hợp này rồi add-in vào để sử dụng ko nhỉ ? ==> hjx, ý tưởng thì có đầy, nhưng tớ lại ko có khả năng thực hiện

 

[salam]

Thì đúng là toàn công thức nên mới phải phức tạp như thế. hjx. Ước gì có topic nào "mổ xẻ" vấn đề này cho anh em học hỏi nhỉ ^^ (về việc những con số đó tính thế nào ý).


Thanks bạn nhìu nhìu vì đã giúp cái macro xử lý ^^, nhưng vấn đề ở đây là hình như ko ai dùng một Button như vậy để xếp hạng cả (hơi mất công nhỉ). Có thể nào tạo một hàm cho riêng trường hợp này rồi add-in vào để sử dụng ko nhỉ ? ==> hjx, ý tưởng thì có đầy, nhưng tớ lại ko có khả năng thực hiện

Thế thì bạn dùng:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
For i = 1 To 4
Range(Cells((3 + ((i - 1) * 5)), 2), Cells((5 * (i - 1)) + 6, 5)).Select
     Selection.Sort Key1:=Range("C3"), Order1:=xlDescending, Key2:=Range("E3") _
        , Order2:=xlDescending, Key3:=Range("B3"), Order3:=xlDescending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
        , DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
Next
        Application.ScreenUpdating = True
        Range("A1").Select
End Sub

 

[thkd09]

Tại sao tui cũng viết code trong worksheet như bác mà lúc Save nó lại không cho nhẩy????

 

[nhanvt113]

boyxin : tham khảo thêm trong file này

EURO 2008.rar (pas UnProtect sheet: euro2008)
TRONG CHỦ ĐỀ: Lịch thi đấu bóng đá EURO 2008

Cho em xin pass unprotect sheet với. Hic