반복구문인데 조금 더 효율적으로 작성할 수 있는 방법이 있을 것 같은데요...

VBA
작성자
슬이아빠
작성일
2020-09-14 12:26
조회
40
몇개 열의 총합을 구하는 공식을 vba로 작성했습니다.

열은 C D E H 등 총 4개 열이구요, 4개열의 맨아래에 합계수량이 구해집니다.

작성문은 아래와 같은데요, 질문은 다음과 같습니다.

우선 아래 구문을 조금 더 효과적으로 작성할 수 있을까요?

do until 을 사용할까 고민해 봤는데 잘 답이 안나옵니다.

그리고, for문이 한번 돌때마다 v값을 0으로 다시 세팅해 주어야 하는데요,

이거 역시 해결 방법이 있을까요? 부탁드리겠습니다.

 

Dim v As Integer

Dim i As Integer

Dim nMax As Integer

nMax = Sheets("수량").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To nMax

i = i
v = v + Range("c" & i).Value

Next i

Range("c" & nMax + 1) = v

v = 0

For i = 2 To nMax

i = i
v = v + Range("d" & i).Value

Next i

Range("d" & nMax + 1) = v

v = 0

For i = 2 To nMax

i = i
v = v + Range("e" & i).Value

Next i

Range("e" & nMax + 1) = v

v = 0

For i = 2 To nMax

i = i
v = v + Range("h" & i).Value

Next i

Range("h" & nMax + 1) = v

