【求助】Excel VBA: 如何讓 Cell 自動增值?

jute

假設我有 A、B 兩個 cell:

我想達成的目的是, 在 A Cell 輸入任何數字, B Cell 就會自動將 A 加入自己原有的值, 例:

B = 2, 我在 A 輸入 '3', B 就自動變成 5

如果我直接在 B 的 formula 欄輸入 '=B+A', 會出現 Circular Reference Error (我的是英文版, 不知道中文怎麼翻)...

有什麼辦法嗎? 還是這題無解?

leonchou

那個error應該是叫「循環參照」.

來寫一個Worksheet_Change事件 --
在工作表標籤上按右鍵 → 檢視程式碼 → 貼上這巨集：
Private Sub Worksheet_Change(ByVal Target As Range)
Set a = Target.Cells(1, 1)
If a.Column > 1 Then Exit Sub
a.Offset(0, 1) = a.Offset(0, 1) + a
End Sub

可參考這篇
http://gb.twbts.com/bbs1.php?BBS_Kind=oexcel&titleid=99

jute

原來這麼簡單啊!

是我之前想得太複雜了, 完全沒想到可利用 Worksheet_Change event

受教了, 感謝 Leon 兄

類似的主題
主題	主題作者	討論版	回覆	最後發表
如何讓 IE 能夠多重下載?	shyong	-- 網路軟體討論一版 (Browser,Email	7	2005-06-10 04:55 AM
【求助】Excel VBA: 如何將 Range 轉換成別的 Type?	jute	-- OFFICE 相關軟體討論版	11	2003-06-13 07:12 PM
求救!如何讓 XP和98的檔案分享!	fjuapple	-- 網路技術版	1	2002-04-11 02:26 PM
如何讓 NERO 在燒錄過程中不問我是否繼續燒錄？	gogohsu	-- 光碟燒錄討論版	1	2001-10-29 07:14 AM
如何讓 mpeg 的畫質變好	piliboy	-- 多媒體討論版	3	2001-08-02 04:45 PM

leonchou Take it easy~	那個error應該是叫「循環參照」. 來寫一個Worksheet_Change事件 -- 在工作表標籤上按右鍵 → 檢視程式碼 → 貼上這巨集： Private Sub Worksheet_Change(ByVal Target As Range) Set a = Target.Cells(1, 1) If a.Column > 1 Then Exit Sub a.Offset(0, 1) = a.Offset(0, 1) + a End Sub 可參考這篇 http://gb.twbts.com/bbs1.php?BBS_Kind=oexcel&titleid=99
	回覆

jute 圈外人	原來這麼簡單啊! 是我之前想得太複雜了, 完全沒想到可利用 Worksheet_Change event 受教了, 感謝 Leon 兄
	回覆