vba实现简单的数据排序和颜色统计

一、案例概述：
本次案例主要实现对每一列后五的数据标记颜色，最后统计每一行颜色标记的次数。
二、案例如下：
（1）源数据：

（2）代码部分：
①对指定列进行标记颜色

Sub 标色()Dim a As Integera = InputBox("请输入要统计的列号")Cells(1, a).Sort Key1:=Sheet1.Cells(1, a), order1:=xlAscending, Header:=xlYesFor b = 2 To 6Cells(b, a).Interior.Color = RGB(255, 0, 0)Next
End Sub

②统计每一行颜色的次数

Sub 统计颜色次数()Dim K, b, c, d, i, j As Long'将A3单元格颜色复制给aK = Sheet1.Range("AG1").Interior.ColorFor i = 2 To 42c = 0d = 0For j = 2 To 32If Sheet1.Cells(i, j).Interior.Color = K Thenc = c + 1Sheet1.Cells(i, 33) = cEnd IfIf Len(Trim(Sheet1.Cells(i, 33).Value)) = 0 ThenSheet1.Cells(i, 33).Value = 0End IfNextNext
End Sub

③清空颜色和统计数据

Sub 清空()Sheet1.Range("B2:AF43").Interior.Color = RGB(255, 255, 255)Sheet1.Range("AG2:AG43").Clear
End Sub

（3）结果呈现：
①颜色标记和次数统计

②清空颜色和次数统计

vba实现简单的数据排序和颜色统计相关推荐

java 奇偶数据排序算法,简单讲解奇偶排序算法及在Java数组中的实现
简单讲解奇偶排序算法及在Java数组中的实现奇偶排序是一个比较有个性的排序,基本思路是奇数列排一趟序,偶数列排一趟序,再奇数排,再偶数排,直到全部有序举例吧, 待排数组 [6 2 4 1 5 9] ...
Excel VBA简单使用——数据缺失处理
VBA(Visual Basic for Applications)是VB的一种宏语言.用来扩展应用程式的功能.特别是Microsoft Office软件. 转载请注明原文地址:http://blog ...
点击MSFlexGrid数据控件的标题进行数据排序
在进行数据库编程的时候,经常会用到MSFlexGrid控件进行数据显示.并且对数据进行排序是必不可少的一个环节.使用WINDOWS系统的用户,会习惯于点击标题进行数据排序.而MSFlexGrid控件本 ...
C++ 接口函数导出_Python玩转Excel：实现函数自动填充、数据排序
工作中,大家经常会使用excel去处理数据以及展示,但是对于部分工作我们可以借助程序帮忙实现,达到高效解决问题的效果. 比如将接口返回的json解析并保存结果到excel中,按一定规律处理excel中 ...
Echarts之悬浮框中的数据排序
Echarts非常强大,配置也非常的多,有很多细节需要深入研究.详解一下关于悬浮框中的数据排序问题悬浮框的数据排序默认是根据series中的数据位置排序的,在我们想自定义排序时,在echarts的配 ...
【Python】Pandas数据排序实现
公众号:尤而小屋作者:Peter 编辑:Peter 在以前的一篇文章图解Pandas的排序机制sort_values 详细介绍了如何使用pandas的内置函数sort_values来实现数 ...
给 ABAP ALV 报表的数据行增添颜色效果试读版
零基础 ABAP 学习教程系列文章的目录 ABAP 标准培训教程 BC400 学习笔记之一:ABAP 服务器的架构和一个典型的 ABAP 程序结构介绍 ABAP 标准培训教程 BC400 学习笔记之二 ...
几种经典的数据排序及其Java实现
选择排序思想 n个记录的文件的直接选择排序可经过n-1趟直接选择排序得到有序结果: ①初始状态:无序区为R[1..n],有序区为空. ②第1趟排序在无序区R[1..n]中选出关键字最小的记录R[k ...
13 | 线性排序：如何根据年龄给100万用户数据排序？
三种时间复杂度是 O(n) 的排序算法:桶排序.计数排序.基数排序.因为这些排序算法的时间复杂度是线性的,所以我们把这类排序算法叫作线性排序(Linear sort).之所以能做到线性的时间复杂度,主 ...
oracle怎么以时间排序,oracle指定数据排序在前面怎么处理
最近工作碰到客户的特殊要求,需要将特定的数据排序在前面,然后才按时间顺序排序,这个之前还真没有碰到过,好在有万能的度娘,搜索了一下,发现可以实现,使用order by decode语句即可. 对于or ...

vba实现简单的数据排序和颜色统计

vba实现简单的数据排序和颜色统计相关推荐

最新文章

热门文章