【EXCEL_VBA_常用过程 & 函数】

结合日常工作需要,收录或改写相关过程及函数,现共享给大家,希望能对大家有所帮助!

目录

[1. 过程](#1. 过程)

[1.1 批量处理框架Application.GetOpenFilename](#1.1 批量处理框架Application.GetOpenFilename)

[2. 功能函数](#2. 功能函数)

[2.1 字符串数组比对 / 两组数据比对是否一致(不要求元素位置意一一对应)](#2.1 字符串数组比对 / 两组数据比对是否一致(不要求元素位置意一一对应))

[2.2 排序函数(针对字符串数组,进行元素间排序)](#2.2 排序函数(针对字符串数组,进行元素间排序))


1. 过程

1.1 批量处理框架Application.GetOpenFilename

注1:GetOpenFilename:返回完整的文件名路径

vbnet 复制代码
' 遍历工作簿
Sub Traverse_Workbook()
 
Dim f(), s As Integer
 
f = Application.GetOpenFilename(fileFilter:="xlsx文件(*.xlsx),*.xlsx",_
 Title:="选择Excel文件", MultiSelect:=True)
 
' GetOpenFilename在点击"确定"时会返回选中的文件名数组,点击"取消"时会返回一个Boolean型的False
'判断是否是Boolean型(FASLE)就可以判断确定还是取消,选中文件时返回string类型
If TypeName(f) = "Boolean" Then Exit Sub
 
' 打开工作簿
For s = 1 To UBound(f)
 
    ' 设定当前打开工作簿名称为xlsxBook

    ' 原代码
    ' Workbooks.Open f(s), UpdateLinks:=0 '不更新外部链接
    ' Set xlsxBook = GetObject(f(s))

    Set xlsxBook = Workbooks.Open f(s), UpdateLinks:=0 '不更新外部链接
 
    '循环遍历当前工作簿的各个工作表
    For startSheetNum = 1 To xlsxBook.Sheets.Count
 
        ' 设定第startSheetNum个sheet为活动sheet
        Set Mywantgetsheet = xlsxBook.Worksheets(startSheetNum)
        Mywantgetsheet.Activate
 
        ' 重点!!! 
        ' 针对每个活动sheet实现的功能函数写于此处
    
    ' 下一个sheet
    Next startSheetNum
 
    ' 保存及关闭工作簿
    xlsxBook.Save
    xlsxBook.Close
 
' 继续打开下一个工作簿
Next
 
' 完成操作,显示"finish"
MsgBox "finish"
 
End Sub

2. 功能函数

2.1 字符串数组比对 / 两组数据比对是否一致(不要求元素位置意一一对应)

vbnet 复制代码
Function Compare_Combination(M() As Variant, M_Temp() As Variant, num As Integer)

' M() 基准组合,M_Temp() 待比对组合,num 为元素数量

'比对结果,默认为True
Dim result As Boolean
result = True

Dim T(), T_Temp() As Variant

'高版本EXCEL内置sort函数时可使用
' Sort函数需数组为列存储时方可正确排序(行数据无法正确排序),因此需转置再排序
'T = Excel.Application.WorksheetFunction.Sort(Application.WorksheetFunction.Transpose(M))
'T_Temp = Excel.Application.WorksheetFunction.Sort(Application.WorksheetFunction.Transpose(M_Temp))

'内置sort函数对列数据进行排序,因为需改写为(i,1)-i行1列
'Dim i As Integer
'For i = 1 To num
'    If T(i,1) <> T_Temp(i,1) Then
'        result = False
'        Exit For
'    End If
'Next

' 低版本EXCEL自主构建sort函数
T = Sort_Array(M)
T_Temp = Sort_Array(M_Temp)

Dim i As Integer
For i = 0 To num - 1
    If T(i) <> T_Temp(i) Then
        result = False
        Exit For
    End If
Next

Compare_Combination = result

End Function

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function Sort_Array(arr() As Variant) As Variant

Dim i, j As Integer
Dim temp As Variant

For i = LBound(arr) To UBound(arr)
    For j = i + 1 To UBound(arr)
        If VBA.StrComp(arr(i), arr(j), vbTextCompare) > 0 Then
        ' 字符顺序由小到大排序
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
        End If
    Next j
Next i

Sort_Array = arr()

End Function

2.2 排序函数(针对字符串数组,进行元素间排序)

vbnet 复制代码
Function Sort_Array(arr() As Variant) As Variant

Dim i, j As Integer
Dim temp As Variant

For i = LBound(arr) To UBound(arr)
    For j = i + 1 To UBound(arr)
        If VBA.StrComp(arr(i), arr(j), vbTextCompare) > 0 Then
        ' 字符顺序由小到大排序
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
        End If
    Next j
Next i

Sort_Array = arr()

End Function
相关推荐
愿你天黑有灯下雨有伞17 小时前
Java使用FastExcel实现Excel文件导入
java·excel
爆爆凯17 小时前
Excel 导入导出工具类文档
java·excel
凌康ACG1 天前
springboot打包二次压缩Excel导致损坏
spring boot·后端·excel
诸葛大钢铁2 天前
Excel转PDF的三种方法
笔记·职场和发展·pdf·excel
小小薛定谔2 天前
java操作Excel两种方式EasyExcel 和POI
java·python·excel
CodeCraft Studio2 天前
DHTMLX Suite 9.2 重磅发布:支持历史记录、类Excel交互、剪贴板、拖放增强等多项升级
javascript·excel·交互·表格·dhtmlx·grid·网格
小阳睡不醒2 天前
小白成长之路-Elasticsearch 7.0 配置
大数据·elasticsearch·excel
奋进的孤狼2 天前
【Excel】使用vlookup函数快速找出两列数据的差异项
excel
不讲废话的小白2 天前
解锁高效Excel技能:摆脱鼠标,快速编辑单元格
计算机外设·excel
CodeCraft Studio2 天前
Excel处理控件Aspose.Cells教程:使用 Python 在 Excel 中创建甘特图
python·excel·项目管理·甘特图·aspose·aspose.cells