作者：绿色风
分类：
时间：2022-08-17
浏览：139
楼主
悟空师弟 |
Q：如何实现新输入内容后自动排序？
A：代码如下：
- Private Sub Worksheet_Change(ByVal Target As Range) '当工作表发生改变时执行本程序(固定格式)
- On Error Resume Next '当错误 转到 下一个
- If Target.Column = 2 Then '如果 Target的列标=2 则执行
- Application.ScreenUpdating = False '关闭屏幕刷新(可以提高运行速度)
- For x = 2 To Range("A65536").End(3).Row '设定变量范围为x=2到<单元格>区域("A65536" )的<末端>(3 )的行标
- Cells(x, 3) = Mid(Cells(x, 1), 2) + 0 '<单元格>坐标(x,3)=<截取字符串>(<单元格>坐标(x,1),2)+0
- Next '下一个
- Columns("A:C").Select '<列>坐标("A:C" )的选定
- Range("C1").Activate '<单元格>区域("C1" )的激活
- ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ' 活动工作簿的<工作表>("Sheet1" )的排序 的排序区域的清除
- ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C2:C9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ' 活动工作簿的<工作表>("Sheet1" )的排序 的排序区域的添加 关键字=<单元格>区域("C2:C9"),排序依据=依数值排序,命令=升序,数据选项=普通排序
- With ActiveWorkbook.Worksheets("Sheet1").Sort '工作于 活动工作簿的<工作表>("Sheet1" )的排序
- .SetRange Range("A1:C900") '<With对象>的设定范围<单元格>区域("A1:C9")
- .Header = xlYes '<With对象>的标题=是
- .MatchCase = False '<With对象>的区分大小写=False
- .Orientation = xlTopToBottom '<With对象>的方向=由上向下
- .SortMethod = xlPinYin '<With对象>的排序模式=拼音
- .Apply '<With对象>的应用
- End With 'With语句结束
- Columns("C:C").ClearContents '<列>坐标("C:C" )的清除内容
- Cells(Range("A65536").End(3).Row + 1, 1).Select '<单元格>坐标(<单元格>区域("A65536" )的<末端>(3 )的行标+1,1 )的选定
- End If 'If判断过程结束
- End Sub '子程序结束
附件：
 如何实现新输入内容后自动排序？.rar
效果：
 |
2楼
余方方 |
谢谢分享
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一