dựa trên code của anh Sơn Đoàn và Tran Duy Nguyen,và của anh mỹ, mình có thêm dòng code để bẩy lỗi, nhưng có vấn đề là "code vẫn cho ra kết quả nhưng vẫn thông báo lỗi" Private Sub txtkichthuoc_AfterUpdate()
On Error GoTo Error1
Dim strDulieu As String, strTemp As String
If txtkichthuoc = "" Then
txtkhoiluong = ""
Else
strDulieu = txtkichthuoc.Value
For i = 1 To Len(strDulieu)
Select Case Mid(strDulieu, i, 1)
Case "x": strTemp = strTemp & ""
Case ":": strTemp = strTemp & "/"
Case "+", "-", "", "/", "(", ")", ".", ",", 0 To 9: strTemp = strTemp & Mid(strDulieu, i, 1)
End Select
Next i
txtkhoiluong.Value = Evaluate(strTemp)
End If
Error1:
MsgBox "Cong thuc tinh sai. Nhap lai"
End Sub