滑鼠點選TextBox自動刪除內容

Jared

想請問大大
目前置作一份問卷
欄位很多
所以預設是將TextBox先寫上說明
當要填寫內容的時候
利用滑鼠點選TextBox就會自動刪除
但是如果問卷的TextBox太多
我寫在滑鼠事件的程式如下
有沒有辦法寫在一個事件就可以各別點欄位數發事件呢？
因為欄位如果有20個、30個....那程式內容會很可觀 (>_<)

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

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

Jared

回復 2# mark15jill


    謝謝大大協助^^

mark15jill

回復  mark15jill


    謝謝大大協助^^
Jared 發表於 2013-3-11 14:38

另外一種方法
設定要刪除的關鍵字
然後 判斷儲存格是否有關鍵字
有的話 整批刪除...
方法 論壇有 就不用點來點去..

Hsieh

回復 1# Jared

多個同類型的控制項，執行同樣的動作
這樣就可以使用物件類別模組來控制

Jared

回復 5# Hsieh


   大大，這個方法就有點深度>"<