½Ð°Ýª©¤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
|
¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2013-7-16 15:59 ½s¿è
¦^´_ 11# GBKEE
G¤j¡A©êºp¤p§Ì¤~²¨¾Ç²L¡A¥i¥H½ÐG¤j»¡©ú¤@¤U¶Ü??
«°¥«¸Ì±¤Ó¦h³oÓ'¡A§Ú¤£ª¾¹Dn«ç»ò¬Ý¡Aþ¨Ç¬Onªºþ¨Ç¬O¤£»Ýnªº?? |
|
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 15
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-12
|
¦^´_ 10# ÂŤÑÄR¦À
³o¸Ì´£¨Ñ¥t¥~¤@Ó¤èªk¨Ó¹ê²{ :- Private Sub Worksheet_Change(ByVal Target As Range)
- Application.EnableEvents = False
-
- With Target
- If .Row < 50001 Then
- Select Case .Column
- Case 5 To 7
- .Parent.Cells(.Row, 8) = .Offset(0, -1) + .Offset(0, -2)
- End Select
- End If
- End With
-
- Application.EnableEvents = True
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 13# luhpro
·PÁ¤j¤j§Úª¾¹D¤F |
|
|
|
|
|
|