vba 자동번호 넣기

VBA
작성자
daan
작성일
2022-05-13 18:48
조회
99
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

B열에 내용을 입력하면

A열에 순번이  순차적으로 들어가고

B열의 내용이 없으면,해당하는 A에도 해당번호는 지워지고,

순번은 유지되도록 할려고합니다.

어디가 잘못된건지 봐주시면 감사하겠습니다.

전체 10

  • 2022-05-14 09:08
    채택된 답변

    VBA에서 수식으로 순번을 넣고, 값으로 복사하는 것으로 변경하면 이렇게 됩니다.
    수식을 VBA에서 사용할 때 쌍따옴표(")는 2개를 써야 하나로 인식합니다.

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("B2:B10")) Is Nothing Then
             '// 원하는 곳에 수식으로 일련번호 부여
            Range("A2:A10").Formula = "=IF(B2="""","""",COUNTA(B$2:B2))"
            '// Range의 값들만  다시 값으로 붙여 넣음
            Range("A2:A10") = Range("A2:A10").Value2
        End If
    End Sub

     


    • 2022-05-15 15:40

      @원조백수 님 정말 감사합니다.

      주신 코드로 테스트 결과 잘됍니다.

      그런데,한가지 궁금한것 있습니다.

      서식마다 연번을 1부터 넣는게 아니라

      윗서식 순번을 이어서 넣으려고 합니다.

      나름대로 해봤는데 잘 안돼네요!

      봐주시면 감사하겠습니다.

      파일첨부합니다.

      첨부파일 : 질문20220515-01.xlsm


      • 2022-05-15 20:26

        @daan 님 VBA로 진행하시기 전에 먼저 시트에서 수식으로 정리해 보고 반영하면 됩니다.

        C4 = MAX( C$1:C3 ) + 1

        C열에 다른 내용이 중간에 있을 경우 전체를 수식으로 일괄 넣기가 어려울 수도 있으니 그에 대한 처리 방안도 고민해 보세요.

         


        • 2022-05-15 20:44

          @원조백수 님 네 감사합니다!


  • 2022-05-13 19:19

    If Not Intersect(Target, Range("B2:B10")) Is Nothing Then
    maxNumber = Application.WorksheetFunction.Max(Range("A2:A10"))

    코딩에는 3행부터 되어있네요


    • 2022-05-13 19:25

      @bobo 님 네!3행에서 시작해도 상관은 없습니다.


    • 2022-05-13 19:29

      @bobo 님 순번은 자동으로 넣어지는데,

      문제는 B셀에 내용이 없을경우

      A열에는 순번이 유지되어야 하는데,

      B열에 내용이 없을경우,A열 순번이 뒤죽박죽 되는현상 일어납니다.

      어디가 잘못된건지 모르겠습니다.


      • 2022-05-13 20:11

        @daan 님  

        그럼 코딩자체가 불필요하지 않나요? 직접입력하거나 수식으로 해도되고요.


        • 2022-05-13 20:20

          @bobo 님 입력데이터를 수정할경우에

          가로행으로 내용지우기하면

          IF COUNTA 수식도 지워지더군요.

          셀잠금이나 수식보호를 하면

          일일이 풀어야하고 해서....

          코딩으로 생각했습니다.


          • 2022-05-13 20:25

            @daan 님 수식셀은 남기고 나머지셀 내용 지우거나 해당행을 삭제하면 될 것 같습니다.


