có cách nào xắp sếp cột c học tên nhưng cột B cũng điền STT từ 1 đến hết không?

[ongtrungducmx25]

mình muốn xắp sếp theo thứ tự của cột họ và tên ở cột C theo thứ tự tăng dần nhưng ở cột B thì cũng điền từ số 1 cho đến hết danh sách, mình có công thức ở cột B:=IF(C9<>0,B8+1,"")
=IF(C10<>0,B9+1,"")
.......................
.......................
làm mọi cách cũng không đựoc mong được gíup đở !

 

[SoiBien]

Tôi vẫn sắp xếp được mà, số vẫn đánh tăng dần,

Chắc khi chọn Sort, bạn phải đánh dấu vào mục chọn "Header Row".

Thân

 

[ongtrungducmx25]

Tôi vẫn sắp xếp được mà, số vẫn đánh tăng dần,

Chắc khi chọn Sort, bạn phải đánh dấu vào mục chọn "Header Row".

Thân

chắc tại công thức của mình không nhận ra sự thay đổi vị trí của các row nên nó không chịu điền vào số thứ tự trong danh sách. còn cái bạn nói số thứ tự là điền bằng tay thì cái đó mình biết .Nhưng của mình công thức đó là bắt buộc phải cố định làm sau có thể thay đổi vi trí của các rows mà vẫn điền đúng nhé!

 

[anhtuan1066]

Quét chọn từ B9 đến AC53, vào menu Data\Sort.. khung đầu tiên bạn chọn Column C, đánh dấu Ascending rồi đánh dấu "No header Row" bên dưới, OK... Thế là xong... Cột thứ tự vẫn bảo toàn mà...
ANH TUẤN

 

[ongtrungducmx25]

à mình có thể dùng tiện ích tiếng việt sắp xếp chọn "C9:AC37" của mình thì xắp sếp như ý muốn! nhưng làm như thế thì lâu nếu có 11 bảng điểm thì làm chắc mệt siểu luôn nhé! có thể nào dung Form để xắp sếp cho nhanh!

 

[anhtuan1066]

Nè... bạn muốn sau khi sắp xếp nó sẽ như thế nào thì cho 1 sheet VD đi... chứ nói thế khó hiểu quá! Trong file ở trên bạn tạo thêm 1 sheet nữa, rồi sắp bằng tay cho mọi người nhìn vào biết cách bạn muốn là như thế nào nhé!
ANH TUẤN

 

[ongtrungducmx25]

mình đã làm from nhưng nó bị giật quá không biết thêm đoạn code gì cho bớt bị giật!

 

[anhtuan1066]

Trời ơi... bạn xem lại đi... cái code của bạn tôi thấy nó có làm quái gì đâu... Nó chạy vòng vòng từ trên xuống dưới rồi... thôi... có sắp dc gì đâu nào?
Hi... hi...
Ít ra thì nó cũng phải như vầy chứ:

Private Sub XapsepABC_Click()
Range("A9:AC53").Select
Selection.Sort Key1:=Range("C9"), Order1:=xlAscending
End Sub

ANH TUAN

 

[kienthuc2007]

cái này là chỉ chọn được vùng thôi có xắp sếp được gì đâu "anh tuấn" chắc xem cho vui chứ có làm ăn gì đâu

 

[ThuNghi]

Thêm đoạn sao vào đầu và cuối sub

Application.ScreenUpdating = False
'....YourCode
Application.ScreenUpdating = True

Cụ thể trong file là

Sub auto_click()
Application.ScreenUpdating = False
xapsep.Show
Application.ScreenUpdating = True
End Sub

 

[voda]

Nguyên văn bởi ongtrungducmx25
à mình có thể dùng tiện ích tiếng việt sắp xếp chọn "C9:AC37" của mình thì xắp sếp như ý muốn!

-Bạn muốn xếp ABC theo họ hay theo tên học sinh. Nếu xếp theo tên, phải tách riêng cột tên ra chứ!
-code của anhtuan chỉ sắp ABC theo tiếng Anh. Sắp theo tiếng Việt rắc rối hơn nhiều.

 

