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

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

14^#

發表於 2019-2-20 13:23 | 只看該作者

感謝准大

改用定義名稱方式可以使在這裡下指令太神奇了

～熊貓界第一美男子～

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

13^#

發表於 2019-2-19 10:50 | 只看該作者

本帖最後由准提部林於 2019-2-19 10:52 編輯

改用"定義名稱", 刪掉vba自訂函數
定義名稱:=MyName
定義公式:=GET.DOCUMENT(36)&T(NOW())

儲存格公式:=MyName

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

12^#

發表於 2019-2-19 09:09 | 只看該作者

已經建立的舊檔案，目前運作都正常，每次開啟檔案時候姓名都可以自動刷新

補充發問
我需要在舊檔案中複製某些工作表出來，組合成新的樣板給同仁使用，
做法是打開檔案，找到需要的工作表，在工作表標籤上點右鍵-複製-建立副本-選擇[新活頁簿]

因為這三行指令是放在舊檔案的模組中
Function MyName()
MyName = Application.UserName
End Function
所以變成從工作表直接建立副本出來產生的新活頁簿，會缺少這個自訂模組，需要手動重新插入模組

請問有沒有辦法讓EXCEL在建立新活頁簿的時候，能套用範本之類的，讓所有新的活頁簿都自動產生這三行的自訂模組？

我試過把自訂模組加在PERSONAL.XLSB，讓EXCEL啟動自動載入，但是無法運作

～熊貓界第一美男子～

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

11^#

發表於 2019-2-13 17:00 | 只看該作者

找不到不會自動更新的問題在哪?
試試修改公式看看:
=MyName()&T(NOW())

若還不行, 用workbookopen吧! ...
准提部林發表於 2019-2-13 14:19

感謝回覆

改用公式 =MyName()&T(NOW()) 目前可以正常更新

另外找到一個方法，是在 workbookopen 加入 application.calculatefull，同時測試中

～熊貓界第一美男子～

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

10^#

發表於 2019-2-13 16:57 | 只看該作者

回復 luckeyfly

不會自動更新者可能是在EXCEL的自動重算設定取消
Hsieh 發表於 2019-2-13 09:21

回覆

自動重算的設定正確打勾

～熊貓界第一美男子～

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

9^#

發表於 2019-2-13 14:19 | 只看該作者

找不到不會自動更新的問題在哪?
試試修改公式看看:
=MyName()&T(NOW())

若還不行, 用workbookopen吧!!

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

8^#

發表於 2019-2-13 09:21 | 只看該作者

回復 7# luckeyfly

不會自動更新者可能是在EXCEL的自動重算設定取消

學海無涯_不恥下問

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

7^#

發表於 2019-2-13 08:44 | 只看該作者

補充測試結果

不會自動更新的檔案，用快速鍵 CTRL+ALT+SHIFT+F9 可以刷新為正確的使用者姓名，表示函數是正確的，只是不知道為甚麼在檔案開啟時不會自動更新

～熊貓界第一美男子～

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

6^#

發表於 2019-2-12 17:06 | 只看該作者

回復 4# Hsieh

H大

我因為需要儲存格是變動的(根據不同使用者自動變更名稱)
所以
1、每個使用者在EXCEL的選項中，使用者名稱都輸入自己名字
2、所有EXCEL檔案都在模組加入指令
Function MyName()
MyName = Application.UserName
End Function
3、在需要的儲存格中使用 =MyName() 指令
4、檔案放在分享資料夾中，給使用者連線開啟
理論上，每個使用者開啟檔案後都會自動更新成自己的名字

發現問題是
有些檔案儲存格顯示的姓名會自動更新
有些檔案儲存格顯示的姓名會維持上一個使用者的名字，必須打開儲存格(進入編輯公式模式)在enter一次，名字才會更新

檔案在附件，麻煩請看一下是哪裡的設定有錯誤，謝謝

自動更新異常.rar (160.78 KB)

～熊貓界第一美男子～