유저 입력 폼에서 입력한 값을 시트에 있는지 실시간 알려주는 vba

VBA
작성자
다섯방울
작성일
2021-12-27 17:29
조회
81
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

판매 엑셀 매크로 작성중에 이름과 ID를 입력하면 시트에 참조하여 있으면 textbox에 있다나 '당골'등 이렇게 표시되도록 하는 방법이 없을까요?

위의 사진처럼 '재구매' 이렇게 넣고 싶습니다.

회원등급 : 잎새등급
포인트 : 86 EP
총질문 : 1 개 (마감율 : 100%)
채택답변 : 0 개
전체 4

  • 2021-12-27 21:32
    채택된 답변
    Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    For Each r In Range("B2:B4")
        If r.Value = Me.TextBox1.Value Then
            Me.Label1.Visible = True
            Exit Sub
        End If
    Next
    
    Me.Label1.Visible = False
    End Sub

    GIF.gif

    첨부파일 : 통합-문서1.xlsm


    • 2021-12-28 16:37

      @엑셀은즐거워 님 우선 감사합니다. 하지만 제가 아직 초보라 저의 vba에 적용하니 몇가지 기능이 재대로 작동하지 않아 이렇게 염치없지만 물어봅니다.

      1. 예제파일에서는 라벨1의 Visible이 True이던데 저는 True를 하니 처음부터 보여지더군요. 이점은 False으로 해결은 되는데 왜그런지 궁금하더군요.
      2. 영상을 첨부하였지만 값을 입력시 되긴하는데 모두 지워지던가 즉 값이 없을시 라벨1이 보여지더군요. 글 적다보니 1번도 처음 실행시 값이 없으니 보여지는것 같습니다. 물론 if Me.pNameID.Value = "" Then Me.pRegular.Visible = False 이렇게 해도 결과는 같더군요.
      3. 소스에서는 1개의 열을 정하셨는데 2개도 가능한지요?
      4. 전 With을 사용하여 시트를 정했는데 다른 방법이 있는지요? 이것때문에 이런 결과가 나오는것 같은데 도통 모르겠습니다.
      전 고객시트 값이 userWS입니다.

      추가로 여유가 되시면 lstMain 목록에서 클릭시 값을 텍스트박스에 넣는데 이때 비교하여 라벨1을 보여줄지 말지 판단할수 있을까요? 사진을 보시면 알수 있을 것입니다.

      긴글 읽어주셔서 감사합니다. 또한 물음에 답주셨는데 염치없이 또 물어 보네요. -_-

      파일 용량이 커서 링크로 남깁니다.

      https://github.com/innks/innks.github.io/blob/master/2021-12-28-16-11-35.gif
      다운로드 하셔서 보면 편합니다.

      저에게 적용한 소스도 남깁니다.

      Private Sub pNameID_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
      Dim r As Variant
      With userWS
      For Each r In .Range("D2:D1000")
          If r.Value = Me.pNameID.Value Then
              Me.pRegular.Visible = True
              Exit Sub
          End If
      Next
      Me.pRegular.Visible = False
      End With
      End Sub

      • 2021-12-30 13:06

        @다섯방울 님 열 2개도 가능합니다.

        For 문으로 i 를 열 번호로 돌아가면서

        .Cells(i,2) & .Cells(i,3) = xxx...

        이런 식으로 코드를 처리하면 됩니다.

        나머지는 직접 해결하셔야 하는 부분이기에..^^ 건승을 빕니다.


        • 2021-12-30 13:20

          @엑셀은즐거워 님 네 감사합니다. ^^


