名称
用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 LongSub 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，就可以将焦点定位到名称框
excel打开工作簿时总是打开指定的工作表
通常在保存Excel工作簿时，如果某个工作表处于活动状态，下次打开这个工作簿时就会自动打开这个工作表。如果我们需要每次打开工作簿时总是打开指定的工作表，而无论保存时哪个工作表处于活动状态，可以用下面一个简单的VBA代码来实现：Private Sub Workbook_Open()Sheet3.ActivateEnd Sub按Alt+F11，打开VBA编辑器，在工程窗口中双击当前Excel文件名中的“ThisWorkBook”，在右侧的代码窗口中输入上述代码并保存，如图。 这样，每次打开工作簿时，Excel将自动打开“Sheet3”所对应的工作表，需要说明的是，这里的“Sheet3”不是工作表名称，而是工程窗口中的对象名称“Sheet3”，它对应的工作表名称是“汇总表”。当在Excel中更改工作表名称时，不会影响代码的运行，仍然会打开对象“Sheet3”对应的工作表。如果需要在代码中指定每次打开的工作表名称，可以用下面的代码：Private Sub Workbook_Open()Sheets("汇总表").SelectEnd Sub
在excel用VBA更改批注的作者
在Excel中，当光标移动到包含批注的单元格中时，通常会在状态栏和批注中显示批注者的名称。如果需要将批注者改为其他人，可以用下面的VBA代码。以后再插入新的批注，也将使用新输入的名称。使用前先将代码中的“新作者”和“原作者”按照需要进行替换。Sub ChangeCommentName()Dim ws As WorksheetDim cmt As CommentDim strOld As StringDim strNew As StringDim strComment As StringstrNew = "新作者"strOld = "原作者"Application.UserName = strNewFor Each ws In ActiveWorkbook.WorksheetsFor Each cmt In ws.CommentsstrComment = Replace(cmt.Text, strOld, strNew)cmt.Deletecmt.Parent.AddComment Text:=strCommentNext cmtNext wsEnd Sub
excel在宏对话框中不显示宏命令名称
如果Excel工作簿中包含宏命令，可以通过宏对话框来查看这些宏命令名称。方法是单击菜单“工具→宏→宏”，或按Alt+F8打开“宏”对话框。例如如下的代码： 在工作表中打开宏对话框： 有时我们不希望使用者通过宏对话框来运行宏命令，这时可以在代码的前面加上“Private”关键字。如：Private Sub test()……End Sub这样，当打开宏对话框后将看不到宏命令名称。
excel利用VBA批量创建指定名称的文件夹
有时在工作中需要批量创建指定名称的文件夹，如果数量较多，例如要创建几十、甚至几百个文件夹，用手动的方法很难完成。批量创建文件夹的工具有很多，如果一时手头没有这类工具，可以在Excel中用VBA来完成，方法如下：1.新建一个工作簿，在A列中输入要创建的文件夹名称，在B1单元格中输入文件夹所在的有效路径，如“d:\新建文件夹”。 2.按Alt+F11，打开VBA编辑器。在右侧的代码窗口中输入下列代码：Sub BatchCreatFolders()Dim rCel As RangeFor Each rCel In ThisWorkbook.Worksheets("Sheet1").UsedRange.Columns(1).CellsOn Error Resume Next‘B1单元格为新建文件夹所在的路径MkDir Range("B1").Text & "\" & rCel.TextNextEnd Sub3.运行上述代码，即可批量创建指定名称的文件夹。
如何删除excel中隐藏的名称
一些Excel宏和加载宏可以坐成隐含的名称，这些名称存在于某个工作簿中，但是并不出现在“定义名称”对话框中。例如， Solver加载宏生成了许多隐含的名称。通常，可以忽略掉这些隐含的名称。 然而，有时候这些隐含的名称会引起问题。假如将一个工作表复制到另一个工作簿中，隐含的名称也同样被复制，并且它们可能产生很难跟踪的链接。 可以使用下列一段VBA程序删除工作簿中的所有隐含的名称： Sub DeleteHiddenNames() Dim n As Name Dim Count As Integer For Each n in ActiveWorkbook.Names If Not n.Visible Then n.DeleteCount=Count+1End IfNext nMsgBox Count & "hidden names were deleted."End Sub
excel利用自定义函数获取工作表名称
有时需要在工作表中引用同一工作簿中其他工作表名称，当工作表数量较多时，逐一手工输入有些繁琐，这时可以添加一个自定义函数来快速获取工作表名称，方法如下：按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中输入下列代码：Function GetSheetName(idx As Integer, Optional relative_position As Boolean) As StringApplication.VolatileGetSheetName = Sheets(IIf(relative_position, ActiveSheet.index – -idx, idx)).NameEnd Function上述代码定义了一个自定义函数GetSheetName，有两个参数：“idx”为工作表的索引号，“relative_position ”为逻辑型可选参数。“relative_position ”参数为“0”或省略时表示按工作表的绝对位置来获取工作表名称，其取值范围为“1,2,3，……”，当“idx”取这些值时依次获取工作簿中从左到右的第1,2,3，……个工作表的名称；该参数为真时按相对位置来获取工作表名称，即“idx”参数为“0”时取得当前工作表名称，为“-1”时取得其左侧第一个工作表名称，为“1”时取得其右侧第一个工作表名称。示例：取得第一个工作表的名称：=getsheetname(ROW(A1))向下拖到填充柄填充公式即可依次取得各工作表名称。在G11单元格取得当前工作表的名称：=getsheetname(ROW()-11,1)
Excel2013单元格的引用方式怎么操作
单元格的引用升级啦，直接给单元格定义名称，一次就能搞定多个单元格!以下是小编为您带来的关于Excel2013单元格的引用方式，希望对您有所帮助。 Excel2013单元格的引用方式 我们只需要像这样做就可以了： 1、用Excel2013打开公司员工工资表，选中我们需要命名的单元格，也就是H3至H14，然后切换到“公式”选项卡，单击“定义的名称”中的“定义名称”按钮。 2、此时会弹出一个“新建名称”对话框，我们在其中输入名称“实发工资”，并单击“确定”按钮，做完后的效果如下。 3、现在，我们选中I3单元格，在其中输入公式“=IF(实发工资<1500,"低工资"," ")”，完成后按回车键，效果如下。 4、我们现在对I4至I14单元格进行自动填充公式操作，完成之后的效果图如下。
excel2013中怎么新建查询表图文教程
现在的excel2013版本功能强大，带有查询功能，可以快速查询显示内容针对在成千上万行内容里查一行数据信息非常方便，下面给大家分享excel2013建立查询表的方法，欢迎大家来到学习。 excel2013中新建查询表的步骤 给表内容自定义名称，为了后面数据录入提供方便，定义名称等于为表格区域建立一个名称，后面通过该名称可以直接调用区域。 选中区域右键选择(定义名称)或者Ctrl+F3点击新建同一功能，(名称)建议输入简单又能表达内容意思就行，本例输入的rg=人员的意思，注意选择区域不要带表头 复制表头到任意地方，可以是其它工作表，(定义的名称引用可以跨域工作表，只要在同一个文件内都可以调用) 设置检索条件，示例以A列员工号为检索条件，检索条件可随意设置位置并在旁边注释说明，示例填充了单元格为红色凸显重点 设置返回值：在返回值单元格中输入=VLOOKUP(检索条件单元格,先前定义的名称,序号,0); 0代表精确返回值函数，本示例在员工号下面单元格输入 =VLOOKUP(H2,rg,1,0)， 因为检索条件是员工号所以员工号为序列号1向后推姓名=2、年龄=3、性别=4、职业=5 设置返回值续
Excel如何查询当前操作系统的名称和版本号
查询当前操作系统的名称和版本号以方便用户的操作，可通过VBA查询当前操作系统的版本号和名称。Excel2003可通过VBA宏查询当前操作系统的名称和版本号。在Excel VBA中，如果需要查询当前操作系统的名称和版本号以方便用户的操作，可通过VBA查询当前操作系统的名称和版本号。Excel2003可通过VBA宏查询当前操作系统的名称和版本号。Excel查询当前操作系统的名称和版本号的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()MsgBox "当前操作系统的名称和版本号是: " & Application.OperatingSystemEnd Sub按F5运行键运行程序，查询当前操作系统的名称和版本号，返回当前系统下当前操作系统的名称和版本号。