VBAの備忘メモ（配列の宣言）

久しぶりにVBA

触ったら配列の宣言方法を忘れたのでメモ。

Variantってなかなか使わない言葉だったのですっかり忘れてました。

'数は要素数かと思いきやインデックスの最大数っぽい。1つ多いとEmpty値になる＝空白？
Dim noUseCharacter(6) As Variant

ついでにワークシート名の文字チェックプロシージャー

Arrayを使うと要素数を最初に宣言しなくていいんだね。

探せばどこにでもありそうだけど。

Function chkSheetName(ByRef sheetName As String) As Boolean
    Dim noUseCharacter As Variant
    Dim str As Variant
    Const MaxNameSize As Integer = 31
    
    Dim errFlg As Boolean

    noUseCharacter = Array(":", "\", "/", "?", "*", "[", "]")  
    
    '桁数チェック
    If Len(sheetName) > MaxNameSize Then
        errFlg = True
    Else
        '使用できない文字チェック
        For Each str In noUseCharacter
            If InStr(sheetName, str) > 0 Then
                errFlg = True
                Exit For
            End If
        Next str
    End If
    
    chkSheetName = errFlg

End Function