Excel 创建一个按纽用来对B列进行排序，区域是A4：W200，求代码？

Question

如题所述

Answer 1

您可以在Excel中使用VBA代码创建一个按钮，点击该按钮可以对B列进行排序。下面是一个简单的例子，您可以拷贝并在Excel中运行：

首先，打开Excel，并点击“开发人员”选项卡。

点击“插入”选项卡，然后选择“按钮”工具。

然后，在工作表上点击要放置按钮的位置，即可在工作表上放置一个按钮。

在Excel中点击按钮，然后在“属性”窗格中输入按钮的名称。例如，您可以输入“排序”作为按钮的名称。

然后，点击“按钮工具”下的“编辑代码

Private Sub SortButton_Click()

'定义变量

Dim i As Integer

Dim j As Integer

Dim temp As Integer

'排序

For i = 4 To 200

For j = i + 1 To 200

If Worksheets("Sheet1").Cells(i, 2) > Worksheets("Sheet1").Cells(j, 2) Then

temp = Worksheets("Sheet1").Cells(i, 2)

Worksheets("Sheet1").Cells(i, 2) = Worksheets("Sheet1").Cells(j, 2)

Worksheets("Sheet1").Cells(j, 2) = temp

End If

Next j

Next i

End Sub

您可以将上述代码复制到VBA编辑器中，然后修改工作表和列的名称，即可创建一个排序按钮。

Answer 2

Excel 使用 VBA 脚本语言来实现自定义操作，包括创建按钮并进行排序。要实现上述操作，您需要打开 Excel 的 VBA 编辑器（通常是按下 Alt + F11 组合键），然后编写一段代码。
下面是一个示例代码，它创建一个名为 "Sort B Column" 的按钮，点击该按钮后，会对工作表上 A4:W200 范围内的 B 列进行排序：
Sub CreateSortButton()
Dim btn As Button
Set btn = ActiveSheet.Buttons.Add(10, 10, 100, 20)
btn.Caption = "Sort B Column"
btn.OnAction = "SortBColumn"
End Sub
Sub SortBColumn()
Dim rng As Range
Set rng = Range("A4:W200")
rng.Sort Key1:=rng.Columns(2), Order1:=xlAscending, Header:=xlYes
End Sub
您需要在 VBA 编辑器中将这段代码复制并粘贴进去，然后保存。接下来，您就可以在工作表中使用新创建的按钮，点击它即可对 B 列进行排序。
请注意，上述代码仅提供了一个示例，您可能需要根据自己的需求来修改代码。例如，您可以更改按钮的名称、位置、大小等。此外，您可能还需要修改排序所使用的参数，以获得更精确的排序结果。追问

经测试仿似无效，是否某个环节或某个点出错了?

本回答被提问者采纳

Answer 3

点录制宏，按要求操作一遍，完成录制，代码就出来了，再在按钮点右键，关联到录好的宏代码，就ok了。