Chuyển công thức thành VBA

[tranphuson]

Vui lòng giúp mình chuyển Công thức (Cộng, trừ, nhân, chia) file đính kèm thành VBA

Xin cảm ơn

 

[Thong Hoang Tien 250691]

Vui lòng giúp mình chuyển Công thức (Cộng, trừ, nhân, chia) file đính kèm thành VBA

Xin cảm ơn

bạn thử:

Sub Test1()
Dim i, j As Integer
For i = 2 To 5
    vData = Sheets(1).Cells(1, i)
For j = 3 To 17
    vData1 = Sheets(1).Cells(j, 1)
If i = 2 Then Sheets(1).Cells(j, i).Value = vData1 * vData
If i = 3 Then Sheets(1).Cells(j, i).Value = vData1 + vData
If i = 4 Then Sheets(1).Cells(j, i).Value = vData1 / vData
If i = 5 Then Sheets(1).Cells(j, i).Value = vData1 - vData

Next j

Next i
End Sub

 

[tranphuson]

bạn thử:

Sub Test1()
Dim i, j As Integer
For i = 2 To 5
    vData = Sheets(1).Cells(1, i)
For j = 3 To 17
    vData1 = Sheets(1).Cells(j, 1)
If i = 2 Then Sheets(1).Cells(j, i).Value = vData1 * vData
If i = 3 Then Sheets(1).Cells(j, i).Value = vData1 + vData
If i = 4 Then Sheets(1).Cells(j, i).Value = vData1 / vData
If i = 5 Then Sheets(1).Cells(j, i).Value = vData1 - vData

Next j

Next i
End Sub

Cảm ơn bạn đã giúp. Nhưng cho mình hỏi thêm là nếu tăng dòng ở Cột A thì dòng lặp (For j = 3 To 17) tăng tự động dựa vào dòng Cột A, không cần phải cố định là dòng A17

 

[Thong Hoang Tien 250691]

Cảm ơn bạn đã giúp. Nhưng cho mình hỏi thêm là nếu tăng dòng ở Cột A thì dòng lặp (For j = 3 To 17) tăng tự động dựa vào dòng Cột A, không cần phải cố định là dòng A17

bạn sửa lại:

Sub Test1()
Dim i, j As Integer
lRow = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To 5
    vData = Sheets(1).Cells(1, i)
For j = 3 To lRow
    vData1 = Sheets(1).Cells(j, 1)
If i = 2 Then Sheets(1).Cells(j, i).Value = vData1 * vData
If i = 3 Then Sheets(1).Cells(j, i).Value = vData1 + vData
If i = 4 Then Sheets(1).Cells(j, i).Value = vData1 / vData
If i = 5 Then Sheets(1).Cells(j, i).Value = vData1 - vData

Next j

Next i
End Sub

 

[tranphuson]

bạn sửa lại:

Sub Test1()
Dim i, j As Integer
lRow = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To 5
    vData = Sheets(1).Cells(1, i)
For j = 3 To lRow
    vData1 = Sheets(1).Cells(j, 1)
If i = 2 Then Sheets(1).Cells(j, i).Value = vData1 * vData
If i = 3 Then Sheets(1).Cells(j, i).Value = vData1 + vData
If i = 4 Then Sheets(1).Cells(j, i).Value = vData1 / vData
If i = 5 Then Sheets(1).Cells(j, i).Value = vData1 - vData

Next j

Next i
End Sub

Báo lỗi như bên dưới. Cảm ơn

 

[Thong Hoang Tien 250691]

Xin lỗi, mình dùng sub trong module, nếu bạn dùng Option Explicit thì bạn thêm khai báo cho biến lRow, vData, vData1 là được.

Dim lRow, vData, vData1

 

[phulien1902]

Báo lỗi như bên dưới. Cảm ơn
View attachment 202431

Lỗi do chưa khai báo biến lRow

 

[Thong Hoang Tien 250691]

Lỗi do chưa khai báo biến lRow

Vâng anh, em cũng đã lưu ý rồi, Không chỉ biến lRow, nếu là option explicit thì phải khai báo cả vData và vData1 nữa

 

[tranphuson]

Xin lỗi, mình dùng sub trong module, nếu bạn dùng Option Explicit thì bạn thêm khai báo cho biến lRow, vData, vData1 là được.

Dim lRow, vData, vData1

Cảm ơn đã giúp đỡ. Mình đã làm được

 

[tranphuson]

Xin lỗi, mình dùng sub trong module, nếu bạn dùng Option Explicit thì bạn thêm khai báo cho biến lRow, vData, vData1 là được.

Dim lRow, vData, vData1

Xin lỗi là mình hỏi thêm 1 chút là nếu Cột A3, B3: vừa tính phép nhân, phép trừ, phép cộng thì như thế nào

Cảm ơn lần nữa

 

[befaint]

Cột A3, B3

...

 

[tranphuson]

...

Xin cảm ơn đã giúp