- ©«¤l
- 156
- ¥DÃD
- 31
- ºëµØ
- 0
- ¿n¤À
- 235
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- excel 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2018-1-5
- ³Ì«áµn¿ý
- 2024-3-8
|
¥»©«³Ì«á¥Ñ coafort ©ó 2023-2-21 19:37 ½s¿è
¥´¿ù¤F
¬O
¯u¬O¤Ó·PÁ¤j¤j¤F
½Ð°Ý¨â¦ì¤j¤j
§Ú¹ê»Ú¦ì¸m¬O
AQ212~AQ218¤ÎAW212~AW218¤ÎBB221¬O¿é¤J¼ÆÈÄæ(IJµo)
AR212~AR218¤ÎAX212~AX218¤ÎBC221¬OÀx¦s®æ
§Ú§ï¦¨³o¼Ë
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Or .Item(1) = "" Then Exit Sub
If Not Intersect([AQ212:AQ218,AW212:AW218,BB221], .Cells) Is Nothing Then
.Cells(0, 1) = Val(.Cells(0, 1)) + Val(.Value)
.ClearContents
End If
End With
End Sub
¦ý¬O¥X¿ù¤F
½Ð°Ýn«ç»ò§ï©O¡H
ÁÂÁ¤j¤j |
|