偶看新闻dnf剑魂天空套腰带:Excel：成绩分析表的特殊排序
来源：百度文库 编辑：偶看新闻 时间：2024/05/03 10:44:39
',1)">
',2)">
转眼又快到期末了，成绩的统计和分析工作是必不可少的。笔者是个遇事喜欢思考的人，经常喜欢钻研一些事半功倍的小技巧，今天给大家介绍如何利用VBA轻松实现成绩分析表的特殊排序，先看下面的实例。
图1是一张已经分析好的成绩分析表，可教务主任要求：要把各班各门学科所在年级的名次加在均分后，那样一看就一目了然了。以前都是用眼睛观察，然后将名次手工添加到均分后面，但成绩一经修改就不得不重新再分析了，非常麻烦。
大家知道，用Excel提供的升序和降序工具可以实现各学科的均分排序，但排序后，班级的顺序就乱了。如果通过排序获取均分的名次再恢复对班级的排序，这样是可行的，但八、九门学科一列一列地操作，工作量非常大，还容易出错。而且成绩修改后，还得重复劳动。后来笔者用一段VBA代码实现了这一要求。
用控件工具箱中的“按钮”工具画一个命令按钮，将其“Caption” 属性值改为“均分排序”，双击该按钮，在其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 - 1
For i = 0 To n - 1 - j
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 = 3 To n
Cells(i, m).Value = Cells(i, m).Value
',2)">
转眼又快到期末了，成绩的统计和分析工作是必不可少的。笔者是个遇事喜欢思考的人，经常喜欢钻研一些事半功倍的小技巧，今天给大家介绍如何利用VBA轻松实现成绩分析表的特殊排序，先看下面的实例。
图1是一张已经分析好的成绩分析表，可教务主任要求：要把各班各门学科所在年级的名次加在均分后，那样一看就一目了然了。以前都是用眼睛观察，然后将名次手工添加到均分后面，但成绩一经修改就不得不重新再分析了，非常麻烦。
大家知道，用Excel提供的升序和降序工具可以实现各学科的均分排序，但排序后，班级的顺序就乱了。如果通过排序获取均分的名次再恢复对班级的排序，这样是可行的，但八、九门学科一列一列地操作，工作量非常大，还容易出错。而且成绩修改后，还得重复劳动。后来笔者用一段VBA代码实现了这一要求。
用控件工具箱中的“按钮”工具画一个命令按钮，将其“Caption” 属性值改为“均分排序”，双击该按钮，在其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 - 1
For i = 0 To n - 1 - j
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 = 3 To n
Cells(i, m).Value = Cells(i, m).Value
excel 的排序
EXCEL的排序问题
EXCEL排序的问题
EXCEL的排序问题。
excel 的排序问题？
excel的排序问题
Excel中，怎么对成绩进行排序？？？
〔〔成绩分析〕EXCEL分析
Excel 的特殊合并~~??
EXCEL里的排序问题
为难的excel排序问题
Excel图表的横坐标排序
Microsoft Excel 工作表 的排序问题???/
EXCEL排序
excel排序
在EXCEL表中有500名学生的信息（按成绩高低排序），要均分成十个班，怎样操作？
在EXCEL排序是怎么样的
一个关于EXCEL的排序问题
一个比较难的EXCEL排序问题！
请问excel里有没排序的函数？
Excel自定义排序的行数问题
请教一个关于Excel排序的问题?
怎样给EXCEL表中的SHEET排序
平均赔卛排序分析表