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

办公教程导读

收集整理了【excel双击列标题自动排序的VBA代码】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含633字，纯文字阅读大概需要1分钟。

办公教程内容图文

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

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

办公教程总结

以上是为您收集整理的【excel双击列标题自动排序的VBA代码】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程excel双击列标题自动排序的VBA代码。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。