デバイス名の取得 - エクセルVBAメモ

　　こんにちは、ぽっぽです。今回は、デバイス名を取得するエクセルVBAコードをご紹介します。

目的
手順
- １）デバイス名の確認　　
- ２）デバイス名の取得
まとめ

目的

　　デバイス名を取得する

手順

１）デバイス名の確認　　

　　① 左下にある「スタートボタン」を右クリック

　　②「システム（Y）」を選択

　　　　⇒　下図の赤色部分にデバイス名が表示

２）デバイス名の取得

　　デバイス名は「Environ(“USERDOMAIN”)」で取得できます。標準モジュールに以下のコードを

　挿入し、実行してみましょう。

Sub test()

'■デバイス名の取得
    Dim device_name As String
        device_name = Environ("USERDOMAIN")

'■デバイス名の確認（イミディエイトウィンドウへの表示）
    Debug.Print device_name

End Sub

　　イミディエイトウィンドウにデバイス名が表示されます。

まとめ

　　今回は、デバイス名を取得する方法を紹介しました。本記事の内容を応用すると、特定のPCのみ実行される（逆もしかり）処理が可能となります。ぜひご活用ください。