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

Liên hệ QC

ngoivn

Thành viên mới
Tham gia
26/7/08
Bài viết
25
Được thích
1
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.
 

File đính kèm

  • Loi.xlsx
    11 KB · Đọc: 9
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ì?
 
Upvote 0
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
 
Upvote 0
Bác thử code này xem

Mã:
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
 
Lần chỉnh sửa cuối:
Upvote 0
PHP:
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 (???)
 
Upvote 0
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)
 
Upvote 0
Web KT
Back
Top Bottom