Rút gọn code sắp xếp

Liên hệ QC

DMQ

Thành viên dốt
Tham gia
21/3/12
Bài viết
703
Được thích
53
Giới tính
Nam
Em có đoạn code để nhập dữ liệu từ tb_TNCC của Form vào Sheet8!T2, và sau đó sắp xép theo tăng dần, em nhờ các anh chị rút gọn code dùm em ạ.(chổ range("T1") có thể thay bằng LastRow được không?)
Mã:
Private Sub CommandButton1_Click()
  lastRow = Sheet8.Range("T65536").End(xlUp).Row
    Sheet8.Range("T" & lastRow + 1).value = tb_TNCC.value
'        sap xep
        Sheet8.Range("T1", Range("T1").End(xlDown)).Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes
 tb_TNCC = ""
 tb_TNCC.SetFocus   
End Sub
 
Em có đoạn code để nhập dữ liệu từ tb_TNCC của Form vào Sheet8!T2, và sau đó sắp xép theo tăng dần, em nhờ các anh chị rút gọn code dùm em ạ.(chổ range("T1") có thể thay bằng LastRow được không?)
Mã:
Private Sub CommandButton1_Click()
  lastRow = Sheet8.Range("T65536").End(xlUp).Row
    Sheet8.Range("T" & lastRow + 1).value = tb_TNCC.value
'        sap xep
        Sheet8.Range("T1", Range("T1").End(xlDown)).Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes
tb_TNCC = ""
tb_TNCC.SetFocus  
End Sub
Code có 3 4 dòng còn rút gọn gì nữa, rút gọn về 1 hay 0 dòng?
 
Upvote 0
Ý em là có thể thay :
Mã:
Sheet8.Range("T1", Range("T1").End(xlDown)).Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes
bằng :
Mã:
LastRow.Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes
nhưng không được.
 
Upvote 0
Bắt đầu bằng thói quen tự hỏi mình "không được" là cái quái gì? Chịu khó nhớ nó báo lỗi gì; nếu nhớ không nổi thì lấy giấy bút ghi ra.

Nếu biết nó báo lỗi gì thì có thể tìm hiểu thêm một chút lý thuyết về kiểu dữ liệu.

Muốn như vầy:
LastRow.Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes
Thì cái chỗ tô đỏ phải là một đối tượng (object) có khai báo phương thức Sort (chỗ tô xanh)

Trong khi đó, theo code ở bài #1 thì:
lastRow = Sheet8.Range("T65536").End(xlUp).Row
Cái chỗ tô tím lấy kiểu theo cái chỗ tô xanh lá, tức là kiểu Long.
 
Upvote 0
Web KT
Back
Top Bottom