具有有用宏的插件 & 可从自定义功能区选项卡轻松访问
5.00/5 (2投票s)
包含有用宏的插件 & 可从功能区菜单轻松访问
介绍
衷心感谢所有在我创建此加载项时使用过其代码片段和/或逻辑的人。
我开发了这个加载项，安装后会创建一个名为“宏”的新自定义选项卡，其中包含每个 Excel 用户都需要的许多实用宏。
安装后，此加载项将在功能区中创建一个名为“宏”的新自定义选项卡。
“宏”选项卡由四个组组成。
- 单张工作表宏
- 所有工作表的宏
- 合并工作表
- 发送电子邮件实用工具
- 管理工作表
- 转换大小写实用工具
- 单张工作表宏组：
该组包含仅在活动工作表上执行的宏。
当用户点击“单张工作表宏菜单”按钮时，会向用户显示一个包含宏的下拉列表。
下拉列表包含以下宏：
- 删除/取消保护受密码保护的工作表
- 取消隐藏隐藏的行和列
- 删除筛选器和冻结窗格模式
- 选择性粘贴为值
- 删除空白行和列
- 自动调整所有行和列
- 应用预定义的格式
- 交换行
- 交换列
- 执行最常见的任务（即运行上述所有宏）
- 所有工作表的宏组：
当用户点击“所有工作表的宏”按钮时，会向用户显示一个包含宏的下拉列表。
下拉列表包含以下宏：
- 从所有工作表中删除/取消保护受密码保护的工作表
- 从所有工作表中取消隐藏隐藏的行和列
- 从所有工作表中删除筛选器和冻结窗格模式
- 在所有工作表上选择性粘贴为值
- 删除空白行（仅活动工作表 - 需要进行一些调整）
- 自动调整所有工作表的行和列
- 在所有工作表中应用预定义的格式
- 执行最常见的任务（即运行上述所有宏）
- 合并工作表组：
当用户点击“合并工作表”按钮时，活动工作簿中的所有工作表都将合并到名为 Master 的新工作表中。在运行此宏/点击之前，请确保所有工作表上的标题相同。
- 发送电子邮件组：
当用户点击“电子邮件实用工具”按钮时，会显示一个包含各种邮件选项的用户窗体。用户可以将活动工作簿或活动工作表作为附件发送邮件。用户还可以从 Outlook 联系人列表中提取联系人，并选择他们作为收件人来发送邮件。
- 管理工作表组：
当用户点击“管理工作表实用工具”按钮时，会打开一个用户窗体，允许用户一次删除多个工作表。
- 转换大小写实用工具组：
当用户点击“大小写转换器”按钮时，用户可以在大写、小写和句首字母大写之间切换。
使用代码
该文件仅适用于 MS Office Excel 2007 版本。尚未在其他 Excel 版本上进行检查。
单击该文件并正确安装该加载项。
如果功能区选项卡“宏”不可见，请重新启动 Excel 应用程序。
' The Following Code will Logically change the case from UPPER to lower And Sentence Case
Sub ChangeCase
Dim c As Range, rng As Range, cc As Integer
If Selection.Count = 1 Then
Set rng = ActiveCell
Else
Set rng = Selection.SpecialCells(xlCellTypeConstants).Cells
End If
Set c = rng(1)
Select Case True
Case c = LCase(c)
cc = 1
Case c = UCase(c)
cc = 2
Case Else
cc = 3
End Select
Application.EnableCancelKey = xlErrorHandler
On Error GoTo xit
Application.EnableEvents = 0
For Each c In rng
With c
.Formula = Choose(cc, UCase(.Formula), _
Application.Proper(.Formula), LCase(.Formula))
End With
Next c
xit:
Application.EnableEvents = 1
End Sub
兴趣点
使用以下链接了解如何自定义功能区：http://www.rondebruin.nl/ribbon.htm。
您可以下载工具 Custom UI Editor 来学习如何创建和更改 MS Office 功能区菜单。http://openxmldeveloper.org/blog/b/openxmldeveloper/archive/2010/08/10/23248.aspx。
历史
我想推出更多有用的宏，并进行一些调整。 让我们拭目以待。