Giúp chuyển đổi từ dạng chuỗi phép tính ra số

[truongquangtvgs]

Mình đang muốn chuyển đổi dạng chuỗi một phép tính ra phép tính trong excel. Bạn nào biết hướng dẫn mình với
VD: Mình có chuỗi số sau: 9*1*8
Mình muốn chuyển đổi ra phép tính =9*1*8. kết quả là số 72.
Rất mong được sự hỗ trợ của các bạn
Thank

 

[giangleloi]

Mình đang muốn chuyển đổi dạng chuỗi một phép tính ra phép tính trong excel. Bạn nào biết hướng dẫn mình với
VD: Mình có chuỗi số sau: 9*1*8
Mình muốn chuyển đổi ra phép tính =9*1*8. kết quả là số 72.
Rất mong được sự hỗ trợ của các bạn
Thank

Dùng Text To Column tách ra làm 3 cột rồi nhân lại đi bạn.

 

[HungQuoc49]

Mình đang muốn chuyển đổi dạng chuỗi một phép tính ra phép tính trong excel. Bạn nào biết hướng dẫn mình với
VD: Mình có chuỗi số sau: 9*1*8
Mình muốn chuyển đổi ra phép tính =9*1*8. kết quả là số 72.
Rất mong được sự hỗ trợ của các bạn
Thank

Bạn tìm hiểu về hàm Evaluate trong Macro4 là giải quyết rất thuận tiện

 

[truongquangtvgs]

Rất cảm ơn các bạn. Mình sẽ tìm hiểu hàm evaluate

 

[vanle33]

Mình đang muốn chuyển đổi dạng chuỗi một phép tính ra phép tính trong excel. Bạn nào biết hướng dẫn mình với
VD: Mình có chuỗi số sau: 9*1*8
Mình muốn chuyển đổi ra phép tính =9*1*8. kết quả là số 72.
Rất mong được sự hỗ trợ của các bạn
Thank

Bạn thử sử dụng file đính kèm của tôi, sử dụng name

 

[lehuong1409]

Mình đang muốn chuyển đổi dạng chuỗi một phép tính ra phép tính trong excel. Bạn nào biết hướng dẫn mình với
VD: Mình có chuỗi số sau: 9*1*8
Mình muốn chuyển đổi ra phép tính =9*1*8. kết quả là số 72.
Rất mong được sự hỗ trợ của các bạn
Thank

Giả sử ô chứa chuỗi của bạn là A2 thì bạn làm như sau
Vào thẻ Fomulas chọn Define Name
Tại Name có thể bạn gõ Tinh
Refers to gõ =EVALUATE(Sheet1!A2) với Sheet1!A2 là ô chứa giá trị cần tính
Tại ô trả giá trị bạn cần gõ =tinh là đc

 

[truongquangtvgs]

Cảm ơn bạn lehuong1409 mình đã dùng và đúng như bạn đã hướng dẫn.
Thank bạn nhé

 

[phuyen89]

Bạn có thể dùng hàm Tự tạo sau.

Public Function Nhan(Chuoi As String) As Long
    If Chuoi = Empty Then Exit Function
    Dim arr As Variant
    Dim i As Integer
    Dim LnResult As Long
    LnResult = 1
    arr = Split(Chuoi, "*")
    For i = 0 To UBound(arr)
        LnResult = LnResult * arr(i)
    Next i
        Nhan = LnResult
End Function

 

[ndu96081631]

Bạn có thể dùng hàm Tự tạo sau.

Public Function Nhan(Chuoi As String) As Long
    If Chuoi = Empty Then Exit Function
    Dim arr As Variant
    Dim i As Integer
    Dim LnResult As Long
    LnResult = 1
    arr = Split(Chuoi, "*")
    For i = 0 To UBound(arr)
        LnResult = LnResult * arr(i)
    Next i
        Nhan = LnResult
End Function

Gì kỳ vậy ta? Không lẽ một biểu thức toán học mà chỉ toàn PHÉP NHÂN thôi sao?