고유 ID를 검색하여 데이터를 가져옵니다.

VBA를 처음 사용합니다. 방금 양식을 만들고 Excel을 채 웁니다. 고유 ID를 찾으면 정보를 가져 오는 새 단추를 만드는 방법이 있는지 알고 싶습니다.고유 ID를 검색하여 데이터를 가져옵니다.

Unique ID Name  Place 
1   John Doe X 
2   Jane Doe Y 
3   Tim Doe Z

그래서 예를 들어, 형태, 다음 "추가"하는 내가 가지고있는 "검색"하고 싶은 (워크 시트에서 데이터를 가져) : 여기에 난을 입력합니다 예를 들어

고유 ID 및 다른 모든 셀에 정보가 채워져 있어야합니다.

자세한 정보를 제공해야한다면 죄송합니다. 나는 VBA를 처음 사용합니다. 필요한 경우 코드를 복사하여 붙여 넣을 수 있습니다.

정보를 추가하고 "이 부분 추가"를 누르면 자동 완성으로 행 (A1 : 고유 ID, B1 : 이름, C1 : 장소)에서 Excel에 완료됩니다.

"검색"과 같은 다른 단추를 추가하려면 다음을 수행하십시오. 클릭> 고유 ID 요청> 입력 된 데이터를 찾습니다.> 정보가있는 텍스트 상자를 채우는 경우 (SR이있는 행 A : A)

enter image description here

출처

2013-02-23 Adrian Martin

코드를 표시하는 것이 좋습니다. 이상적으로는 수행하려는 내용을 보여주는 간결한 샘플입니다. –

제목에 태그를 넣지 마십시오 (질문에 포함되지 않은 경우) –

@DanieleArmanasco가 수정되었습니다. 감사합니다! –

나는 초기 하위 버튼을 만들 쓸 수있을만큼 능숙 같은데? 또한 나는, 당신은 고유 ID 만 1 열있어 가정하고 말 열 A

당신은 내가 제공 할 수있는 정보를 더 필요하지만,이 세포를 찾아 당신의 텍스트 상자를 변경하는 공간을 제공됩니다

Sub Find_Id() 
    Dim rng1 As Range 
    Dim strSearch As String 
    strSearch = inputbox("Enter a Unique Id", "User Input") 
    If strSearch = vbNullString then exit sub 

    Set rng1 = Range("A:A").Find(strSearch, , xlValues, xlWhole) 
    If Not rng1 Is Nothing Then 
     'set text box values using rng1.offset(0, column offset).value 
     TbxAddStep.value = rng1.offset(0, 1).value 
    Else 
     'clear texboxes 
    End if 

End Sub

값.

출처

2013-02-25 09:41:41 glh

고유 ID를 검색하여 데이터를 가져옵니다.

답변

관련 문제