[Mr Okebab]

mình muốn xắp sếp theo thứ tự của cột họ và tên ở cột C theo thứ tự tăng dần nhưng ở cột B thì cũng điền từ số 1 cho đến hết danh sách, mình có công thức ở cột B:=IF(C9<>0,B8+1,"")
=IF(C10<>0,B9+1,"")
.......................
.......................
làm mọi cách cũng không đựoc mong được gíup đở !

Vẫn Sort bình thường mà bác :

1. Chọn C9:AC37
2. Data/Sort : No header row : Column C : Ascending
3. OK

Thế là xong mà.

To bác Voda : Bác ongtrungduc dùng Font Unicode nên Sort vẫn bình thường mà bác.

Thân!

 

[anhtuan1066]

Ý tôi ko phải khuyên nên dùng code của tôi đễ sắp xếp.. mà muốn nói các bạn lưu ý file của ongtrungducmx25 trong này có code nào gọi là SẮP XẾP đâu chứ... Nó như thế này nè:

Private Sub XapsepABC_Click()
Range("C9:AC53").Select
Sheets("Sheet9").Select
Range("C9:AC53").Select
Sheets("Sheet8").Select
Range("C9:AC53").Select
Sheets("Sheet7").Select
Range("C9:AC53").Select
Sheets("Sheet6").Select
Range("C9:AC53").Select
Sheets("Sheet5").Select
Range("C9:AC53").Select
Sheets("Sheet4").Select
Range("C9:AC53").Select
Sheets("Sheet3").Select
Range("C9:AC53").Select
Sheets("Sheet2").Select
Range("C9:AC53").Select
Sheets("Sheet1").Select
Range("C9:AC53").Select
Sheets("toan7a1").Select
ActiveWindow.SmallScroll Down:=0
Range("C9:AC53").Select
End Sub

Vậy thì sắp xếp nỗi gỉ... Bạn ấy nói màn hình nó GIẬT GIẬT... hi.. hi... Chạy lên chạy xuống, chạy qua chạy lại thì ko giật giật mới lạ
ANH TUẤN

 

[ongtrungducmx25]

code:
Private Sub XapsepABC_Click()
Range("C9:AC53").Select
Selection.Sort Key1:=Range("C9"), Order1:=xlAscending
End Sub
cuả anh tuấn khi mình dùng tiệng ích tiếng việt để xs thì không ổn đâu
có cách là phủ khối bằng tay từ ("C9:AC37") thì được nhé!

 

[anhtuan1066]

Đại ca.. thầy ơi... em đâu có bảo đại ca thầy dùng code của em.. Ý em nói nếu muốn Sort thì ít ra nó phải.. như thế.. Chứ còn cái code nguyên thủy của đại ca thầy nó chạy vòng vòng thì làm sao mà sắp với xếp chứ...
Gruuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
ANH TUẤN

 

[ongtrungducmx25]

uh thì không đựơc vậy sử dụng bằng tay cho chắc ăn tư hơ lâu như làm cũng được nhé!thank

 

[voda]

Nguyên văn bởi Mr Okebab
Bác ongtrungduc dùng Font Unicode nên Sort vẫn bình thường mà bác.

Nhờ bạn Bắp và các bạn kiểm tra lại dùm. Sao mình Sort vẫn không tốt.

 

[ongtrungducmx25]

Private Sub XapsepABC_Click()
 

Range("A9:AC53").SelectSelection.Sort Key1:=Range("C9"), Order1:=xlAscending
 
End Sub

có ai làm được Form nhập sắp xếp tiếng việt không để xắp sếp cho tiện chứ làm bằng tay thì mệt lắm đó! theo code trên nhỉ!

 

[Mr Okebab]

Nhờ bạn Bắp và các bạn kiểm tra lại dùm. Sao mình Sort vẫn không tốt.

Em sort vẫn bình thường. Hay em làm 1 cái VBA để bác xem ???

Thân!

 

[ongtrungducmx25]

Em sort vẫn bình thường. Hay em làm 1 cái VBA để bác xem ???

Thân!

pác post lên cho mọi người cùng xem nhé!