30个有用的Excel VBA代码(16~20)

16.突出显示所选内容中的可选行

突出显示可选行可以极大地提高数据的可读性。

下面是一个代码,它将立即突出显示所选内容中的可选行。

Sub HighlightAlternateRows()Dim Myrange As Range Dim Myrow As Range Set Myrange = Selection For Each Myrow In Myrange.Rows If Myrow.Row Mod 2 = 1 Then Myrow.Interior.Color = vbCyan End If Next Myrow End Sub

注意,代码中指定了颜色为vbCyan(也可以修改成:vbRed, vbGreen, vbBlue)。

17.突出显示拼错单词的单元格

Excel没有像在Word或PowerPoint中那样进行拼写检查。虽然可以按F7键进行拼写检查,但当出现拼写错误时,没有视觉提示。

使用此代码可以立即突出显示其中有拼写错误的所有单元格。

Sub HighlightMisspelledCells() Dim cl As Range For Each cl In ActiveSheet.UsedRange  If Not Application.CheckSpelling(word:=cl.Text) Then  cl.Interior.Color = vbRed  End IfNext cl End Sub

请注意,突出显示的单元格包含Excel认为是拼写错误的文本。当然在许多情况下,它也会其它各种错误。

18.刷新工作簿中的所有透视表

如果工作簿中有多个透视表,则可以使用此代码一次刷新所有这些透视表。

Sub RefreshAllPivotTables() Dim PT As PivotTable For Each PT In ActiveSheet.PivotTables PT.RefreshTable Next PTEnd Sub

19.将所选单元格的字母大小写改为大写

虽然Excel有更改文本字母大小写的公式,但它使您可以在另一组单元格中进行更改。

使用此代码可以立即更改所选文本中文本的字母大小写。

Sub ChangeCase() Dim Rng As Range For Each Rng In Selection.Cells  If Rng.HasFormula = False Then  Rng.Value = UCase(Rng.Value)  End IfNext Rng End Sub

注意,在本例中,使用了UCase将文本大小写设为大写。

20.突出显示有批注的单元格

使用下面的代码突出显示其中包含注释的所有单元格。

Sub HighlightCellsWithComments() ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Interior.Color = vbBlue End Sub

在本例中,使用vblue为单元格赋予蓝色。如果你想的话,你可以把这个换成其他颜色。

(0)

相关推荐

  • Excel VBA之函数篇-3.2-数字中文大小写,财务人事的福音

    Excel VBA之函数篇-3.2-数字中文大小写,财务人事的福音 前景提要 今天下班的时候,碰巧看到财务还在加班,是个萌妹子,本着绅士风度,友好的问了一下为什么下班了还在加班,印象中财务应该是非常轻 ...

  • Excel VBA 8.30 增加批注和修改批注一样吗?NO!

    你还是通过右键来插入单元格批注嘛?VBA瞬间完成 点击上方"Excel和VBA",选择"置顶公众号" 致力于原创分享Excel的相关知识,源码,源文件打包提供 ...

  • 《神奇的VBA》编程:标识重复数据

    ------ 需求案例------  日常办公场景中经常会有标识重复数据的需求,如: 标识某列中是否有重复订单号 标识某个选区中的重复值等等 本篇<神奇的VBA>编程将提供几种思路. 思路 ...

  • Excel VBA 8.24 批量提取英文,区分大小写,你还是需要正则

    批量提取单元格中的中文 呼叫正则 点击上方"Excel和VBA",选择"置顶公众号" 致力于原创分享Excel的相关知识,源码,源文件打包提供 一起学习,一起进 ...

  • 问与答118:如何使用VBA将多个工作表数据复制到PPT中?

    excelperfect Q:我需要编写一个程序来实现下面的目的. 遍历每个工作表,如果工作表的单元格S1中的值为"1",则将该工作表的"Print_Area" ...

  • 30个有用的Excel VBA代码(21~25)

    21.突出显示所选数据集中的空白单元格 虽然可以使用条件格式或"转到特殊"对话框突出显示空白单元格,但如果必须经常这样做,最好使用宏. 创建后,你可以将代码保存在个人宏工作簿中. ...

  • 30个有用的Excel VBA代码(26~30)

    26.一次保存并关闭所有工作簿 如果有许多工作簿打开,并且要保存和关闭这些工作簿,则需要手动转到并保存每个工作簿,然后关闭它. 这是一个VBA代码,它将关闭所有工作簿并在关闭时保存它. Sub Clo ...

  • 30个有用的Excel VBA代码(11~15)

    11.将所有公式转换为值 如果工作表包含大量公式,并且要将这些公式转换为值,请使用此代码. Sub ConvertToValues() With ActiveSheet.UsedRange .Valu ...

  • 经典Excel VBA代码

    VBA基础在大家的关注声中即将告一段落了,限于水平和篇幅,有许多经典的VBA操作我只是作了简要的介绍,想要熟练地使用VBA还需要大家慢慢地去消化和吸收,然后在实践中总结和提高.最后我收集了常见的VBA ...

  • Excel VBA 7.16规则多个Excel表格合并-指定不连续列,通用性再升级

    前景提要 另外有小伙伴们表示希望能够提供含有代码的原件,方便自己之后有空的时候研究,所以我也会从本节开始,为大家提供含有代码的原件 场景模拟 数据源还是原来的规则数据源 但是我们今天想要合并的是不连续 ...

  • 经典Excel VBA代码一箩筐

    VBA基础在大家的关注声中即将告一段落了,有许多经典的VBA操作我们只是作了简要的介绍,想要熟练地使用VBA还需要大家慢慢地去消化和吸收,然后在实践中总结和提高.最后我们收集了常见的VBA代码以飨广大 ...

  • Excel VBA 8.16 取消合并单元格 并按需填充不同数据

    取消合并单元格 并按需填充不同数据 点击上方"Excel和VBA",选择"置顶公众号" 致力于原创分享Excel的相关知识,源码,源文件打包提供 一起学习,一起 ...

  • 太实用了!Excel VBA常用代码!

    前两天有两位朋友留言想收集一些VBA的常用代码,今天开始会陆续分享一些! 记得收藏好哦,因为今后你应用到稍大型Excel VBA程序时,这其中某些代码肯定会用到. 来看看都是哪些常用代码: 下面先举一 ...

  • Excel多表合并一定要用VBA代码吗?

    工作中有时候需要将多张工作表汇总到一张工作表,这个问题在我的Excel书<Excel高手捷径:一招鲜,吃遍天>中第118招和119招介绍了用VBA代码实现.本文另辟蹊径用函数和公式瞬间实现 ...