Sort các ô đang chọn (1 người xem)

[tranduyquang2511]

Các bác giúp em đoạn vba để sắp xếp các ô đang chọn với ạ. Ví dụ, em quét chọn từ C3:C50, rồi chạy macrco, thì nó sort trong vùng đó. Xong em lại chọn D1030 thì chỉ sort trong vùng đó thôi, không đụng gì tới dữ liệu C3:C50 cả. Thank các bác.

 

[nghiaphuc]

Các bác giúp em đoạn vba để sắp xếp các ô đang chọn với ạ. Ví dụ, em quét chọn từ C3:C50, rồi chạy macrco, thì nó sort trong vùng đó. Xong em lại chọn D1030 thì chỉ sort trong vùng đó thôi, không đụng gì tới dữ liệu C3:C50 cả. Thank các bác.

Chắc là thế này:
[GPECODE=vb]Sub Test()
Selection.Sort Key1:=Selection.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
End Sub[/GPECODE]

 

[VetMini]

Lý do tại sao lại macro?
Bộ Data > Sort > (continue with curent selection) > ok khó khăn lắm sao?

 

[nghiaphuc]

Lý do tại sao lại macro?
Bộ Data > Sort > (continue with curent selection) > ok khó khăn lắm sao?

Dùng Macro rồi gắn cho nó một cái phím tắt sẽ tiện dụng hơn chứ bác.
"Lười biếng là động lực của sự phát triển"

 

[VetMini]

Dùng Macro rồi gắn cho nó một cái phím tắt sẽ tiện dụng hơn chứ bác.
"Lười biếng là động lực của sự phát triển"

Lỡ tay chọn không đúng vùng thì phải close, not save. Làm lại.
(đùa chơi với bạn thôi chứ tôi nghí là chủ thớt thích chơi kiểu)

 

[nghiaphuc]

Lỡ tay chọn không đúng vùng thì phải close, not save. Làm lại.
(đùa chơi với bạn thôi chứ tôi nghí là chủ thớt thích chơi kiểu)

Tính em hay làm biếng nên khi làm việc, em cũng thường tìm cách để làm biếng như vậy. Nếu cần ít thao tác hơn để làm một công việc (có tính chất lặp lại nhiều lần) thì chẳng có lý do gì mà mình lại không thử. Tất nhiên là em "đủ tuổi chịu trách nhiệm hình sự", làm sai ráng chịu à

 

[tranduyquang2511]

Chắc là thế này:
[GPECODE=vb]Sub Test()
Selection.Sort Key1:=Selection.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
End Sub[/GPECODE]

Đội ơn bác. Đúng rồi bác à.

 

[hung2412]

[GPECODE=vb]Sub Test()
Selection.Sort Key1:=Selection.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
End Sub[/GPECODE]

Làm sao mà bạn viết được vỏ bọc Code (Có dòng 1, 2, 3,...) đẹp như thế vậy ?

 

[Quang_Hải]

Chắc là thế này:
[GPECODE=vb]Sub Test()
Selection.Sort Key1:=Selection.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
End Sub[/GPECODE]

Vác cây đao to to chút để xử cái vụ nhỏ nhỏ này
[GPECODE=vb]
Sub MySort()
If Selection.Count = 1 Then End
Selection.Sort Selection(1, 1)
End Sub
Sub Autpen()
With Application.CommandBars("Cell").Controls.Add(1, , , 1)
.Caption = "MySort"
.OnAction = "MySort"
End With
End Sub
Sub Auto_Close()
Application.CommandBars("Cell").Reset
End Sub
[/GPECODE]