VBAでマジックナンバーをエクセルの「設定」シートに集約する方法

やり方

「設定」シートからマジックナンバーを読み取り、MainProcedureで使用する方法を以下に示します。
まず、Typeステートメントを使用してマジックナンバーの構造を定義します。

'Typeステートメント(構造体）
Type MagicNumbers
    magicNumberA As Integer
    magicNumberB As Integer
End Type

設定シートからマジックナンバーを読み取る関数

Function ReadMagicNumbersFromSettingsSheet() As MagicNumbers
    Dim settingsSheet As Worksheet
    Dim magicNumbers As MagicNumbers
    
    ' "設定"シートを参照
    Set settingsSheet = ThisWorkbook.Sheets("設定")
    
    ' マジックナンバーを読み取り、構造体に設定
    magicNumbers.magicNumberA = settingsSheet.Range("A1").Value
    magicNumbers.magicNumberB = settingsSheet.Range("B1").Value
    
    ' 構造体を返す
    ReadMagicNumbersFromSettingsSheet = magicNumbers
End Function

使う側の関数

Sub MainProcedure()
    Dim magicNumbersInstance As MagicNumbers
    
    ' 設定シートからマジックナンバーを読み取る
    magicNumbersInstance = ReadMagicNumbersFromSettingsSheet()
    
    ' マジックナンバーをデバッグウィンドウに表示
    Debug.Print "Magic Number A: " & magicNumbersInstance.magicNumberA
    Debug.Print "Magic Number B: " & magicNumbersInstance.magicNumberB
    
    ' 他の処理にマジックナンバーを渡すこともできます
End Sub