[發問] 請問EXCEL能否自動填入使用者名稱 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » [發問] 請問EXCEL能否自動填入使用者名稱

返回列表下一主題上一主題發帖

[發問] [發問] 請問EXCEL能否自動填入使用者名稱

中學生 Rank: 2

帖子: 37
主題: 7
精華: 0
積分: 93
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2018-10-18
最後登錄: 2021-7-21

5^# 跳轉到 »

發表於 2019-1-22 08:06 | 只看該作者

感謝，這個「依據開啟檔案者的使用者名稱變動」就是我需要的

～熊貓界第一美男子～

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2019-1-21 08:52 | 只看該作者

本帖最後由 Hsieh 於 2019-1-21 09:02 編輯

回復 1# luckeyfly

自定義函數

不過這樣寫公式在儲存格內，是會依據開啟檔案者的使用者名稱變動
要讓儲存格寫入值，才不會因開啟的使用者不同而改變，如此就必須用執行程序按鈕1_Click來寫入

Function MyName()
MyName = Application.UserName
End Function
Sub 按鈕1_Click()
ActiveSheet.[H2] = MyName()
End Sub

複製代碼

學海無涯_不恥下問

中學生 Rank: 2

帖子: 37
主題: 7
精華: 0
積分: 93
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2018-10-18
最後登錄: 2021-7-21

3^#

發表於 2019-1-19 14:12 | 只看該作者

GOOGLE 找到一個解法，建一個 C:\姓名.XLSX，裡面就只有A1＝姓名、B1＝王小名
利用VLOOKUP跨檔案搜尋，比對「姓名」回傳「王小名」

希望能有直接讀取檔名的解法

～熊貓界第一美男子～

中學生 Rank: 2

帖子: 37
主題: 7
精華: 0
積分: 93
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2018-10-18
最後登錄: 2021-7-21

2^#

發表於 2019-1-19 13:42 | 只看該作者

另外一個想法，是在 C:\之下，儲存一個TXT文字檔，檔案名稱是 NAME(王小名).TXT
用EXCEL的公式讓儲存格去抓到王小名三個字

*避免跟其他檔案混淆，所以檔名複雜一點，用NAME(王小名)的方式來區隔*

～熊貓界第一美男子～

靜思自在 : 為自己找藉口的人永遠不會進步。

返回列表下一主題上一主題