摘要： 通过以下的VBA代码，将其放到工作表的双击事件中，就能取到双击工作表的列标题(双击列的名字)，当前列自动进行排序。 比如，将代码放在如下的事件中：
Private Su...
通过以下的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
设置Excel单元格格式的快捷键
设置Excel单元格格式的快捷键 在应用程序中使用快捷键，可以使我们避免在键盘与鼠标之间来回切换，从而节省大量的时间，显著地提高工作效率。多掌握一些常用的快捷键，可以使您告别菜鸟时代，迅速成长为电脑应用的高手。下面这些快捷键是用于在Excel中设置单元格格式的，相信一定会对您有所帮助。 Ctrl Shift ~：应用“常规”数字格式 “常规”格式不包含特定的数字格式，相当于在“单元格格式”对话框中的“数字”选项卡中选择“常规”。比如原来的数字格式为“货币”或“百分比”形式，使用该快捷键可以将这些格
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
以上代码是升序排序，你可以改为降序排序。
Excel2003制作分类下拉列表填充项全攻略(动画教程)
Excel2003制作分类下拉列表填充项全攻略(动画教程) Excel中存有大量数据时我们希望使数据输入更容易，或将输入限制到您定义的某些项，则可以创建一个从工作簿其他位置的单元格进行编译的有效条目构成的下拉列表。创建单元格的下拉列表时，它将在该单元格上显示一个箭头。若要在该单元格中输入信息，请单击箭头，然后单击所需的条目。这种方式在Excel中可以用下拉列表填充项功能来实现，因步骤比较繁琐复杂，为了能够让大家更，所以采用gif动画形式来具体的作出操作演示，希望大家可以更容易理解掌握！
