시트 내의 숫자의 총합을 파일명에 포함하는 VBA

VBA

작성자

나지

작성일

2023-01-31 09:38

조회

엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요! 많은 도움에 감사합니다. 오늘은 연달아 질문 올립니다.

첨부파일과 같이

지급포인트 총합을 파일명에 넣어 저장하고자 하는데요.

Dim fileName as integer 
fileName =  WorksheetFunction.Sum(Range("B:B"))
ActiveWorkbook.SaveAs fileName:=fileName & ".xlsx"

이렇게 작성후 실행시 오버플로 오류가 발생합니다.

B열의 범위가 유동적인데 어떻게 고치면 좋을까요?

감사합니다.

공감

0명

나지

회원등급 : 5레벨

포인트 : 284 EP

총질문 : 11 개 (마감율 : 73%)

채택답변 : 1 개

게시글

전체 1

나지 님 1 작성자

2023-01-31 10:26
올레!!! 자체 해결하였습니다.
```
    Dim fileName As Double
    fileName = WorksheetFunction.Sum(Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row))
    ActiveWorkbook.SaveAs fileName:=fileName & ".xlsx"
```
오버플로 VBA 라는 검색어로 확인해보니, Integer 및 Double 로 선언시에 간혹 오버플로 오류가 난다는 의견이 있어서 Double 로 지정해보았더니 잘 되네요.

참고로 B열은 8만개까지 내려갈 정도로 방대한 상황이었는데요.

더불어, B열 전체를 지정할 경우 범위가 너무 넓을 것 같아서 A열 값에 맞춰 계산하도록 했습니다.

생초보에서 점점 스스로 해결하는 것도 생기는 걸 보면, 오빠두엑셀을 들락거린 보람?을 느낍니다. 늘 감사합니다!

*자신의 덧글은 채택할 수 없어서 이 글을 마감 할 수는 없을 것 같네요. ㅎㅎ!

« 현재 사용중인 파일명을 가져오는 VBA

수식이 나타내는 바가 동일한데 결과값이 달라지는 요상한 오류... »

목록보기

전체 10,224

번호	카테고리	제목	작성자	작성일	추천	조회
알림		23년 마지막, "엑셀 기초반" 챌린지! - 3주 완성 특별 스터디 모집 (~3/17(금) 까지) (39) 오빠두엑셀 \| 2023.03.11 \| 추천 33 \| 조회 4490	오빠두엑셀	2023.03.11	33	4490

