Sắp xếp cột xếp hạng theo thứ tự từ hạng 1 đến hết (1 người xem)

[0167767]

Bấm vào nút này sẽ thay đổi họ tên học sinh cột điểm tuần 1, tổng kết điểm và xếp hạng theo thứ tự. Các bạn xem file giúp mình nhé cảm ơn các bạn rất nhiều.

 

[befaint]

Bấm vào nút này sẽ thay đổi họ tên học sinh cột điểm tuần 1, tổng kết điểm và xếp hạng theo thứ tự. Các bạn xem file giúp mình nhé cảm ơn các bạn rất nhiều.

Cái nút này là nút nào ta?
Trong Excel có sẵn cái sort đó, sort vùng dữ liệu ở cột B: P theo tiêu chí ở cột P là được thôi.

 

[Ba Tê]

Bấm vào nút này sẽ thay đổi họ tên học sinh cột điểm tuần 1, tổng kết điểm và xếp hạng theo thứ tự. Các bạn xem file giúp mình nhé cảm ơn các bạn rất nhiều.

Bạn gán Sub dưới vào "nút này" của bạn xem sao:

Public Sub s_Gpe()
Dim sArr(), dArr(), I As Long, R As Long
sArr = Range("C8", Range("C8").End(xlDown)).Resize(, 14).Value
R = UBound(sArr): ReDim dArr(1 To R, 1 To 3)
For I = 1 To R
    dArr(I, 1) = sArr(I, 1)
    dArr(I, 2) = sArr(I, 13)
    dArr(I, 3) = sArr(I, 14)
Next I
Range("R8").Resize(100, 3).ClearContents
Range("R8").Resize(R, 3) = dArr
Range("R8").Resize(R, 3).Sort Key1:=Range("T8"), Order1:=xlAscending
End Sub

 

[phulien1902]

Bấm vào nút này sẽ thay đổi họ tên học sinh cột điểm tuần 1, tổng kết điểm và xếp hạng theo thứ tự. Các bạn xem file giúp mình nhé cảm ơn các bạn rất nhiều.

Không biết mấy cái dòng dưới lấy ở đâu ra

 

[0167767]

Bạn gán Sub dưới vào "nút này" của bạn xem sao:

Public Sub s_Gpe()
Dim sArr(), dArr(), I As Long, R As Long
sArr = Range("C8", Range("C8").End(xlDown)).Resize(, 14).Value
R = UBound(sArr): ReDim dArr(1 To R, 1 To 3)
For I = 1 To R
    dArr(I, 1) = sArr(I, 1)
    dArr(I, 2) = sArr(I, 13)
    dArr(I, 3) = sArr(I, 14)
Next I
Range("R8").Resize(100, 3).ClearContents
Range("R8").Resize(R, 3) = dArr
Range("R8").Resize(R, 3).Sort Key1:=Range("T8"), Order1:=xlAscending
End Sub

Đúng theo ý đồ của mình rồi, tuy nhiên thực hiện từ cột c đến cột j không cần phải thêm cột phụ, mong bác giúp đỡ và thông cảm giúp dùm cảm ơn bác nhiều

 

[befaint]

ĐÚNG THEO Ý ĐỒ CỦA MÌNH RỒI BÁC BATE. TUY NHIÊN MÌNH MUỐN THAY ĐỔI NGAY TRÊN CÁC DÒNG TỪ C ĐẾN J LUÔN BÁC KHÔNG PHẢI NHẢY RA CÁC CỘT PHỤ. BÁC THÔNG CẢM GIÚP DÙM MÌNH NHÉ. BÁC XEM FILE GIÚP DÙM MÌNH NHÉ CẢM ƠN BÁC NHIỀU

Bàn phím bị hỏng phím caps lock và phím shift hả?
Chuẩn bị vô thùng rác với lý do vi phạm nội quy: http://www.giaiphapexcel.com/diendan/threads/76052
Mệt!

 

[0167767]

Bàn phím bị hỏng phím caps lock và phím shift hả?
Chuẩn bị vô thùng rác với lý do vi phạm nội quy: http://www.giaiphapexcel.com/diendan/threads/76052
Mệt!

Anh em không à nhiều khi tôi còn lớn tuổi hơn bạn đấy, có gì bạn thông cảm dùm mình cảm ơn bạn

 

[befaint]

Anh em không à nhiều khi tôi còn lớn tuổi hơn bạn đấy, có gì bạn thông cảm dùm mình cảm ơn bạn

Oh hay, hóa ra luật (ở đây là nội quy chung) phân biệt tuổi tác, địa vị? Kiểu thời Quân chủ ấy hả?

Cứ tưởng thời hiện đại thì "lớn tuổi" làm gương, chứ đâu có chuyện ngược lại?

