こちらに「その他関数の実務サンプル集（環境変数取得・外部連携・条件分岐活用）」を整理しました。
Environ / Shell / Choose / Switch / IIf などを組み合わせることで、環境依存処理や外部連携、条件分岐をシンプルに実装できます。
実務サンプル集
1. 環境変数取得（Environ）
Sub GetUserInfo()
Dim userName As String, compName As String, tempPath As String
userName = Environ("USERNAME")
compName = Environ("COMPUTERNAME")
tempPath = Environ("TEMP")
MsgBox "ユーザー名: " & userName & vbCrLf & _
"PC名: " & compName & vbCrLf & _
"一時フォルダ: " & tempPath
End Sub
👉 実行ユーザーやPC環境に応じた処理分岐に利用可能。
（例：ユーザーごとに保存先を切り替える） interuniversitylearning.com
2. 外部プログラム実行（Shell）
Sub OpenNotepad()
Dim ret As Double
ret = Shell("notepad.exe", vbNormalFocus)
MsgBox "メモ帳を起動しました (PID=" & ret & ")"
End Sub
👉 外部アプリ起動やバッチ処理の呼び出しに活用。
（例：バックアップ用のバッチファイルを実行）
3. 条件分岐（Choose）
Sub ChooseExample()
Dim dayNum As Integer
dayNum = Weekday(Date) ' 1=日曜, 2=月曜…
MsgBox "今日は " & Choose(dayNum, "日曜", "月曜", "火曜", "水曜", "木曜", "金曜", "土曜")
End Sub
👉 インデックスに応じた値を返す。曜日やメニュー選択に便利。
4. 条件分岐（Switch）
Sub SwitchExample()
Dim score As Integer
score = 72
MsgBox Switch( _
score >= 80, "合格（優）", _
score >= 60, "合格", _
score < 60, "不合格")
End Sub
👉 複数条件を簡潔に記述できる。If～ElseIfの代替に便利。
5. 即時条件評価（IIf）
Sub IIfExample()
Dim val As Integer
val = 10
MsgBox "判定: " & IIf(val Mod 2 = 0, "偶数", "奇数")
End Sub
👉 1行で条件分岐を記述可能。簡易判定に有効。
✅ まとめ
- 環境変数取得（Environ） → ユーザー名やPC名を取得して処理を分岐
- 外部連携（Shell） → バッチや外部アプリを呼び出して自動化
- 条件分岐（Choose / Switch / IIf） → コードを簡潔にし、可読性を向上
💡 応用すれば「ユーザーごとに異なる外部ツールを起動」「環境変数で保存先を切替」「条件分岐で処理フローを自動選択」といった柔軟な業務マクロが構築できます。
