工作

Excel如何讓A3顯示B3內的計算公式 - 工作

Joseph avatarJoseph · 2007-06-11

Table of Contents

假設B1內容為(5+2)顯示為(7)A1內容則自動顯示出(5+2)這個小弟已經有爬文爬出來了用下列巨集就可以了FunctionTRAN(STR)TRAN=Range(STR.Address()).FormulaTRAN=Right(TRAN,Len(TRAN)-1)EndFunction可是呢~~我的問題是~~假設B1內容為(=5+2)顯示為(7)B2內容為(=6+8)顯示為(14)A1內容則自動顯示出(5+2)A2內容則自動顯示出(6+8)B3內容為(=B1+B2)顯示為(21)A3內容則自動顯示出(7+14)而不是(B1+B2)懇請各位大大可否幫忙解答一下
工作

All Comments

Mary avatarMary2007-06-14
這是一個有挑戰性的問題.期待中!2007-06-1212:22:39補充：我先來一個請大家斧正一下好了檔案在下面連結,請點一下下載http://www.box.net/shared/3359ei4dx5我不是使用自定義函數做,而是'利用工作表的CHANGE事件,自動化PrivateSubWorksheet_Change(ByValTargetAsRange)WithTarget.Cells(1)If.Column=2ThenShFormulaTarget.Cells(1)EndIfEndWithEndSub在參考檔案中,只要在SHEET1工作表B欄輸入公式A欄就會自動照要求顯示出公式.程式碼中有詳細說明,在此不另贅言.2007-06-1219:44:00補充：我不知道你真正的問題
Sierra Rose avatarSierra Rose2007-06-12
小弟將回答刪了原因1.crdotlin一直是小弟敬仰的大師,blog中的技巧幫了小弟很大忙,要小弟將所獲得的點數全獻給他都可以2.crdotlin大師在他更新的連結檔Module2中已將小弟的程式碼包含在內了,有興趣的朋友可以直接下載檔案參考(大大不行刪除回答呀,否則大家就不能參考了!)還有,Duneinmud小沙魚inmu大大提供的自訂函數方法真是高明,簡單易懂,值得學習...
Elvira avatarElvira2007-06-14
不必用任何巨集,只要在工具,選項裏,選檢視,有一個視窗選項,在公式的欄位打勾就可以了.
Dora avatarDora2007-06-14
若只是單純只有"+"法FunctionTRAN(STR)Dimwk_splitAsVariantDimiAsIntegerTRAN=Range(STR.Address()).FormulaTRAN=Right(TRAN,Len(TRAN)-1)wk_split=Split(TRAN,"+")2007-06-1210:13:35補充：承上i=0Fori=LBound(wk_split)ToUBound(wk_split)IfIsNumeric(wk_split(i))=FalseThenwk_split(i)=Range(wk_split(i)).ValueEndIfNexti2007-06-1210:13:45補充：承上TRAN=""Fori=LBound(wk_split)ToUBound(wk_split)TRAN=TRAN&wk_split(i)&"+"NextiTRAN=Left(TRAN,Len(TRAN)-1)EndFunction2007-06-1315:50:39補充：昨天回答意見數滿了@@我在這貼上我弄ㄉ^^FunctionTRAN2(
Madame avatarMadame2007-06-15
我都是用較笨的方法啦。先把A1，A2，A3的格式設為文字，內容直接用輸入的而B1(=5+2)，B2(=6+8)則用運算式，B3用自動加總框選B1～B2