1. 可乐生活 > 生活百科

win732位和64位的区别 2023年win732位和64位的区别

关于win732位和64位的区别✅的问题,下面有几个最新2023年win732位和64位的区别的观点,这里可乐生活希望能帮您找到想要的win732位和64位的区别答案,了解更多的相关详细知识。
相关win732位和64位的区别的扩展:

【分享成果,随喜正能量】不管经历多少,一定要永远乐观,永远积极,永远向上,因为,下一刻,就是奇迹。。

《VBA信息获取与处理》教程(10178984)是我推出第六套教程,目前已经是第一版修订了。这套教程定位于最高级,是学完初级,中级后的教程。这部教程给大家讲解的内容有:跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作,剪贴板应用、Split函数扩展、工作表信息与其他应用交互,FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的,更具研究的价值。

教程共两册,二十个专题。今日的内容是“专题十三 VBA如何让Excel工作表按指定的顺序排列”:VBA按名称排序各个工作表

win732位和64位的区别 2023年win732位和64位的区别(图1)

第一节 实现工作表按名称排序

大家好,我们先从按工作表名称排序讲起,先看一下下面的截图:

win732位和64位的区别 2023年win732位和64位的区别(图2)

这个截图中,第一个工作表我称之为功能工作表页,其余的工作表从第2个到第7个是数据存储的工作表,顺序是没有规律的,我要让各个工作表自动地进行排序处理,代码该怎么写呢?

1 工作表按名称排序的实现思路

我们要借助于函数来实现我们的目的,这个函数就是完成排序的工作。谈到排序,肯定会涉及到升序和降序,另外还有数字和文本的比较方案,对于错误的处理。对于工作表的排序还涉及到工作表的移动,按名称的顺序进行工作表的移动即可。

1)升序和降序就是大小比较的方案,注意在实现的时候处理的顺序

2)数字和文本的比较方案,如果是文本的比较,要设置为vbTextCompare的比较方式。

3)工作表的排序还涉及到工作表的移动,就是工作表的.Move before:语句了,根据比较的结果移动工作表的位置。

4)我们进行数字的比较,就要求工作表的名称是数字,判断数字用到IsNumeric函数。

5)对于参与排序的工作表,我们要作为参数进行录入,当然要进行必要的判断,不能超过所有工作表的范围。

思路有了,我们看看实现的过程。

2 工作表按名称排序的代码实现过程

先给出我的代码:

Public Function SortWorksheetsByName(ByVal FirstToSort As Long, _

ByVal LastToSort As Long, _

ByRef ErrorText As String, _

Optional ByVal SortDescending As Boolean = False, _

Optional ByVal Numeric As Boolean = False) As Boolean

'FirstToSort:需要排序的第一个工作表

'LastToSort:需要排序的最后一个工作表

'FirstToSort与LastToSort如果都为0,那么表示所有的工作表都要参与排序

'ErrorText 为接收可能发生的任何错误的文本描述

'SortDescending 升序还是降序,默认是升序

'Numeric 按数字还是文本排序,如果按数字则要求工作表名需是数字

Dim WB As Workbook

Dim B As Boolean

'返回指定工作表对象的父对象,即工作薄

Set WB = Worksheets.Parent

ErrorText = vbNullString

'判断工作簿中的工作表是否处于保护状态,如果是则该属性值为 True。

If WB.ProtectStructure = True Then

ErrorText = "工作薄处于保护状态,无法排序"

SortWorksheetsByName = False

End If

If (FirstToSort = 0) And (LastToSort = 0) Then

FirstToSort = 1

LastToSort = WB.Worksheets.Count

Else

B = TestFirstLastSort(FirstToSort, LastToSort, ErrorText)

If B = False Then

SortWorksheetsByName = False

MsgBox ErrorText

Exit Function

End If

End If

'对工作表名称进行判断,如果有不是数字的则退出排序

If Numeric = True Then

For N = FirstToSort To LastToSort

If IsNumeric(WB.Worksheets(N).Name) = False Then

ErrorText = "有名称不为数字的工作表!"

SortWorksheetsByName = False

MsgBox ErrorText

Exit Function

End If

Next N

End If

'排序

For M = FirstToSort To LastToSort

For N = M To LastToSort

If SortDescending = True Then

If Numeric = False Then

If StrComp(WB.Worksheets(N).Name, WB.Worksheets(M).Name, vbTextCompare) > 0 Then

