段落自动排序-高顿教育

国际证书

ACCA CFA CMA USCPA FRM HKICPA CWM CIMA CIIA CIA CAIA ACA CQF

国内证书

注册会计师初级会计职称中级会计职称税务师管理会计师会计实务证券从业基金从业银行从业期货从业经济师教师资格证薪税师投资理财农信社招聘考试金融实操心理咨询师硕/博学位

课程中心

考试资讯

高顿题库

直播预约

段落自动排序

来源：高顿网校短视频

121人赞过

高顿老师

高顿老师

认证老师

硕士高顿研究院

问题解答:

段落自动排序

自动排序是可以实现的，这需要用到worksheet_change事件。

在“自动排序”工作表模块中输入以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim h As Range

'If Target。

Count>1 Then End'若同时改变多个单元格时，不想让其排序，请把本行首的“'”去掉

If Target。Column 2 Then'若改变的单元格的列标小于8，行标小于2，则运行下面语句

Set h=Range(Cells(Target。

Row,1),Cells(Target。Row,7))'让对象变量h为改变的单元格所在行的1—7列的内容

If Application。CountA(h)=7 Then Call sorts'如果h的所有单元格都有内容，则运行sorts程序

End If

End Sub

并在VBA工程中插入一模块，输入以下代码：

Sub sorts()

With ActiveSheet

。

Range("a2:g"&。[g65536]。End(xlUp)。Row)。SortSpecial 1,_

。Range("G2"),2,,。Range("A2"),2,。Range("F2"),2,1

End With

End Sub

具体参考视频。

阅读全文

版权声明:本站内容声明‘来源高顿’均为原创,未经许可,任何人或组织不得复制、转载、摘编或以其他任何形式的商业应用。

其他人还搜了热门推荐