2011-08-03 18 views
12

अधिकांश ऑनलाइन संसाधनों में मैं आमतौर पर मुझे यह दिखा सकता हूं कि वीबीए में इस जानकारी को कैसे प्राप्त किया जाए। क्या इस जानकारी को सेल में प्राप्त करने का कोई सीधा तरीका है?सेल में वर्तमान उपयोगकर्ता नाम कैसे दिखाएं?

=ENVIRON('User') के रूप में सरल (जो काम नहीं किया)

उत्तर

29

नीचे दिए गए लिंक पर दिए गए निर्देशों के आधार पर, निम्न कार्य करें।

VBA में एक नया मॉड्यूल सम्मिलित करें और इस कोड में पेस्ट:

Public Function UserName() 
    UserName = Environ$("UserName") 
End Function 

कॉल समारोह सूत्र का उपयोग:

https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f

+1

धन्यवाद! यह मेरे लिए पहले काम नहीं करता क्योंकि मैंने एक नया मॉड्यूल नहीं बनाया था। अब यह सब अच्छा है। 2016 में इस पर आने वाले किसी भी व्यक्ति के लिए –

+1

ऊपर दिए गए लिंक पर काम नहीं करता है –

+0

लिंक ऊपर दी गई टिप्पणी के तरीके से तय किया गया है ... – Gallus

2

सबसे आसान तरीका है एक VBA मैक्रो समारोह लपेटता है, तो तरह बनाने के लिए है उदाहरण के लिए:

Function UserNameWindows() As String 
    UserName = Environ("USERNAME") 
End Function 

तो यह सेल से फोन :

=UserNameWindows() 

अधिक जानकारी के लिए this article देखें, और अन्य तरीकों से।

3
:

=Username() 

पर दिए गए निर्देशों के आधार पर

उदाहरण: सेल सी 5 पर विंडोज उपयोगकर्ता नाम देखने के लिए, आप वें का उपयोग कर सकते हैं

Range("C5").Value = ": " & Environ("USERNAME"). 
3

यदि आप VBAमें एक यूडीएफ बनाने के लिए नहीं करना चाहते हैं या नहीं कर सकती, यह एक विकल्प हो सकता: स्क्रिप्ट है।

=Cell("Filename",A1) इस आप पूरी फ़ाइल नाम दे देंगे, और इस से आप कुछ इस तरह के साथ उपयोगकर्ता नाम मिल सकता है: किसी कार्यपुस्तिका पहले सहेजा से

=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)


यह फॉर्मूला केवल चलाता है ।

ड्राइव से पहले स्लैश के कारण आपको चौथी स्थिति से शुरू होना चाहिए।

Function Username() As String 
    Username = Application.Username 
End Function 

संपत्ति Application.Username नाम एमएस ऑफ़िस की स्थापना के साथ प्रवेश किया रखती है:

0

यह वर्तमान उपयोगकर्ता का नाम प्रदर्शित करता है।

एक सेल में इस सूत्र दर्ज करें:

=Username()