web-dev-qa-db-ja.com

セルに現在のユーザー名を表示する方法は？

通常、私が見つけることができるオンラインリソースのほとんどでは、VBAでこの情報を取得する方法を示しています。この情報をセルに取得する直接的な方法はありますか？

たとえば、=ENVIRON('User')（これは機能しませんでした）のような単純な

excelvbaexcel-2003worksheet-function
18
Anthony Kong

以下のリンクの指示に基づいて、次を実行します。

VBAで新しいモジュールを挿入し、次のコードに貼り付けます。

Public Function UserName()
    UserName = Environ$("UserName")
End Function

次の式を使用して関数を呼び出します。

=Username()

次の指示に基づきます。

https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f

37
Jon Egerton

[〜＃〜] udf [〜＃〜] in [〜＃〜] vba [〜＃〜]を作成したくない場合、またはt、これは代替案かもしれません。

=Cell("Filename",A1)これにより、完全なファイル名が得られます。これから、次のようなユーザー名を取得できます。

=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)

この数式は、以前に保存されたブックからのみ実行されます。

ドライブからの最初のスラッシュのため、4番目の位置から開始する必要があります。

5
Rafa Barragan

例：セルC5のWindowsユーザー名を表示するには、次のスクリプトを使用できます。

Range("C5").Value = ": " & Environ("USERNAME").
3
web solusi

最も簡単な方法は、次のように、その関数をラップするVBAマクロを作成することです。

Function UserNameWindows() As String
    UserName = Environ("USERNAME")
End Function

次に、セルから呼び出します：

=UserNameWindows()

詳細および他の方法については、 この記事 を参照してください。

2
Lance Roberts

VBAマクロなしで、このヒントを使用してパスからユーザー名を取得できます。

=MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))
1
sangorys

これにより、現在のユーザーの名前が表示されます。

Function Username() As String
    Username = Application.Username
End Function

プロパティApplication.Usernameは、MS Officeのインストール時に入力された名前を保持します。

セルに次の数式を入力します。

=Username()
1
rolacher