Lỗi khi Sort oldest to newest ở Excel 2007

[vlvankiepbuon]

Tình hình là em muốn Sort danh sách các thành viên đăng kí theo thứ tự ngày đăng kí từ lâu nhất đến mới nhất, nhưng khi bấm vào cột ngày đăng kí và sort theo thứ tự oldest to newest thì e gặp thông báo như sau:


Em đã thử unmerge các kiểu tùm lum mà vẫn ko được, bác nào đã gặp trường hợp này giúp e với, thanks alot ^^"

 

[ndu96081631]

Tình hình là em muốn Sort danh sách các thành viên đăng kí theo thứ tự ngày đăng kí từ lâu nhất đến mới nhất, nhưng khi bấm vào cột ngày đăng kí và sort theo thứ tự oldest to newest thì e gặp thông báo như sau:
View attachment 43777

Em đã thử unmerge các kiểu tùm lum mà vẫn ko được, bác nào đã gặp trường hợp này giúp e với, thanks alot ^^"

Excel nó "cằn nhằn" chẳng sai đâu bạn à! ---> Trong vùng dữ liệu vẫn còn các cell bị merge nên nó cóc chịu làm
Giờ bạn làm như sau:
- Bấm Ctrl + A để chọn hết bảng tính
- Bấm Ctrl + 1 để vào cửa sổ Format Cells (số 1 nằm dưới dấu chấm than nha)
- Chuyển sang tab Alignment và bỏ chọn Merge cells
Làm xong hãy thử sort lại xem

 

[vlvankiepbuon]

Excel nó "cằn nhằn" chẳng sai đâu bạn à! ---> Trong vùng dữ liệu vẫn còn các cell bị merge nên nó cóc chịu làm
Giờ bạn làm như sau:
- Bấm Ctrl + A để chọn hết bảng tính
- Bấm Ctrl + 1 để vào cửa sổ Format Cells (số 1 nằm dưới dấu chấm than nha)
- Chuyển sang tab Alignment và bỏ chọn Merge cells
Làm xong hãy thử sort lại xem

Thanks, e đã làm như vậy, đúng là đã sort được rồi, nhưng mà các cột tiêu đề nó bị nhảy xuống dưới cùng^^, nhưng mà ko sao, copy lên lại cũng ko tốn time lắm...

 

[ndu96081631]

Thanks, e đã làm như vậy, đúng là đã sort được rồi, nhưng mà các cột tiêu đề nó bị nhảy xuống dưới cùng^^, nhưng mà ko sao, copy lên lại cũng ko tốn time lắm...

Bậy nà... ai lại làm thế
Ẹc... Ẹc... Chứng tỏ sort.. sai ---> Xem trong hộp sort có dấu check gì đó mà bạn chưa check vào không?
(Excel nó thông minh lắm nha)

bác ndu96081631 ơi
dù excel có thông minh tới đâu cũng cần có chúng ta thì nó mới hoat động được
( ý nói bác thông minh đấy) haa aaa haaa
sướng chưa

Ý tôi muốn nói THÔNG MINH là vầy: "Chúng ta chỉ sao nó làm vậy!"
Nói đúng hơn là NÓ RẤT NGHE LỜI
Nó làm sai chứng tỏ ta CHỈ SAi ---> Ráng chịu!
Trường hợp sort là ví dụ điển hình! Trong hộp thoại sort thế nào cũng có mục "My data range has" cho chọn "Header row" hoặc "No header row" (Với Excel 2007 là mục "My data has headers")
Mục này ý hỏi chúng ta rằng "Liệu dòng đầu tiên có phải là tiêu đề hay không?" ----> Ta không check vào thì xem như "đánh đồng" toàn bộ, dòng đầu hay cuối đều như nhau, sort xong nó "quăng" thằng em tiêu đề đi tuốt xuống cuối trang cũng là chuyện thường (hỏi rồi, ai biểu hổng trả lời chi)

 

[tocbuxu]

Em có thắc mắc liên quan đến vấn đề này nên cho em hỏi trong đây nhé

Mọi người up file lên đây, em down về thì trong sort lại có oldest to newest , trong khi tất cả các file khác của em lại không có cột đó, chỉ có cột A->Z ; Z->A thôi. Mong các huynh chỉ giúp.

Hê hê, đã tìm được câu trả lời rồi, thank's các bác nhé

 

[nqt76]

Bậy nà... ai lại làm thế
Ẹc... Ẹc... Chứng tỏ sort.. sai ---> Xem trong hộp sort có dấu check gì đó mà bạn chưa check vào không?
(Excel nó thông minh lắm nha)


Ý tôi muốn nói THÔNG MINH là vầy: "Chúng ta chỉ sao nó làm vậy!"
Nói đúng hơn là NÓ RẤT NGHE LỜI
Nó làm sai chứng tỏ ta CHỈ SAi ---> Ráng chịu!
Trường hợp sort là ví dụ điển hình! Trong hộp thoại sort thế nào cũng có mục "My data range has" cho chọn "Header row" hoặc "No header row" (Với Excel 2007 là mục "My data has headers")
Mục này ý hỏi chúng ta rằng "Liệu dòng đầu tiên có phải là tiêu đề hay không?" ----> Ta không check vào thì xem như "đánh đồng" toàn bộ, dòng đầu hay cuối đều như nhau, sort xong nó "quăng" thằng em tiêu đề đi tuốt xuống cuối trang cũng là chuyện thường (hỏi rồi, ai biểu hổng trả lời chi)

Chào bác ndu96081631,
tôi có file này sort = code vba thì nó cứ báo lỗi .Apply. (the sort reference is not valid. make sure that it's within the data you want to sort, and the first Sort By box isn't the same or blank)
With ActiveWorkbook.Worksheets("q_NOPTHUE_ChepFile").Sort
.SetRange Range("A1:N81")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Các file khác thì lại sort được, mày mò mãi vẫn ko sao làm dc.Nhờ bác tìm giúp nguyên nhân với.
Cảm ơn bác nhiều

 

[ndu96081631]

Chào bác ndu96081631,
tôi có file này sort = code vba thì nó cứ báo lỗi .Apply. (the sort reference is not valid. make sure that it's within the data you want to sort, and the first Sort By box isn't the same or blank)
With ActiveWorkbook.Worksheets("q_NOPTHUE_ChepFile").Sort
.SetRange Range("A1:N81")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Các file khác thì lại sort được, mày mò mãi vẫn ko sao làm dc.Nhờ bác tìm giúp nguyên nhân với.
Cảm ơn bác nhiều

Cụ thể bạn muốn sort cột nào? Sort tăng dần hay giảm dần?
Ví dụ sort tăng dần theo cột 3 đi nha:

Sub Test()
  With Range("A1:N81")
    .Sort .Cells(1, 3), xlAscending, Header:=xlYes
  End With
End Sub

Cells(1,3) ---> Con số 3 bên trong chính là cột 3 đấy

 

[nqt76]

oh, copy cho bác thiếu rồi, sorry bác, lệnh của nó đây:
Worksheets("q_NOPTHUE_ChepFile").Sort.SortFields.Add Key:=Range( _
"B2:B81"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("q_NOPTHUE_ChepFile").Sort
.SetRange Range("A1:N81")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

tại tôi mới học cái này nên toàn record macro rồi từ đó phăng ra . Theo marco thì nó hầm bà lằng như thế này, mà báo lỗi tùm lum.
Theo cách của bác bấm vèo cái ra. Cám ơn bác nhiều.
P/s: mà bác có thể giải thích cho tôi biết cái lỗi ấy nó thế nào ko ạ? để học hỏi rút kinh nghiệm bác chút.