Đặt biến cho vị trí của Row

[gpe.vn]

Chào các bạn, chúc các bạn một năm mới May mắn
Mình cần đặt một biến cho số 3 mình đã bôi màu đỏ trong hàm dưới, các bạn giúp mình với
cảm ơn các bạn

Sub KL_3()
Dim i As Integer
For i = 14 To 16
Cells(i, 7).FormulaR1C1 = "=RC[-2]*(R3C7)"
Next i
End Sub

 

[Phuocam]

Chào các bạn, chúc các bạn một năm mới May mắn
Mình cần đặt một biến cho số 3 mình đã bôi màu đỏ trong hàm dưới, các bạn giúp mình với
cảm ơn các bạn

Sub KL_3()
Dim i As Integer
For i = 14 To 16
Cells(i, 7).FormulaR1C1 = "=RC[-2]*(R3C7)"
Next i
End Sub

Bạn cần giải thích rõ thêm:

Khi i = 14 thì R = 3

Khi i = 15 thì R =?

Khi i = 16 thì R =?

 

[SA_DQ]

Chắc sơ bộ sẽ là vầy:

Sub KL_3()
Dim i As Integer, XyZ As Integer

XyZ = InputBox("Hãy Nhâp Sô <=12", "GPE.COM Xin Chào!", 3)
For i = 14 To 16
    Cells(i, 7).FormulaR1C1 = "=RC[-2]*(R" & XyZ & "C7)"
Next i
End Sub

 

[gpe.vn]

Bạn cần giải thích rõ thêm:

Khi i = 14 thì R = 3

Khi i = 15 thì R =?

Khi i = 16 thì R =?

Mình nói rõ thêm là trong trường hợp i= 14/ 15/ 16 thì R=3 đấy bạn

Bài đã được tự động gộp: 16/2/24

Chắc sơ bộ sẽ là vầy:

Sub KL_3()
Dim i As Integer, XyZ As Integer

XyZ = InputBox("Hãy Nhâp Sô <=12", "GPE.COM Xin Chào!", 3)
For i = 14 To 16
    Cells(i, 7).FormulaR1C1 = "=RC[-2]*(R" & XyZ & "C7)"
Next i
End Sub

Đúng ý mình rồi bạn, cảm ơn nhiều ^^