- ©«¤l
- 28
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 32
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 7
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-1-1
- ³Ì«áµn¿ý
- 2012-6-29
|
¦^´_ 8# lcc_seven
¤£¦n·N«ä§Ú·Q¦b½Ð°Ý¤@Ó°ÝÃD!!!
²{¦b§Úªº¤èªk¬O¨Ï¥Îlcc_seven ¥Î¼Ò²Õªº¤èªk!!!¦ý¬O¬°¤Fn§ó§ï
§Ú¥Ø«eªº²Â¤èªk¬O¨Ï¥Î½Æ»s¶K¤WµM«á¦b§ó§ï¦WºÙ!!!
¦ýnª½±µ¥[¨ì²Ä¤@ӼҲո̱«oµo¥Í½s¿è¿ù»~~"~
¦ý¦pªG¥ÎVBªº¸Ü¬O¸Ó«ç»òקï???¦³ÂI·d¤£²M·¡¤F!!!
¥t¥~¦pªG·Qn¸ò¤U±ªº³oÓ°µµ²¦X
¬Oª½±µ¦b©¹¤U±¥[¤J´N¦n¶Ü??- Private Sub Worksheet_Change(ByVal Target As Range)
- Set RngA = Range("A2:A4")
- Set RngB = Range("B2:B4")
- Set RngCA = Intersect(Target, RngA)
- Set RngCS = Intersect(Target, RngB)
- If Not RngCA Is Nothing Then
- RngCA.Offset(0, 2) = RngCA.Offset(0, 2) + RngCA.Value
- RngCA.Value = ""
- End If
- If Not RngCS Is Nothing Then
- RngCS.Offset(0, 1) = RngCS.Offset(0, 1) - RngCS.Value
- RngCS.Value = ""
- End If
- End Sub
½Æ»s¥N½X ¨º§Ú¥[¤J«á¡AÁÙ¬O·|µo¥Í¦WºÙ¿ù»~!!!
¨º¬O»Ýn¬Æ»òªº³sµ²¦WºÙ¶Ü? |
|