vba 자동번호 넣기

VBA

작성자

daan

작성일

2022-05-13 18:48

조회

엑셀버전 : 엑셀2016

운영체제 : 윈도우10

B열에 내용을 입력하면

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

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

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

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

daan

회원등급 : 4레벨

포인트 : 152 EP

총질문 : 5 개 (마감율 : 100%)

채택답변 : 0 개

게시글

네,원조백수님 댓글보고 곰곰히 생각해보니 제가 잘못생각하고 있었네요!! 해결되었습니다. 정말 감사합니다.
2022.05.15
네,페이지전체 행번호는 엑셀 행번호는로 37개이며, 페이지내에 데이터를 넣을 행수는32개이고 엑셀 행번호는35가 됩니다. 엑셀 행번호를 기준으로 해서 이런문제가 생기는것 같은데 페이지내 입력될 행번호를 기준으로 하면,이런 문제는 없을것같은데 어떻게 접근하는지 방법을 모르겠습니다.
2022.05.15
네 감사합니다!
2022.05.15
네 감사합니다!
2022.05.15
정말 감사합니다. 주신 코드로 테스트 결과 잘됍니다. 그런데,한가지 궁금한것 있습니다. 서식마다 연번을 1부터 넣는게 아니라 윗서식 순번을 이어서 넣으려고 합니다. 나름대로 해봤는데 잘 안돼네요! 봐주시면 감사하겠습니다. 파일첨부합니다.
2022.05.15

전체 10

원조백수 님 41

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
```
- daan 님 작성자
  
  2022-05-15 15:40
  
  @원조백수 님 정말 감사합니다.
  
  주신 코드로 테스트 결과 잘됍니다.
  
  그런데,한가지 궁금한것 있습니다.
  
  서식마다 연번을 1부터 넣는게 아니라
  
  윗서식 순번을 이어서 넣으려고 합니다.
  
  나름대로 해봤는데 잘 안돼네요!
  
  봐주시면 감사하겠습니다.
  
  파일첨부합니다.
  
  첨부파일 : 질문20220515-01.xlsm
  - 원조백수 님 41
    
    2022-05-15 20:26
    
    @daan 님 VBA로 진행하시기 전에 먼저 시트에서 수식으로 정리해 보고 반영하면 됩니다.
    
    C4 = MAX( C$1:C3 ) + 1
    
    C열에 다른 내용이 중간에 있을 경우 전체를 수식으로 일괄 넣기가 어려울 수도 있으니 그에 대한 처리 방안도 고민해 보세요.
    
    daan 님 작성자
    
    2022-05-15 20:44
    
    @원조백수 님 네 감사합니다!
bobo 님 209

2022-05-13 19:19

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

코딩에는 3행부터 되어있네요
- daan 님 작성자
  
  2022-05-13 19:25
  
  @bobo 님 네!3행에서 시작해도 상관은 없습니다.
- daan 님 작성자
  
  2022-05-13 19:29
  
  @bobo 님 순번은 자동으로 넣어지는데,
  
  문제는 B셀에 내용이 없을경우
  
  A열에는 순번이 유지되어야 하는데,
  
  B열에 내용이 없을경우,A열 순번이 뒤죽박죽 되는현상 일어납니다.
  
  어디가 잘못된건지 모르겠습니다.
  - bobo 님 209
    
    2022-05-13 20:11
    
    @daan 님
    
    그럼 코딩자체가 불필요하지 않나요? 직접입력하거나 수식으로 해도되고요.
    
    daan 님 작성자
    
    2022-05-13 20:20
    
    @bobo 님 입력데이터를 수정할경우에
    
    가로행으로 내용지우기하면
    
    IF COUNTA 수식도 지워지더군요.
    
    셀잠금이나 수식보호를 하면
    
    일일이 풀어야하고 해서....
    
    코딩으로 생각했습니다.
    
    bobo 님 209
    
    2022-05-13 20:25
    
    @daan 님 수식셀은 남기고 나머지셀 내용 지우거나 해당행을 삭제하면 될 것 같습니다.

« 엑셀 동일 도면번호 중에 리비전 번호 제일 큰값 찾기

Selenium에서 쿠키로 로그인 하는 방법에 관한 자료를 찾고 있습니다. »

목록보기

전체 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