通常、私が見つけることができるオンラインリソースのほとんどでは、VBAでこの情報を取得する方法を示しています。この情報をセルに取得する直接的な方法はありますか?
たとえば、=ENVIRON('User')
(これは機能しませんでした)のような単純な
以下のリンクの指示に基づいて、次を実行します。
VBAで新しいモジュールを挿入し、次のコードに貼り付けます。
Public Function UserName()
UserName = Environ$("UserName")
End Function
次の式を使用して関数を呼び出します。
=Username()
次の指示に基づきます。
[〜#〜] udf [〜#〜] in [〜#〜] vba [〜#〜]を作成したくない場合、またはt、これは代替案かもしれません。
=Cell("Filename",A1)
これにより、完全なファイル名が得られます。これから、次のようなユーザー名を取得できます。
=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)
この数式は、以前に保存されたブックからのみ実行されます。
ドライブからの最初のスラッシュのため、4番目の位置から開始する必要があります。
例:セルC5のWindowsユーザー名を表示するには、次のスクリプトを使用できます。
Range("C5").Value = ": " & Environ("USERNAME").
最も簡単な方法は、次のように、その関数をラップするVBAマクロを作成することです。
Function UserNameWindows() As String
UserName = Environ("USERNAME")
End Function
次に、セルから呼び出します:
=UserNameWindows()
詳細および他の方法については、 この記事 を参照してください。
VBAマクロなしで、このヒントを使用してパスからユーザー名を取得できます。
=MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))
これにより、現在のユーザーの名前が表示されます。
Function Username() As String
Username = Application.Username
End Function
プロパティApplication.Username
は、MS Officeのインストール時に入力された名前を保持します。
セルに次の数式を入力します。
=Username()