メインコンテンツへスキップ

最後に変更されたユーザー名を取得してExcelに挿入するにはどうすればよいですか?

この記事では、最後に変更されたユーザー名情報を取得し、最後に変更されたユーザー名情報をExcelのセルに挿入する方法を説明します。

Excelで現在のブックの最後に変更されたユーザー名を取得します
ユーザー定義関数を使用して、現在のブックの最後に変更されたユーザー名を挿入します
Kutools for Excelを使用すると、セル、ヘッダー、またはフッターにユーザー名を簡単に挿入できます。


Excelで現在のブックの最後に変更されたユーザー名を取得します

ご存知のとおり、現在のブックの[詳細プロパティ]ダイアログボックスで、最後に変更されたユーザー名情報を取得できます。

Excel2007を使用している場合

次の手順で、Excelで現在のブックを前回変更したユーザー名を取得できます。

ステップ1: オフィスボタン >> 準備 >> プロパティ.

ステップ2:次に、ドキュメントペインがワークシートの上に追加されます。 クリック ドキュメントのプロパティ >> 高度なプロパティ.

ステップ3:ポップアップする[詳細プロパティ]ダイアログボックスに、 最終保存者: 下の情報 統計 タブには何も表示されないことに注意してください。

Excel 2010、2013以降のバージョンを使用している場合

Microsoft Excel 2010以降のバージョンを使用している場合は、次の手順で最終的に変更されたユーザー情報を取得できます。

クリックするだけで File > インフォ、あなたは得るでしょう 最終変更者 下の右側の情報 関連する人々 セクション。 次のスクリーンショットを参照してください。


ユーザー定義関数を使用して、現在のブックを前回変更したユーザー名を挿入します

1:を長押しします 頭の中 + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2: の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、モジュールウィンドウに次のマクロを貼り付けます。 スクリーンショットを見るL

VBAコード:最後に変更されたユーザー名をExcelに挿入します

Function LastAuthor()
LastAuthor = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
End Function

3:を押す 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

4。 ユーザー名を配置するために必要なセルを選択し、数式を入力します = LastAuthor() 数式バーに入力し、を押します 入力します キー。 次に、最後に変更されたユーザー名がすぐにセルに挿入されます。 スクリーンショットを参照してください:


Kutools for Excelを使用すると、セル、ヘッダー、またはフッターにユーザー名を簡単に挿入できます。

Excelの指定したセル、ワークシートヘッダー、またはフッターにユーザー名を簡単に挿入できます。 ワークブック情報を挿入する の有用性 Kutools for Excel。 次のようにしてください。

申請する前に Kutools for Excelについては 最初にダウンロードしてインストールします.

1。 クリック クツールズプラス > ワークブック > ワークブック情報を挿入する。 スクリーンショットを参照してください:

2。 の中に ワークブック情報を挿入する ダイアログボックスでは、次のことを行う必要があります。

1)。 を選択 ユーザー名 内のオプション その他の情報 のセクションから無料でダウンロードできます。

2)。 指定したセルにユーザー名を挿入する場合は、このセルを指定してください。 レンジ ボックス; ヘッダーまたはフッターにユーザー名を挿入するには、 ヘッダ or フッター オプションを選択します。

3)。 クリック Ok ボタン。 スクリーンショットを参照してください:

その後、ユーザー名はすぐに指定された位置に挿入されます。

  このユーティリティの無料トライアル(30日)が必要な場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How can the Activeworkbook be dynamic?

I tried to no success the below code

LastSavedby = Range("A1").value.BuiltinDocumentProperties("Last Author")

Where in A1 contains the path of the file with the file name and extension
This comment was minimized by the moderator on the site
Hi! I, my case it doesn't work automatically, I need to press "enter" after the formula "= VBAProject.Module3.LastAuthor()".
How should i make it automatic?
Thank you
This comment was minimized by the moderator on the site
Hey, this code worked nicely. Is there a way I can display the user name if a ROW is adjusted? For example, I hhave Column K with the header "Last modified By", and I want to know who adjusted "each row" as this is a shared document. I have the below code for Date, which works like how I would want the name to work: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 11 Or Target.Row = 1 Then Exit Sub Application.EnableEvents = False Cells(Target.Row, 12) = Now Application.EnableEvents = True End Sub Please email me if possible
This comment was minimized by the moderator on the site
Hi. I would like to ask how to write the VBA codes to retrieve all current users which modifying on the worksheet. Thank You:)
This comment was minimized by the moderator on the site
thanks a lot for this helpful article. I used it and it worked well. can I get the last modified date on that sheet just like the username ? MANY THANKS
This comment was minimized by the moderator on the site
Can u pls help if iwant the user name to appear in aspreadsheet as and when the previous cell is filled by a user
This comment was minimized by the moderator on the site
Thanks, Cp & Jay Chivo :)
This comment was minimized by the moderator on the site
Sub UserName() Sheets("Sheet1").Range("A1").Value = Environ("username") End Sub --------------- Change the sheet name
This comment was minimized by the moderator on the site
I am runing excel 2007 and am getting the runtime error 9, script out of range as well. any way to make it work in excel 2007?
This comment was minimized by the moderator on the site
Excel 2010. Same time i would like to ask that is it possible to use this Subscript with another function script ? Thanks Naghman
This comment was minimized by the moderator on the site
[quote]Excel 2010. Same time i would like to ask that is it possible to use this Subscript with another function script ? Thanks NaghmanBy Naghman[/quote] With another script? What script? :-)
This comment was minimized by the moderator on the site
To get last saved date. Function LastSaveDate() Application.Volatile True LastSaveDate = FileDateTime(ThisWorkbook.FullName) End Function
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations