Sub chuoiN()
Dim n, j, k As Long
j = Cells(1, 1)
k = Cells(2, 1)
For n = -k To k
Cells(k + 3 + n, 3) = n * j
Next
End Sub
khi J =1 thì chuỗi số luôn đúng ý đồ từ -k tới +k
nhưng khi j khác 1 thì nó không còn đúng nữa, ta nên viết lại code như thế nào?
ví dụ ta vào excel cho j = 3 và k = 9
thì nó phải ra kết quả là: -9, -6, -3, 0, 3, 6, 9 thì mới đúng
Dim n, j, k As Long
j = Cells(1, 1)
k = Cells(2, 1)
For n = -k To k
Cells(k + 3 + n, 3) = n * j
Next
End Sub
khi J =1 thì chuỗi số luôn đúng ý đồ từ -k tới +k
nhưng khi j khác 1 thì nó không còn đúng nữa, ta nên viết lại code như thế nào?
ví dụ ta vào excel cho j = 3 và k = 9
thì nó phải ra kết quả là: -9, -6, -3, 0, 3, 6, 9 thì mới đúng
Bài đã được tự động gộp:
Sub chuoiN()
Dim n, j, k As Long
j = Cells(1, 1)
k = Cells(2, 1)
For n = -k To k
Cells(k + 3 + n, 3) = n * j
Next
End Sub
khi J =1 thì chuỗi số luôn đúng ý đồ từ -k tới +k
nhưng khi j khác 1 thì nó không còn đúng nữa, ta nên viết lại code như thế nào?
ví dụ ta vào excel cho j = 3 và k = 9
thì nó phải ra kết quả là: -9, -6, -3, 0, 3, 6, 9 thì mới đúng