v = 0

 
전체 2

  • 2020-09-14 14:58

    안녕하세요.

    v 값 갱신을 위해 range("c"....) 형태로 사용하셨는데, range 대신 cells 로 바꾸셔서 코드를 작성하시면 for 문 2개로 묶어주실 수 있을듯 합니다.

    For i = 2 to nMax
       For j = 3 to XXXX
         v = cells(j,i).Value + v
       Next
    Next
    

    제시해드린 답변이 도움이 되셨길 바랍니다.


    • 2020-09-14 21:58

      이렇게 하면 되겠네요. 말씀 고맙습니다. ^^


    전체 1,197
    번호 카테고리제목작성자작성일추천조회
    1192 VBA
    New 숫자를 입력할 때 자동으로 백(100)이 곱해져서 완성되는 VBA 부탁드립니다.
    유아독존 | 00:51 | 추천 0 | 조회 3
    유아독존00:5103
    1191 파워쿼리/피벗
    New 파워쿼리 용량 문의
    호두사랑 | 2020.10.01 | 추천 0 | 조회 9
    호두사랑2020.10.0109
    1190 피벗테이블
    New 피벗테이블에서 ( 합계:)표시 제거 문의 (2)
    호두사랑 | 2020.10.01 | 추천 0 | 조회 13
    호두사랑2020.10.01013
    1189 VBA
    New 웹 크롤링 관련 첨부파일
    BlackMB | 2020.10.01 | 추천 0 | 조회 22
    BlackMB2020.10.01022
    1188 기능/도구
    New 엑셀 필터 조회 안될때 문의 (1)
    이영호 | 2020.09.29 | 추천 0 | 조회 32
    이영호2020.09.29032
    1187 함수/공식
    New 특정 문자 포함 셀 값 합치기 (5)
    해봐 | 2020.09.29 | 추천 0 | 조회 40
    해봐2020.09.29040
    1186 문서서식
    New 다중필터 관련 질문 (1)
    벚꽃이진다고너를 | 2020.09.29 | 추천 0 | 조회 31
    벚꽃이진다고너를2020.09.29031
    1185 함수/공식
    로또 추출기 (6)
    프리맨소울 | 2020.09.28 | 추천 0 | 조회 61
    프리맨소울2020.09.28061
    1184 함수/공식
    월별 누적 매출 구하기 질문 있습니다. 첨부파일 (1)
    [email protected] | 2020.09.28 | 추천 0 | 조회 41
    [email protected]2020.09.28041
    1183 함수/공식
    (연평균 증가률 질문 드려요) 시작값, 종료값이 마이너스 또는 플러스일때 (1)
    푸우 | 2020.09.28 | 추천 0 | 조회 28
    푸우2020.09.28028
    1182 함수/공식
    xfilter함수 다중범위 이용하는게 가능할까요? (3)
    David Cho | 2020.09.28 | 추천 0 | 조회 42
    David Cho2020.09.28042
    1181 함수/공식
    Sum(Sumifs) 함수로 조건에 맞는 월별 합계를 구하고자 하는데 다른 방법이 있을지 질문드립니다. (8)
    Hannah | 2020.09.28 | 추천 0 | 조회 46
    Hannah2020.09.28046
    1180 함수/공식
    중복 카운트 (2)
    유리비 | 2020.09.28 | 추천 0 | 조회 44
    유리비2020.09.28044
    1179 함수/공식
    도움이 필요합니다 (배열형태 개수를 구하는 함수) 첨부파일 (2)
    벗님들 | 2020.09.28 | 추천 0 | 조회 25
    벗님들2020.09.28025
    1178 VBA
    HTS연동 된 값 질문 입니다. (3)
    COXMAN | 2020.09.27 | 추천 0 | 조회 34
    COXMAN2020.09.27034
    1177 차트/그래프
    조건부서식 규칙관리자 첨부파일 (2)
    강재성 | 2020.09.27 | 추천 0 | 조회 35
    강재성2020.09.27035
    1176 문서서식
    행 2개로 구분되어 있는 텍스트를 열 2개로 만드는 방법은 없을까요..? (4)
    찬찬 | 2020.09.26 | 추천 0 | 조회 41
    찬찬2020.09.26041
    1175 함수/공식
    함수 참조 문제 첨부파일 (2)
    1oi1oi1oi | 2020.09.26 | 추천 0 | 조회 29
    1oi1oi1oi2020.09.26029
    1174 피벗테이블
    시간슬라이서와 피벗테이블 주 간격 생성방법 첨부파일 (4)
    iviolin**** | 2020.09.26 | 추천 0 | 조회 36
    iviolin****2020.09.26036
    피벗테이블
    New Re:시간슬라이서와 피벗테이블 주 간격 생성방법
    iviolin**** | 2020.09.30 | 추천 0 | 조회 20
    iviolin****2020.09.30020
    1173 함수/공식
    섬프로덱트+인덱스매치 조합 외에도 다른 방식이 있는지 궁금합니다. 첨부파일 (3)
    달퐁이 | 2020.09.26 | 추천 0 | 조회 48
    달퐁이2020.09.26048
    1172 기능/도구
    엑셀늅인데 정렬에 관해서 궁금합니다 ㅠ (3)
    유녕 | 2020.09.25 | 추천 0 | 조회 41
    유녕2020.09.25041
    1171 파워쿼리/피벗
    데이터셋을 재구성하는 방법 질문.. 첨부파일 (2)
    김연수 | 2020.09.25 | 추천 0 | 조회 35
    김연수2020.09.25035
    1170 VBA
    VBA에서 변수로 영역 지정하는 방법과 구문의 구조에 대한 질문입니다 (4)
    공대생 | 2020.09.24 | 추천 0 | 조회 43
    공대생2020.09.24043
    1169 VBA
    웹 크롤링 관련 질문드립니다. (5)
    hall**** | 2020.09.24 | 추천 2 | 조회 58
    hall****2020.09.24258
    1168 함수/공식
    NaverFinanceSearch 함수 기능 문의 첨부파일 (2)
    알파보이 | 2020.09.24 | 추천 0 | 조회 46
    알파보이2020.09.24046
    1167 차트/그래프
    동적범위를 이용한 날짜 합계 구하는 함수 문의 (2)
    째쨈 | 2020.09.24 | 추천 0 | 조회 44
    째쨈2020.09.24044
    1166 피벗테이블
    대량의 두개의 데이터를 합친후 데이터수정 및 합계결과 뽑아내는법이 궁금합니다 (1)
    자유인 | 2020.09.24 | 추천 0 | 조회 50
    자유인2020.09.24050
    1165 VBA
    VBA 여러개 시트를 활용한 피벗데이블 질문 첨부파일 (4)
    sundaychefchef | 2020.09.23 | 추천 0 | 조회 44
    sundaychefchef2020.09.23044
    1164 VBA
    if문의 조건에 대해 질문드립니다. (7)
    엑셀늅늅이 | 2020.09.23 | 추천 0 | 조회 51
    엑셀늅늅이2020.09.23051
    1163 함수/공식
    엑셀 배열을 합칠 수 있는 방법이 있을까요? (7)
    나그네 | 2020.09.23 | 추천 0 | 조회 56
    나그네2020.09.23056