VBA 常用共通函数

1. 判断sheet是否存在函数

'-------------------------------------------------
'Sheet exist check
'-------------------------------------------------
Function IsExistsSheet(ByVal prmStrSheetName As String) As Boolean
    
    Dim blnFlag As Boolean
    Dim ws As Worksheet
    
    blnFlag = False
    
    If prmStrSheetName = vbNullString Then
        IsExistsSheet = False
        Exit Function
    End If

    For Each ws In ActiveWorkbook.Sheets
        If StrConv(prmStrSheetName, vbUpperCase + vbWide) = StrConv(ws.Name, vbUpperCase + vbWide) Then
            blnFlag = True
            Exit For
        End If
    Next
 
    IsExistsSheet = blnFlag
End Function

2. wait