엑셀 For Next 문구에서, 이전 i 값에서 계산된 값을 다음 i 에서 비교하고싶습니다..

VBA
작성자
상욱
작성일
2023-03-05 18:06
조회
980
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

질문 요약 : 엑셀 For Next 문구에서, 이전 i 값에서 계산된 값을 다음 i 에서 활용 비교하고싶습니다

글도 쓰다가 한번 날라가서 멘탈도 흔들리고;; 어휘력이 부족해서.. 질문 제목이 어정쩡하게 길어지네요 ㅠㅠ

엑셀 For Next 문구에서, 이전 i 값에서 계산된 값을 다음 i 에서 비교하고 싶습니다..

 

현재, 1일 24시간동안 계산되는 값을 누적시켜서 활용하기 위해 For Next 문구를 작성했습니다.

그래서 i 는 Integer 변수로 지정해놓은 상태에서,

엑셀 시트에서 있었던 변수들을 서로 곱해서, 0보다 크면 Result 이 1이 되도록 만들어서, 1씩 계속 누적되도록 작성했습니다.

즉, 결과적으로 Result 는 0과 24 사이 값이 나오는것 까진 성공했어요!

 

질문하려는 것은 Result 값이  이전 i 값에서는 0 일 때, 이후의  i 값에서는 1 일 때 Result_Compare 값이 나오도록 만들고싶은데..

이러다보니 For Next에서 i 랑 j 랑 어떻게 엮어야할지  이런방식으로 접근해야하는게 아닌지 너무 모르겠습니다. ㅠㅠㅠ

 

 

현재 코드는 아래처럼 작성했습니다.

 

Dim expert ( 25, 1 ) As Single

Dim PlanRate ( 25, 1 ) As Single

Dim RealRate ( 25, 1 ) As Single

Dim Result ( 25, 1) As Single

Dim Result_Compare ( 25, 1 ) As Single

 

Dim i As integer

DIM Hour_temp As Single

 

For  i =1  To 24 Step  1

Hour_temp = Application.Worksheet.Function.Max  (   expert ( i , 1 ) * PlanRate ( i, 1 )  ,  expert ( i , 1 ) * RealRate ( i, 1) )

if Hour_temp > 0  Then

Result ( i , 1 ) =  1

else

Result ( i, 1 ) = 0

End if

Next i

 

이 경우, expert 와 Rate 변수들의 곱이  0보다 크면 Result 가 1이되면서,

최종적으로 Result 값이 날짜마다 0부터 24까지 잘나오고있습니다.

 

하고싶은것을 다시 적어보자면...

첫 번째 i=1 에서  Result 가 0이고   ,   두 번째 i =2 에서 Result 가 1 이면,

Result_Compare 가 1이 나오도록 해서, 하루 24시간 동안 Result값의 변동을 수집하고 싶습니다.

 

 

다시한번 표로 정리해보자면..

 

 i 값 계산값들(expert * Rate) Result Result_Compare
1 0 0
2 132 1 이때 1
3 142 1
4 0 0
... 0 0
... 0 0
22 0 0
23 123 1 이때 1
24 133 1

 

위의 표 기준으로는 24시간 중에 2번 Result 가 0에서 1로 변했으니, Result_Compare 값이 2가 되겠네요

 

AAA Temp =  Application.Worksheet.Function.And (  Result ( i -1 , 1 ) = 0  , Result ( i ,1 ) = 1  )

If AAA Temp = 1, Result Compare ( i, 1 )  =   1  else   Result Comapre ( i, 1) =  0

이런 식으로  i-1  이라는 값을 짜넣어도 되나요???;;;;;;

 

말이 두서없었는데 이해가 잘안되신다면 댓글에 이리저리 좀더 달아보겠습니다 ㅠㅠㅠ

 

도움 부탁드립니다.. ㅠㅠㅠ 감사합니다!!

