Dear các anh chị!
Mình có làm theo trên mạng (youtube) để lập hàm xử lý việc nhập dữ liệu tự động, mục đích là sau khi nhập dữ liệu vào cột I đến cột M3 rồi bấm mũi tên màu xanh bên cạnh, thì dữ liệu vừa nhập sẽ được nhập vào bảng A13 đến E13 và sắp xếp theo thứ tự ABC, đồng thời xóa dữ liệu vừa nhập trong cột I đến M.
Sau khi làm xong thì báo bị lỗi mà không biết lỗi ở đâu, rất mong các ace chỉ giáo.
Xin chân thành cám ơn
Đoạn code như dưới đây: (gồm cả file đính kèm)
Sub Sapxep()
Range("A2:E13").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A3:A13") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B3:B13") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C3:C13") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A2:E12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub Luu_Du_Lieu_Theo_Video()
'1. Luu du lieu vao bang
'1.1. Tim dong cuoi cua bang du lieu
Dim DongCuoi As Long
DongCuoi = Sheet1.Cells(Rows.Count, 1).End(x1Up).Row + 1
'1.2. Luu du lieu vao dong cuoi
Sheet1.Range("A" & DongCuoi & ":" & "E" & DongCuoi).Value = Sheet1.Range("I3:M3").Value
'2. Xoa du lieu o vung nhap moi
Sheet1.Range("I3:L3").ClearContents
'3. Sap xep du lieu trong hang
Call Sapxep
End Sub
Mình có làm theo trên mạng (youtube) để lập hàm xử lý việc nhập dữ liệu tự động, mục đích là sau khi nhập dữ liệu vào cột I đến cột M3 rồi bấm mũi tên màu xanh bên cạnh, thì dữ liệu vừa nhập sẽ được nhập vào bảng A13 đến E13 và sắp xếp theo thứ tự ABC, đồng thời xóa dữ liệu vừa nhập trong cột I đến M.
Sau khi làm xong thì báo bị lỗi mà không biết lỗi ở đâu, rất mong các ace chỉ giáo.
Xin chân thành cám ơn
Đoạn code như dưới đây: (gồm cả file đính kèm)
Sub Sapxep()
Range("A2:E13").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A3:A13") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B3:B13") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C3:C13") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A2:E12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub Luu_Du_Lieu_Theo_Video()
'1. Luu du lieu vao bang
'1.1. Tim dong cuoi cua bang du lieu
Dim DongCuoi As Long
DongCuoi = Sheet1.Cells(Rows.Count, 1).End(x1Up).Row + 1
'1.2. Luu du lieu vao dong cuoi
Sheet1.Range("A" & DongCuoi & ":" & "E" & DongCuoi).Value = Sheet1.Range("I3:M3").Value
'2. Xoa du lieu o vung nhap moi
Sheet1.Range("I3:L3").ClearContents
'3. Sap xep du lieu trong hang
Call Sapxep
End Sub