Ecel VBA编程 典型实例——使用VBA进行排序.docxVIP

Excel VBA 编程 典型实例——使用 VBA 进行排序 使用 Excel 2007 提供的排序按钮进行排序时，会将班级或学生的姓名也一起按升序或降序的方式进行排序，从而打乱了数据原有的顺序。使用VBA 代码对工作表进行排序时，只会在每个数据的后面标注出该数据处于的名次，而不会打乱数据原有的顺序。 练习要点 冒泡算法的应用 循环语句 操作步骤： 创建新建一个空白工作表，创建如图7-12 所示的表格。 创建 图 7-12 创建成绩表 绘制选择单击【控件】组中的【插入】下拉按钮，在【ActiveX 控件】组中，选择【命令按钮（ActiveX控件）】按钮。然后，在工作表中绘制该按钮，如图7-13 绘制 选择 图 7-13 绘制控件按钮 效果选择所绘制的“命令控件”按钮，并在【属性】对话框中，设置 Caption 为“成绩排序”文字，如图 7-14 所示。 效果 图 7-14 设置按钮属性 单击【控件】组中的【控件属性】按钮，即可打开【属性】对话框。、 单击【控件】组中的【控件属性】按钮，即可打开【属性】对话框。、 提 示 （4）选 （4）选择“成绩排序”命令按钮，在【属性】对话框中，单击 Font 右侧的【浏览】按钮 ， 单击选择图 7-15 单击 选择 在弹出的【字体】对话框中，设置【字体】为“隶书”；【大小】为“三号”，如图 7-16 设置效果 设置 效果 图 7-16 设置字体格式 选择“命令控件”按钮中的文字，在【字体】选项卡中，也可以设置控件的字体 选择“命令控件”按钮中的文字，在【字体】选项卡中，也可以设置控件的字体 格式。 技 巧 输入在弹出的代码编辑器窗口中，输入如图7-17 所示的代码。 输入 图 7-17 输入代码 其中，在代码编辑窗口中输入的代码如下： Private Sub CommandButton1_Click() Private Sub CommandButton1_Click() Dim myarray() Dim m, n, i, j As Integer n = Application.WorksheetFunction.CountA(Columns(1)) 从第二列到第八列一共循环七次 For m = 2 To 8 给数组赋值ReDim myarray(n) For i = 3 To n myarray(i) = Cells(i, m).Value Next i 用冒泡排序法对数组中的元素进行排序操作For j = 0 To n - 2 For i = n To j + 2 Step -1 If myarray(i) myarray(i - 1) Then temp = myarray(i) myarray(i) = myarray(i - 1) myarray(i - 1) = temp End If Next Next For i = 1 To n Debug.Print myarray(i) Next i 将各数值在列中的排名加括号后添加到原单元格的数值后面，中间空一个空格For i = 3 To n s = Application.WorksheetFunction.Match(Cells(i, m), myarray, -1) - 1 Cells(i, m).Value = Cells(i, m).Value Space(1) ( s ) Next i Next m 主体程序执行完毕使各列的宽度与单元格的大小相适应Cells.Select Selection.Columns.AutoFit CommandButton1.Enabled = True MsgBox 排序完成！, vbOKOnly, 提示框 End Sub 单击单击单击【控件】组中的【设计模式】按钮，即可取消该模式。然后，单击“成绩排序” 按钮，即可得到如图 7-18 单击 单击 图 7-18 完成排序 单击 Office 按钮，执行【打印】|【打印预览】命令，即可查看排序效果。