返回列表 上一主題 發帖

關於當在TextBox1內按下Enter後做和選取TextBox1和(oobird 大大謝謝你~我會多用點心

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-25 12:34 | 顯示全部帖子

關於當在TextBox1內按下Enter後做和選取TextBox1和(oobird 大大謝謝你~我會多用點心

本帖最後由 av8d 於 2011-8-25 15:31 編輯

1.當在TextBox1內按下Enter後做
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii=13 then
'做
EndIf
End Sub
是這樣嗎?

2.關於選取TextBox1~像TextBox1再輸入的時候會有黑線閃爍那樣
我嘗試了一下    TextBox1.Select    好像不行
收藏 分享

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
2#
發表於 2011-8-25 13:06 | 顯示全部帖子
回復 2# oobird


    oobird 大大您好~感謝您的回覆~第一個問題沒問題了~

第二個可能還是出現問題~

Private Sub TextBox1_Change()
    If TextBox1.Value = "" Then
        Rows("3:1000").Select
        Selection.ClearContents
        TextBox1.Select
    End If
End Sub

他執行完畢後~他不會復原成正在輸入的閃爍情形~不知道為什麼?

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題