1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

저번에 질문하고 1차로 해결되어서 무척 즐겁게 작업을 할 수 있었는데...

또다른 질문거리가 생겨서 죄송합니다.

 

첨부 파일의 "11"sheet 의 <통계처리/click> 버튼을 누르면

"누가기록"sheet의 내용을 통계처리하게 되어있는데

이것을 저는 다음과 같이 배열식을 사용해서 문장을 작성했습니다.

 

Selection.FormulaArray = "=SUM((기록_학번=RC2)*(기록_장학금종류=R7C)*(기록_장학금))"
   
   
    Selection.AutoFill Destination:=Range("H9:AQ9"), Type:=xlFillValues
    Range("H9:AQ9").Select
   
    Selection.AutoFill Destination:=Range("H9:AQ48"), Type:=xlFillValues
    Range("H9:AQ48").Select
    Selection.Copy
   
    Range("H9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H9").Select

 

그런데 실행시켜 보면 잘 아시겠지만 처리하는데 시간이 무척 오래 걸립니다.

데이터가 몇 개 안되는데도 이렇게 시간이 걸리면 프로그래머로서의 자격이 없는것 같은데...

 

제가 VBA는 아직 초보라 달리 좋은 방법을 생각할 수 없습니다.

고수님들의 고견을 듣고 싶습니다.

 


댓글 '3'

profile

[레벨:30]아별

2009.07.07 18:41:13
*.107.204.56

배열 수식에 사용한 영역 이름이 무궁무진해서 처리속도가 무쟈게 오래 걸린겁니다.

1 by 65533 의 테이블을 3개나 배열 수식으로 물려놓았으니.. 컴퓨터가 해야할 연산수는? ㅎㄷㄷ

아래와 같이 수정해주시면 처리속도가 빨라집니다.

 

첨부파일을 참고하세요..

다운받기 : abyul_20090707_JangHak_v15.zip

 

수고하세요.. ^^

 

 

 

▲ 문제의 배열 수식
 "=SUM((기록_학번=RC2)*(기록_장학금종류=R7C)*(기록_장학금))" 
▲ 이름 수정 필요

이름

참조대상_최초

참조대상_수정

기록학번 =누가기록!$A$3:$A$65536 =INDIRECT("누가기록!$A$3:$A"&COUNTA($A$3:$A$65536)+2)
기록_장학금종류 =누가기록!$D$3:$D$65536 =INDIRECT("누가기록!$D$3:$D"&COUNTA($D$3:$D$65536)+2)
기록_장학금 =누가기록!$F$3:$F$65536 =INDIRECT("누가기록!$F$3:$F"&COUNTA($F$3:$F$65536)+2)

첨부

[레벨:1]사오정원조

2009.07.08 00:04:43
*.44.210.228

어떻게 이렇게 쉽게 작성하는지?

그저 감탄만 나올 뿐입니다.

가까이 있으면 밤새 술이라도 대접해 드리고 싶네요.

거듭 감사드립니다.

profile

[레벨:30]아별

2009.07.08 00:22:41
*.130.73.19

도움이 되셨다니 다행입니다. ^^

저도 처음에 VBA작성할때는 엄청 고생했습니다.

그런 시간들이 조금씩 모이다 보니 이제 겨우 틀이 잡히는 것 같습니다.

저도 엑사모나 편무학엑셀 유노21등 쟁쟁한 사이트에 돌면서 묻고 도움을 받고 그러면서 배웠습니다.

그곳에 계신 쟁쟁한 고수님들에 비하면 저는 아직 미숙할뿐입니다.

하루 빨리 원하시는 프로그램 구현하시길 기원합니다. ^^

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 54545
42 날짜/시간 수식 엑셀에서 특정날짜 삽입하기. imagefile [2] [레벨:2]flash 2009-07-20 8988
41 이미지,도형 등 VBA로 matlab에 있는 imagesc 함수 구현 방법 [레벨:1]느껴져 2015-09-19 9000
40 인쇄 미리보기후 생기는 점선 사라지게 하는방법 [7] [레벨:1]어쩌면 2010-11-04 9170
39 엑셀질문이요 -> 다중 조건 값 찾기, 유효성 검사, 이름 지정, DB로 변환 file [3] [레벨:1]안녕하기 2010-01-12 9190
38 아별툴관련질문 아별 자동 암호설정툴 버그발생 관련 문의드립니다. imagefile [레벨:1]달과6펜스 2016-04-01 9227
37 자동채우기 기능 imagefile [1] [레벨:1]체이스비 2009-09-01 9240
36 셀서식(표시형식) 셀서식이 강제로 변경되는거 같습니다. [레벨:1]곤냥이 2015-10-03 9254
35 엑셀일반 목록에서 특정 단어가 포함되는 목록만 콤보박스에 넣을수 있을까요? imagefile [레벨:1]baddisk 2016-01-09 9296
34 엑셀일반 엑셀 줄 간격에 대해서 [1] [레벨:3]빛의행운아 2011-12-28 9321
33 열숨기기 한 값은 무시하고 합계를 알 수 있는 함수는 어디 없나요? file [7] 안녕하세요 2010-03-14 9333
32 VBA 매크로를 이용한 exe 파일 자동 실행 방법 문의~ imagefile [레벨:1]hickel 2016-09-07 9456
31 엑셀일반 [긴급문의] 엑셀의 특정셀의 값들이 사라집니다. [1] [레벨:1]용님 2015-09-02 9460
30 셀 색깔별 정렬 [1] [레벨:5]눈물바다 2009-09-30 9522
29 엑셀에서 위아래셀 비교후 숫자큰 것에 자동으로 노란색으로 칠하려면 어떻게 해야되는지 궁금합니다 [3] [레벨:1]라빈1124 2010-03-10 9527
28 VBA 컴파일 에러가 나요? [레벨:1]구름바다 2015-09-14 9587
27 특정데이터만 추출하기 imagefile [4] 재청 2009-07-10 9751
26 VBA 추가기능 파일 수정 관련 file [1] [레벨:4]고수가되고파 2015-04-03 9935
25 시트 이동/복사 시 나오는 에러에 대해 질문드립니다 [1] [레벨:1]잔차 2010-02-10 9971
24 VBA 매크로 질문 드립니다. [레벨:1]ORACLE 2016-08-16 10007
23 두 자료를 비교하여 같은 값을 다른 시트에... file [1] [레벨:1]프로도 2010-05-11 10207