中易网

EXCEL如何自动排序???

答案:4  悬赏:0  
解决时间 2021-04-28 03:04
如题:比如我要对一个学生成绩进行排序,事先我不知道谁的分大,我一个一个输入,当我输入一个数回车后,该学生的这一排或者列都和其他牌或列进行自动进行排列大小。这个功能如何实现??
最佳答案
自动功能只能用VBA宏来实现,在这个表格的底部标签上点鼠标右键,选“查看代码”,弹出VBA窗口,把下面代码粘贴进去就行了。
Private Sub Worksheet_Change(ByVal Target As Range)
'假设数据区域在A1:C100,对A列进行排序
Range("A1:C100").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortTextAsNumbers
End Sub
这样就能自动对A列排序 了
全部回答
这用代码很好解决 在你的工作表名称那里——右键——查看代码 把下面的代码全部复制进去,就可以了 private sub worksheet_change(byval target as range) if target.column = 1 then '当a列的数据有改变时 i = selection.row j = selection.column columns("a:a").select '选中你要排序的列,这是a列,如是是abc三列,则换为"a:c" selection.sort key1:=range("a1"), order1:=xldescending, header:=xlguess, _ ordercustom:=1, matchcase:=false, orientation:=xltoptobottom, sortmethod _ :=xlpinyin, dataoption1:=xlsortnormal 'key1:=range("a1"), 表示用a列进行排序 cells(i, j).select end if end sub '这是你输入一个数,按回车后,自动排序,然后把光标移到下一个单元格
全部输入之后、排序就可以了!
先输入再排序也可达到你的最终目的。 否则要用到VBA。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
唐山北站在哪呀?
女生为什么会叫男生不要想她
中国有1米65能扣3米05篮筐的人吗?
什么是爱爱??
自己给自己施加压力会进步吗?
居延街/航天南路(路口)在什么地方啊,我要过
没有具体图纸填充墙要算到基础梁顶面吗?
linux 2.6x安装无线网卡驱动,小白求详细步骤
谁知道YY语音 的角色 都有什么用
海信电视型号HDP2906G,有声音没有图象怎么修?
数码相机那一款好使
寻卡农中文版dj舞曲 好想要啊 边个可以帮到我
传奇合击里面,有个急速,还有爱上游!我都不
帕萨特 天籁 迈腾 长的都差不多 蛮喜欢 选哪
我想退出QQ校友怎么退?
推荐资讯
请问你知道被金哪里可以进到高防最好的鞋吗
JS错误VS2005不启动调试!
为什么我玩lol,一进游戏就崩溃,是什么原因
装修后保养或维修协议
我的电脑不知道干嘛了 下载东西都下不到 用U
镜音铃和镜音连是什么关系?
烧锅炉对身体有害吗
聚谊路/范钱路(路口)这个地址在什么地方,我
怎样获得永久的5倍经验卡
湘雅医院看病流程
一个被放在橱窗的洋娃娃,还会幸福吗?
请问有调剂到贵州财经大学会计专业研究生的吗
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?