大众计算机学习网欢迎诸位!收藏本站注 册登 陆
常用教程:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 教程 > 文章页

excel双击列标题自动排序的VBA代码

Admin | 2012-4-7 11:45:48 | ReadNums | 4763 | 标签 Excel教程 | 打印本页
     

  通过以下的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

  以上代码是升序排序,你可以改为降序排序。


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日