Cách cắt Diễn toán bên phải và trái

[giaptk3]

Em có một file tính khối lượng cần cắt bên trái và phải để ra khối lượng.
do nhiều lúc sửa ở phần diễn toán nhưng lại ko cập nhật bên kết quả nên nhiều lúc sai số rất nhiều. mong các bác chỉ giùm

 

[ptlong04x1]

Mình làm thế này, vẫn hơi thủ công.

Bước chuẩn bị :
Nhập dữ liêu toàn bộ cho phần diễn toán, sau đó kéo fill hết công thức trong cột phụ.

Bước cuối cùng :
- Bạn chọn hết vùng dữ liệu màu đỏ trong cột phụ.
- Bấm nút "Tính khối lượng" để chạy macro.

Lưu ý :
Nếu sau đó bạn thay đổi dữ liệu trong phần diễn toán thì bạn phải làm lại Bước cuối cùng.

 

[ndu96081631]

Mình làm thế này, vẫn hơi thủ công.

Bước chuẩn bị :
Nhập dữ liêu toàn bộ cho phần diễn toán, sau đó kéo fill hết công thức trong cột phụ.

Bước cuối cùng :
- Bạn chọn hết vùng dữ liệu màu đỏ trong cột phụ.
- Bấm nút "Tính khối lượng" để chạy macro.

Dùng hàm này cho tiện nè bạn ơi:

Function ValExp(Cell As String) As Double
  Dim Temp1 As String
  With CreateObject("VBScript.RegExp")
    .Global = True
    Temp1 = Replace(Cell, "[", "(")
    Temp1 = Replace(Temp1, "]", ")")
    Temp1 = Replace(Temp1, "{", "(")
    Temp1 = Replace(Temp1, "}", ")")
    Temp1 = Replace(Temp1, "x", "*")
    Temp1 = Replace(Temp1, ":", "/")
    .Pattern = "[^0-9+.*/:()-]"
    ValExp = Evaluate(.Replace(Temp1, ""))
  End With
End Function

 

[ptlong04x1]

Dùng hàm này cho tiện nè bạn ơi:

Function ValExp(Cell As String) As Double
  Dim Temp1 As String
  With CreateObject("VBScript.RegExp")
    .Global = True
    Temp1 = Replace(Cell, "[", "(")
    Temp1 = Replace(Temp1, "]", ")")
    Temp1 = Replace(Temp1, "{", "(")
    Temp1 = Replace(Temp1, "}", ")")
    Temp1 = Replace(Temp1, "x", "*")
    Temp1 = Replace(Temp1, ":", "/")
    .Pattern = "[^0-9+.*/:()-]"
    ValExp = Evaluate(.Replace(Temp1, ""))
  End With
End Function

Cảm ơn anh, thật sự là em không hiểu đoạn code này.

 

[ndu96081631]

Cảm ơn anh, thật sự là em không hiểu đoạn code này.

Hàm này có 2 tác dụng:
- Tách lấy số và các ký tự đã định trước (như dấu +, - , *, /, (, )...)
- Tính ra giá trị của biểu thức
Xem file đính kèm!

 

[giaptk3]

Hàm này có 2 tác dụng:
- Tách lấy số và các ký tự đã định trước (như dấu +, - , *, /, (, )...)
- Tính ra giá trị của biểu thức
Xem file đính kèm!

cảm ơn bác rất nhiều rất hay