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

[­ì³Ð] ¥HÃöÁä¦r¿z¿ï¦h­Ósheetsªº¸ê®Æ

¦^´_  sunnyso

¼gªº¤£¿ù¡Aºc·Q¤]¤£¿ù

¦pªG¤@¶}©l¨S¦³¿z¿ïÃöÁä¦r®É¡A¦p¦ó§ï¬°¥þ³¡Åã¥Ü

¥Ø«e¤@¦CÃö ...
ML089 µoªí©ó 2013-5-11 09:19

¦^´_ 3# sunnyso
Private Sub Worksheet_Activate()
    ' ....
    ' ....
    Cells.ClearContents
    ' ....
    ' ....
    ' ....
    Next
    '  ³]©wµL¿z¿ïÃöÁä¦r¿é¤J¡A¨C¦¸±Ò°Ê¸Ó­¶­±§YÅã¥Ü¥þ³¡¤º®e
    '  ¥H¤UNull("")«Å§i¡A¨t²Î·|¦Û°ÊIJµoWorksheet_Change()
    Cells(4, 1) = ""   
    Application.ScreenUpdating = True
End Sub

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-5-13 07:01 ½s¿è
Cells.ClearContent¨Ã¤£·|IJ°Ê worksheet_change
sunnyso µoªí©ó 2013-5-12 22:25

§A¼gªº¤º®e¯uªº«Ü¤£¿ù¡A¤]ÆZ¦³ºc«äªº¡C GBKEE ªº¸É¥R¤]ÆZ¨ãÅé¹ê¥Î¡C
¤£¦n·N¬O¡B¸É¥R¤@¤U§Ú«üªº¬O¬õ¦âªº Cells(4, 1) = ""¡A¦Ó«D   
Cells.ClearContent¡A¦]¬°¦b¤@¶}©l©Ò¦³¤º®e§¡³Q²M°£±¼¤F¡A
¤§«á·í  Cells(4, 1) ¡B Cells(4, 2)¡B Cells(4,3)¡B Cells(4, 4)¡B
©ÎªÌ¬O Cells(4, 5) ¤º®e¤¤¦³©Ò¥ô¦ó¤@²Õ²§°Ê®É¡A«K·|IJµo
worksheet_change()¡C

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD