摘要：
问题背景:经常性的要对同一工作簿中的多个工作表同时进行格式设置等,那就需要首先先对其进行选定,建立工作表组,然后才能对进行操作. 问题提出:①如何快速选定同一工作簿中所有工作表?②如何选定部分工作表? 解决代码: ①如何快速选定同一工作簿中的所有工作表? Sub 快速选定所有工作表() Dim sht As Worksheet For Each sht In Worksheets sht.Sele... 阅读全文
摘要：
问题提出:实际上自己感觉用处不是很大,非得需要将工作表进行排序吗?只要能访问不就可以吗?但既然提出来了,就看看吧,而且里面有个算法对我很有价值,就是排序算法,以前遇到需要排序的要求,心里就害怕,这次就借着这个问题,把它解决吧. Sub 工作表按升序排序() Dim i As Integer, j As Integer, n As Integer Dim Sht() As String, t As ... 阅读全文
摘要：
问题背景:很多时候想对工作表进行操作,但往往不知道此表是否已经存在,比如想添加一新工作表,并对其进行命名,但如果命名发生冲突,则会引发错误,甚至会导致程序中断. 问题提出:如何判断指定工作表是否存在 解决代码:函数判断是否存在,在过程中调用此函数,并做进一步操作,比如添加新表/删除此表等. Function ExistSheet(ShtName As String) As Boolean Dim ... 阅读全文