excel2003在同一单元格的原值自动加上新值，如原值为5输入新值为10时直接显示15 能不能？急！
\u9ad8\u624b\u8bf7\u8fdb excel2003\u5728\u540c\u4e00\u5355\u5143\u683c\u7684\u539f\u503c\u81ea\u52a8\u52a0\u4e0a\u65b0\u503c\uff0c\u5982\u539f\u503c\u4e3a5\u8f93\u5165\u65b0\u503c\u4e3a10\u65f6\u76f4\u63a5\u663e\u793a15 \u80fd\u4e0d\u80fd\uff1f\u6025\uff01\u5982\u679c\u6240\u6709\u5355\u5143\u683c\u90fd\u52a0\u4e0a\u540c\u4e00\u4e2a\u6570\u5b57\u5c31\u597d\u529e\u3002\u6bd4\u5982\u9700\u8981\u5168\u90e8\u90fd\u52a010\uff0c\u5728\u7a7a\u683c\u5904\u8f93\u516510\uff0c\u9009\u4e2d\u8be5\u5355\u5143\u683c\uff0c\u53f3\u952e-\u590d\u5236-\uff08\u7136\u540e\u9009\u4e2d\u6240\u6709\u8981\u52a0\u65b0\u503c\u7684\u5355\u5143\u683c-\u53f3\u952e\uff09-\u9009\u62e9\u6027\u7c98\u8d34-\u52a0-\u786e\u5b9a\u3002OK\uff01
\u8fd9\u662f\u4e0d\u53ef\u80fd\u7684,\u5982\u4e00\u5b9a\u8981\u5b9e\u73b0\uff0c\u5219\u5fc5\u987b\u501f\u52a9\u53e6\u5916\u4e00\u4e2a\u5355\u5143\u683c\uff0c\u5e76\u4e14\u8fd8\u8981\u7528\u5230\u5faa\u73af\u5f15\u7528\uff0c\u8fd9\u662f\u975e\u5e38\u5371\u9669\u7684
\u5c06\u4e0b\u5217\u4ee3\u7801\u52a0\u5165\u8868\u5355\u7684 VBA \u7684\u4ee3\u7801\u6846\u4e2d\u5373\u53ef\u5b9e\u73b0\u4f60\u8981\u6c42\u7684\u529f\u80fd\uff0c\u4f46\u8bf7\u6ce8\u610f\u4e07\u4e00\u4f60\u5f55\u5165\u6570\u636e\u51fa\u73b0\u9519\u8bef\u518d\u60f3\u6062\u590d\u6b63\u786e\u6570\u636e\u4f1a\u5f88\u56f0\u96be\u7684
\u518d\u6709\uff1a\u53ea\u6709\u6dfb\u52a0\u4e86\u8fd9\u4e9b\u4ee3\u7801\u7684\u8868\u5355\u624d\u80fd\u5b9e\u73b0 \u81ea\u52a0 \u529f\u80fd
Option Explicit
Dim Mid As Double
Dim intR As Integer
Dim intC As Integer
Dim blnChg As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
blnChg = True
intR = Target.Row
intC = Target.Column
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo abc
If blnChg = True Then
Cells(intR, intC) = Mid + Cells(intR, intC)
blnChg = False
End If
Mid = Target.Value
abc:
blnChg = False
End Sub
要和数据有效性一起用，设定目标单元格只能输入数字
Dim k As Double
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Cells(1, 1) Then
Application.EnableEvents = False
On Error GoTo hand1
Cells(1, 1).Value = k + Target.Value
Application.EnableEvents = True
End If
hand1:
Exit Sub
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo hand
k = Cells(1, 1).Value
hand:
Exit Sub
End Sub
示例A1
测试了下，不完美，输入字母，得数出错
在任意单元格中输入5，复制，选择需计算的单元格，右击选择“选择性粘贴”中的“运算”的“加”，按确定即可
Public k As Double
Public n As Long
Public x As Long
Public y As Long
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
n = 0
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim he As Double
If IsNumeric(Target) And n = 1 Then
he = k + Target
n = 0
k = 0
Cells(x, y) = he
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsNumeric(Target) Then
n = 1
k = Target
x = Target.Row
y = Target.Column
Else
n = 0
End If
End Sub
绛旓細鏂规硶涓 閫夋嫨瑕佸悎骞剁殑鍗曞厓鏍硷紝鐒跺悗鍗曞嚮鈥滄牸寮忊濆伐鍏锋爮涓婄殑鈥滃悎骞跺苟灞呬腑鈥銆傛柟娉曚簩 1.閫夋嫨瑕佸悎骞剁殑鍗曞厓鏍硷紝璁剧疆鍗曞厓鏍兼牸寮 2.鍒囨崲鍒板榻愰夐」鍗″苟閫変腑鍚堝苟鍗曞厓鏍笺傛晥鏋滐細浠ヤ笂涓ょ鏂规硶浼氬緱鍒颁互涓嬫晥鏋溿傛煡鐪嬶細銆婃豹鐞帺Excel銆嬫暀绋嬪垪琛
绛旓細杩欐槸涓嶅彲鑳界殑,濡備竴瀹氳瀹炵幇锛屽垯蹇呴』鍊熷姪鍙﹀涓涓鍗曞厓鏍锛屽苟涓旇繕瑕佺敤鍒板惊鐜紩鐢紝杩欐槸闈炲父鍗遍櫓鐨 灏嗕笅鍒椾唬鐮佸姞鍏ヨ〃鍗曠殑 VBA 鐨勪唬鐮佹涓嵆鍙疄鐜颁綘瑕佹眰鐨勫姛鑳斤紝浣嗚娉ㄦ剰涓囦竴浣犲綍鍏ユ暟鎹嚭鐜伴敊璇啀鎯虫仮澶嶆纭暟鎹細寰堝洶闅剧殑 鍐嶆湁锛氬彧鏈夋坊鍔犱簡杩欎簺浠ｇ爜鐨勮〃鍗曟墠鑳藉疄鐜 鑷姞 鍔熻兘 Option Explicit Dim Mid As ...
绛旓細杩欎釜鐪熷彲浠 瑕佸拰鏁版嵁鏈夋晥鎬т竴璧风敤锛岃瀹氱洰鏍鍗曞厓鏍鍙兘杈撳叆鏁板瓧 Dim k As Double Private Sub Worksheet_Change(ByVal Target As Range)If Target = Cells(1, 1) Then Application.EnableEvents = False On Error GoTo hand1 Cells(1, 1).Value = k + Target.Value Application.EnableEvents = Tr...
绛旓細1銆佸湪涓涓崟鍏冩牸涓兂瑕佽緭鍏ュ琛屾枃瀛楋紝鍙互浣跨敤ALT+ENTEN閿湪鍗曞厓鏍间腑鎹㈣锛 2銆佷篃鍙互璁剧疆涓哄崟鍏冩牸鑷姩鎹㈣锛岄変腑浣犺鎹㈣鐨勫崟鍏冩牸锛屽彸閿偣鍑--閫夋嫨璁剧疆鍗曞厓鏍兼牸寮--閫夋嫨鈥滃榻愨濋夐」鍗★紝鍦ㄢ滄枃鏈帶鍒垛濅笅鐨勫閫夋涓変腑锛氳嚜鍔ㄦ崲琛屽嵆鍙
绛旓細浣犺繖涔堝仛瀹规槗鍑洪棶棰橈紝姣斿浣犺緭鍏5锛屼笅娆¤緭鍏10搴旇鏄15锛屼絾鏄篃璁镐綘杈撳叆11鍙樻垚16锛屼綘涔熶笉鐭ラ亾鏄笉鏄敊浜嗭紝鎴栬呴敊鍦ㄥ摢閲屻傛垨璁镐綘鍙互鑰冭檻涓嬫眰鍜屽叕寮忥紵涓琛岃緭杩囧幓銆傛渶鍚庝竴琛岃涓眰鍜屽叕寮忥紝璁╀粬鑷姩鐢熸垚鎬绘暟銆
绛旓細寮哄埗鎹㈣灏卞厜鏍囩Щ鍒颁綘瑕佹崲琛岀殑浣嶇疆锛屾寜Alt+Enter 鍗虫寜浣廇lt涓嶆斁锛屾寜鍥炶溅瀹屾垚 杩欐牱灏变細寮哄埗鍦ㄤ綘瑕佹崲琛岀殑鍦版柟鎹㈣浜嗐
绛旓細杩欐槸鍦ㄤ竴涓鍗曞厓鏍閲岀殑,鍙笉杩囧瓧绗﹀お闀胯屽凡,浣犲彲浠ラ氳繃璁剧疆鍗曞厓鏍兼牸寮忚瀹冩樉绀哄湪涓涓崟鍏冩牸閲,鏂规硶濡備笅:閫夋嫨璇ュ崟鍏冩牸->鍙抽敭->璁剧疆鍗曞厓鏍兼牸寮 鍦"瀵归綈"閫夐」鍗′腑,鍕鹃夎嚜鍔ㄦ崲琛屽嵆鍙.
绛旓細1銆佷互涓嬮潰涓や釜琛ㄦ牸涓轰緥婕旂ず鎿嶄綔鏂规硶銆傛帴涓嬫潵璁剧疆鍦˙14:B22杩欏尯鍩鍗曞厓鏍涓緭鍏ユ暟鎹悓姝ュ埌H14:H22杩欏尯鍩熷崟鍏冩牸銆2銆侀変腑H14:H22杩欏尯鍩熷崟鍏冩牸锛涘啀鍦ㄧ紪杈戞爮涓緭鍏ュ叕寮忥細=B14 3銆佸啀鎸変笅CTRL+ENTER锛涜繖鏃禜14:H22杩欏尯鍩熷崟鍏冩牸閮芥樉绀轰负0锛涜繖閲屽洜涓築14:B22杩樻病鏈夋暟鍊硷紝杩欎釜鍏堜笉鐢ㄧ銆4銆佹帴鐫锛屾垜浠湪B14...
绛旓細1銆侀鍏堬紝鎵撳紑闇瑕佹搷浣滅殑Excel琛ㄦ牸銆2銆佸湪鍚堝苟鍗曞厓鏍涔嬪墠闇瑕侀夋嫨闇瑕佸悎骞剁殑鍗曞厓鏍煎尯鍩熴3銆佷娇鐢ㄥ揩鎹峰懡浠TRL+M鍗冲彲蹇熷悎骞跺崟鍏冩牸銆4銆佺劧鍚庡湪閫夋嫨涓涓叾瀹冨尯鍩熻繘琛屽悎骞躲5銆佹寜涓婩4閿悓鏍峰彲浠ュ揩閫熷悎骞躲6銆佸湪寮濮嬭彍鍗曚腑鐨勫姛鑳藉尯锛岄氳繃妗嗛夊悎骞跺尯鍩熷悗锛屽湪寮濮嬭彍鍗曞姛鑳藉尯涓偣鍚堝苟鍗曞厓鏍硷紝涔熻兘灏嗗崟鍏冩牸蹇...
绛旓細1銆佹墦寮Excel琛ㄦ牸锛岃姹傚湪閫変腑鐨凙8鍗曞厓鏍涓紝缁樺埗涓ゆ潯鏂滅嚎骞跺悓鏃剁紪杈戞枃鏈唴瀹广2銆佺偣鍑婚変腑A8鍗曞厓鏍硷紝鐐瑰嚮銆愭彃鍏ャ戦夐」鍗★紝鐒跺悗鍦ㄤ笅闈㈢殑閫夐」涓偣鍑婚夋嫨銆愬舰鐘躲戦夐」锛屽湪寮瑰嚭鐨勯夐」涓夋嫨涓嬪浘涓摑鑹茬澶存寚鍚戠殑[鐩寸嚎]閫夐」銆3銆佸洖鍒板伐浣滆〃涓紝濡備笅鍥撅紝鐢ㄦ埛鍙互鍦ㄩ変腑鐨勫崟鍏冩牸涓偣鍑婚紶鏍囧乏閿苟鎷栧姩榧犳爣灏嗚...
