[택배송장만들기] 거래처명 추출하기

VBA

작성자

수메리안

작성일

2022-06-08 15:42

조회

엑셀버전 : 엑셀2019

운영체제 : 윈도우10

안녕하세요, 고수님들~

언제나 이곳에서 많은 도움을 받아 회사업무에 유용하게 사용하고 있어 늘 감사드립니다^^

이번에는 거래처명을 추출하고자 합니다.

비고란의 텍스트중에서 오른쪽 끝에 있는 거래처명이나 또는 왼쪽 끝에 있는 거래처명을 가져오는 VBA를 짜서 활요하고 있는데

아쉬운점은 가져오는 글자수가 코딩에 정해져 있기 때문에 이 글자수입력창을 띄워 숫자를 입력하고 확인을 누르면 가져오고 싶습니다.

Sub 거래처명오른쪽채우기()
ActiveCell.Offset(0, -1).Value = Right(ActiveCell, 5)
End Sub

Sub 거래처명왼쪽채우기()

ActiveCell.Offset(0, -1).Value = Left(ActiveCell, 3)

End Sub

거래처명	비고란
고깃집-원종동
금은돈
더 소야소
돼지통 다산점
라더갈매기	대구광역시 달성군 다사읍 대실역북로1길 29-3 (매곡리) 105호 브라더갈매기
삼대장-묵동
술낭구본점
전성옥	전성옥 010-4706-4417 서울특별시 중구 퇴계로27길 45 (충무로3가) 1층 해든
연수뽈살집	신태섭 0502-2706-6510 충청북도 충주시 연수동 660 디딤돌이지학원 1층 연수뽈살집
육백뎐
육풍-문정법조단지점
육풍-문정법조단지점
제주아방-을지로
지금돼지
황금목장-본점

언제나 귀한 도움에 감사드립니다~^^)/

수메리안

회원등급 : 5레벨

포인트 : 263 EP

총질문 : 10 개 (마감율 : 90%)

채택답변 : 0 개

게시글

전체 1

수메리안 님 작성자

2022-06-08 17:31

유저폼을 만들어서 자체 해결했습니다~

Private Sub InputOK_Click()
ActiveSheet.Cells(1, 6).Value = Val(Quantity)
Unload TxtInput
End Sub

Sub 거래처명오른쪽채우기()
TxtInput.Show
ActiveCell.Offset(0, -1).Value = Right(ActiveCell, Cells(1, 6).Value)
End Sub

Sub 거래처명왼쪽채우기()

TxtInput.Show

ActiveCell.Offset(0, -1).Value = Left(ActiveCell, Cells(1, 6).Value)

End Sub

첨부파일 : 거래처명등록.xlsm

« 엑셀 계산 산식 도움 부탁드립니다.

다른 형식으로 작성된 시트간 데이터 복사 »

목록보기

전체 6,906

번호	카테고리	제목	작성자	작성일	추천	조회
알림		📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! (모집 마감) -- 📌 (99) 오빠두엑셀 \| 2022.06.23 \| 추천 144 \| 조회 17850	오빠두엑셀	2022.06.23	144	17850

공지사항	함수/공식	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (79) 오빠두엑셀 \| 2021.10.28 \| 추천 98 \| 조회 5347	오빠두엑셀	2021.10.28	98	5347
39103	VBA	New 특정 셀에 특정 값을 입력하면 msgbox 띄우기 (매크로 트리거) (1) 509 \| 01:45 \| 추천 0 \| 조회 6	509	01:45	0	6
39097	VBA	New Worksheet_Change 기능을 Module 에서 다루기 (1) 유지니_ \| 2022.07.06 \| 추천 0 \| 조회 12	유지니_	2022.07.06	0	12
39093	함수/공식	New 쉼표로 구분된 단어 끊는 방법좀 알려주세요! 부탁드립니다 (2) 답변완료 YJ \| 2022.07.06 \| 추천 0 \| 조회 20	YJ	2022.07.06	0	20
39092	함수/공식	New 정렬 기능 대신 3가지 순서로 RANK 매기기 (1) 블링블링 \| 2022.07.06 \| 추천 0 \| 조회 12	블링블링	2022.07.06	0	12
39087	VBA	New 바코드와 수량이 일치하면 중복 매대를 추출하는 매크로 결과값 오류 kkwak \| 2022.07.06 \| 추천 0 \| 조회 16	kkwak	2022.07.06	0	16
39082	함수/공식	New RANK와 RANK.EQ 함수 문의 (2) 답변완료 블링블링 \| 2022.07.06 \| 추천 0 \| 조회 17	블링블링	2022.07.06	0	17
39075	파워쿼리/피벗	New 파워쿼리 새로고침시 개인정보수준이라는 팝업이 뜨면서 에러가 납니다. 만땅 \| 2022.07.06 \| 추천 0 \| 조회 16	만땅	2022.07.06	0	16
39072	함수/공식	New 숙박일수 계산 추가질문드립니다. (1) 두키림 \| 2022.07.06 \| 추천 0 \| 조회 25	두키림	2022.07.06	0	25
39071	함수/공식	New 상태표시줄 관련 (2) 답변완료 선크 \| 2022.07.06 \| 추천 0 \| 조회 25	선크	2022.07.06	0	25
39070	함수/공식	New 함수? 사용해서 1시트의 내용을 2시트에 표시하는 방법좀 알려주세요 (3) 지펴린 \| 2022.07.06 \| 추천 0 \| 조회 25	지펴린	2022.07.06	0	25
39062	VBA	New 고급필터를 사용하여 추출한 데이터를 수정하면 원본 데이터 시트에서 수정되는 코드 해석 부탁드립니다 (2) 호랑이파워 \| 2022.07.06 \| 추천 0 \| 조회 36	호랑이파워	2022.07.06	0	36
39059	차트/그래프	New 슬라이서 다중 연동하여 원형차트 시 적용되지 않는 문제 지둥이 \| 2022.07.06 \| 추천 1 \| 조회 12	지둥이	2022.07.06	1	12
39052	VBA	New 파일 삭제 매크로가 한쪽 문구에서만 작동을 합니다. (1) 빼갈 \| 2022.07.06 \| 추천 0 \| 조회 21	빼갈	2022.07.06	0	21
39044	VBA	New 사용자정의함수를 다른PC에 적용 (2) 답변완료 siempre \| 2022.07.06 \| 추천 0 \| 조회 31	siempre	2022.07.06	0	31
39034	VBA	New 자동화 프로그램 항목 추가 관련 유라 \| 2022.07.06 \| 추천 0 \| 조회 39	유라	2022.07.06	0	39
39032	VBA	New VBA 고급자동필터 활용 조건 값이 비워 있을 때 결과 값도 안 나오게 하는 방범 문의 합니다. (4) 답변완료 파란맥 \| 2022.07.06 \| 추천 0 \| 조회 30	파란맥	2022.07.06	0	30
39019	함수/공식	New 엑셀 수식시 범위부분이 절대값이 안되요 (4) skih**** \| 2022.07.05 \| 추천 0 \| 조회 31	skih****	2022.07.05	0	31
39016	함수/공식	New vlookup으로 가져온 알파벳을 특정숫자로 바꾸는 방법(쌩초보) (1) 방성희 \| 2022.07.05 \| 추천 -2 \| 조회 32	방성희	2022.07.05	-2	32
39014	VBA	New 열 추가 문의 (2) 오대표 \| 2022.07.05 \| 추천 0 \| 조회 32	오대표	2022.07.05	0	32
39009	함수/공식	New index,match 함수 중에서 동일한 값이 나올때 (2) 답변완료 최사무엘 \| 2022.07.05 \| 추천 0 \| 조회 27	최사무엘	2022.07.05	0	27
39007	함수/공식	New VLOOKUP 조건에 맞는 것을 계속해서 나열하고 싶을 때 (1) 야자키겐스케 \| 2022.07.05 \| 추천 0 \| 조회 39	야자키겐스케	2022.07.05	0	39
39003	함수/공식	New 셀에서 영어만 추출하기 (2) 답변완료 킹셀 \| 2022.07.05 \| 추천 0 \| 조회 25	킹셀	2022.07.05	0	25
38996	VBA	New 현재 열넓이 확인후 20 더하는 방법 (1) 033cola \| 2022.07.05 \| 추천 0 \| 조회 34	033cola	2022.07.05	0	34
38990	함수/공식	New 중복값중에 하나만 더하기 (4) 답변완료 DS \| 2022.07.05 \| 추천 0 \| 조회 29	DS	2022.07.05	0	29
38987	함수/공식	New 행 열이 모두 숫자입니다. (1) DOUKCHEON 이재형 \| 2022.07.05 \| 추천 0 \| 조회 27	DOUKCHEON 이재형	2022.07.05	0	27
38983	함수/공식	New 카드번호별로 시트를 만들 수 있는 방법을 알고 싶습니다! - 관련 엑셀첨부 (1) showtime**** \| 2022.07.05 \| 추천 0 \| 조회 45	showtime****	2022.07.05	0	45
38982	파워쿼리/피벗	New 파워쿼리에서 영문과 숫자만 순서대로 추출 (6) 답변완료 아코니 \| 2022.07.05 \| 추천 0 \| 조회 41	아코니	2022.07.05	0	41
38981	구글시트	New COUNTIF 함수와 SUBTOTAL 거꾸로문 \| 2022.07.05 \| 추천 0 \| 조회 27	거꾸로문	2022.07.05	0	27
38979	문서서식	New 서로 다른 엑셀 파일 비교 (2) notice \| 2022.07.05 \| 추천 0 \| 조회 29	notice	2022.07.05	0	29
38976	함수/공식	New BOM 오류 확인 방법 문의 (4) 터브가이황 \| 2022.07.05 \| 추천 0 \| 조회 30	터브가이황	2022.07.05	0	30