高分悬赏一个EXCEL随着数据变换实现排序自动更新的宏

来源：百度知道 编辑：UC知道 时间：2024/06/18 02:37:06
就是假如一个学生有10门功课，对这10门功课的总分进行由高到低的排序，随着一门功课分数的变化，整个总分、名次自动排序
有的话，发我邮箱xingtian414@163.com 好用的话就加分,就是输入几个分数，自动求和，自动排序，自动求和会，但自动排序不会

求总分用sum函数，计算名次用rank函数

设总分在H列，ALT+F11，粘贴以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A:H").Sort Key1:=Range("H1"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortTextAsNumbers
End Sub

问题描述的不够具体。

数据如何存放？
什么情况下进行自动排序？

将A列数据排序到D列
Sub 将A列数据排序到D列()
[d:d] = [a:a].Value
[d:d].Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlYes
End Sub

给我你的邮箱，我发给你，我正好在用这个东西