½Ð°Ýª©¤W¤j¤j¡Aexcel¥i¥H°õ¦æ³oºØ¸ê®Æªº¼È¦s¶Ü??
- ©«¤l
- 65
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2011-11-10
- ³Ì«áµn¿ý
- 2019-2-27
|
¦^´_ 1# ÂŤÑÄR¦À
n¦Û¤v§âªºÈ¦s°_¨Ó, ¦A¸ò·sªºÈ¤ñ
·§©À¦p¤U, ¦A¥[ column ©M row ªº§PÂ_, ´N®t¤£¦h¤F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
OldValue= Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
NewValue= Target.Value
'¦A¥hpºâ§Y¥i
End Sub |
|
|
|
|
|
|
- ©«¤l
- 65
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2011-11-10
- ³Ì«áµn¿ý
- 2019-2-27
|
¦^´_ 3# ÂŤÑÄR¦À
§Aªº»Ý¨D, ¤j·§¬O³o¼Ë
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$A$1": A1 = Target.Value
Case "$B$1": B1 = Target.Value
End Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$1": Range("A2") = A1 - Target.Value
Case "$B$1": Range("B2") = B1 - Target.Value
End Select
End Sub |
|
|
|
|
|
|