Xin giúp đỡ về code tính tổng trong listbox Excel (1 người xem)

[anhkhoa1984]

Mình đang làm 1 file chứa 1 số USer Form. Có testbox để chứa giá trị tổng của cột số lượng trong listbox tạm.
Vấn đề là khi nhập số nguyên thì nó cộng đúng. Nhưng khi nhập số thập phân kiểu như ( 1000,7) thì nó lại làm tròn thành 1.000 , nếu mình nhập 1000.7 thì nó cộng sai. Mình gửi 1 file lấy trên mạng tương tự file của mình để mọi người sửa giùm. xin cam ơn!
Mình định dạng số theo dang thường dùng, ngăn cách phần nghìn = dấu (.), ngăn cách thập phân =(,)

 

[HieuCD]

Mình đang làm 1 file chứa 1 số USer Form. Có testbox để chứa giá trị tổng của cột số lượng trong listbox tạm.
Vấn đề là khi nhập số nguyên thì nó cộng đúng. Nhưng khi nhập số thập phân kiểu như ( 1000,7) thì nó lại làm tròn thành 1.000 , nếu mình nhập 1000.7 thì nó cộng sai. Mình gửi 1 file lấy trên mạng tương tự file của mình để mọi người sửa giùm. xin cam ơn!
Mình định dạng số theo dang thường dùng, ngăn cách phần nghìn = dấu (.), ngăn cách thập phân =(,)

thử chỉnh lại format

TextBox1 = Format(Val(TextBox1) + Val(T3), "#.###,##0")

 

[anhkhoa1984]

Ko đc. Khi nhập số liệu các dòng nó có ko chính xác . Có cách khác ko bạn.

 

[NguyenNgocThuHien]

Đừng có dùng textbox để save dữ liệu.

 

[anhkhoa1984]

Đừng có dùng textbox để save dữ liệu.

Mình cần nhập dữ liêụ vào listbox , nếu tổng số lượng thoả mãn đk mới ghi vào sheet bạn ah.

 

[ChanhTQ@]

Bạn thử xài sự trợ giúp sau xem sao:

Function StrToNum(StrC As String) As Double
 Dim VTr As Integer, VT0 As Integer:            Dim TF As String
 VTr = InStr(StrC, "."):                        VT0 = InStr(StrC, ",")
 If VTr Or VT0 Then
    If VTr Then
        TF = Mid(StrC, VTr + 1, Len(StrC))
        StrToNum = CLng(Left(StrC, VTr - 1)) + CLng(TF) / 10 ^ (Len(TF))
    Else
        TF = Mid(StrC, VT0 + 1, Len(StrC))
        StrToNum = CLng(Left(StrC, VT0 - 1)) + CLng(TF) / 10 ^ (Len(TF))
    End If
 ElseIf IsNumeric(StrC) Then
    StrToNum = CLng(StrC)
 Else
    MsgBox "Cút Xéo!", , "GPE.COM Xin Mòi"
 End If
End Function