[µo°Ý] Åã¥Ü­¼¿n

PJChen

Dear,

D2Àx¦s®æ¤º®e¬°33*23*18
E2·Q¨ÏD2¤ºªºªº­È33*23*18¬Û­¼
½Ð°Ýµ{¦¡¸Ó«ç»ò¼g,¥i¥H¹ê²{¬Û­¼ªºµ²ªG?

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ºØ¤èªk
(vba)

¤U¸ü (6.71 KB)

2020-4-20 08:38

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

(¨ç¼Æ)

¤U¸ü (28.88 KB)

2020-4-20 08:42

PJChen

¦^´_ 2# jcchiang

½Ð°Ý³o­Ó¤èªk,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­ì¥»´N¬O 33*23*18¬°¤°»ò E2=33*23*18,¤Ï¦Ó¤£¥i¦æ,¦Ó­n¥Î
arr(0) & "*" & arr(1) & "*" & arr(2)

jcchiang

¦^´_ 6# PJChen

¤èªk«Ü¦hºØ,µø­Ó¤H²ßºD¨Ï¥Î
²³æÂI¥[­Ó"="
Sub ex()
[e2] = "=" & [D2]
End Sub

PJChen

¦^´_ 7# jcchiang

ÁÂÁÂ