신고
스크랩
공유
전체 4

  • 2023-03-06 10:19

    @상욱 님 IF문에 IF문 하나를 더 넣어서 하면 될것같아요.

    If Hour_temp > 0 Then
        Result(i, 1) = 1
        If (i > 1 And Result(i - 1, 1) = 0) Then
            Result_Compare(i, 1) = 1
        End If
    Else
        Result(i, 1) = 0
    End If

     


  • 2023-03-06 11:18

    @상욱 님 참고하세요...

        Dim Pre_Result
        Dim Cur_Result
     
        Pre_Result = -1
     
        for 반복문....
     
            Cur_Result = 계산식...
     
            Result_Compare = ""
     
            If Pre_Result = 0 And Cur_Result = 1 Then
                Result_Compare = 1
            End If       
     
            Pre_Result = Cur_Result
     
        Next

     


  • 2023-03-05 22:12

    @상욱 님  

    다른 변수 하나를 만들어 값을 할당해서 가지고 있으면 될 듯 합니다.


    • 2023-03-06 09:05

      @원조백수 님 답변 달아주셔서 감사합니다! 혹시 조금만 더 힌트를 주실 수 있을까요 ㅠㅠ?  다른변수에 지속적으로 값을 쌓아나가는것 같은데.. 값을 할당하는방법을 잘모르겠습니다..;;;


