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

Jared

·Q½Ð°Ý¤j¤j
¥Ø«e¸m§@¤@¥÷°Ý¨÷
Äæ¦ì«Ü¦h
©Ò¥H¹w³]¬O±NTextBox¥ý¼g¤W»¡©ú
·í­n¶ñ¼g¤º®eªº®É­Ô
§Q¥Î·Æ¹«ÂI¿ïTextBox´N·|¦Û°Ê§R°£
¦ý¬O¦pªG°Ý¨÷ªºTextBox¤Ó¦h
§Ú¼g¦b·Æ¹«¨Æ¥óªºµ{¦¡¦p¤U
¦³¨S¦³¿ìªk¼g¦b¤@­Ó¨Æ¥ó´N¥i¥H¦U§OÂIÄæ¦ì¼Æµo¨Æ¥ó©O¡H
¦]¬°Äæ¦ì¦pªG¦³20­Ó¡B30­Ó....¨ºµ{¦¡¤º®e·|«Ü¥iÆ[ (>_<)

Private Sub b13_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b13.Value = ""
End Sub
Private Sub b14_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b14.Value = ""
End Sub
Private Sub b15_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b15.Value = ""
End Sub
Private Sub b16_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b16.Value = ""
End Sub
Private Sub b17_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b17.Value = ""
End Sub
Private Sub b18_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b18.Value = ""
End Sub
Private Sub b20_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b20.Value = ""
End Sub

Jared

¦^´_ 5# Hsieh


   ¤j¤j¡A³o­Ó¤èªk´N¦³ÂI²`«×>"<

Hsieh

¦^´_ 1# Jared

¦h­Ó¦PÃþ«¬ªº±±¨î¶µ¡A°õ¦æ¦P¼Ëªº°Ê§@
³o¼Ë´N¥i¥H¨Ï¥Îª«¥óÃþ§O¼Ò²Õ¨Ó±±¨î

mark15jill

¦^´_  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..

Jared

¦^´_ 2# mark15jill


    ÁÂÁ¤j¤j¨ó§U^^

mark15jill

¦^´_ 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