返回列表 上一主題 發帖

[發問] 如何執行2個SetFocus?

av8d

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

(謝謝G大，完成)如何在按下按鈕後~執行到TextBox1然後作Enter的動作(自訂表單)

本帖最後由 av8d 於 2012-6-28 17:00 編輯

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then ActiveSheet.UsedRange.AutoFilter 1, "=" & DateValue(TextBox1)
End Sub

以上是如果在TextBox1按Enter後作動作

如果要在按下CommandButton按鈕後~執行到TextBox1然後作Enter的動作該如何寫?

(以上都是在自訂表單執行)

KeyPress

TOP

av8d

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

回復 2# GBKEE


    TextBox1 = Date
    TextBox1.SetFocus
    SendKeys "{Enter}"
可是如果
    UserForm1.TextBox1.SetFocus
    UserForm1.SendKeys "{Enter}"
就不行

TOP

av8d

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

[發問] 如何執行2個SetFocus?

TextBox7 = Month(Date) & "/" & Day(Date)
    TextBox7.SetFocus
    SendKeys "{Enter}"
   
    TextBox1 = Date
    OptionButton2.Value = True
    TextBox2.SetFocus


紅色的部分會無法被執行到如果把TextBox2.SetFocus拿掉則可以執行
是否2個SetFocus較上方的會被省略呢?
收藏 分享

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題