전체 18,532
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] IT/오피스 '1위' 베스트셀러! 엑셀 공부, 이 교재로 마스터하세요! (315)
오빠두엑셀 | 2022.02.03 | 추천 575 | 조회 609846
오빠두엑셀 2022.02.03 575 609846
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 310 | 조회 35585
오빠두엑셀 2021.10.28 310 35585
78582 함수/공식
New 조건 함수 의 관한 문의 엑셀파일첨부파일 (4) 답변완료
예쁜나야 | 2025.05.13 | 추천 0 | 조회 58
예쁜나야 2025.05.13 - 58
78580
New 날짜와 시간 분할 방법 알려 주세요 엑셀파일첨부파일 (2) 답변완료
계양산 지기 | 2025.05.13 | 추천 0 | 조회 53
계양산 지기 2025.05.13 - 53
78575 VBA
New 엑셀 재고관리 프로그램 문의드립니다.. 첨부파일 (2)
SJ | 2025.05.13 | 추천 0 | 조회 87
SJ 2025.05.13 - 87
78570 대시보드
New 대시보드에 표 형식으로 표현도 가능한가요? 첨부파일 (2)
룰루랄라 | 2025.05.12 | 추천 0 | 조회 88
룰루랄라 2025.05.12 - 88
78569 함수/공식
New 서로 다른 양식의 견적서 엑셀 파일 한곳에 정리 하기 (5)
gh**** | 2025.05.12 | 추천 0 | 조회 112
gh**** 2025.05.12 - 112
78565 함수/공식
New 검색보고서 만들기 질문드립니다. 엑셀파일 (9) 답변완료
만식이햄 | 2025.05.12 | 추천 0 | 조회 95
만식이햄 2025.05.12 - 95
78563 VBA
New VBA 수정 부탁드립니다. ㅠ (3)
서비 | 2025.05.12 | 추천 0 | 조회 86
서비 2025.05.12 - 86
78560 함수/공식
New 어떻게 내용을 가져올수 있을지 고수님들의 해결방법들을 공유 받고 싶습니다!!.... 엑셀파일첨부파일 (2)
꾸르형 | 2025.05.12 | 추천 0 | 조회 52
꾸르형 2025.05.12 - 52
78559 파워쿼리/피벗
New 엑셀 자동화 질문 입니다... 엑셀파일 (2) 답변완료
안녕하세여11 | 2025.05.12 | 추천 0 | 조회 77
안녕하세여11 2025.05.12 - 77
78555 함수/공식
New 시트에서 원하는 열의 자료만 가져오고싶은데 아무리 해도 수식오류가 나서 도움을 구하고자 합니다 엑셀파일 (4) 답변완료
khs**** | 2025.05.12 | 추천 0 | 조회 49
khs**** 2025.05.12 - 49
78554 함수/공식
New 변동하는 절대참조값 적용 (6) 답변완료
화이또! | 2025.05.12 | 추천 0 | 조회 74
화이또! 2025.05.12 - 74
78553 대시보드
New 대시보드_슬라이서 자동으로 눌러지게 하는방법 첨부파일 (1)
검도림 | 2025.05.12 | 추천 0 | 조회 56
검도림 2025.05.12 - 56
78548 대시보드
New 어떤 엑셀을 적용해야하는 지 문의드립니다! (1)
룰루랄라 | 2025.05.11 | 추천 0 | 조회 73
룰루랄라 2025.05.11 - 73
78546 함수/공식
New 월별 매출액 자동입력할 수 있는 방법 또는 함수 궁금합니다! 엑셀파일 (2)
mmm1010 | 2025.05.11 | 추천 0 | 조회 95
mmm1010 2025.05.11 - 95
78544 함수/공식
New 중복값 제거 함수에 관하여 엑셀파일첨부파일 (1) 답변완료
김지훈(Derek) | 2025.05.11 | 추천 0 | 조회 83
김지훈(Derek) 2025.05.11 - 83
78543 함수/공식
New 데이터 추출 및 정렬관련 초보질문 엑셀파일첨부파일 (5) 답변완료
김지훈(Derek) | 2025.05.11 | 추천 0 | 조회 80
김지훈(Derek) 2025.05.11 - 80
78540 함수/공식
New 오빠두LIVE 219회 - 엑셀 '셀 병합' 자동화 보고서 만들기 오빠두엑셀님의 방법이 궁금합니다. 첨부파일
AURIC | 2025.05.10 | 추천 0 | 조회 68
AURIC 2025.05.10 - 68
78536 함수/공식
New 월별로 금액적용후 최종월에 차액을 가감 함수가 필요해요 엑셀파일 (1) 답변완료
낮은자 | 2025.05.10 | 추천 0 | 조회 71
낮은자 2025.05.10 - 71
78535 기능/도구
New 엑셀로 25x25 인쇄가 가능한가요? (1)
망나 | 2025.05.10 | 추천 0 | 조회 56
망나 2025.05.10 - 56
78534 파워쿼리/피벗
New 쿼리에 함수 적용한 열 추가 시 24:00:00 활용한 계산 함수 필요할 때. 첨부파일 (2) 답변완료
신노스케 | 2025.05.10 | 추천 0 | 조회 71
신노스케 2025.05.10 - 71
78531 차트/그래프
New 엑셀 차트 데이터테이블 엑셀파일첨부파일 (1)
| 2025.05.09 | 추천 0 | 조회 81
2025.05.09 - 81
78530 구글시트
New 구글 스프레드시트 함수 관련 질문입니다. 엑셀파일첨부파일 (2)
동그이 | 2025.05.09 | 추천 0 | 조회 72
동그이 2025.05.09 - 72
78528 구글시트
New 구글 스프레드시트를 외부 엑셀 파일과 연동하는 방법이 궁금합니다. (3)
머우터덩 | 2025.05.09 | 추천 0 | 조회 75
머우터덩 2025.05.09 - 75
78525 문서서식
New 업무가 진행이 안 될 정도로, 해당 파일이 느립니다! 엑셀파일 (2)
빌스택스 | 2025.05.09 | 추천 0 | 조회 99
빌스택스 2025.05.09 - 99
78520 기능/도구
New 하이퍼링크 명칭 해제 (1)
min | 2025.05.09 | 추천 0 | 조회 58
min 2025.05.09 - 58
78518 피벗테이블
New 피벗테이블 관련 화살표 질문 첨부파일
이모비니 | 2025.05.09 | 추천 0 | 조회 55
이모비니 2025.05.09 - 55
78516 함수/공식
New 호봉산정 엑셀 문의드립니다. 엑셀파일첨부파일 (2) 답변완료
아르카디안 | 2025.05.08 | 추천 0 | 조회 65
아르카디안 2025.05.08 - 65
78515 함수/공식
New 엑셀 질문 드립니다.ㅠ.ㅠ 첨부파일 (1)
숲의사제 | 2025.05.08 | 추천 0 | 조회 62
숲의사제 2025.05.08 - 62
78511 함수/공식
New 입사일자로 부터 매년 알림 (2)
국빱 | 2025.05.08 | 추천 0 | 조회 76
국빱 2025.05.08 - 76
78510 문서서식
New 조건부 서식 적용 문의 엑셀파일첨부파일 (2) 답변완료
장수벌레 | 2025.05.08 | 추천 0 | 조회 109
장수벌레 2025.05.08 - 109