공지사항	공지사항	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (149) 오빠두엑셀 \| 2021.10.28 \| 추천 188 \| 조회 10764	오빠두엑셀	2021.10.28	188	10764
53633	기능/도구	New 증감 셀서식이 적용된 숫자셀과 문자셀을 &로 합칠 수 있나요? 마르티즈 \| 2023.03.27 \| 추천 0 \| 조회 14	마르티즈	2023.03.27	-	14
53628	문서서식	New 테두리 선 -기본색을 회색으로 바꿀 수는 없을까요? cynicalH \| 2023.03.27 \| 추천 0 \| 조회 16	cynicalH	2023.03.27	-	16
53620	함수/공식	New 다중 함수 문의 (2) 부자되자 \| 2023.03.27 \| 추천 0 \| 조회 22	부자되자	2023.03.27	-	22
53612	구글시트	New IMPORTRANGE 함수로 동일페이지 다수 탭의 데이터 가져오기 (1) 허허 \| 2023.03.27 \| 추천 0 \| 조회 26	허허	2023.03.27	-	26
53604	함수/공식	New countifs 정렬 시 걸려있는 참조셀이 뒤죽박죽이 됩니다. (2) 희상 \| 2023.03.27 \| 추천 0 \| 조회 26	희상	2023.03.27	-	26
53599	피벗테이블	New 달성율을 피벗테이블로 추출하기 ybt \| 2023.03.27 \| 추천 0 \| 조회 23	ybt	2023.03.27	-	23
53598	함수/공식	New 특정 셀이 특정 값일 경우 범위내 셀에서 몇번째 셀부터 마지막까지의 셀 합계를 구하는 수식 문의 (2) 오준범 \| 2023.03.27 \| 추천 0 \| 조회 22	오준범	2023.03.27	-	22
53594	VBA	New 선택한 영역에 원하는 날짜 자동으로 넣는 매크로 뚜루루루뚜 \| 2023.03.27 \| 추천 0 \| 조회 24	뚜루루루뚜	2023.03.27	-	24
53592	함수/공식	New 엑셀빈칸채우기(아래값) (2) 답변완료 chloe75 \| 2023.03.27 \| 추천 0 \| 조회 36	chloe75	2023.03.27	-	36
53587	함수/공식	New 특정 조건의 수 분리하기 엑셀초보랍니다 \| 2023.03.27 \| 추천 0 \| 조회 35	엑셀초보랍니다	2023.03.27	-	35
53583	함수/공식	New 문자 자동완성 문의입니다. (2) 안녕 \| 2023.03.27 \| 추천 0 \| 조회 30	안녕	2023.03.27	-	30
53581	VBA	New 재고관리 프로그램 달력 매크로 드랍다운 추가 kans**** \| 2023.03.27 \| 추천 0 \| 조회 33	kans****	2023.03.27	-	33
53580	차트/그래프	New y축 그림에 %를 넣고 싶습니다 (1) ch**** \| 2023.03.27 \| 추천 0 \| 조회 34	ch****	2023.03.27	-	34
53573	함수/공식	New max함수, if함수 사용하여 2가지 조건에 맞는 최대/최소값 나타내주고 싶습니다. (첨부파일 있음) (2) 프리한하루 \| 2023.03.27 \| 추천 0 \| 조회 29	프리한하루	2023.03.27	-	29
53571	함수/공식	New if함수와v룩업함수 적용 (1) 이유진 \| 2023.03.27 \| 추천 0 \| 조회 30	이유진	2023.03.27	-	30
53569	함수/공식	New 셀 내용 변경 시 서식 등으로 표시할 수 있는 함수 있을까요? (VBA 제외) 맨체스터 \| 2023.03.27 \| 추천 0 \| 조회 23	맨체스터	2023.03.27	-	23
53566	기능/도구	New Mac Office excel 사용 단축키 랄라라 \| 2023.03.27 \| 추천 0 \| 조회 14	랄라라	2023.03.27	-	14
53563	함수/공식	New FILTER 함수 사용법 (4) 답변완료 만식이 \| 2023.03.27 \| 추천 0 \| 조회 35	만식이	2023.03.27	-	35
53562	함수/공식	New 엑셀 초보자 입니다. 함수를 어떻게 적용해야 할까요? (5) jjan**** \| 2023.03.27 \| 추천 0 \| 조회 33	jjan****	2023.03.27	-	33
53559	파워쿼리/피벗	New [파워쿼리] 연도, 월로 분할하고 싶은데 도와주세요~ (1) wisejo**** \| 2023.03.27 \| 추천 0 \| 조회 30	wisejo****	2023.03.27	-	30
53557	피벗테이블	New 피벗 차트 막대그래프 색상 년도별 변경 가능 여부 (2) 답변완료 명곰 \| 2023.03.27 \| 추천 0 \| 조회 33	명곰	2023.03.27	-	33
53551	VBA	New 파일로 저장할 때 경로 변경 (2) 답변완료 fabikim \| 2023.03.27 \| 추천 0 \| 조회 22	fabikim	2023.03.27	-	22
53543	함수/공식	New 매크로 대신 함수로 자료찾기 만들고자 합니다. 느림보팬더 \| 2023.03.27 \| 추천 0 \| 조회 51	느림보팬더	2023.03.27	-	51
53500	함수/공식	New (제발도와주세요) 업체와 저희 업체에서 사용 하는 발주#가 중복이여도 불러오게 하고싶어요(중첩함수필요해보임) (1) govl77 \| 2023.03.26 \| 추천 0 \| 조회 49	govl77	2023.03.26	-	49
53490	함수/공식	New 함수사용법에 대한 문의 (5) 광개토태왕 \| 2023.03.26 \| 추천 0 \| 조회 39	광개토태왕	2023.03.26	-	39
53450	VBA	New Private Sub Workbook_Open() 자동 실행이 안됩니다 (2) 답변완료 니모앤칩스 \| 2023.03.25 \| 추천 0 \| 조회 35	니모앤칩스	2023.03.25	-	35
53447	함수/공식	New 데이터 세로 쌓기를 위해서 일정량의 데이터를 반복해서 아래로 붙여 넣을 때 쓸 수 있는 팁을 좀 알려 주세요 (3) 절륜 \| 2023.03.25 \| 추천 0 \| 조회 48	절륜	2023.03.25	-	48
53434	함수/공식	New 데이터 유효성 검사에서 바이트수 제한하는 법 문의드립니다. (4) 답변완료 달맞이꽃 \| 2023.03.25 \| 추천 0 \| 조회 39	달맞이꽃	2023.03.25	-	39
53415	함수/공식	New 조건별 다른 상하한 기준 적용 함수 문의드립니다 (4) 힘내서가자 \| 2023.03.25 \| 추천 0 \| 조회 61	힘내서가자	2023.03.25	-	61
53409	VBA	New 체크박스 특정 조건에서 사용 못하게 할수 있을까요? 문과적남자 \| 2023.03.25 \| 추천 0 \| 조회 45	문과적남자	2023.03.25	-	45