顯示乘積 - Excel程式區 - 麻辣家族討論版版

[發問] 顯示乘積

1^# 跳轉到 »

發表於 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

2^#

發表於 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

3^#

發表於 2020-4-21 08:15 | 顯示全部帖子

回復 6# PJChen

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

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。