Çevrimiçi kaynakların çoğunda, genellikle bu bilgileri VBA'da nasıl alacağımı gösteririm. Bu bilgiyi bir hücrede almanın doğrudan bir yolu var mı? hücreden diyoruz SonraGeçerli kullanıcı adı bir hücrede nasıl gösterilir?
Function UserNameWindows() As String
UserName = Environ("USERNAME")
End Function
:
Aşağıdaki bağlantıdaki talimatlara dayanarak, aşağıdakileri yapın.
VBA yeni bir modül eklemek ve bu kodu yapıştırın:
Public Function UserName()
UserName = Environ$("UserName")
End Function
Çağrı formül kullanılarak fonksiyonu:
basit yolu şöyle, bu işlevi sarar bir VBA makrosu oluşturmaktır (işe yaramadı olan) =ENVIRON('User') kadar basit Örneğin
:
=UserNameWindows()
fazla ayrıntı için this article bakın, başka yollar.
=Username()
adresindeki talimatlara dayanarak
Örnek: Windows C5'deki Kullanıcı Adı'nı görüntülemek için, Eğer VBAbir UDF oluşturmak istemiyorum ya eğer yapamazsan
Range("C5").Value = ": " & Environ("USERNAME").
, bu alternatif olabilir: betik.
=Cell("Filename",A1) bu size tam bir dosya adı verecek ve bundan böyle bir şey ile kullanıcı adını alabilir:
=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)
Bu Formülü yalnızca çalışır daha önce kaydedilmiş bir çalışma kitabından .
Sürücünün ilk eğik çizgisi nedeniyle 4. konumdan başlamalısınız.
Function Username() As String
Username = Application.Username
End Function
mülkiyet Application.Username MS Office yüklemesi ile girilen isim tutan:
Bu geçerli kullanıcının adını gösterir.
bir hücredeki bu formülü girin:
=Username()
Teşekkür! Daha önce benim için çalışmadı çünkü yeni bir modül oluşturmadım. Şimdi her şey güzel. –
, 2016'da bu konuyla karşılaşan herkes için yukarıdaki bağlantı çalışmıyor –
Link, aşağıdaki yorum yolunu izleyerek düzeltildi ... – Gallus