[Nhờ] xin code tính diễn giải khối lượng

Nhờ mọi người hướng dẫn mình cách thực hiện mình cảm ơn nhiều

Cái này mình sưu tập được. Gửi bạn tham khảo. Dùng hàm "KL", và có dấu ":" để cách phần tính nhé!

Trên Diễn đàn đã có về vấn đề tính diễn giải KL.
Em xem bài này: Bảng tính khối lượng giống các Chương trình Dự toán

quanghao1132004 gửi lúc 28/12/2016 12:31
Cái này mình sưu tập được. Gửi bạn tham khảo. Dùng hàm "KL", và có dấu ":" để các ...

Đọc code của file.
Cái này bạn có thể dùng làm add-in được.

[Visual Basic] 纯文本查看 复制代码

Function vitri(kytu As String, chuoidc As String)
 sodaucach = 0
 For i = 1 To Len(chuoidc)
 kytuchuoi = Mid(chuoidc, i, 1)
 If kytuchuoi = kytu Then
 vitri = i
 End If
 Next
 End Function
 Public Function KL(strText As String)
 If Right(strText, 1) = " " Then
 KL = "0"
 Else
 strText = Replace(strText, "m2", "")
 strText = Replace(strText, "m3", "")
 strText = Replace(strText, "M2", "")
 strText = Replace(strText, "M3", "")
 strText = Replace(strText, ",", ".")
     
     If vitri(" ", strText) < Len(strText) And vitri(" ", strText) > 1 Then
     strText = Right(strText, Len(strText) - vitri(" ", strText))
     'Else
     End If
     
     KL = ""
     For i = 1 To Len(strText)
         kytu = Mid(strText, i, 1)
         ktdb = Mid(strText, i, 4)
         If kytu = "0" Or kytu = "1" Or kytu = "2" Or kytu = "3" Or kytu = "4" Or kytu = "5" Or kytu = "6" Or kytu = "7" _
             Or kytu = "8" Or kytu = "9" Or kytu = "+" Or kytu = "-" Or kytu = "*" Or kytu = "/" Or kytu = "^" Or kytu = "." _
             Or kytu = "," Or kytu = "(" Or kytu = ")" Or kytu = "%" Or kytu = "x" Or kytu = "X" Or ktdb = "sqrt" Or ktdb = "Sqrt" Or ktdb = "SQRT" Then
             If ktdb = "sqrt" Or ktdb = "Sqrt" Or ktdb = "SQRT" Then
                kytu = "sqrt"
             End If
             If kytu = "x" Or kytu = "X" Then
                kytu = "*"
             End If
             KL = KL & kytu
         End If
     Next
     If KL = "" Then
     KL = 0
     End If
 End If
 If IsError(Evaluate(KL)) Then
 KL = ""
 Else
     KL = Round(Evaluate(KL), 3)
         If KL = 0 Then
             KL = ""
         End If
 End If
 End Function

phamvana gửi lúc 30/12/2016 08:22
Đọc code của file.
Cái này bạn có thể dùng làm add-in được.
[mw_shl_code=vb,true]Func ...

Mình đã làm cái Add-In tạm tạm. Các bạn có thể tải về giải nén và Add-In vào Excel của mình. Một chia sẽ nhỏ, chúc các bạn vui. Tinh KL.rar (20.78 KB, Lượt tải về: 1645)

4/1/2017 14:24 Tải lên

Click to download

Trong add-in có cả hàm đọc số thành tiền với hàm vnd().

phamvana gửi lúc 30/12/2016 08:22
Đọc code của file.
Cái này bạn có thể dùng làm add-in được.
[mw_shl_code=vb,true]Func ...

Không biết tác giả còn xem bài viết không, bên mình đang làm khối lượng có vướng mắc như sau:
1. Không ra kết quả với chuỗi quá lớn
2. Khi cộng 2 dòng có giá trị thì ra kết quả, 1 dòng có giá trị 1 dòng không có giá trị ra # value