社交媒体 使用VBA创建工作表映射 - 傻瓜

使用VBA创建工作表映射 - 傻瓜

目录:

视频: A01 自动填充的威力 Excel数据处理与分析实战技巧精粹视频教程 2025

视频: A01 自动填充的威力 Excel数据处理与分析实战技巧精粹视频教程 2025
Anonim

上生成的您是否尝试了解一个不熟悉的(并且复杂的)Excel工作簿?查看一张地图可以帮助您查看哪些单元格包含常量,哪些单元格包含值。

您可以创建一个VBA实用程序来生成活动工作表的映射。该地图是在新的工作表上生成的,它由颜色编码的单元格组成,可让您快速识别值,文本和公式。

<! - 1 - >

下面,你会看到这样一个地图的例子。包含文本的单元格为绿色,不包含数值的单元格为黄色,包含公式的单元格为红色。这样的地图可以帮助您发现潜在的错误。例如,如果公式块中的一个公式已被值覆盖,该单元格将在地图视图中脱颖而出(如示例中的单元格Q11所示)。

<! - 2 - >

QuickMap VBA代码

下面列出了生成工作表映射的VBA过程。如果您想使用此实用程序,只需复制代码并将其粘贴到VBA模块。然后,激活工作表并执行QuickMap子程序。

Sub QuickMap()Dim FormulaCells As Variant Dim TextCells As Variant Dim NumberCells As Variant Dim Area As Range If TypeName(ActiveSheet)“Worksheet”Then Exit Sub'为单元格子集创建对象变量On Error Resume Next Set FormulaCells = Range “A1”)。 SpecialCells _(xlFormulas,xlNumbers + xlTextValues + xlLogical)设置TextCells =范围(“A1”)。 SpecialCells(xlConstants,xlTextValues)设置NumberCells =范围(“A1”)。 SpecialCells(xlConstants,xlNumbers)On Error GoTo 0'添加一个新工作表并格式化工作表。添加单元格。 ColumnWidth = 2。大小= 8. Horizo​​ntalAlignment = xlCenter以应用程序结束。 ScreenUpdating = False'做公式单元格如果不是IsEmpty(FormulaCells)那么对于FormulaCells中的每个区域。有ActiveSheet的区域。范围(区域地址)。值=“F”。室内。 ColorIndex = 3结束下一个区域结束如果'做文本单元格如果不是空的(TextCells)那么对于TextCells中的每个区域。有ActiveSheet的区域。范围(区域地址)。值=“T”。室内。 ColorIndex = 4以下一个区域结束结束如果'做数字单元格如果不是IsEmpty(NumberCells)然后为NumberCells中的每个区域。有ActiveSheet的区域。范围(区域地址)。值=“N”。室内。 ColorIndex = 6 End With Next Area End If End Sub

工作原理

<! - 3 - >

该过程首先检查以确保活动工作表是一个工作表。如果不是这样的话,那么快速退出并不需要采取进一步行动。当活动工作表是工作表时,该过程通过使用SpecialCells方法识别各种单元类型来创建三个对象变量。SpecialCells方法非常有用。如果您不熟悉,请在Excel的在线帮助文​​件中查看。注意使用On Error Resume Next。这是为了避免在没有单元格限定的情况下发生的错误 - 例如,如果工作表没有公式。接下来,该过程将添加一个新的工作表,缩小单元格宽度,并将水平对齐设置为居中。这一步是化妆品。然后子关闭屏幕更新,以加快一点点。接下来的三个代码块处理单元。如果没有单元合格,对象变量是空的,所以子测试。然后,例程循环遍历Range对象中的每个Area并格式化单元格。您可以轻松地自定义子程序的这一部分以应用不同的格式。

查看Power Utility Pak加载项以获取此实用程序的更复杂版本。

使用VBA创建工作表映射 - 傻瓜

编辑的选择

在QuickBooks Online中使用批发帐单 - 虚拟

在QuickBooks Online中使用批发帐单 - 虚拟

QuickBooks Online为会计专业人员提供免费程序。您可以注册批发价格计划,也可以免费使用QBOA。如果你选择这样做(这是一个不错的选择!),你将需要知道如何管理的事情。从您的批发帐单订阅中删除客户有时候,事情并不是这样...

基于零基础的预算与QuickBooks 2012 - 傻瓜

基于零基础的预算与QuickBooks 2012 - 傻瓜

零基预算是一个非常有用和常用的预算策略在使用QuickBooks 2012之前,您应该先了解一下。基于零的预算与顶级预算相反。零基预算从下到上工作。零基预算始于个人收入,费用,资产,负债和所有者权益账户。它检查一个特定的...

在Sage Timeslips中10个有用的键盘快捷键 - 虚拟键盘

在Sage Timeslips中10个有用的键盘快捷键 - 虚拟键盘

键盘快捷键可以是Sage Timeslips 。启动或保存一张单据,将昨天,今天或明天的日期插入日期字段,并用一个或两个按键打开和关闭定时器。以下是十大最爱。按下它做什么Ctrl + N开始一个新的投票,而工作在...

编辑的选择

可以在Photoshop Elements 11中的任意形状图层上绘制多个图形 - 虚拟模型

可以在Photoshop Elements 11中的任意形状图层上绘制多个图形 - 虚拟模型

Photoshop Elements 11中创建的任何形状图层上的图形。您可以按照与选择相同的方式添加,减去,排除重叠和相交形状。请遵循以下步骤:创建第一个形状后,在工具选项:添加到形状区域中选择一个状态按钮:...

使用读卡器将图像下载到Mac上 - 傻瓜

使用读卡器将图像下载到Mac上 - 傻瓜

您的相机可能有一个USB端口,电缆,您可以使用下载您的图像。这种方法使用相机电池电力,也相当缓慢。如果您使用读卡器,则会更快地将图像存入计算机。如果您下载了大量的图像,请考虑购买FireWire读卡器; ...

在Photoshop Elements 10中创建形状图层后,在Photoshop Elements 10中绘制多个图形 - 虚拟形状

在Photoshop Elements 10中创建形状图层后,在Photoshop Elements 10中绘制多个图形 - 虚拟形状

可以在该图层上绘制其他形状。您可以按照与选择相同的方式添加,减去,重叠和相交形状。请记住,当您在元素中创建一个形状时,您正在创建一个基于矢量的元素。向量在数学上描述形状。 ...

编辑的选择

在您的IOS应用程序中添加模态视图 - 在iPhone和iPad上虚拟视图

在您的IOS应用程序中添加模态视图 - 在iPhone和iPad上虚拟视图

对于那些希望用户(或用户想要)在应用程序流之外执行某些操作的情况非常适用。而不是使用带有后退按钮的导航控制器,而是显示一个模式视图,其中的控件允许用户选择一个动作或...

Android应用程序开发:你的Twitter应用程序的文件 - 傻瓜

Android应用程序开发:你的Twitter应用程序的文件 - 傻瓜

,这个Android Studio项目包含大约100个文件和大约170个不同的文件夹。要制作Android Twitter应用程序,您需要专注于该项目的MainActivity。 java文件。但其他一些文件需要注意。 Twitter4J API jar文件Android没有内置的通信支持...