Environ関数
オペレーティング システム（Windows）の環境変数に関連付けられた文字列を返します。
Macintoshでは使用できません。
Environ関数の構文
環境変数の名前を含む文字列式です。
存在する場合は、指定されたenvstringに割り当てられているテキストを返します。
つまり、環境文字列テーブルでその環境変数の等号 (=) の後にあるテキストを返します。
環境文字列テーブル内の環境文字列の数値順序に対応する数値です。
任意の数式を使用できますが、評価される前に整数に丸められます。
envstringを含むすべてのテキストを返します。
指定された位置に環境文字列がない場合、Environは長さ 0 の文字列を返します。
Environ関数の使用例
Sub sample()
Dim EnvString As String
Dim i As Long
Range("A1:B1").Value = Array("Index", "String")
Do
i = i + 1
EnvString = Environ(i)
If EnvString = "" Then Exit Do
Cells(i + 1, 1).Value = i
Cells(i + 1, 2).Value = Split(EnvString, "=")(0)
Loop
End Sub
上記VBAでは、環境変数だけを出力しています。
以下は出力の一例です。結果はPC環境により違ってきます。
| Index | String |
| 1 | ALLUSERSPROFILE |
| 2 | APPDATA |
| 3 | CommonProgramFiles |
| 4 | CommonProgramFiles(x86) |
| 5 | CommonProgramW6432 |
| 6 | COMPUTERNAME |
| 7 | ComSpec |
| 8 | DriverData |
| 9 | FPS_BROWSER_APP_PROFILE_STRING |
| 10 | FPS_BROWSER_USER_PROFILE_STRING |
| 11 | HOMEDRIVE |
| 12 | HOMEPATH |
| 13 | LOCALAPPDATA |
| 14 | LOGONSERVER |
| 15 | NUMBER_OF_PROCESSORS |
| 16 | OneDrive |
| 17 | OneDriveConsumer |
| 18 | OS |
| 19 | Path |
| 20 | PATHEXT |
| 21 | PROCESSOR_ARCHITECTURE |
| 22 | PROCESSOR_IDENTIFIER |
| 23 | PROCESSOR_LEVEL |
| 24 | PROCESSOR_REVISION |
| 25 | ProgramData |
| 26 | ProgramFiles |
| 27 | ProgramFiles(x86) |
| 28 | ProgramW6432 |
| 29 | PSModulePath |
| 30 | PUBLIC |
| 31 | SESSIONNAME |
| 32 | SystemDrive |
| 33 | SystemRoot |
| 34 | TEMP |
| 35 | TMP |
| 36 | USERDOMAIN |
| 37 | USERDOMAIN_ROAMINGPROFILE |
| 38 | USERNAME |
| 39 | USERPROFILE |
| 40 | VS100COMNTOOLS |
| 41 | windir |
同じテーマ「VBA関数」の記事
Command関数
CreateObject関数
DoEvents関数
Environ関数
GetObject関数
IMEStatus関数
InputBox関数
MsgBox関数
Partition関数
QBColor関数
RGB関数
新着記事NEW ・・・新着記事一覧を見る
IMPORTCSV関数（CSVファイルのインポート）｜エクセル入門(2026-01-19)
IMPORTTEXT関数（テキストファイルのインポート）｜エクセル入門(2026-01-19)
料金表（マトリックス）から金額で商品を特定する｜エクセル練習問題(2026-01-14)
「緩衝材」としてのVBAとRPA｜その終焉とAIの台頭｜エクセル雑感(2026-01-13)
シンギュラリティ前夜：AIは機械語へ回帰するのか｜生成AI活用研究(2026-01-08)
電卓とプログラムと私｜エクセル雑感(2025-12-30)
VLOOKUP/XLOOKUPが異常なほど遅くなる危険なアンチパターン｜エクセル関数応用(2025-12-25)
2段階の入力規則リスト作成：最新関数対応｜エクセル関数応用(2025-12-24)
IFS関数をVBAで入力するとスピルに関係なく「@」が付く現象について｜VBA技術解説(2025-12-23)
数値を記号の積み上げでグラフ化する（■は10、□は1）｜エクセル練習問題(2025-12-09)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.条件分岐（Select Case）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.