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
Khi chèn vào và bấm chạy đoạn code thì nó lại chạy luôn cả cột Tổng
Khi chèn vào và bấm chạy đoạn code, thì nó lại chạy luôn cả cột Tổng. XIn cho biết nguyên nhân.
Đây là đoạn code của minh
Sub SapXep_TenNV()
'
' SapXep_TenNV Macro
'
'
' Range("A2:I16").Select
Dim DongCuoi As Long
DongCuoi = Sheets("YeuCau1").Range("C" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Worksheets("YeuCau1").Sort.SortFields.Add _
Key:=Range("C3:C" & DongCuoi), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("YeuCau1").Sort
.SetRange Range("A2:I" & DongCuoi)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("YeuCau1").Sort.SortFields.Clear
End Sub
3 câu trả lời
296 lượt xem
vỗ tay
Chào bạn bạn thử ghi macro xem cùng chọn đã đúng chưa nhé.
vỗ tay
Mình chưa hiểu, đoạn code này có gì sai, xin sửa giùm mình ạ
vỗ tay
Chào bạn bạn có thể đẩy file lên giúp gitiho được không?
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