摘要： Excel中提供了许多快捷键，但遗憾的是没有提供一个快捷键可以将焦点定位与名称框，下面的宏代码就可以实现这个功能。 Public Declare Function SetFocus Lib "user32" (ByVal hwnd...
Excel中提供了许多快捷键，但遗憾的是没有提供一个快捷键可以将焦点定位与名称框，下面的宏代码就可以实现这个功能。
Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public 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 Long
Res = SetFocus( _
FindWindowEx( _
FindWindowEx( _
FindWindow("XLMAIN", Application.Caption) _
, 0, "EXCEL;", vbNullString) _
, 0, "combobox", vbNullString))
End Sub
excel利用VBA选择已定义名称的区域
如果活动单元格位于某个已定义名称的区域中，可以用下面的VBA代码来选择这个区域，同时在状态栏中给出提示。 Public Sub SelectRange()Dim RngName As StringDim R As RangeSet R = ActiveCellDim Msg As StringMsg = "活
我们可以给这个宏代码指定一个快捷键，如Ctrl Shift N，方法如下：
单击菜单“工具→宏→宏”，打开“宏”对话框，选择“SetFocusNameBox”，单击“选项”按钮，在其中的文本框中输入大写的“N”，单击确定。
以后，只要按快捷键Ctrl Shift N，就可以将焦点定位到名称框
excel中利用VBA在受到保护的工作表中进行自动筛选
当在工作表中设置了自动筛选，而在保护工作表时没有选择允许“使用自动筛选”，那么自动筛选功能在保护工作表后无法使用。如果需要在不解除工作表保护的情况下能够使用自动筛选，可以用下面的VBA代码： 1.按Alt F11，打开VBA编辑器，在“工程”窗口中选择相应的工作表，在右侧
