Đánh số thứ tự tự động bằng VBA

:=+ Mấy bác ơi mình mới biết về VBA có chút à, mong mấy bác chỉ cách gán địa chỉ ô hiện hành vào VBA bằng cách chọn chuột vào một ô bất kì thì chương trình sẽ tự điền số thứ tự từ ô ta chọn trở đi.

Cái này ghi macro được nè:
Sub SoTT()
If Selection.Count > 1 Then MsgBox "Chon mot o thoi!": Exit Sub
On Error GoTo Thoat
NEnd = InputBox("Danh STT toi bao nhieu?") * 1
ActiveCell = 1
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(NEnd – 1, 0)).Select
Selection.FormulaR1C1 = "=RC+1"
Thoat: Exit Sub
End Sub

www.giaiphapexcel.com/diendan/threads/%C4%90%C3%A1nh-s%E1%BB%91-th%E1%BB%A9-t%E1%BB%B1-t%E1%BB%B1-%C4%91%E1%BB%99ng-b%E1%BA%B1ng-vba.15590/

Khóa học SprinGO phù hợp

Khoá học Trưởng phòng nhân sự

Nguồn nhân lực là một trong Tứ trụ kinh doanh của doanh nghiệp, có tác động tới sự tồn tại và phát triển bền...

Xem khóa học