VBA split 관련 문의드립니다.

VBA
작성자
아무것도몰라요
작성일
2022-05-07 22:02
조회
68
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

안녕하세요

inputbox에 쉼표로 연결해서 입력하면 split으로 나눠서 입력하는 유저폼을 제작 중입니다.

나눠서 입력하는 것 까지는 성공했는데,

쉼표가 없는 단어일 때는 나누지 않고 그대로 입력하려고 하는데, 아무리 수정해도 입력이 안돼서 조언을 구합니다. ㅜㅜ

Private Sub ListAdd_Click()
 
    Dim InputText As String
    Dim splitText As Variant
    Dim s As Variant
 
    InputText = InputBox("추가할 단어를 입력하세요", "단어 추가")
 
    If InStr(InputText, ",") Then
    splitText = Split(InputText, ",")
    For Each s In splitText
 
    If s <> "" And Button1.Value = True Then
    ListBox1.AddItem s
    End If
    Next
    End If
 
End Sub

 

 

전체 5

  • 2022-05-08 00:16
    채택된 답변

    이 부분을 지워버리면 됩니다.

    If InStr(InputText, ",") Then
    
    End IF

    이것만 있어도 훌륭히 실행됩니다.

        InputText = InputBox("추가할 단어를 입력하세요", "단어 추가")
        splitText = Split(InputText, ",")
        For Each s In splitText
            If s <> "" And Button1.Value = True Then
                ListBox1.AddItem s
            End If
        Next

    Split을 사용하면 구분자가 있든 없든 무조건 Array를 반환하므로

    For Each s In splitText에서 에러가 나지 않고 Array멤버수와 상관없이 정상적으로 실행됩니다.


    • 2022-05-08 00:54

      @원조백수 님 우와~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 없어도 되는군요. 이렇게 하니 리스트박스2개에 입력하는 것도 해결되네요 감사합니다. 흑흑흑


    • 2022-05-08 01:12

      @원조백수 님 생각을 바꾸니 코드가 정말 심플하군요.

      많이 배우고 갑니다. 감사합니다.


  • 2022-05-07 23:53

    @아무것도몰라요님,

    Next 다음문장을 조금만 가다듬으면 되겠네요.

    수고하세요.

    Private Sub ListAdd_Click()
     
        Dim InputText As String
        Dim splitText As Variant
        Dim s As Variant
     
        InputText = InputBox("추가할 단어를 입력하세요", "단어 추가")
     
        If InStr(InputText, ",") Then
            splitText = Split(InputText, ",")
            For Each s In splitText
                If s <> "" And Button1.Value = True Then
                    ListBox1.AddItem s
                End If
            Next
        Else         '<--- 추가
            ListBox1.AddItem InputText       '<--- 추가
        End If
     
    End Sub

     


    • 2022-05-08 00:57

      @Jas 님 Else를 Next 다음에 둬야 하는군요! 아직 구조적인 부분이 많이 어렵네요. 답변 감사합니다!!!! 좋은 주말되세요~~!


전체 6,437
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 진짜쓰는 실무엑셀 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (8)
오빠두엑셀 | 2022.04.30 | 추천 9 | 조회 1186
오빠두엑셀 2022.04.30 9 1186
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (65)
오빠두엑셀 | 2021.10.28 | 추천 80 | 조회 4475
오빠두엑셀 2021.10.28 80 4475
34324 문서서식
New 하이퍼링크 셀 선택 첨부파일
쎄이 | 20:47 | 추천 0 | 조회 5
쎄이 20:47 0 5
34322 기능/도구
New 시트 갈때마다 맨위로 이동시키는 방법
naver_60f182128c054 | 20:12 | 추천 0 | 조회 10
naver_60f182128c054 20:12 0 10
34318 대시보드
New 생일명단 및 육아휴직명단 추출 첨부파일 (2)
사막여우 | 17:50 | 추천 0 | 조회 24
사막여우 17:50 0 24
34311 문서서식
New [조건부서식] 기초 질문 첨부파일 (1)
일신우일신J | 15:47 | 추천 0 | 조회 24
일신우일신J 15:47 0 24
34310 VBA
New 세로 블록 쌓기 데이터를 보고서 형식으로 만드는 방법 좀 알려주세요. (1)
silverf**** | 15:43 | 추천 0 | 조회 24
silverf**** 15:43 0 24
34307 함수/공식
New 수식 미입력 오류 문의 (2)
wh**** | 14:45 | 추천 0 | 조회 32
wh**** 14:45 0 32
34306 함수/공식
New 함수풀이 부탁 드립니다. (1)
syri**** | 14:27 | 추천 0 | 조회 32
syri**** 14:27 0 32
34298 차트/그래프
New 월별 프로젝트 공수현황 차트 및 그래프형태로 모니터링하고싶습니다. (2)
jyk0077@hanmail.net | 11:19 | 추천 -2 | 조회 31
jyk0077@hanmail.net 11:19 -2 31
34296 함수/공식
New (첨부) 2개의 문자열을 조합하여 1열로 줄세우는 방법 문의 첨부파일 (4) 답변완료
gsmoust@naver.com | 10:53 | 추천 0 | 조회 34
gsmoust@naver.com 10:53 0 34
34290 VBA
New VBA 고급필터 매크로 좀 봐주세요 첨부파일 (6) 답변완료
jsb**** | 09:18 | 추천 0 | 조회 37
jsb**** 09:18 0 37
34289 VBA
New 시트클릭(시트1)시 다른시트(시트2)에서 일 실행 후 클릭한 원래시트(시트1)의 특정 셀을 선택하는 경우 오류가 납니다. (2)
emfro | 07:45 | 추천 0 | 조회 18
emfro 07:45 0 18
34285 함수/공식
New 중복값 중에서 특정값만 필터되도록 만들고 싶습니다 (4)
mycom**** | 2022.05.22 | 추천 0 | 조회 52
mycom**** 2022.05.22 0 52
34280 VBA
New 재고 강의에서 숫자로 입력된 텍스트 (1)
잇채 | 2022.05.22 | 추천 0 | 조회 25
잇채 2022.05.22 0 25
34278 VBA
New 월요일 ~일요일까지 입력할 VBA 명령어 첨부파일 (2) 답변완료
033cola | 2022.05.22 | 추천 0 | 조회 35
033cola 2022.05.22 0 35
34276 VBA
New WorksheetFunction 클래스중 VLOOKUP 속성을 구할수 없습니다 에러 (1)
Hellohoney | 2022.05.22 | 추천 0 | 조회 26
Hellohoney 2022.05.22 0 26
34264 VBA
New VBA 크롬 크롤링 웹 데이터 가져오기 (3) 답변완료
이용재 | 2022.05.21 | 추천 0 | 조회 53
이용재 2022.05.21 0 53
34260 함수/공식
New 데이터필터가 적용된 값의 연속손실수 계산 질문드립니다!
브라우니 | 2022.05.21 | 추천 0 | 조회 40
브라우니 2022.05.21 0 40
34258 기능/도구
New 윗 셀의 속성이 아래 열에 자동으로 복사되도록 하는 방법이 없을까요? 첨부파일 (2) 답변완료
forest choi | 2022.05.21 | 추천 0 | 조회 42
forest choi 2022.05.21 0 42
34257 VBA
New 내용이 다른 상장을 각각 개별로 카톡으로 전송 할수있는 엑셀매크로 가능할까요? (1)
pre2**** | 2022.05.21 | 추천 0 | 조회 21
pre2**** 2022.05.21 0 21
34256 함수/공식
New 년도 날짜 변환하는방법 알려주세요 (4) 답변완료
카페모아 | 2022.05.21 | 추천 0 | 조회 50
카페모아 2022.05.21 0 50
34249 문서서식
New 조건부 서식에서 행 색상 교차 응용?(동일 데이터가 아니라면 색상변경) 첨부파일 (1) 답변완료
동그란사자 | 2022.05.21 | 추천 0 | 조회 30
동그란사자 2022.05.21 0 30
34248 VBA
New 셀 선택 영역 이미지 저장 매크로 수정 부탁 드립니다. 첨부파일
쎈영어 | 2022.05.20 | 추천 0 | 조회 34
쎈영어 2022.05.20 0 34
34247 함수/공식
행번호 자동으로 부여하기 첨부파일 (4) 답변완료
ejrdn**** | 2022.05.20 | 추천 2 | 조회 75
ejrdn**** 2022.05.20 2 75
34243 기능/도구
수식걸려있는데이터_오름차순,내림차순 정렬 안됨 문의 첨부파일 (3)
가족 | 2022.05.20 | 추천 0 | 조회 39
가족 2022.05.20 0 39
34241 함수/공식
열 전체에 기준 값을 두어서 팝업 띄우는 법 (5)
ssy**** | 2022.05.20 | 추천 0 | 조회 40
ssy**** 2022.05.20 0 40
34240 함수/공식
연령대별 인원수를 구할때 첨부파일 (3) 답변완료
구름나그네 | 2022.05.20 | 추천 0 | 조회 36
구름나그네 2022.05.20 0 36
34238 기능/도구
시스템 리소스사 부족하여 완전... (1)
DOUKCHEON 이재형 | 2022.05.20 | 추천 0 | 조회 39
DOUKCHEON 이재형 2022.05.20 0 39
34237 피벗테이블
피벗과 슬라이서 데이터 표시 서식 문제 첨부파일 (4) 답변완료
퐁듀 | 2022.05.20 | 추천 0 | 조회 45
퐁듀 2022.05.20 0 45
34236 차트/그래프
기준과 데이터칸이 동시에 움직일 수 있는 방법 첨부파일 (1)
엑셀엑셀로로 | 2022.05.20 | 추천 0 | 조회 34
엑셀엑셀로로 2022.05.20 0 34
34233 함수/공식
값입력 후 조건을 만족하면 카운트 될 수있게 하고싶은데 어케해야되나요?ㅜ 첨부파일 (1)
오빵두 | 2022.05.20 | 추천 0 | 조회 47
오빵두 2022.05.20 0 47