[VBA 제 53강] Sumifs함수(배열) 썸네일 이미지
[VBA 제 53강] Sumifs함수(배열)
콘텐츠 타입 MS 오피스 엑셀 2003(2007, 2010가능), Windows XP 이상
용량0KB
조회3,453
즐겨찾기
[VBA 제 53강] Sumifs함수(배열)를 즐겨찾기 한 횟수는 0 0입니다.
이용등급 유료 (회원권 or 단품 구매)
평생이용

엑셀쿠키는 한 번의 다운로드로 평생 이용하실 수 있습니다. 프로그램과 데이터를 고객의 PC에 저장하여 사용하는 형식이라 안전하게 사용 가능합니다. 이용 기간에 따른 추가 비용이 발생하지 않아 매우 경제적입니다.

맞춤형

중소기업의 개별 특성, 다양한 업무를 상황별로 고려하여 제작된 프로그램을 업데이트합니다. 분야별 5,000여 개의 프로그램 중 내 업무에 맞는 프로그램을 다운받는 맞춤형 서비스입니다.

쉬운 활용

쿠키 프로그램은 MS Excel의 기본 사용법만 알면 즉시 사용할 수 있는 매운 쉬운 프로그램으로 누구나 손쉽게 배우고 사용할 수 있습니다.

중소기업의 모든 업무자동화!

엑셀쿠키로 모두 해결하세요!
1 Vector 11
image 59
image 60
image 56
Pro display XLS Vector 12
Microsoft Excel 표준

쿠키의 업무자동화 프로그램은 VBA 코드로 개발된 제품으로
MS Excel 프로그램 기반으로 사용 가능하며,
자체적으로 개발한 기능은 물론,
MS Excel의 강력한 기능을 모두 사용하실 수 있습니다.

241202_coukey_BI_white2_07

엑셀쿠키는 기업의 생산성을 높이는 업무자동화 지원 프로그램입니다.

image 62 image 70 image 61 image 71 image 65 image 66 image 64 image 68
image 63 image 69
제품 상세정보

 




[ 기초 강좌 ]

 

제 53 강

Sumifs함수(배열)

 

Excel의 생명이라고 할 수 있는 Sumifs함수(배열)

그 사용법을 알아봅니다.

이럴 때 필요해요

 

수 없이 많은 자료들을 정리하여 합계(Total)를 구하려 할 때 필요합니다.

이렇게 사용해요

아래의 그림에서 셀번호가 5000이 넘을 정도의 데이터가 있다면,

성명, 지역, 실적을 정리할 때 어떻게 해야할까요? 

 

 

 

아래의 수식을 따라 작성 해보세요.

Sub Macro()
 Dim strT As String
 Dim X As New Collection
 Dim A, Rev() As Variant, T As Variant
 Dim c As Integer
 Dim n As Long, i As Long
 
  Application.ScreenUpdating = False
    With Sheets("Data")
       ReDim A(1 To 3)
     For c = 3 To 5
        Set A(c - 2) = .Columns(c)
       Next c
     T = .Range("C3").CurrentRegion.Value
    End With
  
      On Error Resume Next
    For i = 2 To UBound(T)
        strT = T(i, 1) & T(i, 2)
         X.Add strT, CStr(strT)
    If Err.Number <> 457 Then
       ReDim Preserve Rev(1 To 3, n)
        Rev(1, n) = T(i, 1)
        Rev(2, n) = T(i, 2)
        Rev(3, n) = WorksheetFunction.SumIfs(A(3), A(1), T(i, 1), A(2), T(i, 2))
           n = n + 1
         End If
       Err.Clear
     Next i
 
    With Range("B4")
      .CurrentRegion.ClearContents
      .Offset(1).Resize(n, 3) = Application.Transpose(Rev)
      .Resize(, 3) = Array("성명", "지역", "실적합계")
    End With
End Sub 

 

 

실행을 하시면, 아래의 그림처럼 성명,지역에 맞게 실적합계가 정리 되어있는 것을 볼 수 있습니다.



 

 

저작권정보
1. 콘텐츠의 저작권은 쿠키(www.coukey.co.kr)에 있으며, 사용권한은 1인 1카피입니다.
2. 다운로드 받은 콘텐츠는 본인(본인회사)만 사용할 수 있습니다.
3. 다른 사람과 공유하거나 원본 또는 수정 후 무단전제,무단배포,무단판매,무단 공유할 수 없습니다.
4. 웹상에서 배포는 상업,비상업적 목적을 불문하고, 손해배상등 가중처벌됩니다.
[VBA 제 53강] Sumifs함수(배열)
이용후기

업무자동화 맞춤제작

고객님의 상황에 100% 맞춘 콘텐츠 제작 전문 서비스를 이용해 보세요.
프리미엄 무료 이벤트 중