1樓：姓王的
以下**能滿足你的要求：
private sub worksheet_change(byval target as range)
if target.address <> "$a$1" then exit sub
if target <> "" then
target.copy
range("a2").insert shift:=xldownrange("a151").delete
range("a1").select
end if
end sub
注意**不是在標準模組裡
2樓：老侃號
其實不太難，簡單的函式是沒有辦法完成的，要用到vba，可以自定義函式滿足你的需求。
3樓：匿名使用者
你這個看起好複雜，在excel中，通過簡單設定是達不到你的要求的。 建議你使用程式設計來實現，當提交a1值的時候，做一系到的判斷和賦值就可以了。
在excel工作表中,如:在a1單元格里輸入資料(a1單元格的資料是經常改變),a2單元格里資料自動累加
4樓：匿名使用者
公式做不出這種效果
vba需要 [a1]雙擊輸入 更改值
原理 在b1裡 記錄累計過程
為了避免看到b1值 可以設定成白色字型 或者把累計值改到不顯眼地方 比如[a65000]
調整過程可以自己手動給**
在 thisworkbookli裡
加入以下**
private sub worksheet_beforedoubleclick(byval target as range, cancel as boolean)
if target.address = "$a$1" then [b1] = [a2]
end sub
private sub worksheet_change(byval target as range)
if target.address = "$a$1" then [a2] = [a1] + [b1]
end sub
#########切忌 更改[a1]使用雙擊方法才有效###########
以上回答你滿意麼？
excel能不能設定當a1單元格為***時，a2單元格才能填入資訊
Execute to Parse為負值，求助
裡面的execute to parse 居然出現負數。找到某大師給出的該引數計算公式如下 execute to parse round 100 1 prse exe 2 prse select value from v sysstat where name parse count total exe...
求助 請大俠為我侄子批，謝謝，求助 請大俠為我侄子批八字，謝謝
富貴之造，祖宗積德所致。八字身弱印旺，不以弱論。名字可加木，不宜加水。加木不傷官殺，無妨。請幫我看看我的小侄子的八字，謝謝大師了 此命壽元七十七，二十八有難，五行缺木金旺，建議長期佩戴金制佛像，掛繩上穿一顆檀木珠，需開光！出生年月日時 公曆 2008年 9月 5日 10點 此命五行金旺缺木 日主天干...
英語翻譯求助，謝謝大家，會採納，1 英語翻譯求助，謝謝大家，會採納！
unit 1 你是怎麼學英語的？我通過和小組一起學習學英語的。你通過朗讀學習英語嗎？是的，它幫助我發音。你怎麼能讀得快呢？我通過讀片語能讀得快。我怎麼能改進我的發音？一種方法就是聽錄音磁帶。unit 2 我知道水節真的很好玩。水節有什麼好玩的？我想知道明年他們是否再舉行比賽。龍舟隊是多麼好呀！我想知...