전체 5,132
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (28)
트로피 오빠두엑셀 | 2021.10.12 | 추천 22 | 조회 752
트로피 오빠두엑셀 2021.10.12 22 752
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (21)
오빠두엑셀 | 2021.10.28 | 추천 28 | 조회 2341
트로피 오빠두엑셀 2021.10.28 28 2341
26058 기능/도구
New 자동필터 복사 범위 풀림 오류
허영진 | 10:29 | 추천 0 | 조회 8
허영진 10:29 0 8
26050 함수/공식
New 행과 열의 합의 함수를 알고 싶어요! (1)
Goldhajin | 00:45 | 추천 0 | 조회 32
Goldhajin 00:45 0 32
26041 VBA
New 일정시간이 지나면 MsgBOX로 알림창이 뜨게 하고싶습니다. (2)
을지지뢰 | 2022.01.17 | 추천 0 | 조회 36
을지지뢰 2022.01.17 0 36
26035 함수/공식
New 특정날짜와 시간 고정해서 데이터 추출방법 도와주세요 (4)
박현욱 | 2022.01.17 | 추천 0 | 조회 38
박현욱 2022.01.17 0 38
26033 함수/공식
New 필터 함수를 인덱스 매치 함수로 변환하는 어려움 첨부파일 (1)
미르 | 2022.01.17 | 추천 0 | 조회 27
미르 2022.01.17 0 27
26030 함수/공식
New 원본표에서 일정 조건의 내용을 추출하여 새로운 표에 자료 넣기 첨부파일 (2)
알면서 | 2022.01.17 | 추천 0 | 조회 22
알면서 2022.01.17 0 22
26029 기능/도구
New 필터에서 상하위 % 추출 안됨 오류 첨부파일 (2)
알면서 | 2022.01.17 | 추천 0 | 조회 17
알면서 2022.01.17 0 17
26026 함수/공식
New 한 셀에 입력된 문장 중 조건에 만족하는 문장 개수 함수 (4)
삐약이 | 2022.01.17 | 추천 0 | 조회 27
삐약이 2022.01.17 0 27
26025 기능/도구
New 셀 내용을 지우면 특정 셀 내용도 같이 삭제되는 기능? 첨부파일 (2) 답변완료
올리주인 | 2022.01.17 | 추천 1 | 조회 33
올리주인 2022.01.17 1 33
26023 VBA
New VBA 사용자정의폼 show 0 명령어 (1)
병욱 | 2022.01.17 | 추천 0 | 조회 29
병욱 2022.01.17 0 29
26022 VBA
New 거래처별 파일 나누기 첨부파일
silli**** | 2022.01.17 | 추천 0 | 조회 33
silli**** 2022.01.17 0 33
26015 함수/공식
New 혹시 Crtl + F 찾기 같은 함수와 있나요 (1)
태혁 | 2022.01.17 | 추천 0 | 조회 49
태혁 2022.01.17 0 49
26014 차트/그래프
New 해당 스크린샷의 그래프를 어떻게 만드는지 알려주세요 (1)
민석 | 2022.01.17 | 추천 0 | 조회 23
민석 2022.01.17 0 23
26005 함수/공식
New 한 숫자값에 대한, 홀수/짝수값을 나열하고 싶습니다. (6) 답변완료
땅콩구리아빠 | 2022.01.17 | 추천 0 | 조회 36
땅콩구리아빠 2022.01.17 0 36
26000 VBA
New Rng.find 함수로 찾은 값을 DB안에 넣고싶습니다. (2)
가을전어 | 2022.01.16 | 추천 0 | 조회 33
가을전어 2022.01.16 0 33
25994 함수/공식
New 날짜 입력하면 당일 주야간 합구하는 함수나 방법을 배우러 왔습니다. (1)
현주아빠 | 2022.01.16 | 추천 0 | 조회 32
현주아빠 2022.01.16 0 32
25993 VBA
New workday 함수를 vba로.. (1)
Hong | 2022.01.16 | 추천 0 | 조회 30
Hong 2022.01.16 0 30
25989 차트/그래프
New 표 자동 입력 첨부파일 (2) 답변완료
미르 | 2022.01.16 | 추천 0 | 조회 43
미르 2022.01.16 0 43
25983 함수/공식
New 년도에 따른 출장 일수 구하고 싶은데 도움 부탁드립니다. (1)
kjin1020@naver.com | 2022.01.16 | 추천 0 | 조회 26
kjin1020@naver.com 2022.01.16 0 26
25982 함수/공식
New 입력하면 옆 셀에 자동으로 '1'이 입력되는 방법 (1) 답변완료
올리주인 | 2022.01.16 | 추천 0 | 조회 52
올리주인 2022.01.16 0 52
25973 함수/공식
New index match로 불러온 여러 목록의 사진을 다시 취합해서 불러오고 싶습니다. 첨부파일
배고픈콩콩 | 2022.01.16 | 추천 0 | 조회 38
배고픈콩콩 2022.01.16 0 38
25969 VBA
New 검색한 셀의 가로열 전부를 복사하는 방법이 알고 싶습니다. vba
ㅈㄱㄹ | 2022.01.16 | 추천 0 | 조회 25
ㅈㄱㄹ 2022.01.16 0 25
25945 함수/공식
New if 함수 중첩 (3)
shheee | 2022.01.15 | 추천 0 | 조회 55
shheee 2022.01.15 0 55
25938 기능/도구
New 수식이 포함된 시트에서 수식이 입력된 셀을 제외한 셀을 선택하는 방법을 알고자 합니다 (1)
yya**** | 2022.01.15 | 추천 0 | 조회 36
yya**** 2022.01.15 0 36
25932 문서서식
안녕하세요...도움을 요청합니다. 첨부파일 (1)
violet**** | 2022.01.15 | 추천 0 | 조회 51
violet**** 2022.01.15 0 51
25919 함수/공식
중복일 경우 1개만 카운트 첨부파일 (3) 답변완료
s77**** | 2022.01.14 | 추천 0 | 조회 85
s77**** 2022.01.14 0 85
25918 함수/공식
대출 이자율을 구하는 함수가 있을까요? (3)
늦깎이 | 2022.01.14 | 추천 0 | 조회 61
늦깎이 2022.01.14 0 61
25909 문서서식
셀값에 보이지 않는 값이 있습니다 이게 뭔지 알려주세요ㅠㅠ 첨부파일 (2) 답변완료
닉으로 | 2022.01.14 | 추천 0 | 조회 64
닉으로 2022.01.14 0 64
25908 함수/공식
혹시 매주 월요일마다 자동 작성되게 할 수 있나요? (5)
태혁 | 2022.01.14 | 추천 0 | 조회 90
태혁 2022.01.14 0 90
25905 대시보드
데이터 관리 때문에 질문 드립니다. 첨부파일 (4)
콜럼버스 | 2022.01.14 | 추천 0 | 조회 51
콜럼버스 2022.01.14 0 51