VBA(Enumによる要素番号管理)

 

https://excel-ubara.com/excelvba1/EXCELVBA409.html

-- 1. 開発タブの挿入でボタンを作成
※ActiveXコントロールのものを使用する

-- 2. デザインモードONで作成したボタンをダブルクリックするとエディタが開くので下記コードを記載。デザインモードOFFで実行

※ 下記設定必要
「Microsoft Scripting Runtime」の参照設定

 

Option Explicit

Enum en
    No = 1
    Name = 2
    Language = 3
End Enum

Dim myArr(1 To 3) As String

Dim myDic As New Dictionary

Private Sub CommandButton1_Click()
    
    '画面を更新しない
    Application.ScreenUpdating = False
    '確認メッセージを表示しない
    Application.DisplayAlerts = False
    
    
    
    Erase myArr
    
    
    myArr(en.No) = "番号"
    myArr(en.Name) = "名前"
    myArr(en.Language) = "言語"
    
    Dim i As Long
    
    For i = LBound(myArr, 1) To UBound(myArr, 1)
        Debug.Print "myArr(" & i & ")= " & myArr(i)
    Next i
    
    
    
    Set myDic = Nothing
    
    myDic.Add en.No, "番号"
    myDic.Add en.Name, "名前"
    myDic.Add en.Language, "言語"
    
    Dim vkey As Variant
    
    For Each vkey In myDic
        Debug.Print "myDic(" & vkey & ")= " & myDic(vkey)
    Next vkey
    
    
    
    MsgBox "処理完了"
    
    
    
    '確認メッセージを表示する
    Application.DisplayAlerts = True
    '画面を更新する
    Application.ScreenUpdating = True
    

End Sub