返回列表下一主題上一主題發帖

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

oak0723-1

中學生 Rank: 2

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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-9-4 01:06 | 顯示全部帖子

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

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

990903-2.rar (1.78 KB)

樓主熱帖

oak0723-1

中學生 Rank: 2

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

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

2^#

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

TOP

oak0723-1

中學生 Rank: 2

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

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

3^#

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

TOP

oak0723-1