VBA智慧办公8——聚光灯效果实现

最新推荐文章于 2024-06-22 08:29:18 发布

华东设计之美

最新推荐文章于 2024-06-22 08:29:18 发布

阅读量1.2k

点赞数

分类专栏： VBA技术教程专栏文章标签：微软 windows microsoft .net

本文链接：https://blog.csdn.net/yyfloveqcw/article/details/130061613

版权

VBA技术教程专栏专栏收录该内容

11 篇文章

订阅专栏

文章介绍了两种在Excel中使用VBA实现聚光灯效果的方法，一种是通过改变选中单元格的行和列颜色，另一种是点击按钮自动高亮A列内容，并详细展示了如何调整字体颜色、样式和大小，包括加粗、斜体、下划线等属性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

本期围绕前期工作，继续推进相关的VBA知识实际案例操作，为了方便对于数据的观测和查看，将进行聚光灯效果展示，并通过聚光灯的形式，进一步回顾曾经学习过的格式字体定义的相关操作。

源码案例已上传：https://download.csdn.net/download/yyfloveqcw/87672359

第一种方式：

如上图所示，鼠标选中位置即为聚光灯的形式，我们可以通过选择具体颜色代码来决定聚光灯行列的颜色样式。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
    Target.EntireRow.Interior.Color = 65535
    Target.EntireColumn.Interior.Color = 65535
End Sub

第二种方式：

通过点击按钮实现A列内容的自动聚光效果，代码如下（代码内容比较冗长，主要是为了回顾前期学习的字体格式相关内容）：


Private Sub CommandButton1_Click()
Dim ws As Worksheet
    Dim lastRow As Long
      
    '选择要操作的工作表
    Set ws = ActiveSheet
      
    '获取最后一行
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
      
    '循环遍历每一行
    For i = 1 To lastRow
        '获取当前行的单元格
        Dim currentCell As Range
        Set currentCell = ws.Cells(i, 1)
          
        '设置聚光灯效果
        currentCell.Interior.ColorIndex = 3 '红色
        currentCell.Font.Color = vbRed '红色
        currentCell.Font.Bold = True '加粗
          
        '设置聚光灯持续时间
        currentCell.Font.Size = 10 '字号为10
        currentCell.Font.Name = "Calibri" '字体名称为Calibri
        currentCell.Font.Italic = True '斜体
        currentCell.Font.Underline = True '下划线
        currentCell.Font.Strikethrough = False '删除空格
        currentCell.Font.Size = 12 '字号为12
        currentCell.Font.Name = "Calibri" '字体名称为Calibri
        currentCell.Font.Italic = True '斜体
        currentCell.Font.Underline = True '下划线
        currentCell.Font.Strikethrough = False '删除空格
        currentCell.Font.Size = 14 '字号为14
        currentCell.Font.Name = "Calibri" '字体名称为Calibri
        currentCell.Font.Italic = True '斜体
        currentCell.Font.Underline = True

        '如果需要，可以设置聚光灯的闪烁频率和时间
    If ws.Cells(i, 2).Value <> "" Then
        currentCell.Font.Underline = False '取消下划线
        currentCell.Font.Size = 14 '字号为14
        currentCell.Font.Name = "Calibri" '字体名称为Calibri
        currentCell.Font.Italic = True '斜体
        currentCell.Font.Underline = False '删除空格
        currentCell.Font.Size = 18 '字号为18
        currentCell.Font.Name = "Calibri" '字体名称为Calibri
        currentCell.Font.Italic = True '斜体
        currentCell.Font.Underline = False '删除空格
        currentCell.Font.Strikethrough = False '删除空格
        currentCell.Font.Size = 20 '字号为20
        currentCell.Font.Name = "Calibri" '字体名称为Calibri
        currentCell.Font.Italic = True '斜体
        currentCell.Font.Underline = True '下划线
    End If
Next i
End Sub