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

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

11^#

發表於 2010-9-5 07:43 | 只看該作者

回復 10# oobird

懂了
感恩~~~

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

10^#

發表於 2010-9-4 21:43 | 只看該作者

就是公式的意思！

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

9^#

發表於 2010-9-4 21:32 | 只看該作者

回復 7# oobird

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

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2010-9-4 20:19 | 只看該作者

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

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

發表於 2010-9-4 14:47 | 只看該作者

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

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

6^#

發表於 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了
只是小弟還有的疑惑就是前篇提到的

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-9-4 11:22 | 只看該作者

回復 4# oak0723-1

F8或G8重新輸入

學海無涯_不恥下問

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

4^#

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

990903-3.rar (9.88 KB)

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2010-9-4 10:33 | 只看該作者

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

複製代碼

學海無涯_不恥下問