mình thấy nhiều bạn hỏi cái này dành cho xây dựng nên mình mò viết nên code hơi tùm lum, a chị nào giỏi giúp hoàn thiện giùm.
code mình phân tích chuỗi vd bê tông trục 1 :3*5*4 thành công thức toán học, chấp nhận diễn giải dấu x
-- Anh chị nào giúp giùm e mấy phần này với
+ code tự động sum khối lượng riêng và hiển thị ở khối lượng chung
+ nếu người dùng gõ STT bắt đầu cho tên công tác thì kết quả tự hiển thị (auto) chứ không copy và paste thủ công giống như mấy phần mềm dự toán.Và phần kết quả ở khối lượng chung tự động hiểu và sum khối lượng riêng lại đối với mỗi mình công tác đó thôi ( công tác luôn bắt đầu bởi 1 STT) em có đính kèm file elxce.Ai biết code hỗ trợ để giúp mọi người lẫn mình có 1 file tiên lượng dùng bằng elxce cho tiện.cảm ơn
Function tinhso(chuoi As String) As Double
Dim vitri As Integer
Dim Temp, Temp1
vitri = InStr(chuoi, ":")
If vitri > 0 Then
chuoi = Mid(chuoi, vitri + 1)
Set Temp = CreateObject("VBScript.RegExp")
Temp.Global = True
Temp1 = Replace(chuoi, "[", "(")
Temp1 = Replace(Temp1, "]", ")")
Temp1 = Replace(Temp1, "{", "(")
Temp1 = Replace(Temp1, "}", ")")
Temp1 = Replace(Temp1, "x", "*")
'//Temp1 = Replace(Temp1, ":", "/")
Temp.Pattern = "[^0-9,+,.,*,/,:,(,),-]"
chuoi = Temp.Replace(Temp1, "")
tinhso = Evaluate(chuoi)
Else: MsgBox ("ban quen nhap dau hai cham")
End If
End Function
code mình phân tích chuỗi vd bê tông trục 1 :3*5*4 thành công thức toán học, chấp nhận diễn giải dấu x
-- Anh chị nào giúp giùm e mấy phần này với
+ code tự động sum khối lượng riêng và hiển thị ở khối lượng chung
+ nếu người dùng gõ STT bắt đầu cho tên công tác thì kết quả tự hiển thị (auto) chứ không copy và paste thủ công giống như mấy phần mềm dự toán.Và phần kết quả ở khối lượng chung tự động hiểu và sum khối lượng riêng lại đối với mỗi mình công tác đó thôi ( công tác luôn bắt đầu bởi 1 STT) em có đính kèm file elxce.Ai biết code hỗ trợ để giúp mọi người lẫn mình có 1 file tiên lượng dùng bằng elxce cho tiện.cảm ơn
Function tinhso(chuoi As String) As Double
Dim vitri As Integer
Dim Temp, Temp1
vitri = InStr(chuoi, ":")
If vitri > 0 Then
chuoi = Mid(chuoi, vitri + 1)
Set Temp = CreateObject("VBScript.RegExp")
Temp.Global = True
Temp1 = Replace(chuoi, "[", "(")
Temp1 = Replace(Temp1, "]", ")")
Temp1 = Replace(Temp1, "{", "(")
Temp1 = Replace(Temp1, "}", ")")
Temp1 = Replace(Temp1, "x", "*")
'//Temp1 = Replace(Temp1, ":", "/")
Temp.Pattern = "[^0-9,+,.,*,/,:,(,),-]"
chuoi = Temp.Replace(Temp1, "")
tinhso = Evaluate(chuoi)
Else: MsgBox ("ban quen nhap dau hai cham")
End If
End Function
File đính kèm
Lần chỉnh sửa cuối: