½Ð°Ýª©¤W¹ïchange¨Æ¥ó«Ü¼ôªº¤j¤j
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
½Ð°Ýª©¤W¹ïchange¨Æ¥ó«Ü¼ôªº¤j¤j
¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2013-7-12 11:11 ½s¿è
Private Sub Worksheet_Change(ByVal Target As Range)
'Application.EnableEvents = False
If Not Intersect(Target, [E1:G50000]) Is Nothing Then Exit Sub
Range("H" & Target.Row).Formula = "=RC[-1]+RC[-2]"
'Application.EnableEvents = True
End Sub
°õ¦æ¤Wzªºµ{¦¡·|¥X²{¿ù»~28 °ïÅ|ªÅ¶¡¤£¨¬
¦pªGn±N¤Wzµ{¦¡§ï¦¨E¨ìGÄ榳Åܰʤ~ÅÜ°Ê¡A¨ä¥LÄæÅÜ°Ê«h¤£°õ¦æn«ç»ò§ï¡A¨D±ÐªO¤W¤j¤j |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 1# ÂŤÑÄR¦À
HÄæ¥i¥H¹w¥ý¶ñ¦n¤½¦¡¡A¤£¶·¥t¥~¼gVBA³B²z¡C |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 2# stillfish00
¤j¤j¡A´N¬O¤£¦æ©Ò¥H¤~¥ÎVBAªºµo¤è¦¡ªü |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-7-12 18:23 ½s¿è
¦^´_ 3# ÂŤÑÄR¦À
¤½¦¡¤£¦æªºì¦]¬O?
¤â°Ê¿é¤JȤ½¦¡¤]¤£·|¸òµÛ¹Bºâ¶Ü?
¦³¨S¦³Àˬd¹L¤½¦¡¦Û°Ê¹Bºâ¬O§_§ï¦¨¤F¤â°Ê?
§Ú¥u¬O¦n©_«ç»ò°µ¨ì§A»¡ªº³oºØª¬ªp¡A¦]¬°code¸Ì±¤]¬O¥h§ï¤½¦¡¦Ó¤w¡C
µM«á§Aµ{¦¡ªº§PÂ_©M¤¤¤å±Ôzªº¬Û¤Ï¤F |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 4# GBKEE
G¤j¡A®³±¼µù¸Ñ´N¡A¨ä¥LÀx¦s®æÅÜ°ÊÁÙ¬O·|pºâ¡A¯à§ï¦¨E¨ìGÄæÅܰʤ~ÅÜ°Ê¡A¨ä¥LÄæÅÜ°Ê«h¤£ÅܰʶÜ?? |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 5# stillfish00
¨º¦pªG¥H§Ú¤¤¤åªº·N«ä³oµ{¦¡n«ç»ò§ï?? |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 8# GBKEE
G¤j·PÁ§A¡A´ú¸Õ¤w¸g¥i¥H¥Î¤F¡A·PÁ |
|
|
|
|
|
|
- ©«¤l
- 365
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 406
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-11
- ³Ì«áµn¿ý
- 2024-8-24
|
¦^´_ 8# GBKEE
G¤j¡A¦A¸ò§A½Ð±Ð¤@Ó°ÝÃD
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [E1:E50000]) Is Nothing Or Not Intersect(Target, [G1:G50000]) Is Nothing Then
Range("H" & Target.Row).Formula = "=RC[-1]+RC[-2]"
End If
Application.EnableEvents = True
End Sub
¦pªG¥H¤Wµ{¦¡¡A¦bHÄ泡¤À§Ún¥L¦bÀx¦s®æpºâ§¹¤§«á¼g¤Jªº¬OÈ¡A¦Ó¤£¬O¤½¦¡¡A½Ð°Ý¤@¤UG¤jµ{¦¡n«ç»ò§ï¡A³Â·Ð§A¤F |
|
|
|
|
|
|