您现在的位置是:主页 > VBA >
如何在Excel 2013/2016中使用VBA宏来选择给定范围内的所有粗体单元格
发布时间:2023-10-08 03:49:48所属栏目:VBA 已帮助人编辑作者:Excel自学教程
本文将讲述如何在Excel中选定区域中选中所有粗体字的单元格。如何在Microsoft Excel 2013/2016中使用VBA宏来选择给定范围内的所有粗体单元格。
- 使用查找和替换选择粗体单元格
- 使用VBA选择粗体单元格
假设您有一个数据区域为B1:C5的数据列表,你想选择该区域中所有具有粗体字体格式的所有单元格。那么我们该怎么办呢?这篇文章将通过下面的两种方法来选择指定区域中的所有粗体单元格。
方法1:使用查找和替换选择粗体单元格
如果要选择具有粗体格式的所有单元格,可以在工作表中使用“查找和替换”功能来查找特定文本或特定格式的单元格,例如:单元格颜色,粗体字体等。我们只需执行以下步骤即可查找并选择所选单元格区域中的所有粗体格式单元格:
步骤1:选择包含要查找的粗体单元格的范围。
步骤2:选中“开始”选项卡,单击“编辑“组下的“查找和选择”命令。然后从“查找和选择”下拉列表中单击“查找”。 “查找和替换”对话框将打开。
步骤3:单击“查找和替换”对话框中的“选项”按钮。
步骤4:单击“查找内容”区域中的“格式”按钮,然后从“格式”下拉列表中选择“格式”。并且将打开“查找格式”对话框。
步骤5:单击“查找格式”对话框中的“字体”选项卡,在“字形”列表框中选择“加粗”选项,然后单击“确定”按钮返回“查找和替换”对话框。
步骤6:单击“全部查找”按钮,然后将搜索所选单元格区域中所有的具有粗体字体格式的单元格。
步骤7:按键盘上的Ctrl + C键选择所有结果,然后所有具有粗体格式文本的单元格将会被选中。
方法2:使用VBA选择粗体单元格
您还可以使用Excel VBA宏来在给定单元格范围内选中所有粗体单元格。只需执行以下步骤:
步骤1:打开您的Excel工作簿,然后单击开发工具选项卡下的“Visual Basic”命令,或者只需按“ALT + F11”快捷方式。
步骤2:然后将出现“Visual Basic编辑器”窗口。
步骤3:单击“插入” – >“模块”以创建新模块。
步骤4:将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。
Sub SelectOnlyBoldCells() Dim myRange As Range Dim cell As Range Dim tempRange As Range Set myRange = Range("A1", "D3") For Each cell In myRange If cell.Font.Bold = True Then If tempRange Is Nothing Then Set tempRange = cell Else Set tempRange = Union(tempRange, cell) End If End If Next cell If Not tempRange Is Nothing Then tempRange.Select End IfEnd Sub
- Sub SelectOnlyBoldCells()
- Dim myRange As Range
- Dim cell As Range
- Dim tempRange As Range
- Set myRange = Range("A1", "D3")
- For Each cell In myRange
- If cell.Font.Bold = True Then
- If tempRange Is Nothing Then
- Set tempRange = cell
- Else
- Set tempRange = Union(tempRange, cell)
- End If
- End If
- Next cell
- If Not tempRange Is Nothing Then
- tempRange.Select
- End If
- End Sub
Sub SelectOnlyBoldCells() Dim myRange As Range Dim cell As Range Dim tempRange As Range Set myRange = Range("A1", "D3") For Each cell In myRange If cell.Font.Bold = True Then If tempRange Is Nothing Then Set tempRange = cell Else Set tempRange = Union(tempRange, cell) End If End If Next cell If Not tempRange Is Nothing Then tempRange.Select End IfEnd Sub
注意:此VBA代码将使用另一个名为tempRange的范围,该范围接收具有粗体格式的单元格引用。 UNION函数用于将地址连接在一起。完成该过程后,将选择范围tempRange。您需要根据自己的需要更改myRange变量的值。
步骤5:返回当前工作表,然后运行上面的excel宏。点击执行按钮。
步骤6:让我们看看结果:
以上就是excel自学教程为您提供如何在Excel 2013/2016中使用VBA宏来选择给定范围内的所有粗体单元格的解读,本文章链接: http://www.5enet.cn/Excel_VBA/74521.html 欢迎分享转载,更多相关资讯请前往VBA
相关文章
- Excel VBA 窗体之去除窗体关闭按钮 实现代码
- excel中vba变量类型和dim语句进行一些小结
- VBA读取txt文件内容到excel,vba读取txt文件固定位置
- VBA非登陆下载Excel文件并处理例子
- Excel VBA 窗体之添加最大最小化按钮 实现代码
- excel VBA那点事之自动排班
- excel中vba的属性和方法,以及属性方法的区别
- Excel VBA 窗体之特殊形状窗体 几何形状组合窗体 实现代码
- excel 隔行插入一行的两种方法,通过技巧和VBA操作来实现excel隔行插入一行
- excel VBA中textbox的MaxLength属性限制文本框输入长度的设置方法
猜你喜欢
excel利用VBA转化公式中区域的引用类型
Excel公式中对区域或单元格的引用有多种引用类型,如: $A$1 绝对行和绝对列...excel 合并工作表的方法,用VBA代码实现合并工作表
下图所示:一个文件夹下面有多个excel工作薄,每个工作薄文件下面有不固定张...excel VBA字典技术_excel按类别拆分工作簿
工作中有时候需要将一张表格拆分为若干个新表,如下图为某电商销售信息表...excel vba if判断语句的使用方法,在最后以一个实例来剖析vba if语句的具体应用
vba if语句为判断语句。根据条件的值,可使用 If...Then...Else 语句运行指定的语...
企业IT外包服务
如何在Excel中一次打开多个链接 如何在Excel中使用VBA宏打开多个超链接
excel如何利用最简单的方法批量制作条形码?
?Excel如何去除自动出现的人民币符号
excel 不能自动求和的6大原因,并同时针对不同原因给出不同的解决方法来处理
excel 如何快速将公式值转数值
Excel单元格内如何换行,这几招快拿小本本记下来
Excel中如何不复制隐藏的单元格
Excel表格怎么算乘法
COUNT函数使用策略
excel 如何利用分列快速提取出生年月日
如何在Excel单元格中快速输入“√ 勾”?
excel 如何删除数据
怎样清除Excel单元格中看不见的字符串
Excel 2019打印特定区域的3种方法图解教程
Excel中LEN函数的语法和用法
扫码关注
- 专注IT行业,10年IT行业经验