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

·Æ¹«ÂI¿ïTextBox¦Û°Ê§R°£¤º®e

¦^´_ 1# Jared


    Private Sub TextBox1_Change()
    qqa = ActiveSheet.Range("A1").CurrentRegion.Rows.Count
   
    For qa = 1 To qqa
        If Cells(qa, 1) = TextBox1.Text Then Cells(qa, 1) = ""
    Next
End Sub

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_  mark15jill


    ÁÂÁ¤j¤j¨ó§U^^
Jared µoªí©ó 2013-3-11 14:38


¥t¥~¤@ºØ¤èªk
³]©w­n§R°£ªºÃöÁä¦r
µM«á §PÂ_Àx¦s®æ¬O§_¦³ÃöÁä¦r
¦³ªº¸Ü ¾ã§å§R°£...
¤èªk ½×¾Â¦³ ´N¤£¥ÎÂI¨ÓÂI¥h..

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD