대부분의 온라인 리소스에서 VBA에서이 정보를 검색하는 방법을 알 수 있습니다. 셀에서이 정보를 얻는 직접적인 방법이 있습니까? 셀에서 호출 다음셀에 현재 사용자 이름을 표시하는 방법은 무엇입니까?
Function UserNameWindows() As String
UserName = Environ("USERNAME")
End Function
:
대부분의 온라인 리소스에서 VBA에서이 정보를 검색하는 방법을 알 수 있습니다. 셀에서이 정보를 얻는 직접적인 방법이 있습니까? 셀에서 호출 다음셀에 현재 사용자 이름을 표시하는 방법은 무엇입니까?
Function UserNameWindows() As String
UserName = Environ("USERNAME")
End Function
:
아래 링크의 지침에 따라 다음을 수행하십시오.
VBA에 새로운 모듈을 삽입하고이 코드를 붙여
Public Function UserName()
UserName = Environ$("UserName")
End Function
통화 화학식 사용 기능 :
가장 간단한 방법은과 같이, 그 기능을 래핑하는 VBA 매크로를 만드는 것입니다 (작동하지 않았다) =ENVIRON('User')
만큼 간단한 예를 들어
:
=UserNameWindows()
은 자세한 내용은 this article를 참조하고, 다른 방법.
=Username()
에서 명령들에 기초를
예 : 셀 C5에서 Windows 사용자 이름을 보려면 다음을 사용할 수 있습니다. 당신은 VBA에 UDF을 만들려하지 않거나 할 수없는 경우
Range("C5").Value = ": " & Environ("USERNAME").
,이 대안이 될 수있다 : 스크립트입니다.
=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
는 MS 오피스의 설치를 입력 한 이름을 원하는 분야
이 현재 사용자의 이름을 표시합니다.
는 셀이 수식을 입력 :
=Username()
감사합니다! 그것은 내가 새로운 모듈을 만들지 않았기 때문에 전에는 효과가 없었습니다. 이제는 모두 좋다. 위의 링크가 작동하지 않는 경우 2016 년에이 문제가 발생하는 사람은 –
입니다. –
위의 설명에 따라 링크가 수정되었습니다. – Gallus