Ｅｘｃｅｌのセルにユーザー名を表示する方法

質問

こんにちわ。Ｅｘｃｅｌのセルに使用しているユーザー名を表示する関数はありませんか？お知りの方、宜しくお願いします。

回答No.3

ham_kamo · ベストアンサー

ユーザー名とは、コンピュータにログオンしているユーザ名か、ツール＞オプション＞全般の「ユーザー名」で指定されているユーザ名かどちらでしょう。（後者はOfficeをインストールするときに指定するので、ログオンユーザ名と同じとは限りません）

どちらにしろ、標準の関数では無理なので、ユーザ定義関数を作ります。
Alt+F11でVBAの画面を開き、「挿入」＞「標準モジュール」を選択します。Module1というのができて、右側にそのモジュールの入力画面になります。

ここで、右側に、

Function LoginName() As String
　　LoginName = CreateObject("WScript.Network").UserName
End Function

Function ExcelUserName() As String
　　ExcelUserName = Application.UserName
End Function

をコピーし、Excelに戻ります。

任意のセルで、
=LoginName()
とするとログオンユーザ名が表示され、
=ExcelUserName()
とするとExcelに登録されているユーザ名が表示されます。

お礼

こんにちは、ham_kamoさま。御回答頂いた通り試してみたところ簡単にユーザー名を表示することが出来ました。すばらしい！！有難うございました。今後も宜しくお願いします。ham_kamoさまのお知恵に感謝・感謝です。

回答No.5

imogasi

標準モジュールに（Ｓｈｅｅｔモジュールではダメ。
既出の回答に当然として書いてないが肝心です。）
Function uname()
uname = "ユーザー" & Application.UserName
End Function
と入れて（unameはどんな名前でも良い）
シートのセルに=Uname()と入れると、セルに「ユーザー　ＩＮＯＵＥ」とかでます。

お礼

こんにちは、imogasiさま。御回答頂いた通り試してみたところ簡単にユーザー名を表示することが出来ました。すばらしい！！有難うございました。今後も宜しくお願いします。

回答No.4

Wendy02

こんにちは。

既に、VBAのユーザー定義関数で行う方法が出ていますので、名前-定義を使ったマクロ関数で行う方法を紹介しておきます。

ワークシートメニューの　挿入→名前→定義

名前、[WHO](任意)
参照範囲
[=GET.DOCUMENT(36)&LEFT(NOW(),0)]

セルに、

=WHO
と入れれば、ログイン名が出ます。

これは、Excel 4.0マクロ関数を利用した方法です。ファイルにパスワードが設定されていない場合には、現在のユーザー名を返しますが、書き込み禁止した場合は、その設定者の名前が表示されます。

註：なお、この方法は、将来に渡って保証する方法ではないのは言うまでもありませんが、それは、少なくとも、Excel内の仕様変更があるまでです。(現行では、Excel2003まで)　Win32 API関数を使用する場合とは、かなり事情が異なります。

お礼

こんにちわ、pWendy02さま。早々の御回答に感謝します。有難うございました。今後も宜しくお願いします。

回答No.2

boy_boy

こんにちは。

通常の関数では無理では無いでしょうか・・・
Excelのユーザー名とログインユーザー名は基本的に同じだと思うので
VBAでAPI関数を使用して「ログインユーザー名」を取得する方法が
参考ＵＲＬの井上治さんのＨＰに記載されています。

参考URL：

http://www.asahi-net.or.jp/~ef2o-inue/api/sub08_01_020.html

お礼

こんにちわ、boy_boyさま。早々の御回答に感謝します。有難うございました。今後も宜しくお願いします。

回答No.1

noname#136051

エクセルのアイコン上で右クリック
プロバティを選択
概要のタブをクリックすると
作成者の名前が変更できます。

お礼

こんにちわ、purinchocolateさま。早々の御回答に感謝します。有難うございました。今後も宜しくお願いします。