快速创建条形热力图

Excel中的条件格式可以有效的凸显数据特征,如下图中B列所示。

在这里插入图片描述

现在需要使用图表展现热力条形图,如下图所示。由于颜色有多个过渡色,因此手工逐个设置数据条的颜色,基本上是不可能完成的任务,使用VBA代码可以快速创建这种图表。

在这里插入图片描述

由于数据条是等高的,因此需要增加辅助列,如下图中C列所示。

在这里插入图片描述

示例代码如下。

Sub HeadMapColumnChart()Dim srcRng As Range, i As Long, oSerCol As SeriesSet srcRng = Range("C1").CurrentRegionColumns("C").InsertWith srcRng.Columns("C").Value = "1".Cells(1).Value = "CD"End WithActiveSheet.Shapes.AddChart2(201, xlColumnClustered).SelectWith ActiveChart.SetSourceData Source:=srcRng.Columns("C").Axes(xlValue).MaximumScale = 1.ChartGroups(1).GapWidth = 0.SetElement (msoElementPrimaryValueAxisNone).HasAxis(xlCategory) = TrueSet oSerCol = .FullSeriesCollection(1)End WithWith srcRng.Columns(1)oSerCol.XValues = "=" & ActiveSheet.Name & "!" & .Resize(.Rows.Count - 1).Offset(1).AddressEnd WithFor i = 2 To srcRng.Rows.CountoSerCol.Points(i - 1).Format.Fill.ForeColor.RGB = Cells(i, "B").DisplayFormat.Interior.ColorNext
End Sub

【代码解析】
第3行代码获取数据表单元格区域。
第4行代码在C列插入空白列,如果工作表中C列为空白列,那么可以省略此行代码。
第6行代码在C列插入辅助列,赋值为1,这样可以实现等高数据条。注意此处只针对数据表所在行进行赋值,并非将整个C列填充数值。
第7行代码C1单元格的值等于B1,用做图表标题。
第9行代码插入柱图。
第11行代码设置数据区域为C列。
第12行代码设置纵轴最大值为1。
第13行代码设置数据条之间宽度为0。
第14行代码隐藏纵轴。
第15行代码设置横轴为分类轴。
第16行代码获取图表系列。
第19行代码设置横轴分类标签。
第21~23行代码循环遍历数据区域,并设置数据条的填充颜色。
第22行代码设置数据条的填充色,由于B列中使用条件格式设置的颜色,因此需要使用DisplayFormat.Interior.Color属性读取其颜色值。

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/diannao/35469.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

git stash相关命令解释

git stash 这个命令会保存你当前工作区和暂存区的所有更改到一个临时的“stash”区域,然后使你的工作目录和暂存区变得干净(即回到最近一次提交的状态)。 当你想要回到这个“stash”区域中的更改时,你可以使用 git stash list 来查…

SRE监控的四个黄金指标到底长啥样?

一、监控的黄金信号 掌握系统运行状态,了解组件、服务的可靠性和稳定性,需要借助监控系统收集指标、可视化数据,并在异常出现时进行操作提醒。那么监控的都要关注哪些呢?我们来了解一下监控的指标,即系统中衡量的最重…

【pytorch03】pytorch基本数据类型

问题:String类型在pytorch中如何表示? 很遗憾,pytorch不是完备的语言库,而是面向数据计算的一个GPU加速库,因此没有内建对string的支持 我们会在做NLP的时候会遇到all string处理的问题,就比如说一句话&am…

华硕PRIME B450M-K主板开启虚拟化

1.判断电脑是否开启了虚拟化 按下CtrlShiftESC打开任务管理器,切换到性能页面,选择查看CPU 如果在右下角看到虚拟化:已禁用,则没有开启虚拟化 2.进入BIOS 重启或开机时,按下DEL或F2进入BIOS设置界面。 屏幕提示&am…

SAP系统中如何用事务码图形视图寻找MD04增强开发实施点

在之前发布的文章中,介绍了善用事务码的图形视图以观察事务的执行流程以及如何在MD04中实施增强以改变生产订单的显示顺序。本文结合两者,介绍一下如何利用事务码的图形视图找到增强开发的实施点。 在事务码中输入SE93,进入图形视图&#xf…

生命在于学习——Python人工智能原理(4.6)

在这里插一句话,我有两个好兄弟的github项目,感兴趣的可以去看一下,star一下,谢谢。 https://github.com/fliggyaa/fscanpoc https://github.com/R0A1NG/Botgate_bypass 四、Python的程序结构与函数 4.1 Python的分支结构 &…

如何将个人电脑做P2V备份到虚拟化平台

背景:公司员工个人电脑绑定了商用软件的license,现在员工离职,license又需要使用,电脑就一直被占用。 解决方法:利用VMware Vcenter Converter Standalone将此台式电脑上载到公司虚拟化平台上 具体做法,下…

