Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
Sub mc_sort_xuat_nl()'' mc_sort_xuat_nl Macro''Dim dongcuoi_xuat_nl As Longdongcuoi_xuat_nl
Sub mc_sort_xuat_nl()
'
' mc_sort_xuat_nl Macro
'
'
Dim dongcuoi_xuat_nl As Long
dongcuoi_xuat_nl = Sheets("xuat_nl").Range("A" & Rows.Count).End(xlUp).Row
'Range("A4:J" & dongcuoi_xuat_nl).Select
ActiveWorkbook.Worksheets("xuat_nl").Sort.SortFields.Add Key:=Range("A5:A" & dongcuoi_xuat_nl _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("xuat_nl").Sort
.SetRange Range("A4:J" & dongcuoi_xuat_nl)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("xuat_nl").Sort.SortFields.Clear
End Sub
thầy cho hỏi đoạn code nay bị lỗi gì mà khi chạy báo debug và tô vàng .apply
1 câu trả lời
133 lượt xem
vỗ tay
Chào bạn bạn recond từ đầu nhé, xoá hết định dạng sort đi thử lại là được nhé.
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông