내 워크 시트의 특정 값을 채우기 위해 Access에 쿼리를 보내려고합니다. 현재 사용자의 로그인 이름을 가져 와서 열을 살펴보면이 워크 시트를 얻을 수 있습니다. 이 열은 액세스의 열에 따라 업데이트됩니다. 필요한 값은 검색하는 열의 오른쪽 열에 있습니다. 내 VLookup이 작동하도록 임시 시도로 아래 코드가 있습니다.
Private Sub CommandButton1_Click()
Dim user, cUser As String
user = (Environ$("Username"))
cUser = Application.WorksheetFunction.VLookup(user, Worksheets("Sheet1").Range("C2:C1000"), -2, False)
Worksheets("Sheet1").Range("F1").Value = cUser
End Sub
필요한 값을 F1 셀에 가져 오려고합니다. 이것이 작동하면 값을 변수에 넣고 이것을 내 쿼리에 추가합니다. 또한 오류 처리를 삽입하여 코드가 계속 작동하도록 할 것이지만 지금은 열에있는 1 개의 값에 대해서만 작동하도록하겠습니다.
대신 이것을 시도하십시오.
Private Sub CommandButton1_Click()
Dim user As String, cUser As String '// Note you have to declare the type each time!
user = Environ$("USERNAME")
cUser = Sheets("Sheet1").Range("C:C").Find(user).Offset(, -2).Value
Sheets("Sheet1").Range("F1").Value = cUser
End Sub
다시 단순화 할 수 있습니다.
Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("F1").Value = Sheets("Sheet1").Range("C:C").Find(Environ$("USERNAME")).Offset(, -2).Value
End Sub
vlookup은 단순히 수행하려는 작업에 적합하지 않습니다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다