这篇文章不单单是讲解自动排序以及筛选功能，同样的，我们不用完全知道代码的用法，而实现我们想要的功能。来源：这篇文字来源于我每个月的N+N预测，需要对比与上一版本的预测之间的变化，每次都要去看底稿，而且底稿非常负责，不熟悉表的找个信息非常麻烦，而且不利于汇报展示，所以做了这个自动的简表。适用于
这篇文章不单单是讲解自动排序以及筛选功能，同样的，我们不用完全知道代码的用法，而实现我们想要的功能。
来源 ：
这篇文字来源于我每个月的N+N预测，需要对比与上一版本的预测之间的变化，每次都要去看底稿，而且底稿非常负责，不熟悉表的找个信息非常麻烦，而且不利于汇报展示，所以做了这个自动的简表。适用于环比、同比等对比分析，也相当于是美化了一下表格，虽然还是很丑。。。
我们先来看一下效果
先看明细表如下：
明细表由7个费用科目（挑出部分，实际可能十几个甚至几十个）和21个项目组成。
再看一下简表
我们能够看到简表非常简单。在这个简表中，我们一共实现4个功能，1、下拉筛选科目；2筛选无变化的项目；3对变化值的大小进行排序；4、变化原因自动匹配。接下来我一步一步分解。
第一步：将表格变为超级表
此步骤是为了方便我们做筛选和写公式。在这步骤之前，需要将表格的公式设置好！公式我就不讲解了，网上太多了。
选中表格区域——按ctrl+t——查看超级表表名
查看表名，记下来，第三步需要用
第二步：制作下拉窗口
将要下拉的元素制作一下下拉菜单，注意哈，项目和费用科目是可以调换位置的哈，就看你实际需要的是看项目的环比还是费用的环比。
此处下拉菜单后数据条没有变动，是因为我公式还没有设置好哈。
第三步：实现自动筛选
这步是用VBA代码实现的，代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
Excel.Application.ScreenUpdating = False
If Target.Address = "$B$3" Then '引号没填写下来筛选所在单元格，我的模板是在B3，可调整
'------------------------------------------------------------------------------
ActiveSheet.ListObjects("表5").Range.AutoFilter Field:=4 '修改表名为超级表名
ActiveSheet.ListObjects("表5").Range.AutoFilter Field:=4, Criteria1:=">0.5" _
, Operator:=xlOr, Criteria2:="<-0.5" '4为要做筛选的列在超级表的第几列，-0.5和0.5为筛选条件
'------------------------------------------------------------------------------筛选
End If
Excel.Application.ScreenUpdating = True
End Sub
这串代码我们要放到简表所在的表中，我的表叫做【简表-分部】，放到这里后，我们不做任何操作，关闭VBE代码编辑窗口即可。我们看看演示：
第四步：排序制作
排序的方法有很多，借此机会，给大家介绍通过录制宏的方式取得我们需要，但是又不会写的代码。录制宏的代码在我们正式写的时候，多是可以改改即可使用的，所以大家录制宏还是了解一下就行，非常简单，就是电脑自动记住我们操作的步骤，下次要用直接拿出来即可重复操作我们之前的操作。
演示：
排序代码我们摘出来看看
With ActiveWorkbook.Worksheets("简表-分部").ListObjects("表5").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
其实我们由此也看的只需要改一下表名即可！
至此，我们的自动筛选+自动排序功能做好的简表已经完成啦！
最后提一嘴也是很重要的！！！
保存的时候需要文件另存为启用宏的工作簿【.xlsm】的文件，不然VBA代码不能保存！
这个简表有点还是很明显的，再来看看效果吧，上边的截图时间太长了。
文章还不支持发文件，不然我可以上传个源文件。。。。哎
如若转载，请注明出处：https://www.luow222.com/13185.html
相关推荐
-
原始传奇新手怎么玩 原始传奇新手快速入坑攻略
原始传奇新手必看攻略新手入门原始传奇该怎么玩儿呢？今天就给大家简单介绍一下。对于很多喜欢传奇的玩家来说，传奇都是大同小异的，不过每款传奇还是有不少区别，本次小编就给大家整理了一片详…
-
游戏版号停发 收购暴雪障碍重重 动视CEO或将被起诉
虽然可能无法完成对动视暴雪收购了，版号问题也变得更加的复杂。版权保护中心宣布在11月28号暂停接收游戏版号申请，恢复时间另行通知，其原因是根据疫情防控的有关要求，这说明动视暴雪如果…
-
英雄杀新手平民攻略（手游英雄杀平民攻略）
英雄杀-双雄争霸 选角色【张三丰、杨延昭VS曹操、鲁班】 ·【39】首战英雄 【曹操】 ·【春风吹有声】首战英雄 【张三丰】 ·【春风吹有声】选择 【杀贪】 ·【39】选择 【轻装…
-
金刚小葫芦手游攻略（金刚葫芦娃游戏攻略）
#你童年最喜欢的一部动画片是什么# 作为00后的我，葫芦娃绝对是我最爱看的动画片之一。 每次电视上放葫芦娃，就必然会端个小板凳，乖乖地坐在电视前。 “妖精，快还我爷爷”等等台词至今…
-
梦幻模拟战女神法衣有用吗（梦幻模拟战女神法衣 雷丁）
作者：NGA-蚩尤20181.成长期玩家和成熟期玩家，对待常驻高难挑战本的心态是不一样的。成长期玩家，有很大提升空间。他们每天都会有提示。打不过他们可以循循渐进，慢慢来。成熟期玩家就不一样了。打不过就是打不过，
-
森林地图大全2020（森林地图 全图）
杀掉所有野人！吃了他们！最后打进他们的基地！击败boss！拿它复活你死去的孩子！什么？没成功？没事！那就打坠几架飞机用他们献祭！你的孩子一定会复活！不过要注意，里面可能有个男人会找到基地杀了你……去救他的孩子
-
辐射2攻略 chm（辐射2攻略3DM）
上篇我们谈到了各个阵营基础和特色兵种的应对和克制方式，如果说运用的好的小兵是制胜法宝，那么红警里各式各样的载具就是真正获得胜利的关键。本篇文章就通过对逐个单位的分析和实战情景的模拟来讲讲如何应对对手各式各样的坦克。本篇不通过数据来对各个不同兵种进行分析，而是我个人认为比较好的应对方法。一、三方阵营主战坦克（灰熊坦克、狂风坦克、犀牛坦克）新手玩家在刚接触到红警的时候往往会很轻视三方阵营的主战
-
warframe阿赖耶识雕像有什么用（warframe阿耶檀识雕像任务）
是虚空恶魔还是真正的天使扎里曼天使版本将在北京时间4月28号到来新的系列任务，扎里曼天使版本是衔接新纪之战后续内容，需要首次完成《惊惧之心》系列任务的Tenno将获得制作虚空锐将殁世机甲的必要蓝图，这是你要玩《新纪之战》时军械库的必要条件。请关注未来的持续改进内容！新的区域，在这里你可以装饰自己的房间，类似飞船小房间的设定，我相信你们一定会喜欢的新战甲：Gyre【暂译为
-
双人拼手速游戏（手速游戏大全排行榜）
大家都知道，打游戏拼的就是反应跟手速，常人打字速度有个60字/分已经算很不错了。基本上电竞职业选手普遍都可以高达300apm。而某联盟游戏的韩国选手飞科老师，手速却高达498APM。APM直观些讲：就是每分钟的按键率。现在基本会用于衡量一个选手的游戏水平，所以APM值高也是目前一个面子工程。而游戏史上却出现一个手速极快的
-
热血合击折扣号会被封号吗 热血合击折扣号真的假的？
大家好，最近看见很多人对于传奇类折扣号有很大的兴趣，想要了解到折扣号的真是程度，下面小编就来给大家好好分析一下折扣号靠不靠谱，还有就是怎么来的！ 这就要从前两个月说起了，当时我在玩…