Chập chứng với VBA - Nhờ Anh chị giúp đỡ (3 người xem)

[ndhmoney686]

Chào các Anh Chị , Em đang chập chững đến với VBA. Rất mong các Anh Chị giúp đỡ Em.

Bài đầu tiên Em đang học cách đánh sô thứ tự. Hiện tại Em viêt code, nhưng chưa được như ý. Em muốn đánh số thứ tự bắt đầu từ dòng số 8 trở xuông, chứ ko phải băt đầu từ dòng số 1 như code đang chạy.
Mong Anh chị sửa giup Em code. Cám ơn Anh Chị nhiều!

Sub DanhSoThuTu()    Dim i As Integer
        For i = 1 To 18
        Cells(i, 3) = i
    Next i
End Sub

 

[ndu96081631]

Chào các Anh Chị , Em đang chập chững đến với VBA. Rất mong các Anh Chị giúp đỡ Em.

Bài đầu tiên Em đang học cách đánh sô thứ tự. Hiện tại Em viêt code, nhưng chưa được như ý. Em muốn đánh số thứ tự bắt đầu từ dòng số 8 trở xuông, chứ ko phải băt đầu từ dòng số 1 như code đang chạy.
Mong Anh chị sửa giup Em code. Cám ơn Anh Chị nhiều!

Sub DanhSoThuTu()    Dim i As Integer
        For i = 1 To 18
        Cells(i, 3) = i
    Next i
End Sub

Thì i + 7 nó sẽ thành 8 thôi:

Sub DanhSoThuTu()
  Dim i As Integer
  For i = 1 To 18
    Cells([COLOR=#ff0000]i + 7[/COLOR], 3) = i
  Next i
End Sub

 

[gtri]

sửa dòng

Cells(i, 3) = i

thành

Cells(i+7, 3) = i

 

[ndhmoney686]

Thì i + 7 nó sẽ thành 8 thôi:

Sub DanhSoThuTu()
  Dim i As Integer
  For i = 1 To 18
    Cells([COLOR=#ff0000]i + 7[/COLOR], 3) = i
  Next i
End Sub

sửa dòng

Cells(i, 3) = i

thành

Cells(i+7, 3) = i

Cám ơn Thầy "ndu96081631" và bạn "gtri" đã giúp đỡ Em! Em đã sửa lại code và chạy lại rất Ok

 

[Quang_Hải]

Chào các Anh Chị , Em đang chập chững đến với VBA. Rất mong các Anh Chị giúp đỡ Em.

Bài đầu tiên Em đang học cách đánh sô thứ tự. Hiện tại Em viêt code, nhưng chưa được như ý. Em muốn đánh số thứ tự bắt đầu từ dòng số 8 trở xuông, chứ ko phải băt đầu từ dòng số 1 như code đang chạy.
Mong Anh chị sửa giup Em code. Cám ơn Anh Chị nhiều!

Sub DanhSoThuTu()    Dim i As Integer
        For i = 1 To 18
        Cells(i, 3) = i
    Next i
End Sub

Tặng bạn thêm 1 cách

Sub DanhSoThuTu()
Cells(8, 3).Resize(18) = [row(a:a)]
End Sub