68手游网

请罗列四川省、湖南省、湖北省三个省份员工的资料。 VBA代码如下： Sub test() '定义变量 Dim rng As Range, RngTemp As Range, firstAddress As String Dim i As Byte, findCell As Range, sh As Worksheet, shtname As String '将查找的目标设置为C2单元格到C列最后一个非空单元格赋予变量为rng Set rng = Range([C2], C...

1、按下Alt+F11组合键进入VBA编辑状态。 2、 执行视图立即窗口命令，打开立即窗口。 3、在立即窗口输入： ?application.ThisWorkbook.Worksheets.Count 4、点击回车...

前面介绍了用VBA隐藏工作表，这时的工作表格式工作表取消隐藏命令是灰色的，无法执行。那如何取消对工作表的隐藏呢？ 1、按下Alt+F11组合键进入VBA编辑状态。 2、执行工具VBAProject属性命令，弹出VBAProject密码对话框。 3、输入密码，点击确定 ，弹出 VBAProject工程属性对话框，点击确定， 解开密码。 4、执行视图工程...

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 A...

如果Excel表格单元格中包含有许多用文本形式显示的超链接，如给我发邮件、访问我的网站等，要逐一查看所有超链接的地址，用手工的方法显得太繁琐，我们可以用自定义函数来批量提取这些超链接中的地址，将下列代码插入到标准模块中： Function GetURL(rng As Range) As String On Error Resume Next GetURL = rng.Hyperlink...

如果我们要获取某月中指定日期的数量，例如，2009年1月中有几个星期一？用Excel内置的日期时间函数无法解决这个问题。我们可以用自定义函数的方法来解决。按Alt+F11打开VBA编辑器，单击菜单插入模块，在右侧的代码窗口中输入自定义函数： Function WeekDaysInMonth(iYear As Integer, iMonth As Integer, iDay As Integer)...

如果一个工作簿中包含许多工作表，其中还有一些是隐藏的，我们可以用VBA代码来直接打印所有隐藏的工作表，而无需将它们取消隐藏。由于Excel无法打印隐藏的工作表，下面的代码先取消工作表的隐藏，打印之后再将其隐藏起来。将代码放入VBA编辑器的标准模块中运行。 Sub PrintHiddenSheets() Dim wSheet As Worksheet Dim Cur...

有时我们需要用VBA代码判断某个文件夹或文件是否存在，以便进行后续操作。可以用下面的代码来实现这个功能： Public Function FileFolderExists(strFullPath As String) As Boolean On Error GoTo EarlyExit If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True EarlyExit: On Error GoTo...

如果要判断一个指定的工作簿是否打开，可以将下面的VBA代码放入标准模块中，然后在子过程中进行调用。 Function IsWkbOpened(sWkbName As String) As Boolean '如果目标工作簿已打开则返回TRUE，否则返回FALSE Dim i As Long For i = Workbooks.Count To 1 Step -1 If Workbooks(i).Name = sWkbName Then Exit For End If...

在VBA中可以用Application对象的GetOpenFilename方法来调用打开文件对话框，但Excel却没有提供浏览文件夹的方法。我们可以用下面的两种方法来调用浏览文件夹对话框。 方法一：用Windows API 函数，在标准模块中自定义一个函数BrowseFolderA，然后在过程中调用： Private Const BIF_RETURNONLYFSDIRS As Long = H1 Private...