발주요청서를 만드는데 [순차적으로 번호입력하기] 질문드립니다~

VBA
작성자
수메리안
작성일
2022-05-15 00:20
조회
50
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

항상 고수님들의 도움에 감사드립니다~

회사에서 발주요청서를 만드는데 아래와 같이 막힌 부분이 있어 도움을 요청드립니다.

상품코드에 따라 라인번호를 순차적으로 입력되게 하고 싶습니다.

가령 상품코드가 AX502201 이면 첫행에  001, 그 다음행에 002, 003, ...

그 다음에 상품코드가 AX503301 이면 다시 001, 그 다음행에 002, 003, ... 이런 식으로 입력이 되게 하고 싶습니다.

Sub 라인번호()
Dim OrderPaper As Worksheet
Dim FirstWord As String
Dim LineNo As String
Dim i As Integer

Set OrderPaper = ThisWorkbook.Worksheets("발주요청서")

Endrow = OrderPaper.Cells(Rows.Count, "A").End(xlUp).Row

For i = 0 To Endrow
FirstWord = Left(OrderPaper.Range("E" & i), 1)
LineNo = 001
If FirstWord Like "[AX502201.]" Then
OrderPaper.Cells(i, 5) = LineNo
OrderPaper.Cells(i + 1, 5) = LineNo + 1

Else
End If

Next

이 다음에 어떻게 해야 하나요?  고수님들의 도움을 요청드립니다~

감사합니다.

End Sub

 

 

 

 

 

 

 

 

 

회원등급 : 4레벨
포인트 : 214 EP
총질문 : 8 개 (마감율 : 100%)
채택답변 : 0 개
전체 2

  • 2022-05-15 08:37
    채택된 답변

    수식을 이용하면 좀 더 편하게 할 수 있습니다.

    Sub 라인번호()
         Dim OrderPaper As Worksheet
         Dim i As Integer
         Dim vCells As Variant
         'Set OutputSt = ThisWorkbook.Worksheets("출고")
         Set OrderPaper = ThisWorkbook.Worksheets("발주요청서")
         
         '// 마지막 행을 찾고, 서식을 일반으로, 일련번호는 함수로 계산
         endrow = OrderPaper.Cells(Rows.Count, "A").End(xlUp).Row
         Range("C2:C" & endrow).NumberFormat = "General"
         Range("C2:C" & endrow).Formula = "=COUNTIF($I$2:$I2,I2)"
         
         '// 값을 Array로 복사한 다음, 000형태로 만듦
         vCells = Range("C2:C" & endrow).Value2
         For i = LBound(vCells) To UBound(vCells)
            vCells(i, 1) = Format(vCells(i, 1), "000")
         Next
         
         '// 셀서식을 텍스트로 바꾸고 다시 Array를 시트에 씀
         Range("C2:C" & endrow).NumberFormat = "@"
         Range("C2:C" & endrow) = vCells
    
    End Sub

     

    첨부파일 : 발주요청서.xlsm


    • 2022-05-15 14:30

      @원조백수 님 와~ 정말 능력자시네요~^^)/

      감사합니다, 큰 도움이 되었습니다^^

      즐거운 하루 되세요~:-)


