標題: [發問] 顯示乘積 [打印本頁]

---

作者: PJChen    時間: 2020-4-19 22:06     標題: 顯示乘積

Dear,

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

---

作者: jcchiang    時間: 2020-4-20 08:24

回復 1# PJChen

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

---

作者: quickfixer    時間: 2020-4-20 08:42

回復 1# PJChen
2種方法
(vba)
[attach]31935[/attach]
Function ev(s As String)
    Application.Volatile
    ev = Evaluate(s)
End Function

(函數)
[attach]31936[/attach]

---

作者: PJChen    時間: 2020-4-20 15:28

回復 2# jcchiang

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

---

作者: jcchiang    時間: 2020-4-20 16:48

回復 4# PJChen

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

---

作者: PJChen    時間: 2020-4-20 17:02

回復 5# jcchiang

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

---

作者: jcchiang    時間: 2020-4-21 08:15

回復 6# PJChen

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

---

作者: PJChen    時間: 2020-4-21 15:02

回復 7# jcchiang

謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)