用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小时内删除侵权内容。