Question

在VBA中 用一个按钮实现对已知区域排序!代码如何写!

Sheets("关键任务分析汇总").Range("A2:F37").Sort (Key1 = Columns(1)) 或者
Sheets("关键任务分析汇总").Range("A2:F37").Sort Key1:=Columns(1), header:=xlNo
这两行代码我都试过。不过按钮按下无反应。求高手解答
按下无反应啊

Answer 1

key1的值应为 一个单元格的值
Sheets("关键任务分析汇总").Range("A2:F37").Sort Key1:=range("A1"),Order1:=xlAscending
自己录个宏 就知道了

Answer 2

Sub sort()
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("C3:C8")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub