안녕하세요. 오즈맨 입니다.
 시트명은 STEP1 입니다.
 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
BCDEFGHIJKLMN
상품 현황   상품 현황    
             
수량단가금액 금액2 수량단가금액 금액2  
100 100 10,000  10,000  100 100 10,000 =H5*I510,000 =PRODUCT(H5:I5) 
10 200 2,000  2,000  10 200 2,000 =H6*I62,000 =PRODUCT(H6:I6) 
300 500 150,000  150,000  300 미정#VALUE!=H7*I7300 =PRODUCT(H7:I7) 
합계 162,000  162,000  합계 #VALUE! 12,300  12,000 
             
      =SUM(J5:J7)    
      =SUM(L5:L7)  
      =SUMPRODUCT(H5:H7,I5:I7)
             
    수량*단가 인 경우
    숫자와 문자를 곱하면 오류가 납니다
    따라서 오류가 있는 경우 합을 구할 수 없죠
    그러나 product 함수는 숫자가 아닌 값은 없는 셈 칩니다
    그렇다고 0 으로 취급하지는 않습니다
    계산 자체를 하지 않는것입니다
     
    이렇게 product 한 결과의 합을 구하는것이 sumproduct 입니다
     
    사용자의 의도대로 수량 영역*단가영역의 결과를 보면
    #VALUE!=SUMPRODUCT(H5:H7*I5:I7)
    역시나 오류가 납니다
    두 영역의 각 값을 곱하라고 사용자가 시킨 때문이죠
             
    그러나 곱하는건 내가 할테니 곱할 영역만 주세요
    이런 경우는 프로그램은 계산 을 하게되고 그 결과가 만들어집니다
    12,000 =SUMPRODUCT(H5:H7,I5:I7)
    따라서 원하는 결과를 만들려면  수식을 아래와 같이 사용합니다.
      =SUMPRODUCT( 영역 , 영역 )


STEP1
시트 에 사용한 수식
입니다. by MicroSoft Excel v 2007
   $ 가 있는 수식은 절대(혼합)참조로 셀 주소를 고정합니다. 참조하세요!!
No셀주소왼쪽의 셀에 수식을 넣으면 오른쪽 결과가 나옵니다.
(복사)를 누르면 셀의 수식이 클립보드(메모리)로 복사되는데,
익스플로러의 종류에 따라 (복사)가 작동이 안 될 수 있습니다.
결과수식을
1D5=B5*C510,000 
2 D5  셀의 수식을 여기에 복사하세요 -→ 
D5:D7,J5:J7
  
3F5=PRODUCT(B5:C5)10,000 
4 F5  셀의 수식을 여기에 복사하세요 -→ 
F5:F7,L5:L7
  
5K5=MyFormula(J5)=H5*I5
6 K5  셀의 수식을 여기에 복사하세요 -→ 
K5:K7,M5:M7,G24,G30
  
7D8=SUM(D5:D7)162,000 
8 D8  셀의 수식을 여기에 복사하세요 -→ 
D8,F8,J8,L8
  
9N8=SUMPRODUCT(H5:H7,I5:I7)12,000 
10H10=MyFormula(J$8)=SUM(J5:J7)
11H11=MyFormula(L$8)=SUM(L5:L7)
12H12=MyFormula(N$8)=SUMPRODUCT(H5:H7,I5:I7)
13F24=SUMPRODUCT(H5:H7*I5:I7)#VALUE!
14F30=SUMPRODUCT(H5:H7,I5:I7)12,000 

   보시는 내용은 위의 표에 값이, 아래의 표에는 해당 셀의 수식이 있습니다.   
   첨부파일을 참조하시구요 원하는 부분을 시트(셀)에 붙여 넣으세요.(사용자정의함수가 있습니다)
     도움이 되시기를 바랍니다.

   참고로 SUMPROODUCT 함수는   =SUMPRODUCT( 영역 , 영역 , 영역 ) 으로도 응용 가능합니다

   첨부 파일을 참조 바랍니다.

   아울러 http://ozman.tistory.com/103 도 참조해보셔요


                                                  


SUMPRODUCT이해.xlsm


Posted by 오즈맨스머프


  안녕하세요. 오즈맨 입니다.
 시트명은 Sheet11 입니다.
[ 수식에서 사용하는 -- 의 역할 1 ] 예제 입니다.
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
A B C D E
2010 년 4월 의 개수는???
날짜 조건 비교 결과 결과를 숫자로 결과를 숫자로 결과를 숫자로
2010-03-18 FALSE 0 #VALUE! 0
2010-03-24 FALSE 0 #VALUE! 0
2010-04-08 TRUE 1 #VALUE! 1
2010-04-13 TRUE 1 #VALUE! 1
2010-04-21 TRUE 1 #VALUE! 1
2010-04-28 TRUE 1 #VALUE! 1
2010-05-31 FALSE 0 #VALUE! 0
         
  0 4 뭔가…
잘 안되네요
4
  합이 안나옵니다 되네요^^ 되네요^^
    추천 1   추천 2
추천 2 방식이 속도가 가장 빠르더군요


Sheet11
시트 에 사용한 수식
입니다. by MicroSoft Excel v 2003
   $ 가 있는 수식은 절대(혼합)참조로 셀 주소를 고정합니다. 참조하세요!!
No 셀주소 왼쪽의 셀에 수식을 넣으면 오른쪽 결과가 나옵니다.
(복사)를 누르면 셀의 수식이 클립보드(메모리)로 복사되는데,
익스플로러의 종류에 따라 (복사)가 작동이 안 될 수 있습니다.
결과 수식을
1 B3 =TEXT(A3,"yyyy-mm")="2010-04" FALSE
2   B3  셀의 수식을 여기에 복사하세요 -→ B3:B9    
3 B11 =SUM(B3:B9) 0
4   B11  셀의 수식을 여기에 복사하세요 -→ B11:C11,E11    
5 C3 =(TEXT(A3,"yyyy-mm")="2010-04")*1 0
6   C3  셀의 수식을 여기에 복사하세요 -→ C3:C9    
7 D3 =VALUE(TEXT(A3,"yyyy-mm")="2010-04") #VALUE!
8   D3  셀의 수식을 여기에 복사하세요 -→ D3:D9    
9 E3 =--(TEXT(A3,"yyyy-mm")="2010-04") 0
10   E3  셀의 수식을 여기에 복사하세요 -→ E3:E9    

시트명은 Sheet12 입니다.
[ 수식에서 사용하는 -- 의 역할 -2 ] 예제 입니다.
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
B C D E F G
숫자입니다. 문자입니다 원 문자를
제거합니다.
제거하고
*1 합니다
Value
함수를
사용
합니다.
--를
사용
합니다.
다만
셀 서식이
# "원" 입니다.
10원 10원 10 10 10 10
20원 20원 20 20 20 20
30원 30원 30 30 30 30
40원 40원 40 40 40 40
100원 0 0 100 100 100
  합이 안 나옵니다.        
  0 100 100 100
    역시나 되네요^^ 되네요^^ 되네요^^
    안됩니다. 방법 1 방법 2 방법 3
방법 3 방식이 속도가 가장 빠르더군요


Sheet12
시트 에 사용한 수식
입니다. by MicroSoft Excel v 2003
   $ 가 있는 수식은 절대(혼합)참조로 셀 주소를 고정합니다. 참조하세요!!
No 셀주소 왼쪽의 셀에 수식을 넣으면 오른쪽 결과가 나옵니다.
(복사)를 누르면 셀의 수식이 클립보드(메모리)로 복사되는데,
익스플로러의 종류에 따라 (복사)가 작동이 안 될 수 있습니다.
결과 수식을
1 B9 =SUM(B5:B8) 100원
2   B9  셀의 수식을 여기에 복사하세요 -→ B9:G9    
3 D5 =SUBSTITUTE(C5,"원","") 10
4   D5  셀의 수식을 여기에 복사하세요 -→ D5:D8    
5 D11 =SUMPRODUCT(SUBSTITUTE(C5:C8,"원","")) 0
6 E5 =SUBSTITUTE(C5,"원","")*1 10
7   E5  셀의 수식을 여기에 복사하세요 -→ E5:E8    
8 E11 =SUMPRODUCT(SUBSTITUTE(C5:C8,"원","")*1) 100
9 F5 =VALUE(SUBSTITUTE(C5,"원","")*1) 10
10   F5  셀의 수식을 여기에 복사하세요 -→ F5:F8    
11 F11 =SUMPRODUCT(VALUE(SUBSTITUTE(C5:C8,"원",""))) 100
12 G5 =--SUBSTITUTE(C5,"원","") 10
13   G5  셀의 수식을 여기에 복사하세요 -→ G5:G8    
14 G11 =SUMPRODUCT(--SUBSTITUTE(C5:C8,"원","")) 100

   보시는 내용은 위의 표에 값이, 아래의 표에는 해당 셀의 수식이 있습니다.  
   첨부파일이 없습니다, 원하는 부분을 시트(셀)에 붙여 넣으세요.
     도움이 되시기를 바랍니다.
   참고로 !!!
   조건을 판단한 결과는 True / False 이라서 합을 구할 수 없습니다.
   그리고 Left/Right/Substitute 등의 함수로 구한 결과는 숫자가 아닙니다.
   그래서 -- 를 이용합니다.
   논리값에 -- 를 하면 True 는 1 로 False 는 0 으로 변경되고
   문자로 인식된 숫자는 올바른 숫자로 계산됩니다.
   그 결과를 이용하면 합을 구할때 편리합니다.




Posted by 오즈맨스머프


 [ SUMPRODUCT 사용 예제 - 2 ] 에 대해 알아봅니다.
   --->
   두 개의 열에서 OR 조건 개수 구하기
 
1
2
3
4
5
6
7
8
9
10
11
A B C D E F G H I J K L M
    홍길동 혹은 부산 의 개수는? 홍길동 혹은 부산 의 개수는? 한방에 모은다면?
이름 지역 홍길동? 부산 ? or 로... 숫자로 홍길동? 부산 ? or 로... 숫자로 조건1+2 [1+2]>0 ? 숫자로
홍길동 부산 TRUE TRUE TRUE 1 TRUE TRUE TRUE 1 2 TRUE 1
삼식이 제주 FALSE FALSE FALSE 0 FALSE FALSE TRUE 1 0 FALSE 0
심순애 부산 FALSE TRUE TRUE 1 FALSE TRUE TRUE 1 1 TRUE 1
홍길동 제주 TRUE FALSE TRUE 1 TRUE FALSE TRUE 1 1 TRUE 1
삼식이 부산 FALSE TRUE TRUE 1 FALSE TRUE TRUE 1 1 TRUE 1
심순애 제주 FALSE FALSE FALSE 0 FALSE FALSE TRUE 1 0 FALSE 0
홍길동 부산 TRUE TRUE TRUE 1 TRUE TRUE TRUE 1 2 TRUE 1
          5 뭔가 오류??? 7 7   5
단순히 + 를 OR 로 적용한 수식은 엉뚱한 결과가 나올 수 있습니다. 7     5


Sheet2
시트 에 사용한 수식
입니다. by MicroSoft Excel v 2003
   분홍색 수식이 있으면 수식 입력에 주의하세요 !!!배열수식이에요.
   수식만 입력
하고 Ctrl + Shift + Enter 하면 {} 는 자동으로 생깁니다.
   $ 가 있는 수식은 절대(혼합)참조로 셀 주소를 고정합니다. 참조하세요!!
No 셀주소 왼쪽의 셀에 수식을 넣으면 오른쪽 결과가 나옵니다.
(복사)를 누르면 셀의 수식이 클립보드(메모리)로 복사되는데,
익스플로러의 종류에 따라 (복사)가 작동이 안 될 수 있습니다.
결과 수식을
1 C3 =A3="홍길동" TRUE
2   C3  셀의 수식을 여기에 복사하세요 -→ C3:C9    
3 D3 =B3="부산" TRUE
4   D3  셀의 수식을 여기에 복사하세요 -→ D3:D9    
5 E3 =OR(C3,D3) TRUE
6   E3  셀의 수식을 여기에 복사하세요 -→ E3:E9    
7 F3 =E3*1 1
8   F3  셀의 수식을 여기에 복사하세요 -→ F3:F9    
9 G3:G9 =A3:A9="홍길동"
셀 주소 모두를 선택하고 입력하세요
TRUE
10 H3:H9 =B3:B9="부산"
셀 주소 모두를 선택하고 입력하세요
TRUE
11 I3:I9 =OR(G3:G9,H3:H9)
셀 주소 모두를 선택하고 입력하세요
TRUE
12 J3:J9 =I3:I9*1
셀 주소 모두를 선택하고 입력하세요
1
13 K3 =(A3="홍길동")+(B3="부산") 2
14   K3  셀의 수식을 여기에 복사하세요 -→ K3:K9    
15 L3 =K3>0 TRUE
16   L3  셀의 수식을 여기에 복사하세요 -→ L3:L9    
17 M3 =--L3 1
18   M3  셀의 수식을 여기에 복사하세요 -→ M3:M9    
19 F10 =SUM(F3:F9) 5
20   F10  셀의 수식을 여기에 복사하세요 -→ F10,J10:K10,M10    
21 J11 =SUMPRODUCT((A3:A9="홍길동")+(B3:B9="부산"))
 [참고] 생각치 못한 엉뚱한 결과입니다.
7
22 M11 =SUMPRODUCT(--((A3:A9="홍길동")+(B3:B9="부산")>0))
 [참고] 올바른 결과입니다.
5

   보시는 내용은 위의 표에 값이, 아래의 표에는 해당 셀의 수식이 있습니다.  
   첨부파일이 없습니다, 원하는 부분을 시트(셀)에 붙여 넣으세요.
   분홍색 수식이 있으면 수식 입력에 주의하세요 !!!
     도움이 되시기를 바랍니다.

   참고로 배열수식은...
   수식의 결과가 하나가 아닌 여러개의 결과를 가집니다.
   배열수식의 사용의 주된 용도는
   그 결과중 특정한 몇 번째 값을 가져오는 등의 용도입니다.
   수식을 입력할 때 수식입력줄에 {} 기호가 나오지 않는 것은
   수식을 입력할때 {} 문자를 사용자가 입력하는 것을 방지함이 그 목적이며
   이미 입력된 수식의 내용이 수식입력줄에서 {} 로 둘러싸이는 것은
   수식 입력을 배열수식 형태로 입력했다(컨트롤+시프트+엔터)는 의미이고
   이미 입력된 수식의 수식입력줄에 {} 가 보이지 않는것은
   실제 수식 내용이 배열수식일지라도
   사용자가 임의로(혹은 실수로) 일반수식처럼 입력했다는 의미입니다.

Posted by 오즈맨스머프


 [ SUMPRODUCT 사용 예제 - 1 ] 에 대해 알아봅니다.
   --->
   하나의 열에서 OR 조건 개수 구하기
 
1
2
3
4
5
6
7
8
9
10
11
A B C D E F G
  홍길동 혹은 삼식이 의 개수는? 한방에 모은다면?
이름 홍길동? 삼식이? 둘의 합 홍길동? 삼식이? 둘의 합
홍길동 TRUE FALSE 1 TRUE FALSE 1
삼식이 FALSE TRUE 1 FALSE TRUE 1
심순애 FALSE FALSE 0 FALSE FALSE 0
홍길동 TRUE FALSE 1 TRUE FALSE 1
삼식이 FALSE TRUE 1 FALSE TRUE 1
심순애 FALSE FALSE 0 FALSE FALSE 0
홍길동 TRUE FALSE 1 TRUE FALSE 1
  5   5     5
하나의 열에 or 조건을 사용하면 원하는 결과가 나옵니다.


Sheet1
시트 에 사용한 수식
입니다. by MicroSoft Excel v 2003
   분홍색 수식이 있으면 수식 입력에 주의하세요 !!!배열수식이에요.
   수식만 입력
하고 Ctrl + Shift + Enter 하면 {} 는 자동으로 생깁니다.
   $ 가 있는 수식은 절대(혼합)참조로 셀 주소를 고정합니다. 참조하세요!!
