|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
고수님들 수고하십니다^^;;
답변좀 해주시기를....(__)
예제파일처럼 회색으로 되어있는 셀들의 합계숫자를 알 수 있는지...
그러니까 회색으로 된 셀들이 몇개인지 궁금한겁니다.^^;;
또 회색의 셀들만 한꺼번에 복사하여 붙여 넣을수 있는지..
각 셀들을 ctrl키를 써서 복사 할려고 하니 다중셀이라 되지 않는다고
하네요...ㅡㅡ;;
바쁘시겠지만 답변좀 부탁드립니다.
==============[카룬의새벽님 글에 대한 답변입니다]==============
VBA를 이용하시는 것이 어떨지..
데이터 범위가 크면 클수록 시간은 걸리겠지만..
아래와 같은 코드로 구할 수 있습니다.
첨부파일 참고하십시요
Sub 회색셀합계()
Dim r, rng As Range
Dim sum As Long
Dim CountGrey As Long
Set rng = [b2:q40]
For Each r In rng
If r.Interior.ColorIndex = 15 Then
sum = sum + r.Value
CountGrey = CountGrey + 1
End If
Next r
MsgBox "회색셀의 총합은" & sum & "이고" & vbCr & "회색셀의 총 갯수는" & CountGrey & "개입니다"
End Sub |
|