바이트수를 보고 해당 함수를 반복하고 싶습니다.

VBA
작성자
프롭
작성일
2020-09-08 01:58
조회
37
안녕하세요

A1:A100 까지 또는 그 이상의 셀 각각의 내용들을

 

LENB 를 통해서 바이트 수를 구하고

 

만약 50 이상의 바이트수라면

 

=LEFT(B1, FIND("|",SUBSTITUTE(B1," ","|",LEN(B1)-LEN(SUBSTITUTE(B1," ",""))))-1)

 

와 같은 함수를 50이하가 될때까지 반복해서 D1:D100에 결과값을 표기하고 싶습니다.

 

vba를 써야할거 같은데 검색해봐도 힌트를 얻을 수가 없어서요.

 

혹시 어떤 식으로 vba가 작성해야하거나 기능을 써야하는지 검색을 뭘 해야하는지 힌트를 좀 얻을 수 있을까요?

 

=LEFTB를 통해서 50 단위로 짜르면 좋겠지만 그러면 단어가 이상하게 짤려서요..
프롭
회원등급 : 가지1단계
포인트 : 325 EP
전체 2

  • 2020-09-08 09:24

    안녕하세요.

    이미 함수를 잘 작성하셔서 VBA로도 쉽게 구현가능하실 듯 합니다.

    VBA에서는 Find 함수 대신 Instr 함수를 사용합니다.

    예를들어, i = Instr(1,"삼성그룹 하반기 3급 신입사원 채용", "하반기") 를 입력하면 i 는 6을 반환합니다.

    https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/instr-function

    이후 Left 함수로 문자열을 하나씩 잘라나가시면 됩니다.

    바이트 글자수를 세는 방법은 LenB 함수를 사용하시면 됩니다. 사용방법은 엑셀 함수와 동일합니다.

    https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/len-function

    50이상의 바이트 수 일때까지 자르는 방법은,

    Do Until LenB(문자열) < 50
    
    '문자열 자르기 명령문
    
    Loop

    형태로 명령문을 작성하시면 됩니다.

    제시해드린 답변이 도움이 되셨길 바랍니다.


    • 2020-09-10 17:39

      답변을 주셔서 감사합니다. 한번 해보도록 하겠습니다.


    전체 1,174
    번호 카테고리제목작성자작성일추천조회
    1170 VBA
    New VBA에서 변수로 영역 지정하는 방법과 구문의 구조에 대한 질문입니다
    공대생 | 2020.09.24 | 추천 0 | 조회 8
    공대생2020.09.2408
    1169 VBA
    New 웹 크롤링 관련 질문드립니다. (2)
    hall**** | 2020.09.24 | 추천 0 | 조회 17
    hall****2020.09.24017
    1168 함수/공식
    New NaverFinanceSearch 함수 기능 문의 첨부파일 (1)
    알파보이 | 2020.09.24 | 추천 0 | 조회 20
    알파보이2020.09.24020
    1167 차트/그래프
    New 동적범위를 이용한 날짜 합계 구하는 함수 문의 (1)
    째쨈 | 2020.09.24 | 추천 0 | 조회 24
    째쨈2020.09.24024
    1166 피벗테이블
    New 대량의 두개의 데이터를 합친후 데이터수정 및 합계결과 뽑아내는법이 궁금합니다 (1)
    자유인 | 2020.09.24 | 추천 0 | 조회 22
    자유인2020.09.24022
    1165 VBA
    New VBA 여러개 시트를 활용한 피벗데이블 질문 첨부파일 (2)
    sundaychefchef | 2020.09.23 | 추천 0 | 조회 28
    sundaychefchef2020.09.23028
    1164 VBA
    New if문의 조건에 대해 질문드립니다. (4)
    엑셀늅늅이 | 2020.09.23 | 추천 0 | 조회 25
    엑셀늅늅이2020.09.23025
    1163 함수/공식
    New 엑셀 배열을 합칠 수 있는 방법이 있을까요? (6)
    나그네 | 2020.09.23 | 추천 0 | 조회 33
    나그네2020.09.23033
    1162 함수/공식
    New 경우의 수 관련 질문드립니다. (6)
    speedoo | 2020.09.23 | 추천 0 | 조회 30
    speedoo2020.09.23030
    1161 함수/공식
    New 데이터 뽑기 첨부파일 (1)
    soung**** | 2020.09.23 | 추천 0 | 조회 35
    soung****2020.09.23035
    1160 VBA
    New 기초적인 질문 하나만 할께요 2차원 배열에서 range값을 배열로 받아서 다른 시트에 배열 붙여넣는 방법이 어떻게 되나요 (1)
    밍장군 | 2020.09.23 | 추천 0 | 조회 16
    밍장군2020.09.23016
    1159 VBA
    New (VBA) 도형서식 -> 채우기 -> 그림 또는 질감 채우기 -> 다음에서 그림 삽입 -> 클립보드 선택 구현 (1)
    건주 | 2020.09.23 | 추천 0 | 조회 24
    건주2020.09.23024
    1158 VBA
    New 엑셀이서도 검색어 자동완성기능을 구현할 수 있을까요? 첨부파일 (1)
    fre | 2020.09.23 | 추천 0 | 조회 23
    fre2020.09.23023
    1157 차트/그래프
    New 차트 최대값 및 Xfilter 함수 문의드립니다. (1)
    Elkins | 2020.09.23 | 추천 0 | 조회 22
    Elkins2020.09.23022
    1156 VBA
    New WorkSheet_Change 와 같은 사용자 정의 함수를 만드는 방법은 없나요? (1)
    엑셀늅늅이 | 2020.09.22 | 추천 0 | 조회 27
    엑셀늅늅이2020.09.22027
    1155 파워쿼리/피벗
    New 상단바가 잠금 걸렸는데 왜이러는지 모르겠습니다. 첨부파일 (4)
    신윤재 | 2020.09.22 | 추천 1 | 조회 26
    신윤재2020.09.22126
    1154 문서서식
    New 이미지 삽입 후 크기를 조절해도 압축되지 않고 원본 해상도 유지하는 방법? (5)
    악순환의 굴레 | 2020.09.22 | 추천 0 | 조회 25
    악순환의 굴레2020.09.22025
    1153 VBA
    New application.ontime 실행 시 멈추는 함수가 동작을 하지 않습니다 (재 질문, 오빠두 님 말대로 코드 수정 완료) - VBA 명령문 매 초마다 반복 (3)
    밍장군 | 2020.09.22 | 추천 0 | 조회 21
    밍장군2020.09.22021
    1152 함수/공식
    New 절대주소 고정했는데 셀 삽입하면 고정이 안되네요? (1)
    해랑사 | 2020.09.22 | 추천 0 | 조회 40
    해랑사2020.09.22040
    1151 기능/도구
    New 셀서식 왕초보 질문입니다! (3)
    Hannah | 2020.09.22 | 추천 0 | 조회 30
    Hannah2020.09.22030
    1150 VBA
    New 전역변수로 포맷까지 지정할 순 없나요? (2)
    밍장군 | 2020.09.22 | 추천 0 | 조회 19
    밍장군2020.09.22019
    1149 문서서식
    New 90일습관을 위한 엑셀 시트를 만들고 싶습니다. (3)
    파파깡 | 2020.09.22 | 추천 0 | 조회 36
    파파깡2020.09.22036
    1148 피벗테이블
    피벗으로 누적 데이터를 취하고 당일 실적을 별도로 뽑아서 (1)
    넘버원수박 | 2020.09.21 | 추천 0 | 조회 29
    넘버원수박2020.09.21029
    1147 함수/공식
    월별로 생산수량 나누기 첨부파일 (4)
    ejrdn**** | 2020.09.21 | 추천 0 | 조회 51
    ejrdn****2020.09.21051
    1146 함수/공식
    날짜 관련 데이터 추출 질문 드립니다. 첨부파일 (2)
    kh**** | 2020.09.21 | 추천 0 | 조회 35
    kh****2020.09.21035
    1145 VBA
    마지막 수정한 폴더이름 변수에 넣으려는데 오류가 나네요 (2)
    밍장군 | 2020.09.21 | 추천 0 | 조회 25
    밍장군2020.09.21025
    1144 함수/공식
    품목 중 중복인 항목의 각각 다른 특정값 합치는 방법? 첨부파일 (3)
    악순환의 굴레 | 2020.09.21 | 추천 0 | 조회 36
    악순환의 굴레2020.09.21036
    1143 함수/공식
    DDE 함수 내에 다른 셀에 있는 코드를 불러서 변수로 사용하는방법 좀 알려 주세요 ~ 첨부파일
    아이콘 | 2020.09.21 | 추천 0 | 조회 25
    아이콘2020.09.21025
    1142 함수/공식
    OFFSET 함수 ㅜㅜ 첨부파일 (1)
    gudwns**** | 2020.09.21 | 추천 0 | 조회 37
    gudwns****2020.09.21037
    1141 VBA
    엑셀 VBA 파일 합치기 질문드려요.. 첨부파일 (1)
    박상억 | 2020.09.21 | 추천 0 | 조회 26
    박상억2020.09.21026