이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
안녕하세요..
검색을 해보아도 나오질 않아서, 질문올립니다.
특정 데이터
이러한 데이터가 있는데요.
저 노란색 셀은 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'
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142726point, 레벨:30/30"){kind=icon}
아별자세히 보니, 님의 데이터가 DataBase 형태가 아니군요..
* DB는 아래처럼 관리해야 효율성이 높습니다.
항목4를 "필드값 없음"으로 필터링 하면 Sum()함수가 들어있는 셀만 필터링 됩니다.
머.. 님께서 사정이 있으셔서 저렇게 구성을 할 수 밖에 없었다면..
VB로 원하는 결과를 뽑아올수 있습니다.
첨부파일을 참고하세요. (다운 받기 : abyul_20090710_findSumFormula.xls )
첨부파일에는 아래의 코드가 작성돼 있습니다.
님이 제공하신 코드에다가, 컬렉션을 이용하여 sum()수식이 있는 셀의 값들을 모았습니다.
|
Option Explicit Sub 합계음영() For Each C In ActiveSheet.UsedRange Range("a22").Select End Sub |
메뉴에서 데이터 > 필터 > 자동 필터 적용하시구요..
D열에서 "필드 값 없음"으로 필터링 하시면, 저 합계 열만 보일테니..
그대로 복사해서 사용하시면 될 것 같습니다.
엑셀 일반 기능으로 가능한 일은 매크로를 쓰지 않는게 좋을 것 같네요.. ^^