- ©«¤l
- 14
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-25
- ³Ì«áµn¿ý
- 2011-8-3
|
[µo°Ý] ¦U¦ì¤j¤j§Ú¤S¨Ó¤FÁÙ¬OÃö©ó¸õ°ÊDDEpºâ¦¨¥æ¶q²Îp°ÝÃD
Private Sub Worksheet_Calculate()
¦]¬°°£¤F¤§«e¸g¹L¤j¤j«ü¾É«á¾Ç·|ªºÂI¦ì°O¿ý¥~
²{¦bÁÙ»Ýn¦b¬YӪŮ檺¼ÆȧïÅÜ«á
§Ún¶i¦æ¥[Á` ¦ý¬O¦³®ÉÔ·|¦³³sÄò¨âµ§DDE³£¬O5 5 ÁÙ¬O»Ýn¥[Á`
³o¼Ë¦³¿ìªk°µ¨ì§P©w¼ÆȧïÅܤF¶Ü
§Ú¥u·|¼g¤F¤@¦æ
If [B4] <> "" Then Range("C" & tr) = Range("B4") + Range("C" & tr)
¦ý¬O³o¼Ëªº¤è¦¡·|Åܦ¨¨C¹j¤@¬q®É¶¡ ´N²Ö¥[B4³oÓ¼ÆÈ §Ú·Qn¦³§ïÅܤ~¥[
¤£ª¾¹Dn«ç»ò¼g ÁÙ¬On¥Î
worksheet_change???
·PÁ¤j¤j |
|