[택배송장만들기] 거래처명 추출하기
VBA
작성자
수메리안
작성일
2022-06-08 15:42
조회
56
안녕하세요, 고수님들~
언제나 이곳에서 많은 도움을 받아 회사업무에 유용하게 사용하고 있어 늘 감사드립니다^^
이번에는 거래처명을 추출하고자 합니다.
비고란의 텍스트중에서 오른쪽 끝에 있는 거래처명이나 또는 왼쪽 끝에 있는 거래처명을 가져오는 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층 연수뽈살집 |
육백뎐 | |
육풍-문정법조단지점 | |
육풍-문정법조단지점 | |
제주아방-을지로 | |
지금돼지 | |
황금목장-본점 |
언제나 귀한 도움에 감사드립니다~^^)/
전체 6,906
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! (모집 마감) -- 📌 (99)
![]() ![]() |
![]() ![]() |
2022.06.23 | 144 | 17850 | ||
공지사항 | 함수/공식 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(79)
오빠두엑셀
|
2021.10.28
|
추천 98
|
조회 5347
|
![]() ![]() |
2021.10.28 | 98 | 5347 |
39103 | VBA |
New 특정 셀에 특정 값을 입력하면 msgbox 띄우기 (매크로 트리거)
(1)
![]() |
![]() |
01:45 | 0 | 6 |
39097 | VBA |
New Worksheet_Change 기능을 Module 에서 다루기
(1)
![]() |
![]() |
2022.07.06 | 0 | 12 |
39093 | 함수/공식 |
New 쉼표로 구분된 단어 끊는 방법좀 알려주세요! 부탁드립니다
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 20 |
39092 | 함수/공식 |
New 정렬 기능 대신 3가지 순서로 RANK 매기기
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 12 |
39087 | VBA |
New 바코드와 수량이 일치하면 중복 매대를 추출하는 매크로 결과값 오류
![]() ![]() |
![]() |
2022.07.06 | 0 | 16 |
39082 | 함수/공식 |
New RANK와 RANK.EQ 함수 문의
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 17 |
39075 | 파워쿼리/피벗 |
New 파워쿼리 새로고침시 개인정보수준이라는 팝업이 뜨면서 에러가 납니다.
![]() ![]() |
![]() |
2022.07.06 | 0 | 16 |
39072 | 함수/공식 |
New 숙박일수 계산 추가질문드립니다.
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 25 |
39071 | 함수/공식 |
New 상태표시줄 관련
![]() ![]() |
![]() |
2022.07.06 | 0 | 25 |
39070 | 함수/공식 |
New 함수? 사용해서 1시트의 내용을 2시트에 표시하는 방법좀 알려주세요
![]() ![]() |
![]() |
2022.07.06 | 0 | 25 |
39062 | VBA |
New 고급필터를 사용하여 추출한 데이터를 수정하면 원본 데이터 시트에서 수정되는 코드 해석 부탁드립니다
![]() ![]() |
![]() |
2022.07.06 | 0 | 36 |
39059 | 차트/그래프 |
New 슬라이서 다중 연동하여 원형차트 시 적용되지 않는 문제
![]() ![]() |
![]() |
2022.07.06 | 1 | 12 |
39052 | VBA |
New 파일 삭제 매크로가 한쪽 문구에서만 작동을 합니다.
![]() ![]() |
![]() |
2022.07.06 | 0 | 21 |
39044 | VBA |
New 사용자정의함수를 다른PC에 적용
(2)
답변완료
![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 31 |
39034 | VBA |
New 자동화 프로그램 항목 추가 관련
![]() |
![]() |
2022.07.06 | 0 | 39 |
39032 | VBA |
New VBA 고급자동필터 활용 조건 값이 비워 있을 때 결과 값도 안 나오게 하는 방범 문의 합니다.
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 30 |
39019 | 함수/공식 |
New 엑셀 수식시 범위부분이 절대값이 안되요
![]() ![]() |
![]() |
2022.07.05 | 0 | 31 |
39016 | 함수/공식 |
New vlookup으로 가져온 알파벳을 특정숫자로 바꾸는 방법(쌩초보)
(1)
![]() |
![]() |
2022.07.05 | -2 | 32 |
39014 | VBA |
New 열 추가 문의
![]() ![]() |
![]() |
2022.07.05 | 0 | 32 |
39009 | 함수/공식 |
New index,match 함수 중에서 동일한 값이 나올때
![]() ![]() |
![]() |
2022.07.05 | 0 | 27 |
39007 | 함수/공식 |
New VLOOKUP 조건에 맞는 것을 계속해서 나열하고 싶을 때
![]() ![]() |
![]() |
2022.07.05 | 0 | 39 |
39003 | 함수/공식 |
New 셀에서 영어만 추출하기
![]() ![]() ![]() |
![]() |
2022.07.05 | 0 | 25 |
38996 | VBA |
New 현재 열넓이 확인후 20 더하는 방법
(1)
![]() |
![]() |
2022.07.05 | 0 | 34 |
38990 | 함수/공식 |
New 중복값중에 하나만 더하기
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.05 | 0 | 29 |
38987 | 함수/공식 |
New 행 열이 모두 숫자입니다.
![]() ![]() |
![]() |
2022.07.05 | 0 | 27 |
38983 | 함수/공식 |
New 카드번호별로 시트를 만들 수 있는 방법을 알고 싶습니다! - 관련 엑셀첨부
![]() ![]() ![]() |
![]() |
2022.07.05 | 0 | 45 |
38982 | 파워쿼리/피벗 |
New 파워쿼리에서 영문과 숫자만 순서대로 추출
(6)
답변완료
![]() |
![]() |
2022.07.05 | 0 | 41 |
38981 | 구글시트 |
New COUNTIF 함수와 SUBTOTAL
![]() ![]() ![]() |
![]() |
2022.07.05 | 0 | 27 |
38979 | 문서서식 |
New 서로 다른 엑셀 파일 비교
![]() ![]() |
![]() |
2022.07.05 | 0 | 29 |
38976 | 함수/공식 |
New BOM 오류 확인 방법 문의
![]() ![]() |
![]() |
2022.07.05 | 0 | 30 |
유저폼을 만들어서 자체 해결했습니다~
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