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)

相关推荐

  • Excel表格数据如何自动排序动画教程

    《Excel2003入门动画教程21、Excel表格数据如何自动排序》。 演示动画 操作步骤 在浏览Excel表格中的数据时,为了查找的方便,我们经常要对数据进行排序。下面,我们以“员工基本情况登记表 ...

  • Excel表格怎么如何自动排序的详细方法

    在制作完Excel表格以后,我们可能将要对Excel表格中的数据按照大小或日期.字母等方式排序一下,这样更利于我们预览观看了.Excel排序的方式有很多比如:Excel数字排序.日期排序.大小排序.姓 ...

  • word中如何实现多级标题自动排序?

    写文档时,不可避免的要用多级标题,那么如何实现多级标题自动排序呢 首先,打开一个word文档,点击图示位置 在弹出的对话框中,选择"定义新的多级列表" 在新弹出的对话框中选择&qu ...

  • EXCEL根据数据变化自动排序(表格怎么排序后面数据跟着变化)

    在excel旧版本中,进行排序操作是默认为对当前列进行排序,而其他列不跟随变动.其效果如下面动图所示:而在后面的更新版本中,excel表格设置了一个弹窗,使用者可以根据需求进行当前列和所有列的排序选择 ...

  • EXCEL添加序号与自动排序的方法

    怎么给excel中的数据添加序号,还有列表如何做自动排序的方法,让小编教给你操作指南. 添加序列号的方法: 01 首先小编打开一个工作样表做个例子.如图所示: 02 用鼠标右键在A列上点击,在菜单中选 ...

  • 电脑excel软件编号怎么自动排序

    excel2019是我们经常使用的数据处理工具之一,我们经常会在表格中为一些数据进行编号,接下来小编就教大家怎样在软件中进行自动排序编号.具体如下:1.首先我们打开电脑进入到桌面,找到excel图标点 ...

  • excel筛选之后如何自动排序

    excel在排好序号的数据中,当进行筛选后,序号还是之前的序号,如果想自动重新按筛选出来的数据进行排序号,就要用到subtotal这个函数,下面来看怎么处理. 操作方法 01 第一,如图,我们录好一个 ...

  • Excel表格用rand函数如何实现列数据随机排序

    今天给大家介绍一下Excel表格用rand函数如何实现列数据随机排序的具体操作步骤.1. 首先打开需要随机排序的excel表格.2. 然后选中C1单元格输入"顺序".3. 然后选中 ...

  • Excel电子表格如何自动排序(2种类型)?

    在Excel工作中经常需要用到排序,下面来看两种自动排序的操作方法,一种是按首字母,一种是按星期. 操作方法 01 首先,打开需要排序的Excel文档,将光标定位在数据区内任一格,再点击数据菜单,点击 ...