excel双击列标题自动排序的VBA代码
发布时间：2023-02-24 02:49:46
标签：excel双击列标题自动排序的VBA代码
通过以下的VBA代码，将其放到工作表的双击事件中，就能取到双击工作表的列标题(双击列的名字)，当前列自动进行排序。
比如，将代码放在如下的事件中：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
代码如下：
Dim YouRg As Range
If Target.Column <= Me.Cells (1,1).CurrentRegion.Columns.Count And Target.Row = 1 Then
If Target.Column <> mnColumn Then
mnColumn = Target.Column
mnDirection = xlAscending
Else
If mnDirection = xlAscending Then
mnDirection = xlDescending
Else
mnDirection = xlAscending
End If
End If
Set YouRg = Me.Cells(1, 1).CurrentRegion
YouRg .Sort key1:=YouRg .Cells(1, mnColumn), order1:=mnDirection,header:=xlYes
Set YouRg = Nothing
Cancel = True
End If
以上代码是升序排序，你可以改为降序排序。
0
投稿猜你喜欢
相信使用过Win10系统的小伙伴都有收到过弹窗广告影响，这些弹窗广告非常的烦人，那么要如何解决电脑弹窗的问题呢？下面就和小编一起来看看Win- 搜狗浏览器如何设置兼容模式？最近有很多小伙伴不知道搜狗浏览器中的兼容模式如何设置，还不会的小伙伴请看以下教程，小编将给大家带来搜狗浏览器设置
- 如何使用ps给物体添加转角阴影效果？给大家介绍如何用ps给物体添加转角阴影效果，一起来看看吧。物体转角阴影效果图如下1、ps打开，导入素材。
- 一般说来，Word 2013中的文字是以水平方式输入排版的。在中文排版时，有时需要采用竖直方式，如输入古诗词时。在Word 2013中能够很
- 如果您开机的时候，在登录界面看到了系统提示“由于此设备上的安全设置发生了变化，你的PIN不可再用。点击重新设置PIN”，该怎么解决？出现这个
- word的广泛使用，对人们的生活工作都有很大的帮助，将word中文字的格式处理好是一件很意义的事，因为这些细节往往能决定你的工作是否被人接受
- 现在很多笔记本电脑或是台式电脑都具备摄像头的功能，这主要是为了方便用户视频聊天，录制视频文件等等。但是最近，很多用户在使用的过程中，发现了很
- 删除无用驱动操作步骤如下：打开计算机管理界面-->设备管理-->其他 见下图，由于我的冗余驱动所以就没有显示，感兴趣的朋友可以参
- 鼠标也有相对应的品牌，在不知道自己使用鼠标设备是什么品牌的情况下，小编推荐下载安装usb鼠标万能驱动，该软件支持的usb鼠标品牌有罗技，雷蛇
- word作为图文排版用户最多的软件之一，其功能的强大自不必说，比如将某一页在版式排版上设置为横排方向。那么，应该如何才能设置为横排的纸张呢？
- 命令提示符存在一个问题，那就是打开命令提示符窗口后，出现命令提示符窗口和里面字符的字体都变小了，关于这个问题的解决方法如下在使用Win10系
- win10开始菜单磁贴是个很具有创新性的设计，使用也很便利，只要用鼠标进行拖拽图标即可对布局设置。可以根据自己的爱好，把常用的软件图标拖拽到
- 平常在Excel表格中输入12位数字以上的就会看不见完整的数据，怎么办呢?如果在表格中输入身份证号码，怎样才有办法防止表格内的数据重复输入呢
- 福昕PDF编辑器是由福昕软件科技有限公司开发的一款PDF阅读编辑软件。有用户想知道福昕PDF编辑器朗读语速的设置方法，那么我们应该怎么操作呢
- 近期酷狗音乐开展了音乐歌单征集令的活动，用户们可以投稿自己的歌单，当歌单通过审核时，可以让更多的用户查看到自己的歌单，优质的歌单还可被推荐到
- 信息技术考试和日常生活办公中，可能需要一些样式。那么怎么设置一级标题呢?一起来看一下吧!下面由小编为您提供更多的技巧，希望能帮助您。word
- 众所周知，谷歌Picasa在前两年就退出了中国市场了，现在基本上只剩下百度、360和雅虎等搜索引擎了，可是我们通过这些搜索引擎还是可以找到P
- cookie是一个记录访问数据的一个功能，一般用户在浏览器中可以设置看到，但是不知道具体的意思，这个可以定期清理，需要的用户快点下载来看看吧
- 在7月28日，微软向已安装Win10正式版10240的用户推送了积累性安全更新KB3074683，这项补丁除了包含前几个补丁都涉及的三项安全
- 在word和ppt中都可以添加组织关系图来表示一些组织间的相关关系，当然wps也不例外，也可以添加组织关系图，那么接下来小编教大家怎么添加w
