nhờ các bạn sửa dùm code để chuỗi số chạy từ - k đến +k thì dừng lại

[nonsense]

Sub chuoiN()
Dim j, k As Long
j = Cells(1, 1)
k = Cells(2, 1)
For n = -k To k
Cells(3 + n + k, 3) = n * j + k * (j - 1)
Next
End Sub

 

[ptm0412]

Tôi thấy nó dừng lại rồi.

 

[giaiphap]

Sub chuoiN()
Dim j, k As Long
j = Cells(1, 1)
k = Cells(2, 1)
For n = -k To k
Cells(3 + n + k, 3) = n * j + k * (j - 1)
Next
End Sub

Tui đoán chắc có lẽ như thế này.

Sub chuoiN()
    Dim j%, k%, i%, n%
    j = Cells(1, 1)
    k = Cells(2, 1)
    n = -k: i = 0
    Do While n <= k
        Cells(i + 3, 3) = n
        n = n + j: i = i + 1
    Loop
End Sub

 

[nonsense]

oh, yes. Excellent .... Cám ơn bạn rất nhiều

 

[VetMini]

Tui đoán chắc có lẽ như thế này.
...

Đoan chắc rồi còn có lẽ gì nữa cha nội?