Ngoài việc không tuân thủ nội quy diễn đàn (là việc nhỏ), cái quan trọng là viết HOA cả bài như thế là khiếm nhã với người đọc (người nhận phản hồi).

(Ngay cái câu trên còn không biết ngắt câu ở chỗ nào cho nó rõ nghĩa!!!)

 

[0167767]

Oh hay, hóa ra luật (ở đây là nội quy chung) phân biệt tuổi tác, địa vị? Kiểu thời Quân chủ ấy hả?

Cứ tưởng thời hiện đại thì "lớn tuổi" làm gương, chứ đâu có chuyện ngược lại?

Ngoài việc không tuân thủ nội quy diễn đàn (là việc nhỏ), cái quan trọng là viết HOA cả bài như thế là khiếm nhã với người đọc (người nhận phản hồi).

(Ngay cái câu trên còn không biết ngắt câu ở chỗ nào cho nó rõ nghĩa!!!)

Bạn giỏi rồi. Bạn rảnh thì bạn cứ nói.

 

[Ba Tê]

Bạn giỏi rồi. Bạn rảnh thì bạn cứ nói.

Không phải người góp ý để bạn thực hiện đúng nội quy diễn đàn là "Giỏi, Rảnh" đâu.
Bạn nên trở lại bài #5, tìm nút "Sửa", Gõ lại kiểu chữ bình thường.
(không viết "HOA" hoặc "thường" cả bài viết như vậy, đọc "xốn con mắt bên trái, nhức con mắt bên phải")
Code cho file ở bài #5 thì chỉ còn 1 dòng lệnh thôi.

Public Sub s_Gpe()
Range("b8", Range("b8").End(xlDown)).Resize(, 9).Sort Key1:=Range("J8"), Order1:=xlAscending
End Sub

 

[VetMini]

Không phải người góp ý để bạn thực hiện đúng nội quy diễn đàn là "Giỏi, Rảnh" đâu.
Bạn nên trở lại bài #5, tìm nút "Sửa", Gõ lại kiểu chữ bình thường.
(không viết "HOA" hoặc "thường" cả bài viết như vậy, đọc "xốn con mắt bên trái, nhức con mắt bên phải")
Code cho file ở bài #5 thì chỉ còn 1 dòng lệnh thôi.

Public Sub s_Gpe()
Range("b8", Range("b8").End(xlDown)).Resize(, 9).Sort Key1:=Range("J8"), Order1:=xlAscending
End Sub

Có bài giải rồi. Tội gì phải mất công sửa nữa chứ!
Tôi đánh cá, 3 ăn 1 với bạn là chuyện đó sẽ không xảy ra.

 

[Ba Tê]

Có bài giải rồi. Tội gì phải mất công sửa nữa chứ!
Tôi đánh cá, 3 ăn 1 với bạn là chuyện đó sẽ không xảy ra.

Mỗi chiều là tôi thường "cá" 1 xị , công lại bạn thiếu tôi 3 xị, bắt đầu từ chiều nay xem đá banh có 1 xị rồi, "đã quá"!

Đúng theo ý đồ của mình rồi, tuy nhiên thực hiện từ cột c đến cột j không cần phải thêm cột phụ, mong bác giúp đỡ và thông cảm giúp dùm cảm ơn bác nhiều

 

[VetMini]

Mỗi chiều là tôi thường "cá" 1 xị , công lại bạn thiếu tôi 3 xị, bắt đầu từ chiều nay xem đá banh có 1 xị rồi, "đã quá"!

Không sao. Cứ ghi sổ đi, có dịp gặp tôi sẽ chung. Không chừng đến ngày chung, sổ dài vài trang, bạn phải goị thêm mấy bạn khác để phụ.

(tôi chủ ý chọc cho chủ thớt sửa bài để tôi thua cá cho bỏ ghét)

 

[be_09]

Không sao. Cứ ghi sổ đi, có dịp gặp tôi sẽ chung. Không chừng đến ngày chung, sổ dài vài trang, bạn phải goị thêm mấy bạn khác để phụ.

(tôi chủ ý chọc cho chủ thớt sửa bài để tôi thua cá cho bỏ ghét)

Có khi xong việc rồi thôi đâu cần sửa bài làm gì.
Trường hợp này tôi gặp hoài, nếu bị nhiều người ghét quá thì lại đổi Nick và vào hỏi tiếp (Nick mới đâu ai biết là ai)..

 

[VetMini]

(Nick mới đâu ai biết là ai)..

Tiêng Việt có câu ngựa quen đường cũ.
Tiếng Anh có câu a leopard can't change its spots
Nít niếc mới đâu có thay đổi thái độ và cách ăn nói. Chịu khó để ý chút là nhận ra ngay.