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

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

특정데이터만 추출하기

조회 수 9478 추천 수 0 2009.07.10 11:48:43
재청 *.192.166.137

안녕하세요..

 

검색을 해보아도 나오질 않아서, 질문올립니다.

 

특정 데이터

test1.JPG

 

이러한 데이터가 있는데요.

 

저 노란색 셀은 SUM함수를 이용한 합계 셀이구요.

 

저 노란셀의 값만 따로 뽑아내서

 

순차적으로 즉,

 

9,200

17.300

19,100

이런식으로 셀에 입력 시키고싶은데요.

 

어떠한 좋은 방법이 없을까요? 매크로를 이용하면 될거같은데.,,

좋은 방법 부탁드립니다.

 

아 그리고 저 노란셀은 매크로를 이용해서

SUM구문이 들어간 셀만 색을 변경시키는 구문을 썼습니다.

Sub 합계음영()
    Dim C As Range
    For Each C In Selection
        If C.HasFormula And InStr(C.Formula, "SUM") Then
            C.Interior.Color = vbYellow
        End If
    Next C
End Sub

이렇구요. 이걸보면 if문을 이용해 sum이 들어간 셀만

응용해서 순차적으로 입력시키고 싶은데... 아직 내공이 딸려서 되질않네요.

 

좋은 의견 부탁드립니다..

 


댓글 '4'

profile

[레벨:30]아별

2009.07.10 13:23:19
*.107.204.56

메뉴에서 데이터 > 필터 > 자동 필터 적용하시구요..

D열에서 "필드 값 없음"으로 필터링 하시면, 저 합계 열만 보일테니..

그대로 복사해서 사용하시면 될 것 같습니다.

 

엑셀 일반 기능으로 가능한 일은 매크로를 쓰지 않는게 좋을 것 같네요.. ^^

재청

2009.07.10 13:30:55
*.192.166.137

필드값에 합계만나오질않고 다른데이터도 나오네요 ㅠㅠ''

 

노란샐만 나오게하고싶은데 ㅠㅠ

profile

[레벨:30]아별

2009.07.11 13:36:53
*.166.56.137

자세히 보니, 님의 데이터가 DataBase 형태가 아니군요..

* DB는 아래처럼 관리해야 효율성이 높습니다.

  항목4를 "필드값 없음"으로 필터링 하면 Sum()함수가 들어있는 셀만 필터링 됩니다.

abyul_20090710_findSumFormula.jpg

 

 

 

 

 

머.. 님께서 사정이 있으셔서 저렇게 구성을 할 수 밖에 없었다면..

VB로 원하는 결과를 뽑아올수 있습니다.

첨부파일을 참고하세요. (다운 받기 : abyul_20090710_findSumFormula.xls )

 

첨부파일에는 아래의 코드가 작성돼 있습니다.

님이 제공하신 코드에다가, 컬렉션을 이용하여 sum()수식이 있는 셀의 값들을 모았습니다.

 

Option Explicit

Sub 합계음영()
    Dim i As Integer
    Dim C As Range
    Dim SumCollection As New Collection

    For Each C In ActiveSheet.UsedRange
        If C.HasFormula And InStr(C.Formula, "SUM") Then              
            C.Interior.Color = vbYellow
            SumCollection.Add C.Value
        End If
    Next C

    Range("a22").Select
    For i = 1 To SumCollection.Count
        ActiveCell.Value = SumCollection(i)
        Selection.Offset(1, 0).Select
    Next i

End Sub

 

첨부

재청

2009.07.13 18:06:16
*.192.166.137

자료정말감사합니다. 답변감사합니다.

 

데이터베이스로 앞으로 입력을 해야겠네요. 그냥 단순보고 치는 입력만해가지고...

 

많이 배웠습니다.

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40193
821 엑셀일반 엑셀파일 비밀번호 단체 설정 가능한가요? [30] [레벨:4]쟈니 2012-06-18 53736
820 엑셀일반 회원만 질문을 올릴 수 있습니다. [레벨:30]아별 2010-09-21 33139
819 기타 [필독] 질문시.. 엑셀 파일 첨부, 윈도우버전과 엑셀버전 표기, 답변 받으면 피드백 댓글 꼭 달기.. [레벨:30]아별 2011-08-11 26717
818 엑셀일반 행높이 최대치 조절 가능할까요? _ Excel 사양 및 제한 [3] [레벨:6]파이스 2012-06-01 14257
817 엑셀 웹커리에서 URL 바꾸기 매크로 질문 [1] [레벨:1]밥사마 2009-09-01 13153
816 엑셀- sumif와 sumcol 혼용사용에 대해서 (급해요) [1] 아놔 2009-07-31 12874
815 엑셀일반 엑셀에서 사진 고정하는 방법 없을까요? [3] [레벨:3]빛의행운아 2012-07-30 12555
814 제가 해외 사우디에서 파일을 받았는데 글씨가 계속 깨짐니다. file [1] [레벨:0]홍콩중국홍콩 2010-05-10 10881
813 또 다시 질문이 있어서 왔습니다. (일자별 관리시트에서 이전 시트 값(전일 잔액 등) 자동 불러오기) file [1] [레벨:3]harcz 2010-05-22 10838
812 엑셀수식 3차 방정식 풀기. [1] [레벨:3]rynoel 2012-06-13 10688
811 엑셀에서 지수값 계산하기 [1] [레벨:2]양다원 2009-07-21 10348
810 셀색깔별로 합계를 내고 싶습니다. file [1] [레벨:1]지민 2010-04-09 10329
809 엑셀에서 복사할 때 행 및 열넓이까지 그대로 복사하는 방법 [7] [레벨:2]만쥬 2010-12-07 10169
808 엑셀 주식형 차트 2009-08-17 9904
807 엑셀에서 특정데이터 불러오기 [1] [레벨:1]쒸뱅이 2009-07-17 9858
806 엑셀일반 셀 안에 삽입된 이미지의 정가운데(가로+세로)정렬 방법이 궁금합니다. [6] [레벨:6]파이스 2011-10-11 9779
805 VBA 엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select imagefile [1] [레벨:5]눈물바다 2009-08-27 9730
804 두 자료를 비교하여 같은 값을 다른 시트에... file [1] [레벨:1]프로도 2010-05-11 9653
803 시트 이동/복사 시 나오는 에러에 대해 질문드립니다 [1] [레벨:1]잔차 2010-02-10 9617