WB.Worksheets(N).Move before:=WB.Worksheets(M)

End If

Else

If CLng(WB.Worksheets(N).Name) > CLng(WB.Worksheets(M).Name) Then

WB.Worksheets(N).Move before:=WB.Worksheets(M)

End If

End If

Else

If Numeric = False Then

If StrComp(WB.Worksheets(N).Name, WB.Worksheets(M).Name, vbTextCompare) < 0 Then

WB.Worksheets(N).Move before:=WB.Worksheets(M)

End If

Else

If CLng(WB.Worksheets(N).Name) < CLng(WB.Worksheets(M).Name) Then

WB.Worksheets(N).Move before:=WB.Worksheets(M)

End If

End If

End If

Next

Next

SortWorksheetsByName = True

End Function

If LastToSort > Worksheets.Count Then

TestFirstLastSort = False

ErrorText = "结尾的工作数不能大于总工作表数"

MsgBox ErrorText

Exit Function

End If

If FirstToSort > LastToSort Then

TestFirstLastSort = False

ErrorText = "第一个工作表数要小于结尾的工作表数"

MsgBox ErrorText

Exit Function

End If

TestFirstLastSort = True

End Function

Sub mynz()

Sheets("SHEET1").Select

UU = SortWorksheetsByName(2, 7, "ErrorText", "TRUE", "TRUE")

If UU = True Then

MsgBox "排序完成!"

Else

MsgBox "排序错误!"

End If

Sheets("SHEET1").Select

End Sub

代码截图:

win732位和64位的区别 2023年win732位和64位的区别(图3)

代码的讲解:

1)上述代码实现了按名称进行工作表排序的过程。整个过程中利用了两个函数,一个是SortWorksheetsByName函数,是主函数,实现排序;一个是TestFirstLastSort函数,用于验证录入的参数是否正确。

2)需要录入的参数有:

FirstToSort:需要排序的第一个工作表

LastToSort:需要排序的最后一个工作表

ErrorText为接收可能发生的任何错误的文本描述

SortDescending升序还是降序,默认是升序

Numeric 按数字还是文本排序,如果按数字则要求工作表名需是数字

3)Set WB = Worksheets.Parent'返回指定工作表对象的父对象,即工作薄。这种方法是十分方便的,我们在后续的代码中还要用到工作薄的工作表个数

4)If WB.ProtectStructure = True Then'判断工作簿中的工作表是否处于保护状态,如果是则该属性值为 True。

5)StrComp(WB.Worksheets(N).Name, WB.Worksheets(M).Name, vbTextCompare) > 0

StrComp为字符串比较的函数,返回值类型Variant (Integer)。返回值是-1,0,1

6)CLng(WB.Worksheets(N).Name) >CLng(WB.Worksheets(M).Name)

clng函数可以将字符串输出成长整型数据,用于比较。

其它的代码比较简单就不再多讲解了。

3 工作表按名称排序的代码实现效果

我们点击运行按钮,看下面的排序效果:

win732位和64位的区别 2023年win732位和64位的区别(图4)

在主程序中我给出的参数是:UU = SortWorksheetsByName(2, 7, "ErrorText", "TRUE", "TRUE")

也就是说要实现从第2个到第7个工作表的降序按数字比较排序。

好了,这节我们就讲到这里,下节继续。

本节知识点回向:

① 如何实现工作表的按名称排序?

② 实现工作表按名称排序的各个参数的意义是什么?

本讲代码参考文件:013工作表.xlsm

win732位和64位的区别 2023年win732位和64位的区别(图5)

我20多年的VBA实践经验,全部浓缩在下面的各个教程中,教程学习顺序:

win732位和64位的区别 2023年win732位和64位的区别(图6)win732位和64位的区别 2023年win732位和64位的区别(图7)win732位和64位的区别 2023年win732位和64位的区别(图8)

【分享成果,随喜正能量】攀缘之心,足以遮掩人心本自的光芒。无欲则刚,戒掉依赖感,向内求。。

今天win732位和64位的区别的内容先分享到这里了,读完本文后,是否找到相关2023年win732位和64位的区别的答案,想了解更多,请关注www.colorweekly.com可乐生活网站。

本文由某某资讯网发布,不代表某某资讯网立场,转载联系作者并注明出处:https://www.colorweekly.com/bk/10994.html

联系我们

在线咨询:点击这里给我发消息

微信号:

工作日:9:30-18:30,节假日休息