Excel VBA 8.36补充Excel排序的不足 增加按照颜色排序

补充Excel排序的不足 增加按照颜色排序


点击上方“Excel和VBA”,选择“置顶公众号”

致力于原创分享Excel的相关知识,源码,源文件打包提供

一起学习,一起进步~~


上节我们说到了颜色的计数,在Excel的自带函数中,并没有针对颜色的计数,所以利用VBA创造了一个对于颜色的统计的方法

这节我们继续来补充Excel的不足,今天我们要补充的是Excel排序方面的不足,Excel其实是自带排序功能的,但是仅仅是针对数字的排序,并没有针对颜色的排序

所以和上节一样,今天我们要利用VBA创造一个针对颜色的排序方法

场景说明

这是我们之前已经实现的按照不同内容,填充不同的单元格背景色,那么我们现在就利用这个之前的结果,展开今天的内容,虽然这个颜色看起来还算是比较炫酷(别打我~),但是我们还是希望将相同颜色放在一起,这样我们看起来会更加的方便,但是Excel自带的排序,似乎并没有针对颜色的排序,他的排序是针对单元格内容的排序,我们来看看

仅仅是实现了部分,整体看起来并没有成功,所以我们还是要借助VBA的方法来实现

代码区

Sub test5()Dim rng As Range, a As RangeSet rng = Application.InputBox("请选择排序列参照列", "区域的选择", , , , , , 8)Application.ScreenUpdating = Falserng.Insertl = rng.Rows.CountApplication.ScreenUpdating = FalseFor Each a In rng  a.Offset(0, -1) = a.Interior.ColorNextrng.CurrentRegion.Sort Key1:=rng(1).Offset(0, -1), Header:=xlYesApplication.ScreenUpdating = TrueColumns(rng(1).Offset(0, -1).Column).DeleteEnd Sub

看看效果

代码解析

进入今天的代码解析

这么神奇的一个功能,VBA到底是如何来实现的呢?

其实很简单,我们先说下方法,因为之前我们学习了获得单元格的颜色是不是,这节我们就是利用了这个方法

我们将屏幕更新关闭

一起来看看

这里代码在Excel中插入了一列,作为一个辅助列,这个辅助列有什么用处呢?

难道将颜色写到这个辅助列中?还真的是这样,继续往下走

这里我们就看到,程序真的是将颜色写入了辅助列,不过是一串数字,我们并不需要知道这些数组,但是我们可以看出来,对应单元格颜色的数字值一致的,那么然后我们就可以利用Excel自带的排序功能了。

rng.CurrentRegion.Sort Key1:=rng(1).Offset(0, -1), Header:=xlYes

range.sort方法 按照辅助列进行排序

其实就是按照辅助列的内容来进行排序 辅助列的内容其实就是单元格背景色的数字表达方法

这样一说,你是不是理解了呢?

VBA按照颜色排序的本质,就是借用Excel的sort排序方法,不过要多做一步,将单元格的颜色转化为数字展示出来,这些数字,就是排序的参照物。

怎么样,理解了本质,整个方法就很容易理解了吧。

(0)

相关推荐