[說明]
取得使用者名稱後,可運用於自動另存備份檔案後,於該檔案名稱後方加上取得的使用者名稱,就可知道是誰最後存檔了這個檔案。
[程式碼]
Sub JS() '取得使用者名稱
工作表1.Select '依判斷列數的資料放置工作表不同而有異,請自行調整。
X = Environ("USERNAME") 'X只是一個代碼,可自由命名。
Range("A1") = X '這只是讓X呈現的一種方式,可運用於各種需要的情境與需求。
End Sub
<取得使用者名稱之結果>
[特別說明]
使用方式,可做一顆按鈕,將上面的程式碼複製於該巨集內,按下後即會呈現結果。亦可運用各種需要使用者名稱的情境內。
文章標籤
全站熱搜

留言功能已依作者設定調整顯示方式