返回列表 上一主題 發帖

如何輸入計算式可得結果?

如何輸入計算式可得結果?

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

990903-2.rar (1.78 KB)

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

TOP

  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
複製代碼
學海無涯_不恥下問

TOP

回復 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大大你的程式碼小弟不會執行耶(如附件)

990903-3.rar (9.88 KB)

TOP

回復 4# oak0723-1


    F8或G8重新輸入
學海無涯_不恥下問

TOP

本帖最後由 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了
只是小弟還有的疑惑就是前篇提到的

TOP

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

TOP

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

TOP

回復 7# oobird


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

TOP

就是公式的意思!

TOP

        靜思自在 : 君子為目標,小人為目的。
返回列表 上一主題