Giúp sửa code vba

  • Thread starter thaibinhpetro
  • Ngày gửi
T

thaibinhpetro

Guest
5/12/07
24
0
1
Hanoi
Chào các bạn. Mình có load một File Excel về tính giá hàng tồn kho, tuy nhiên khi mình cho giá nhập mua có dấu thập phân (ví dụ 10,05) chẳng hạn thì giá trị hàng xuất không tính được giá trị. Các bạn hãy sửa Code VBA trong File giúp mình nhé. Mình gửi kèm File các bạn có thể sửa trực tiếp trên File hoặc sửa code, Code của File đó như sau

Function GiaXK(SL_Xuat, Rng As Range, Optional TT As Boolean = False)
Dim TongXuat, TongNhap, XuatCon
If SL_Xuat = 0 Then
GiaXK = ""
Exit Function
End If
TongXuat = Application.WorksheetFunction.Sum(Rng.Offset(, 1).Resize(, 1))
For Each Cll In Rng.Resize(, 1)
TongNhap = TongNhap + Cll.Value
If TongNhap > TongXuat Then
If TongNhap - TongXuat >= SL_Xuat Then
GiaXK = GiaXK & " (" & SL_Xuat & "*" & Cll.Offset(, 2).Value & ")"
Exit For
Else
GiaXK = GiaXK & " (" & (TongNhap - TongXuat) & "*" & Cll.Offset(, 2).Value & ")"
SL_Xuat = SL_Xuat - (TongNhap - TongXuat)
TongXuat = TongNhap
End If
End If
Next
GiaXK = Replace(Trim(GiaXK), " ", "+")
If TT = True Then
GiaXK = IIf(GiaXK = "", 0, Evaluate(GiaXK))
End If
End Function
 

Đính kèm

  • NXT_FIFO.rar
    42.3 KB · Lượt xem: 141
Khóa học Quản trị dòng tiền
A

atmt17

Trung cấp
26/9/08
70
1
6
Đồng Nai
Chào các bạn. Mình có load một File Excel về tính giá hàng tồn kho, tuy nhiên khi mình cho giá nhập mua có dấu thập phân (ví dụ 10,05) chẳng hạn thì giá trị hàng xuất không tính được giá trị

Tôi thấy code chạy bình thường mà bạn
Dấu thập phân là do ta tự định dạng, ăn nhằm gì đến việc tính toán cơ chưa. trừ phi dấu thập phân ấy do bạn tự nhập (chứ không phải do định dạng mà có) thì rất có thể nguyên nhân là do bạn đã nhập dấu thập phân sai so với quy định trong Control Panel
Ngoài ra, để code cập nhật tốt khi có thay đổi, nên cho đoạn Application.Volatile lên đầu code
 

Xem nhiều

Webketoan Zalo OA