- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2015-5-5 22:39 ½s¿è
DEAR SIR
°õ¦æ¦p¤U ¥X²{ "°ïÅ|ªÅ¶¡¤£¨¬" ???
·Ð¤£§[½ç±Ð THANKS ROBERT 05/05
Private Sub W ...
rouber590324 µoªí©ó 2015-5-5 16:04
¨º¬O¦]¬°¤u§@ªíÅܧó¨Æ¥ó¤@ª½³QIJµo,
¦ÛµM«Ü§Ö´NOver Flow¤F.
³oÃþ±¡§Î¥i¥H¥Î³æ¨B°õ¦æ¨Óµo²{°ÝÃDÂI:
1. ¥ý¹ï ÀɮצWºÙ ³o¤@¦æ³]¤¤Â_ÂI.
2. Åܧ󦹤u§@ªíªº¤º®eIJµo¦¹µ{§Ç.
3. ¨Ì¦¸«ö F8 «öÁäÆ[¹îµ{¦¡°õ¦æ¨BÆJ.
§A·|µo²{µ{¦¡¬O³o¼Ë¶]ªº-
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ÀɮצWºÙ
Sub ÀɮצWºÙ()
...
Sheet51.Range("AA2") = M
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
...
(µL°j°é)
¸Ñ¨Mªº¤èªk¬O¦b¤£À³Ä²µo SheetChange µ{§Ç®É´N¤£nIJµo:- Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
- Application.EnableEvents = False
- ÀɮצWºÙ
- AA
- Application.EnableEvents = True
- End Sub
½Æ»s¥N½X |
|