전체 6,495
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 진짜쓰는 실무엑셀 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (8)
오빠두엑셀 | 2022.04.30 | 추천 10 | 조회 1324
오빠두엑셀 2022.04.30 10 1324
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (65)
오빠두엑셀 | 2021.10.28 | 추천 81 | 조회 4657
오빠두엑셀 2021.10.28 81 4657
34508 피벗테이블
New 피벗 날짜 데이터 그룹화 첨부파일
이준우 | 15:30 | 추천 0 | 조회 13
이준우 15:30 0 13
34504 피벗테이블
New 피벗테이블로 가공한 데이터 표양식 열기준으로 변경 가능 문의 첨부파일
우왕 | 13:19 | 추천 0 | 조회 16
우왕 13:19 0 16
34502 함수/공식
New 수식 오류 (2) 답변완료
kh**** | 05:08 | 추천 0 | 조회 24
kh**** 05:08 0 24
34499 VBA
New 이주일간의 고생 끝에 해결이 코앞인데요.
silverf**** | 2022.05.28 | 추천 0 | 조회 28
silverf**** 2022.05.28 0 28
34497 함수/공식
New 데이터 배열 바꾸기 (4) 답변완료
이지현한의사 | 2022.05.28 | 추천 0 | 조회 31
이지현한의사 2022.05.28 0 31
34494 파워쿼리/피벗
New 엑셀 계정별원장 시트 합치기 방법 문의 드립니다.
우렁각시탈 | 2022.05.28 | 추천 0 | 조회 22
우렁각시탈 2022.05.28 0 22
34492 VBA
New 엑셀에 드래그 앤 드롭으로 그림파일 삽입 (5)
banarchy | 2022.05.28 | 추천 0 | 조회 39
banarchy 2022.05.28 0 39
34477 문서서식
New 수식 복사 질문드려요.. ㅠㅠ 불금 퇴근하고싶습니다... 첨부파일 (3) 답변완료
김동률 | 2022.05.27 | 추천 0 | 조회 42
김동률 2022.05.27 0 42
34473 VBA
New 비고란에서 휴대폰번호 추출하기에 관해 문의드립니다. 첨부파일 (2) 답변완료
수메리안 | 2022.05.27 | 추천 0 | 조회 40
수메리안 2022.05.27 0 40
34472 기능/도구
New 스핀단추에서 증분변경시 0.1 씩 증감할려면 어떻게 해야 할까요? (1)
033cola | 2022.05.27 | 추천 0 | 조회 28
033cola 2022.05.27 0 28
34471 함수/공식
New 조건부서식 중복 2개이상 및 2개일때 서식좀 봐주세요 궁금합니다. 첨부파일 (3)
김주현 | 2022.05.27 | 추천 0 | 조회 44
김주현 2022.05.27 0 44
34469 문서서식
New 표의 행렬 변경 첨부파일 (4)
김학준 | 2022.05.27 | 추천 0 | 조회 40
김학준 2022.05.27 0 40
34465 차트/그래프
New 간트차트에 오늘 표시하는 방법 질문드려요
yoyoy**** | 2022.05.27 | 추천 0 | 조회 31
yoyoy**** 2022.05.27 0 31
34464 VBA
New Vba로 수식을 입력하려는데 오류가 납니다. (4)
silverf**** | 2022.05.27 | 추천 0 | 조회 45
silverf**** 2022.05.27 0 45
34451 함수/공식
New 제품별 코드 중복/단독 확인함수 첨부파일 (2)
다은지후아빠 | 2022.05.27 | 추천 -1 | 조회 48
다은지후아빠 2022.05.27 -1 48
34450 VBA
New VBA를 활용한 최단거리 계산(Pathfinder,카카오맵) 첨부파일
darc**** | 2022.05.27 | 추천 0 | 조회 37
darc**** 2022.05.27 0 37
34448 함수/공식
New countif 다양한 조건으로 만들고 싶어요~ 첨부파일 (2) 답변완료
김수달 | 2022.05.27 | 추천 0 | 조회 48
김수달 2022.05.27 0 48
34444 기능/도구
New 엑셀 빠른 도구 모음에 있는 '조명'이 무슨 기능인지 아시는분 계신가요?
월마리아 | 2022.05.26 | 추천 0 | 조회 46
월마리아 2022.05.26 0 46
34440 함수/공식
New 고객 리텐션, 접속 일수에 맞춰 데이터를 합산하는 함수/VBA 문의! 첨부파일
은혼 | 2022.05.26 | 추천 0 | 조회 22
은혼 2022.05.26 0 22
34439 차트/그래프
New 체크박스 선택에 따라 값이 바뀌는 차트의 데이터레이블 표시 문제 관련 첨부파일
Qwerty | 2022.05.26 | 추천 0 | 조회 26
Qwerty 2022.05.26 0 26
34437 함수/공식
New 국가만 찾아 올련면 첨부파일 (4) 답변완료
구름나그네 | 2022.05.26 | 추천 0 | 조회 42
구름나그네 2022.05.26 0 42
34433 함수/공식
New 함수관련 질문있습니다.
섭섭섭 | 2022.05.26 | 추천 0 | 조회 32
섭섭섭 2022.05.26 0 32
34427 함수/공식
특정 공휴일 제외 후 2달 뒤 날짜를 구할수 있는 함수 식이 있을까요? (1)
김태우 | 2022.05.26 | 추천 0 | 조회 42
김태우 2022.05.26 0 42
34417 피벗테이블
피벗테이블 외부 데이터 참조 후 새로고침 할 때 자꾸 암호를 입력하라고 떠요.. (2) 답변완료
forest choi | 2022.05.26 | 추천 0 | 조회 35
forest choi 2022.05.26 0 35
34416 함수/공식
날짜/시간 차이를 구하려면 어떻게 하면 좋을까요? 첨부파일 (2)
aron007 | 2022.05.26 | 추천 0 | 조회 42
aron007 2022.05.26 0 42
34415 VBA
VBA코드로 자동채우기 할때 유동범위는 어떻게 하나요 첨부파일 (2)
nam**** | 2022.05.26 | 추천 1 | 조회 41
nam**** 2022.05.26 1 41
34414 함수/공식
금지어 삭제하는 함수 (특정텍스트 범위내의 값을 제거 후 값 불러오기) 첨부파일 (1)
Jasper | 2022.05.26 | 추천 0 | 조회 42
Jasper 2022.05.26 0 42
34406 함수/공식
sum 함수 오류? 첨부파일 (1)
saechang | 2022.05.25 | 추천 0 | 조회 53
saechang 2022.05.25 0 53
34405 VBA
중복데이터가 많은데 맨 위에 있는 행의 데이터만 남길 수 있는 방법이 있을까요? 첨부파일 (3) 답변완료
오구 | 2022.05.25 | 추천 0 | 조회 69
오구 2022.05.25 0 69
34402 VBA
vba 특정문자 입력시 현재시간 구동 관련 첨부파일 (2)
1412 | 2022.05.25 | 추천 0 | 조회 46
1412 2022.05.25 0 46