No 셀주소 왼쪽의 셀에 수식을 넣으면 오른쪽 결과가 나옵니다.
(복사)를 누르면 셀의 수식이 클립보드(메모리)로 복사되는데,
익스플로러의 종류에 따라 (복사)가 작동이 안 될 수 있습니다.
결과 수식을
1 B3 =A3="홍길동" TRUE
2   B3  셀의 수식을 여기에 복사하세요 -→ B3:B9    
3 C3 =A3="삼식이" FALSE
4   C3  셀의 수식을 여기에 복사하세요 -→ C3:C9    
5 D3 =B3+C3 1
6   D3  셀의 수식을 여기에 복사하세요 -→ D3:D9,G3:G9    
7 E3:E9 =A3:A9="홍길동"
셀 주소 모두를 선택하고 입력하세요
TRUE
8 F3:F9 =A3:A9="삼식이"
셀 주소 모두를 선택하고 입력하세요
FALSE
9 B10 =SUMPRODUCT((A3:A9="홍길동")+(A3:A9="삼식이")) 5
10 D10 =COUNTIF(A3:A9,"홍길동")+COUNTIF(A3:A9,"삼식이") 5
11 G10 =SUM(G3:G9) 5

   보시는 내용은 위의 표에 값이, 아래의 표에는 해당 셀의 수식이 있습니다.  
   첨부파일이 없습니다, 원하는 부분을 시트(셀)에 붙여 넣으세요.
   분홍색 수식이 있으면 수식 입력에 주의하세요 !!!
     도움이 되시기를 바랍니다.

   참고로 배열수식은...
   수식의 결과가 하나가 아닌 여러개의 결과를 가집니다.
   배열수식의 사용의 주된 용도는
   그 결과중 특정한 몇 번째 값을 가져오는 등의 용도입니다.
   수식을 입력할 때 수식입력줄에 {} 기호가 나오지 않는 것은
   수식을 입력할때 {} 문자를 사용자가 입력하는 것을 방지함이 그 목적이며
   이미 입력된 수식의 내용이 수식입력줄에서 {} 로 둘러싸이는 것은
   수식 입력을 배열수식 형태로 입력했다(컨트롤+시프트+엔터)는 의미이고
   이미 입력된 수식의 수식입력줄에 {} 가 보이지 않는것은
   실제 수식 내용이 배열수식일지라도
   사용자가 임의로(혹은 실수로) 일반수식처럼 입력했다는 의미입니다.

Posted by 오즈맨스머프


  안녕하세요. 오즈맨 입니다.
  배열수식의 내용을 알아봅니다.    시트명은 Korean 입니다.
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
19994
19995
19996
19997
19998
19999
20000
A B C D E F G H I J K L M
1989-08/17

3955 형식1=SUMPRODUCT(--(조건))

1995-06/10

16045 형식1=SUMPRODUCT(--(조건))

1973-04/27

3955 형식2=SUMPRODUCT((조건)*1)

1963-06/13

16045 형식2=SUMPRODUCT((조건)*1)

1982-10/14

3955 형식3 배열수식=SUM(IF(조건,1,""))}

1967-01/07

16045 형식3 배열수식=SUM(IF(조건,1,""))}

1975-05/12
각 형식 별 소요시간 계산 (총 10 회)  단위 초/ % 평균
1954-01/16 형식 1 2.047 2.031 2.063 2.063 2.063 2.094 2.063 2.063 2.047 2.031 2.056
1957-01/22











1955-02/19 형식 2 2.078 2.047 2.078 2.078 2.109 2.094 2.094 2.109 2.125 2.063 2.088
1975-03/13 1과의 차이 0.031 0.016 0.016 0.016 0.047 0.000 0.031 0.047 0.078 0.031 0.031
1985-05/03 비율 1.53% 0.77% 0.76% 0.76% 2.27% 0.00% 1.52% 2.27% 3.82% 1.54% 1.52%
1956-02/24











1997-08/05 형식 3 2.172 2.219 2.203 2.188 2.250 2.203 2.172 2.172 2.203 2.203 2.198
1989-08/17 1과의 차이 0.125 0.188 0.141 0.125 0.188 0.109 0.109 0.109 0.156 0.172 0.142
1950-10/02 비율 6.11% 9.23% 6.82% 6.06% 9.09% 5.22% 5.30% 5.30% 7.63% 8.46% 6.92%
1954-06/07











1992-05/25











1958-03/01                      준비한 자료
   1949.10.30~2007.4.27 까지의 불규칙한 날짜 20,000 개
   경과기간이 50년 이하, 초과 를 구분해서 개수를 구함
   부득이하게
   하나의 조건으로 sumproduct 혹은 배열수식 sum(if( 를 사용할 경우 자료입니다
2005-02/07
1990-09/04
1972-09/25
1951-03/20
1957-10/06


Korean
시트 에 사용한 수식
입니다. by MicroSoft Excel v 2003
   분홍색 수식이 있으면 수식 입력에 주의하세요 !!!배열수식이에요.
   수식만 입력
하고 Ctrl + Shift + Enter 하면 {} 는 자동으로 생깁니다.
   $ 가 있는 수식은 절대(혼합)참조로 셀 주소를 고정합니다. 참조하세요!!
No 셀주소 왼쪽의 셀에 수식을 넣으면 오른쪽 결과가 나옵니다.
(복사)를 누르면 셀의 수식이 클립보드(메모리)로 복사되는데,
익스플로러의 종류에 따라 (복사)가 작동이 안 될 수 있습니다.
결과 수식을
1 C11 =C10-C$8 0.031
2   C11  셀의 수식을 여기에 복사하세요 -→ C11:L11,C15:L15

3 C12 =C11/C$8 1.53%
4   C12  셀의 수식을 여기에 복사하세요 -→ C12:L12,C16:L16

5 D1 =SUMPRODUCT(--(DATEDIF(A1:A20000,TODAY(),"y")>50)) 3955
6 D2 =SUMPRODUCT(--(DATEDIF(A1:A20000,TODAY(),"y")< =50)) 16045
7 D3 =SUMPRODUCT((DATEDIF(A1:A20000,TODAY(),"y")>50)*1) 3955
8 D4 =SUMPRODUCT((DATEDIF(A1:A20000,TODAY(),"y")< =50)*1) 16045
9 D5 =SUM(IF(DATEDIF(A1:A20000,TODAY(),"y")>50,1,"")) 3955
10 D6 =SUM(IF(DATEDIF(A1:A20000,TODAY(),"y")< =50,1,"")) 16045
11 M8 =AVERAGE(C8:L8) 2.056
12   M8  셀의 수식을 여기에 복사하세요 -→ M8,M10:M12,M14:M16



sumproduct 앞의 -- 는 뺄셈이 아니라
단순히 ((부호변경))을 함으로써 논리값(True/False)을 1/0 으로 변경합니다.
뺄셈이 아니므로 소요시간이 덜 걸리는 잇점이 있습니다.



   보시는 내용은 위의 표에 값이, 아래의 표에는 해당 셀의 수식이 있습니다.  
   첨부파일이 없습니다, 원하는 부분을 시트(셀)에 붙여 넣으세요.
   분홍색 수식이 있으면 수식 입력에 주의하세요 !!!
   ※ 만일 수식에 사용된 공백때문에 오류(다른 값)가 나오면 공백을 확인바랍니다.


-- 사용한 코드입니다 -- Option Explicit
Sub x()
Dim t(1 To 6) As Double, i As Double
Dim Answ(1 To 9, 1 To 1)
Dim rng As Range
Sheet1.Range("o1") = "."
Sheet1.Range("b1:b2").ClearContents
Sheet2.Range("o1") = "."
Sheet2.Range("b1:b2").ClearContents
Range("b1").Formula = "=SUMPRODUCT(--(DATEDIF(A1:A20000,TODAY(),""y"")>50))"
Range("b2").Formula = "=SUMPRODUCT(--(DATEDIF(A1:A20000,TODAY(),""y"")<=50))"
    t(1) = Timer
    For i = 1 To 10
    Application.Calculate
    Next
    t(2) = Timer    
Range("b1").Formula = "=SUMPRODUCT((DATEDIF(A1:A20000,TODAY(),""y"")>50)*1)"
Range("b2").Formula = "=SUMPRODUCT((DATEDIF(A1:A20000,TODAY(),""y"")<=50)*1)"
    t(3) = Timer
    For i = 1 To 10
    Application.Calculate
    Next
    t(4) = Timer
Range("b1").FormulaArray = "=SUM(IF(DATEDIF(A1:A20000,TODAY(),""y"")>50,1,""""))"
Range("b2").FormulaArray = "=SUM(IF(DATEDIF(A1:A20000,TODAY(),""y"")<=50,1,""""))"
    t(5) = Timer
    For i = 1 To 10
    Application.Calculate
    Next
    t(6) = Timer
Answ(1, 1) = (t(2) - t(1)) / 24 / 60 / 60 '첫결과
Answ(3, 1) = (t(4) - t(3)) / 24 / 60 / 60 '결과2
Answ(5, 1) = (t(6) - t(5)) / 24 / 60 / 60 '결과3
    Set rng = Range("iv1").End(xlToLeft).Offset(, 1)
    rng.Resize(5, 1).NumberFormat = "[s].000"
    rng.Resize(5, 1) = Answ
Erase t
Erase Answ
Set rng = Nothing
Range("b1:b2").ClearContents
Beep
End Sub

Posted by 오즈맨스머프