책 내용 질문하기
엑셀 > 프로시저 >무작정 따라하기 6번
도서
2021 시나공 컴퓨터활용능력 1급 실기
페이지
238
조회수
365
작성일
2021-06-10
작성자
탈퇴*원
첨부파일

식을 다음과 같이 작성하고

 

Private Sub cmd조회_Click()
입력행 = Range("B3").CurrentRegion.Rows.Count - 1
txt판매일자.Value = Cells(입력행, 2)
txt제품명.Value = Cells(입력행, 3)
txt수량.Value = Cells(입력행, 4)
txt단가.Value = Cells(입력행, 5)
End Sub

 

임의로 숫자를 입력해본 후 조회를 클릭했는데

 

사진과 같이 결과가 나왔습니다. 도대체 어떤 부분이 잘못 된 것인 지 모르겠습니다....죄송합ㄴㅣ다... 질문 자주 올려서... 

답변
2021-06-13 13:34:51

Private Sub cmd조회_Click()

    기준행위치 = [b3].Row

    기준범위행수 = [b3].CurrentRegion.Rows.Count - 1

    입력행 = 기준행위치 + 기준범위행수

    txt판매일자.Value = Cells(입력행, 2)

    txt제품명.Value = Cells(입력행, 3)

    txt수량.Value = Cells(입력행, 4)

    txt단가.Value = Cells(입력행, 5)

End Sub

 

빨간색으로 표시된 부분이 마지막 자료를 조회하는 코드 입니다. 

 

작성하신 코드에는 

 

입력행 = Range("B3").CurrentRegion.Rows.Count - 1 

 

만 지정되어 있어서 정확한 결과가 나오지 않는 것 같습니다. 

 

기준행 위치와 기준범위행수를 더해서 마지막 값이 표시될 수 있도록 작성해 보세요. 

 

 

좋은 하루 되세요. 

  • 관리자
    2021-06-13 13:34:51

    Private Sub cmd조회_Click()

        기준행위치 = [b3].Row

        기준범위행수 = [b3].CurrentRegion.Rows.Count - 1

        입력행 = 기준행위치 + 기준범위행수

        txt판매일자.Value = Cells(입력행, 2)

        txt제품명.Value = Cells(입력행, 3)

        txt수량.Value = Cells(입력행, 4)

        txt단가.Value = Cells(입력행, 5)

    End Sub

     

    빨간색으로 표시된 부분이 마지막 자료를 조회하는 코드 입니다. 

     

    작성하신 코드에는 

     

    입력행 = Range("B3").CurrentRegion.Rows.Count - 1 

     

    만 지정되어 있어서 정확한 결과가 나오지 않는 것 같습니다. 

     

    기준행 위치와 기준범위행수를 더해서 마지막 값이 표시될 수 있도록 작성해 보세요. 

     

     

    좋은 하루 되세요. 

· 5MB 이하의 zip, 문서, 이미지 파일만 가능합니다.
· 폭언, 욕설, 비방 등은 관리자에 의해 경고없이 삭제됩니다.