標題: 如何輸入計算式可得結果? [打印本頁]

---

作者: oak0723-1    時間: 2010-9-4 01:06     標題: 如何輸入計算式可得結果?

如附件
在工作表1的儲存格g8與f8輸入單位及算式
如何在儲存格d8得到算式?

---

作者: oobird    時間: 2010-9-4 10:22

[d8] = Mid([g8].Formula, 2) & "=" & [g8] & [f8]

---

作者: Hsieh    時間: 2010-9-4 10:33

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target, [F8:G8]) Is Nothing Then Exit Sub
   
3. [D8] = Replace([G8].FormulaLocal, "=", "") & "=" & [F8]
   
4. End Sub

複製代碼

---

作者: oak0723-1    時間: 2010-9-4 11:14

回復 2# oobird
如附件~~~
Private Sub CommandButton1_Click()
[D8] = Mid([G8].Formula, 2) & "+" & Mid([G14].Formula, 2) & "=" & [h10] & [F8]
End Sub
以上是小弟改寫的程式碼
但計算式2內容若為空白或0時
[d8]會多顯示一個"+"如何改善?(例:10*10+=100kg)
另
hish大大你的程式碼小弟不會執行耶(如附件)

---

作者: Hsieh    時間: 2010-9-4 11:22

回復 4# oak0723-1


    F8或G8重新輸入

---

作者: oak0723-1    時間: 2010-9-4 13:58

本帖最後由 oak0723-1 於 2010-9-4 14:01 編輯

回復 5# Hsieh

剛仔細看了一下
    原來Hsieh  大大少寫了一個程式碼
小弟有給他補上
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F8:G8]) Is Nothing Then Exit Sub
[D8] = Replace([G8].FormulaLocal, "=", "") & "=" & [g8]&[F8]
End Sub
就ok了
只是小弟還有的疑惑就是前篇提到的

---

作者: oobird    時間: 2010-9-4 14:47

[D8] = Mid([G8].Formula, 2) & IIf([G14] = "", "", "+" & Mid([G14].Formula, 2)) & "=" & [h10] & [F8]

---

作者: GBKEE    時間: 2010-9-4 20:19

回復 7# oobird
再簡化
[D8] = Mid([G8].Formula, 2) & IIf([G14] = "", "", "+") & Mid([G14].Formula, 2) & ["="&h10& F8]

---

作者: oak0723-1    時間: 2010-9-4 21:32

回復 7# oobird


    Mid([G8].Formula, 2)中"Formula"的意思是????

---

作者: oobird    時間: 2010-9-4 21:43

就是公式的意思！

---

作者: oak0723-1    時間: 2010-9-5 07:43

回復 10# oobird


    懂了
感恩~~~

---

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