전체 6,417
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 진짜쓰는 실무엑셀 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (8)
오빠두엑셀 | 2022.04.30 | 추천 9 | 조회 1142
오빠두엑셀 2022.04.30 9 1142
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (63)
오빠두엑셀 | 2021.10.28 | 추천 80 | 조회 4450
오빠두엑셀 2021.10.28 80 4450
34249 문서서식
New 조건부 서식에서 행 색상 교차 응용?(동일 데이터가 아니라면 색상변경) 첨부파일 (1)
동그란사자 | 04:06 | 추천 0 | 조회 10
동그란사자 04:06 0 10
34248 VBA
New 셀 선택 영역 이미지 저장 매크로 수정 부탁 드립니다. 첨부파일
쎈영어 | 2022.05.20 | 추천 0 | 조회 18
쎈영어 2022.05.20 0 18
34247 함수/공식
New 행번호 자동으로 부여하기 첨부파일 (2)
ejrdn**** | 2022.05.20 | 추천 0 | 조회 26
ejrdn**** 2022.05.20 0 26
34243 기능/도구
New 수식걸려있는데이터_오름차순,내림차순 정렬 안됨 문의 첨부파일 (3)
가족 | 2022.05.20 | 추천 0 | 조회 28
가족 2022.05.20 0 28
34241 함수/공식
New 열 전체에 기준 값을 두어서 팝업 띄우는 법 (1)
ssy**** | 2022.05.20 | 추천 0 | 조회 25
ssy**** 2022.05.20 0 25
34240 함수/공식
New 연령대별 인원수를 구할때 첨부파일 (3) 답변완료
구름나그네 | 2022.05.20 | 추천 0 | 조회 23
구름나그네 2022.05.20 0 23
34238 기능/도구
New 시스템 리소스사 부족하여 완전... (1)
DOUKCHEON 이재형 | 2022.05.20 | 추천 0 | 조회 29
DOUKCHEON 이재형 2022.05.20 0 29
34237 피벗테이블
New 피벗과 슬라이서 데이터 표시 서식 문제 첨부파일 (4) 답변완료
퐁듀 | 2022.05.20 | 추천 0 | 조회 33
퐁듀 2022.05.20 0 33
34236 차트/그래프
New 기준과 데이터칸이 동시에 움직일 수 있는 방법 첨부파일
엑셀엑셀로로 | 2022.05.20 | 추천 0 | 조회 29
엑셀엑셀로로 2022.05.20 0 29
34233 함수/공식
New 값입력 후 조건을 만족하면 카운트 될 수있게 하고싶은데 어케해야되나요?ㅜ 첨부파일 (1)
오빵두 | 2022.05.20 | 추천 0 | 조회 34
오빵두 2022.05.20 0 34
34231 VBA
New 데이터 집계표를 더블클릭시 그 조건으로 고급필터가 가능할까요? 첨부파일 (1)
119구조대 | 2022.05.20 | 추천 0 | 조회 28
119구조대 2022.05.20 0 28
34230 문서서식
New 카드명세서를 다운받았는데.. 금액의 합계가 안되네요( 이용금액의 셀서식이 일반으로 되어있습니다) 첨부파일 (1)
akdlt**** | 2022.05.20 | 추천 0 | 조회 23
akdlt**** 2022.05.20 0 23
34226 함수/공식
New 엑셀 자동 일련번호 생성 시 필터를 걸었을 때도 일련번호가 순번대로 나타나게 하고 싶어요. 첨부파일 (2)
juyoun**** | 2022.05.20 | 추천 1 | 조회 50
juyoun**** 2022.05.20 1 50
34223 함수/공식
New 같은값 자동으로 지정위치에 뿌려지는 함수 첨부파일 (1)
다은지후아빠 | 2022.05.20 | 추천 -1 | 조회 40
다은지후아빠 2022.05.20 -1 40
34219 기능/도구
New 주말 날짜가 적힌 셀의 행 일부분이 자동으로 색 채우기가 되는 방법 있나요? 첨부파일 (1)
forest choi | 2022.05.20 | 추천 0 | 조회 34
forest choi 2022.05.20 0 34
34218 함수/공식
New VLOOKUP 함수 여러개 값 가져오기에서 빈셀은 빼고 데이터가 작성된 것만 가져오기 문제 관련 첨부파일 (1)
moonlights | 2022.05.20 | 추천 0 | 조회 37
moonlights 2022.05.20 0 37
34213 함수/공식
New [vlookup] 다른 엑셀파일 출력값의 ture 값 색변경하기 첨부파일
pk2616 | 2022.05.19 | 추천 0 | 조회 18
pk2616 2022.05.19 0 18
34205 VBA
New [택배송장만들기] 수량만큼 행추가하고 복사하기 첨부파일 (2) 답변완료
수메리안 | 2022.05.19 | 추천 0 | 조회 44
수메리안 2022.05.19 0 44
34204 파워쿼리/피벗
New 쿼리 평수값에서 m2 제거하고 숫자만 남길 수 있는 방법 있을까요? (1)
shxhehskc | 2022.05.19 | 추천 0 | 조회 30
shxhehskc 2022.05.19 0 30
34202 파워쿼리/피벗
New 쿼리파일에서 한 칸만 삭제하기 (1)
shxhehskc | 2022.05.19 | 추천 -1 | 조회 34
shxhehskc 2022.05.19 -1 34
34199 함수/공식
New 시간대별 여러 시트 값 합치기 첨부파일 (4) 답변완료
sjlee**** | 2022.05.19 | 추천 0 | 조회 46
sjlee**** 2022.05.19 0 46
34197 함수/공식
New 일수를 개월 일로 나타나는 방법을 알려주세요 (2) 답변완료
nab | 2022.05.19 | 추천 0 | 조회 34
nab 2022.05.19 0 34
34196 함수/공식
New 합계 구하기 _ 도와주세요... ㅠㅠ 첨부파일 (2)
연어샐러드 | 2022.05.19 | 추천 0 | 조회 37
연어샐러드 2022.05.19 0 37
34191 파워쿼리/피벗
New 하나의 열의 내용 중 중복되는 내용을 각각 다른 열에 배치할 수 있을까요? (2)
shxhehskc | 2022.05.19 | 추천 0 | 조회 33
shxhehskc 2022.05.19 0 33
34190 파워쿼리/피벗
New 쿼리 실행 중 몇개의 행만 첫 행을 머릿글로 사용하기 (2)
shxhehskc | 2022.05.19 | 추천 0 | 조회 28
shxhehskc 2022.05.19 0 28
34186 문서서식
New 문서 서식 글자 바뀌는것 질문 첨부파일 (1)
동준 | 2022.05.19 | 추천 0 | 조회 22
동준 2022.05.19 0 22
34185 문서서식
New 카드내역 다운받아 사용금액 합계를 했는데.. 합계가 안되네요 (1)
akdlt**** | 2022.05.19 | 추천 0 | 조회 28
akdlt**** 2022.05.19 0 28
34180 구글시트
New REGEXEXTRACT 첨부파일 (2) 답변완료
마법의손 | 2022.05.19 | 추천 0 | 조회 37
마법의손 2022.05.19 0 37
34179 대시보드
New 엑셀 하단에 시트이름 나온곳 넓게 쓰고 싶은데 고정안될까요? 첨부파일 (1)
태봉 | 2022.05.19 | 추천 0 | 조회 34
태봉 2022.05.19 0 34
34175 문서서식
New 빈칸 셀위에 색상표시? 첨부파일 (1)
km**** | 2022.05.19 | 추천 0 | 조회 30
km**** 2022.05.19 0 30