返回列表 上一主題 發帖

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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
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    好像不行
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-8-25 12:48 | 只看該作者
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        MsgBox "你按 Enter 幹嘛？"
    End If
End Sub
選取TextBox1~像TextBox1再輸入的時候會有黑線閃爍那樣
本來就會這樣的，選取時就會進入輸入狀態。

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
3#
發表於 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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2011-8-25 15:09 | 只看該作者
你只說選取TextBox1
沒說是在程式中選取
當然不能一概而論
所以敘述問題要用點心
這樣要用TextBox1.Activate

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題