Nhờ các bạn viết dùm 1 code trong file excel đính kèm (1 người xem)

[vannam123]

Cột diễn giải khối lượng B12 đã có 1 đoạn code khi đó ta chỉ cần nhập như sau, dấu :3*2= thì tự động nó nhân bằng 6
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
If Not Intersect(Target, [B6:B1000]) Is Nothing Then
If Target Like "*:*=" Then
Target = Target & " " & Evaluate(Trim _
(Mid(Target, InStr(Target, ":") + 1, _
InStr(Target, "=") - InStr(Target, ":") - 1)))
End If
End If
Application.ScreenUpdating = True
End Sub
Cái code này 1 bạn trên diễn đàn viết dùm....
Giờ là cái mình cần tiếp theo. khi :3*2=6 mình muốn cột D12 nó tự động tách số 6 ra có nghĩa là tách lấy số sau dấu =
dùng 1 đoạn code để là việc đó chứ không dùng hàm =--RIGHT(B12;LEN(B12)-FIND("=";B12))
Nhờ các bạn chỉ giúp !

 

[Let'GâuGâu]

tiêu đề của bạn như vậy chắc là bị khóa quá
bạn thử gõ tìm "du toan" xem
lâu rồi tôi cũng có làm mọ4t bài, bạn tham khảo
http://www.giaiphapexcel.com/forum/...quả-trong-exel-giống-như-trương-trình-dự-toán

 

[vannam123]

Câu hỏi mình nhờ nằm phía dưới..còn đoạn mã kia mình đã hiểu ...

 

[Phuocam]

Câu hỏi mình nhờ nằm phía dưới..còn đoạn mã kia mình đã hiểu ...

Thử code này:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tam As Double
    Application.ScreenUpdating = False
    On Error Resume Next
    If Not Intersect(Target, [B6:B1000]) Is Nothing Then
        If Target Like "*:*=" Then
        Tam = Evaluate(Trim(Mid(Target, InStr(Target, ":") + 1, InStr(Target, "=") - InStr(Target, ":") - 1)))
        Target = Target & " " & Tam
        Target.Offset(, 2) = Tam
        End If
    End If
    Application.ScreenUpdating = True
End Sub

 

[vannam123]

cảm ơn bạn phuocam nhieu