ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦³½Ð¸Ñµª! ¦p¦ó»s§@¦¹¤@Äæ¦ì??

¦^´_ 3# cheng17875

¦pªG¥Î Worksheet_Change ¥hIJµo§ó·sµ{§Ç©O?

TOP

¦^´_  jackdream
    ¤£¦n·N«ä!  ¤£ª¾¹D«ç¼Ë§Ë°Õ!
¥i§_µ¹¤p¾Ç¥Í§Ú¦h¤@ÂI²³æ¥Õ¸Üªº«ü¥Ü
cheng17875 µoªí©ó 2010-7-26 14:29


½Ð±N¥H¤U¤º®e©ñ¦b sheet ¸Ì­±(¤£¬O©ñ¦b¼Ò²Õ¸Ì­±)
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Not Intersect(Target, Range("A2")) Is Nothing Then '­Y¦³§ó§ï A2 ¤º®e
  3.         If Not Cells(Target.Row, Target.Column) = Empty Then
  4.             Call xxx 'IJµoµ{§Ç (xxx ¥Nªí«ü¶i¦æªÑ²¼§ó·sªº¼Ò²Õ)
  5.         End If
  6.     End If
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_  jackdream
§Ú¦³¼g¨ìÀx¦s®æ¤¤  ¦ý¦n¹³¤£¯à°õ¦æ
cheng17875 µoªí©ó 2010-7-27 11:09


±z¦n! ¤W­z»yªk¨Ã¤£¬O¼g¦bÀx¦s®æ¤º,¦Ó¬O sheet ªºvbaµ{¦¡½s¿èµe­±.
«Øij¥i¥H¤W¶ÇÀÉ®×,¬Ý¬Ý®æ¦¡¤º®e¬O§_¤@©w­n°Ê¥Î vbaµ{¦¡.

TOP

¦^´_ 9# cheng17875

ªþ¥ó¤º¨ÃµLµ{¦¡½X,¸ê®Æ¨Ó·½¬O eMidst|SW
¦]¦¹­n¬Ý­ì©lÀɮתº¤º®e®æ¦¡,¦A¥Î vlookup ¤§Ãþªº¨ç¼Æ¥h§ä¥X¹ïÀ³­È.

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD