この記事では、ログインしたユーザーのコンピューターとユーザー名を返すマクロを作成します。

この例では、セルC10のコンピューター名とセルC11のユーザー名を抽出します。

ArrowMain

コンピューターとユーザー名を検索するための「GetComputerUserName」マクロを作成しました。 「送信」ボタンをクリックすると、マクロを実行できます。

ArrowOutput

マクロは、セルC10にコンピューター名を抽出し、セルC11にユーザー名を抽出します。

コードの説明

環境機能

Environ関数は、オペレーティングシステムの環境変数に関連付けられた文字列値を返します。

Environ関数の構文

Environ(\ {環境変数名|番号})

コードについては以下に従ってください

Sub GetComputerUserName()

Dim ComputerName, UserName As String

'Getting computer name

ComputerName = Environ("computername")

'Getting user name

UserName = Environ("username")

'Assigning value to cell C10 and C11

Range("C10").Value = ComputerName

Range("C11").Value = UserName

End Sub

このブログが気に入ったら、FacebookやFacebookで友達と共有してください。

皆様からのご意見をお待ちしております。私たちの仕事を改善し、あなたのために改善する方法をお知らせください。 [email protected]までご連絡ください