【VBA】点击工作簿中的每个单元格，整行整列变色

需求描述

在点击单元格的时候，单元格所在行与列都变色显示

实现方案

打开Excle表格，按住ALT+F11

双击上图中的ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)Cells.Interior.Pattern = xlNoneRows(Target.Row).Interior.ColorIndex = 3Columns(Target.Column).Interior.ColorIndex = 4
End Sub

代码中的3、4为颜色标记，具体参照下图：

将上述代码贴入

然后另存表格为变色.xlsm

【VBA】点击工作簿中的每个单元格，整行整列变色相关推荐

QTableView中修改某个单元格或者行或者列内容颜色
QTableView的单元格内容实现还是继承了TableViewModel类的data(const QModelIndex &index, int role) const函数,那个设置颜色的问 ...
Excel工作表中定位最后单元格（FIND方法）
前一篇博客讲解了如何使用END属性最后单元格. Excel工作表中定位最后单元格(END属性) 在VBA中还有其他的方法可以用来定位最后单元格.工作表中示例数据如下图所示,注意其中A4为空,A6至A7 ...
Excel工作表中定位最后单元格（END属性）
VBA实现自动化,经常需要定位工作表中的最后单元格,以便于获取已有数据,或者在该单元格之后写入新数据.使用RANGE对象的END属性可以定位最后单元格.假设工作表中的数据如下所示.单元格区域[A5:A ...
如何使用VBA实现将工作簿中全部表格转换为区域
工作表中的表格(有时也被称为超级表格)具备自动扩展等诸多功能,有时需要将表格转换为普通单元格区域,在Excel中操作很简单. 步骤1 选中表格中的任意单元格. 步骤2 依次单击[表设计]>> ...
VBA：获取工作簿中所有表的名称、地址
####一.目的一个工作簿中有很多的表,想提取所有表的名称和地址,方便后期公式的使用 ####二.方法 1. 使用VBA代码 Sub 提取所有工作表的名称()For Each x In Sheets ...
Excel VBA 将不同工作簿中的工作表，按照工作表名里相同的关键词汇总
命令从下面第一个Sub开始: Sub Collectwks() Dim Sht As Worksheet, rng As Range, Sh As Worksheet Dim Trow&, k ...
VBA 将Excel工作簿中所有表格进行一键排版
自己管理的Excel工作簿经过多人的修改,其中的很多格式会经常出现不一致的情况,这里提供VBA代码,用来实现表格数据格式一键排版,免除手动频繁调整Excel数据格式. 1 Option Explici ...
[VBA]EXCEL同工作簿中多工作表合并VBA代码
代码分为三部分: 第一部分是新建一个汇总的工作表,并重新自定义命名: 第二部分是逐一将各个工作表复制粘贴到汇总工作表中: 第三部分为提示,即当合并工作完成后弹出提示. 代码如下: Sub Comb() ...
python往excel特定单元格中写入文本_将值写入python中pandas中工作表中的特定单元格...
UPDATE2:将数据附加到现有Excel工作表,保留其他(旧)工作表: import pandas as pd from openpyxl import load_workbook fn = r'C ...

【VBA】点击工作簿中的每个单元格，整行整列变色

需求描述

实现方案

【VBA】点击工作簿中的每个单元格，整行整列变色相关推荐

最新文章

热门文章