68手游网

通常，当我们打开一个Excel工作簿时，标题栏中仅仅显示一个简单的文件名。我们可以用下面的VBA代码，让工作簿在打开时在标题栏显示其路径和文件名： 按Alt+F11，打开VBA编辑器，在工程窗口中双击ThisWorkBook，在右边的代码窗口中输入以下代码： Private Sub Workbook_Open() ActiveWindow.Caption = ActiveWorkbook.FullN...

如果需要在某个工作簿中禁止打印工作表，可以用下面的方法来实现： 在VBA编辑器工程窗口中，双击ThisWorkBook，在右边的代码窗口中输入下面的代码： Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True End Sub 该代码使用了Workbook.BeforePrint事件，在打印工作簿之前执行代码。这样，当我们在该工作簿...

VBA中的Activate方法和Select方法看起来似乎相同，其实二者是有区别的。Activate方法的作用是激活，而Select方法的作用是选择。其区别如下： 1.对于Sheets对象 Sheets.Select可以同时选择多个工作表，而Sheets.Active不能同时激活多个工作表。如下面的语句： Sub Test1() ActiveWorkbook.Sheets(Array(1, 2, 3)).Select '...

如果有一个产品列表要提交给用户查看，我们可以给产品名称所在单元格添加图片批注，这样当用户在查看产品信息时，鼠标放到单元格中就可以看到该产品图片。其具体的操作方法见本站的给单元格添加图片注释一文，但这个方法仅适合于给少量单元格添加图片批注，如果有许多单元格都要添加图片批注，可以用VBA代码来快速进行，步...

如果要获取Windows默认的用户帐户名称，可以使用下面的VBA代码，其中使用了 WNetGetUser 函数，将代码放入标准模块中： Option Explicit Private Declare Function WNetGetUser Lib mpr.dll Alias WNetGetUserA _ (ByVal lpName As String, _ ByVal lpUserName As String, _ lpnLength As Long) As Long Private Const NO_...

如果需要查找区域中最后一个已使用的单元格或表格中已使用的最后一行，可以用下面的VBA代码： 1.查找某列中最后一个已使用的单元格 假如要查找第一列中最后一个已使用的单元格，下面的代码可以选择该单元格： Sub LastCellInColumn() Range(A65536).End(xlUp).Select End Sub 如果第一列数据中包含空格，查找空格上方的单...

Excel中的许多命令都可以使用快捷键来完成，但仍然有一些命令没有指定快捷键。例如在常用工具栏中的显示比例命令。我们可以用下面的VBA代码来实现用快捷键调整工作表显示比例，将下列代码输入到标准模块中： Sub ZoomIn() Dim ZP As Integer ZP = Int(ActiveWindow.Zoom * 1.1) If ZP 400 Then ZP = 400 ActiveWindow.Zoom...

Excel中没有内置工作表排序的命令或方法，我们可以用VBA来实现工作表排序。下面的VBA代码可以将工作表按其名称的拼音或笔画的顺序来排序，同时还可以指定升序或降序。 Sub SortWorksheets() Dim SortOrd, SortM, ActiveSht As String Dim NumSht() ActiveSht = ActiveWorkbook.ActiveSheet.Name On Error Resume Next n =...

在Excel中删除空行和空列的方法有很多，下面的方法是用VBA代码来删除工作表指定区域中的空行和空列： Option Explicit Sub Delete_Empty_Rows() Dim rnArea As Range Dim lnLastRow As Long, i As Long, j As Long Application.ScreenUpdating = False lnLastRow = Selection.Rows.Count Set rnArea = Selection j = 0 Fo...

一个论坛上的会员有如下的要求：如图需要把当前路径中的财务、采购、工厂、计划、人士等工作簿的出勤明细工作表的记录复制汇总在加班汇总表工作簿中的加班原因汇总工作表中，并需要取出各部门的名称，希望批量使用VBA完成？很久没有玩VBA了，今晚手痒，写了这样一个程序： A：ALT+F11插入模块模块中输入以下代码： EXCEL如...