用VBA將焦點定位于名稱框

用VBA將焦點定位于名稱框

Excel中提供了許多快捷鍵，但遺憾的是沒有提供一個快捷鍵可以將焦點定位與名稱框，下面的宏代碼就可以實現這個功能。

Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As LongPublic Declare Function FindWindow Lib "user32" Alias "FindWindowA" _(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _(ByVal hWnd1 As Long, ByVal hWnd2 As Long, _ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Sub SetFocusNameBox()Dim Res As LongRes = SetFocus( _FindWindowEx( _FindWindowEx( _FindWindow("XLMAIN", Application.Caption) _, 0, "Excel;", vbNullString) _, 0, "combobox", vbNullString))End Sub

我們可以給這個宏代碼指定一個快捷鍵，如Ctrl+Shift+N，方法如下：

單擊菜單“工具→宏→宏”，打開“宏”對話框，選擇“SetFocusNameBox”，單擊“選項”按鈕，在其中的文本框中輸入大寫的“N”，單擊確定。

以后，只要按快捷鍵Ctrl+Shift+N，就可以將焦點定位到名稱框

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。