[發問] 顯示乘積

PJChen

Dear,

D2儲存格內容為33*23*18
E2想使D2內的的值33*23*18相乘
請問程式該怎麼寫,可以實現相乘的結果?

jcchiang

回復 1# PJChen

Sub ex()
Dim arr As Variant
arr = Split([D2], "*")
[e2] = "=" & arr(0) * arr(1) * arr(2)
End Sub

quickfixer

回復 1# PJChen
2種方法
(vba)

下載 (6.71 KB)

2020-4-20 08:38

Function ev(s As String)
    Application.Volatile
    ev = Evaluate(s)
End Function

(函數)

下載 (28.88 KB)

2020-4-20 08:42

PJChen

回復 2# jcchiang

請問這個方法,E2=13662
能夠讓E2=33*23*18

jcchiang

回復 4# PJChen

Sub ex()
Dim arr As Variant
arr = Split([D2], "*")
[e2] = "=" & arr(0) & "*" & arr(1) & "*" & arr(2)
End Sub

PJChen

回復 5# jcchiang

請問 D2原本就是 33*23*18為什麼 E2=33*23*18,反而不可行,而要用
arr(0) & "*" & arr(1) & "*" & arr(2)

jcchiang

回復 6# PJChen

方法很多種,視個人習慣使用
簡單點加個"="
Sub ex()
[e2] = "=" & [D2]
End Sub

PJChen

回復 7# jcchiang

謝謝