sklearn-learn的安装

官网:scikit-learn: machine learning in Python — scikit-learn 1.5.0 documentation 是 pip install scikit-learn 不是 pip install sklearn

Leetcode 700:二叉搜索树中的搜索

给定二叉搜索树(BST)的根节点 root 和一个整数值 val。 你需要在 BST 中找到节点值等于 val 的节点。 返回以该节点为根的子树。 如果节点不存在,则返回 null 。 public TreeNode searchBST(TreeNode root, int val) {if(rootnull){return n…

.NET C# 树遍历、查询、拷贝与可视化

.NET C# 树遍历、查询、拷贝与可视化 目录 .NET C# 树遍历、查询、拷贝与可视化1 组件安装1.1 NuGet包管理器安装&#xff1a;1.2 控制台安装&#xff1a; 2 接口1.1 ITree\<TTreeNode\>1.2 ITree\<TKey, TTreeNode\>1.3 IObservableTree\<TTreeNode\>1.4 IO…

昇思25天学习打卡营第7天 | 模型训练

内容介绍&#xff1a; 模型训练一般分为四个步骤&#xff1a; 1. 构建数据集。 2. 定义神经网络模型。 3. 定义超参、损失函数及优化器。 4. 输入数据集进行训练与评估。 具体内容&#xff1a; 1. 导包 import mindspore from mindspore import nn from mindspore.dataset…

手把手教你使用kimi创建流程图【实践篇】

学境思源&#xff0c;一键生成论文初稿&#xff1a; AcademicIdeas - 学境思源AI论文写作 引言 在昨日的文章中&#xff0c;我们介绍了如何使用Kimi生成论文中的流程图。今天&#xff0c;我们将更进一步&#xff0c;通过实践案例来展示Kimi在生成流程图方面的应用。这不仅将加…

【大数据技术原理与应用(概念、存储、处理、分析与应用)】第1章-大数据概述习题与知识点回顾

文章目录 单选题多选题知识点回顾几次信息化浪潮主要解决什么问题&#xff1f;信息科技为大数据时代提供哪些技术支撑&#xff1f;数据产生方式有哪些变革&#xff1f;大数据的发展历程大数据的四个特点&#xff08;4V&#xff09;大数据对思维方式的影响大数据有哪些关键技术&…

burpsuite 抓https的方法(CA证书操作)

https://cloud.tencent.com/developer/article/1391501

软考《信息系统运行管理员》-1.2信息系统运维

1.2信息系统运维 传统运维模式&#xff08;软件&#xff09; 泛化&#xff1a;软件交付后围绕其所做的任何工作纠错&#xff1a;软件运行中错误的发现和改正适应&#xff1a;为适应环境做出的改变用户支持&#xff1a;为软件用户提供的支持 新的不同视角下的运维 “管理”的…

Java 面试指南合集

线程篇 springBoot篇 待更新 黑夜无论怎样悠长&#xff0c;白昼总会到来。 此文会一直更新哈 如果你希望成功&#xff0c;当以恒心为良友&#xff0c;以经验为参谋&#xff0c;以当心为兄弟&#xff0c;以希望为哨兵。

拉普拉斯变换与卷积

前面描述 卷积&#xff0c;本文由卷积引入拉普拉斯变换。 拉普拉斯变换就是给傅里叶变换的 iωt 加了个实部&#xff0c;也可以反着理解&#xff0c;原函数乘以 e − β t e^{-\beta t} e−βt 再做傅里叶变换&#xff0c;本质上都是傅里叶变换的扩展。 加入实部的拉普拉斯变…

【建设方案】智慧园区大数据云平台建设方案(DOC原件)

大数据云平台建设技术要点主要包括以下几个方面&#xff1a; 云计算平台选择&#xff1a;选择安全性高、效率性强、成本可控的云计算平台&#xff0c;如阿里云、腾讯云等&#xff0c;确保大数据处理的基础环境稳定可靠。 数据存储与管理&#xff1a;利用Hadoop、HBase等分布式…

一年Java转GO|19K|腾讯 CSIG 一二面经

面经哥只做互联网社招面试经历分享&#xff0c;关注我&#xff0c;每日推送精选面经&#xff0c;面试前&#xff0c;先找面经哥 背景 学历&#xff1a;本科工作经验&#xff1a;一年(不算实习)当前语言&#xff1a;Javabase&#xff1a;武汉部门\岗位&#xff1a;腾讯云‍ 一…

5000天后的世界:科技引领的未来之路

**你是否想过&#xff0c;5000天后的世界会是什么样子&#xff1f;** 科技日新月异&#xff0c;改变着我们的生活方式&#xff0c;也引领着人类文明的进程。著名科技思想家凯文凯利在他的著作《5000天后的世界》中&#xff0c;对未来进行了大胆的预测。 **这本书中&#xff0c…