Xuất hiện kết quả lạ khi dùng công thức trong VBA

[ngoivn]

Chào các anh chị, mình sử dụng VBA để tính toán theo dạng Loai3 = Tong - (Loai1 + Loai2). Nhưng khi xuất kết quả thì có dòng tính đúng, có dòng xuất hiện kết quả lạ (nền màu vàng). Mong các bạn hướng xử lý giúp.

 

[Phuocam]

Chào các anh chị, mình sử dụng VBA để tính toán theo dạng Loai3 = Tong - (Loai1 + Loai2). Nhưng khi xuất kết quả thì có dòng tính đúng, có dòng xuất hiện kết quả lạ (nền màu vàng). Mong các bạn hướng xử lý giúp.

Code của bạn là gì?

 

[ngoivn]

Code của bạn là gì?

Sub Thu()
Dim i As Long
For i = 4 To 14
Sheet1.Cells(i, 2).Value = Sheet1.Cells(i, 1).Value * 7018
Sheet1.Cells(i, 3).Value = Sheet1.Cells(i, 1).Value * 0.6489
Sheet1.Cells(i, 4).Value = Sheet1.Cells(i, 1).Value * 0.3511
Sheet1.Cells(i, 4).Value = Sheet1.Cells(i, 2).Value - (Sheet1.Cells(i, 13).Value + Sheet1.Cells(i, 4).Value)
Next i
End Sub

 

[Azumie]

Bác thử code này xem

Sub Thu()
Dim i As Long
For i = 4 To 14
Sheet1.Cells(i, 2).Value = Sheet1.Cells(i, 1).Value * 7018
Sheet1.Cells(i, 3).Value = Sheet1.Cells(i, 1).Value * 0.6489
Sheet1.Cells(i, 4).Value = Sheet1.Cells(i, 1).Value * 0.3511
Sheet1.Cells(i, 5).Value = Sheet1.Cells(i, 2).Value - (Sheet1.Cells(i, 3).Value + Sheet1.Cells(i, 4).Value)
Next i
End Sub

 

[SA_DQ]

Sub Thu()
Dim i As Long, Num As Double
   Num= Sheet1.Cells(i, 1).Value
    For i = 4 To 14
        Sheet1.Cells(i, 2).Value = Num * 7018
        Sheet1.Cells(i, 3).Value = Num * 0.6489
        Sheet1.Cells(i, 4).Value = Num * 0.3511
        Sheet1.Cells(i, 4).Value = Sheet1.Cells(i, 2).Value - (Sheet1.Cells(i, 13).Value + Sheet1.Cells(i, 4).Value) '???  '
    Next i
End Sub

Dòng lệnh gần cuối không thể hiểu nổi (???)

 

[ptm0412]

Dòng công thức cuối là cells(i, 5) chứ sao lại 4
Công thức là -(3 + 4) chứ sao lại -(13 + 4)

 

[Azumie]

Dòng công thức cuối là cells(i, 5) chứ sao lại 4
Công thức là -(3 + 4) chứ sao lại -(13 + 4)

Đúng là 5, hôm qua chắc em sửa sót