[發問] 請問表單停駐問題

用表單輸入資料,run完程式後
最後選取欄位
[e7].select
雖然有選取e7欄位,可是實際focus仍停駐在表單上
接著想要人工直接在e7輸入資料時
還要用滑鼠再點一下才可以繼續動作

請問如何將停駐點設在欄位上?
謝謝

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-12-9 08:57 | 只看該作者

回復 3# 巴克斯
2# 說: 表單需失去註點方可,
或另用功能表.
一般模組程式碼

Private Sub auto_open()
On Error Resume Next
Application.CommandBars("New Bar").Delete
With CommandBars.Add("New Bar", msoBarFloating, , 1)
.Visible = True
With .Controls.Add(msoControlButton)
.Style = msoButtonIconAndCaption
.FaceId = 351
.Width = 100
.Height = 50
.Caption = "Control..."
.OnAction = "test" '按下所執行的程式
End With
End With
End Sub
Private Sub auto_close()
Application.CommandBars("New Bar").Delete
End Sub
Private Sub test()
[a7].Select
End Sub

複製代碼

TOP

巴克斯

中學生 Rank: 2

帖子: 32
主題: 9
精華: 0
積分: 122
點名: 0
作業系統: WINXP
軟體版本: Office XP
閱讀權限: 20
性別: 男
註冊時間: 2010-5-14
最後登錄: 2024-3-20

3^#

發表於 2012-12-9 06:18 | 只看該作者

本帖最後由巴克斯於 2012-12-9 06:21 編輯

回復 2# GBKEE

謝謝GBKEE版主回復,補充我的需求如下
因為是把表單浮動至於上方,作為工具列
所以執行CommandButton1後,希望辦法直接於指定的[e7]欄位直接人工繼續輸入資料
所以不要關掉工具列Userform1,只要直接停駐到欄位[e7]
可以接著直接用鍵盤作業

一般模組程式: