필터링 된 목록에서 합계 값: PRJ 매크로

기술 자료 번역 기술 자료 번역
기술 자료: 124482 - 이 문서가 적용되는 제품 보기.
모두 확대 | 모두 축소

이 페이지에서

요약

"추가 정보" 절의 매크로 예제 프로젝트 이 문서에서는 숫자 값을 표시 하 고 표시 되는 작업 목록에서 합계를 계산합니다 작업 목록 맨 아래에 행에서 전체.

추가 정보

Microsoft은 Visual Basic for Applications 프로시저에 대 한 예제 제공 그림, 보증 표현 된 또는 묵시적인 포함 하 여, 적합성의 묵시적된 보증에 국한 되지 특정 목적을 위해. 이 문서에서는 Visual Basic 절차 '있는 그대로' 제공 하며 Microsoft에서에서 사용할 수 있음을 보증 하지 않습니다. 모든 상황입니다. Microsoft 지원 전문가 게 설명 하는 데 도움이 됩니다 되는 동안은 특정 매크로를 기능을 이러한 예제를 수정 하지는 않습니다. 추가 기능을 제공 하거나 매크로 생성 하는 데 도움이 됩니다. 사용자의 특정 요구를 충족 합니다. 프로그래밍 경험을 제한 된 사용자 Microsoft 솔루션 공급자 중 하나를 참조 하십시오 할 수 있습니다. 솔루션 공급자는 다양 한 범위의 만들기 등 요금 기반 서비스 제공 사용자 지정 매크로입니다. Microsoft 솔루션 공급자에 대 한 자세한 내용은 Microsoft 고객 만족 센터 (800) 426-9400 호출 합니다.

다음 매크로 모두 표시의 번호 1 필드의 값 합계 작업을 합니다. 이 매크로 실행 하면 "합계" 라는 새 작업을 만들어집니다. 하 고 현재 프로젝트의 끝에 표시 합니다. 이 번호 1 필드 작업은 모든 다른 표시에 대해 번호 1 값의 합계가 포함 됩니다. 작업을 합니다.

Microsoft Project 2010과 2013

  1. 보기 리본에서 매크로 선택한 매크로 보기를클릭 하십시오.
  2. 이름 입력 "SumFilteredList를 클릭 하 고 만들기.
  3. 에 Visual Basic 편집기에서 열려 있는 Module1 다음 6 단계에서 코드를 복사 합니다.
이 매크로 사용 하려면 다음과 같이 하십시오.

  1. 테이블에 Gantt 차트를 사용 하는 작업 보기를 선택 합니다.
  2. 숨기 거 나 하위 작업이 표시 하거나 필터를 적용 하 여 합계를 계산 하 여 원하는 작업만 표시 합니다.
  3. 보기 리본에서 매크로선택 하 고 매크로 보기클릭.
  4. 매크로 목록에서 SumFilteredList를 선택한 다음 실행을 클릭 합니다.


Microsoft Project 98, 2000, 2002, 2003 및 2007
  1. 도구 메뉴에서 매크로를 가리킨 다음 매크로 클릭 합니다.
  2. 매크로 이름 필드에 SumFilteredList를 입력 합니다. 만들기를 클릭 합니다.
  3. Microsoft 프로젝트 2010
  4. 보기 탭을 선택 하 고 매크로 클릭 합니다.
  5. 매크로 대화 상자에서 매크로 이름이 SumFilteredList 형식 정리 및 만들기를 클릭 합니다.
  6. Visual Basic 편집기에서 다음 코드를 입력 합니다.
          Sub SumFilteredList()
          ' This macro totals up the values in the Number1 field
          ' for all visible (filtered) tasks, and displays this total
          ' at the bottom of the task list.
    
          Dim oTask As Task          ' Current task pointer
          Dim oTotalTask As Task     ' Totals task pointer
          Dim fTotal As Single       ' Used to hold totals
    
             ' Ignore error generated by trying to delete a task
             ' that does not exist.
             On Error Resume Next
             ' If totals task is present, delete it.
             ActiveProject.Tasks("Total:").Delete
             ' Re-enable default error handling
             On Error GoTo 0
    
             ' Select visible tasks
             SelectAll
             ' If tasks are selected, then loop through each of them
             If Not (ActiveSelection.Tasks Is Nothing) Then
                For Each oTask In ActiveSelection.Tasks
                    ' Add Number1 for each task to total
                   fTotal = fTotal + oTask.Number1   ' Field to Sum
                Next oTask
             Else
                ' There's nothing to add
                Exit Sub
             End If
    
              ' Create Totals task so it's visible
             Set oTotalTask = ActiveProject.Tasks.Add("Total:")
    
             ' Insure "Totals:" task is at outline level 1 (not indented)
             Do Until oTotalTask.OutlineLevel = 1
                  oTotalTask.OutlineOutdent
             Loop
    
             ' Put total in proper field
             oTotalTask.Number1 = fTotal             ' Field containing total
    
             ' Hide task bar for this task
             oTotalTask.HideBar = True
             ' Select totals row
             SelectRow oTotalTask.ID, False
             ' Set font to bold
             FontBold Set:=True
    
          End Sub
    						

Microsoft 프로젝트 4.x

  1. 도구 메뉴에서 매크로 클릭 합니다.
  2. 새로 만들기를 클릭 합니다.
  3. 매크로 이름 필드에 입력 합니다. SumFilteredList. 확인을 클릭 합니다.
  4. 모듈 편집기에서 다음 코드를 입력 합니다.
          Sub SumFilteredList()
          ' This macro totals up the values in the Number1 field
          ' for all visible (filtered) tasks, and displays this total
          ' at the bottom of the task list.
    
          Dim oTask As Task          ' Current task pointer
          Dim oTotalTask As Task     ' Totals task pointer
          Dim fTotal As Single       ' Used to hold totals
    
             ' Ignore error generated by trying to delete a task
             ' that does not exist.
             On Error Resume Next
             ' If totals task is present, delete it.
             ActiveProject.Tasks("Total:").Delete
             ' Re-enable default error handling
             On Error GoTo 0
    
             ' Select visible tasks
             SelectAll
             ' If tasks are selected, then loop through each of them
             If Not (ActiveSelection.Tasks Is Nothing) Then
                For Each oTask In ActiveSelection.Tasks
                    ' Add Number1 for each task to total
                   fTotal = fTotal + oTask.Number1   ' Field to Sum
                Next oTask
             Else
                ' There's nothing to add
                Exit Sub
             End If
    
              ' Create Totals task so it's visible
             Set oTotalTask = ActiveProject.Tasks.Add("Total:")
    
             ' Insure "Totals:" task is at outline level 1 (not indented)
             Do Until oTotalTask.OutlineLevel = 1
                  oTotalTask.OutlineOutdent
             Loop
    
             ' Put total in proper field
             oTotalTask.Number1 = fTotal             ' Field containing total
    
             ' Hide task bar for this task
             oTotalTask.HideBar = True
             ' Select totals row
             SelectRow oTotalTask.ID, False
             ' Set font to bold
             FontBold Set:=True
    
          End Sub
    						
이 매크로 사용 하려면 다음과 같이 하십시오.

  1. 테이블에 Gantt 차트를 사용 하는 작업 보기를 선택 합니다.
  2. 합계를 계산 하 여에 대 한 작업만 표시 합니다. 필터를 적용 하 여 숨기기 또는 하위 작업을 표시 합니다.
  3. 도구 메뉴에서 매크로 클릭 합니다.
  4. 매크로 목록에서 SumFilteredList를 선택한 다음 실행을 클릭 합니다.
이 매크로 사용 하려면 다음과 같이 하십시오.

  1. 테이블에 Gantt 차트를 사용 하는 작업 보기를 선택 합니다.
  2. 합계를 계산 하 여에 대 한 작업만 표시 합니다. 필터를 적용 하 여 숨기기 또는 하위 작업을 표시 합니다.
  3. 도구 메뉴에서 매크로를 가리킨 다음 매크로 클릭 합니다.
  4. 매크로 목록에서 SumFilteredList를 선택한 다음 실행을 클릭 합니다.

매크로 수정

번호 1 이외의 다른 필드 값의 합계에 대 한 참조를 대체 하 번호 1 줄에 주석 "필드 합계"의 이름으로는 전체 파생 시킬 원하는 필드입니다. 합계 필드를 배치. 주석 처리 된 줄의 번호 1에 대 한 참조가 아닌 다른 번호 1을 대체 포함 된 "필드 합계 필드의 이름으로에 있는" 하면 실제로 전체 배치 합니다.

예를 들어, 같은 계산된 필드 합계를 계산할 필드를입니다 비용 또는 실제 비용을 합 하 고 비-계산 필드를 넣어야 합니다, 비용 1 또는 번호 1 등. 따라서 합계를 모든에 대 한 비용 필드 작업을 표시 하 고 합계는 "합계" 작업의 비용 1 필드에 위치 표시 된 줄을 다음과 같이 변경 합니다.
   fTotal = fTotal + oTask.Cost   ' Field to Sum
   oTotalTask.Cost1 = fTotal      ' Field containing total
				

속성

기술 자료: 124482 - 마지막 검토: 2013년 4월 29일 월요일 - 수정: 1.0
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Project 98 Standard Edition
  • Microsoft Project 4.1 Standard Edition
  • Microsoft Project 4.0 Standard Edition
  • Microsoft Project 4.0 for Macintosh
  • Microsoft Office Project Standard 2007
  • Microsoft Office Project Standard 2003
  • Microsoft Project 2000 Standard Edition
  • Microsoft Project 2002 Standard Edition
  • Microsoft Project Standard 2010
  • Microsoft Office Project Professional 2007
  • Microsoft Office Project Professional 2003
  • Microsoft Office Project Server 2007
  • Microsoft Office Project Server 2003
  • Microsoft Project 2002 Professional Edition
  • Microsoft Project Professional 2010
  • Microsoft Project Server 2002
  • Microsoft Project Server 2010
  • Microsoft Project 2013 Professional
  • Microsoft Project 2013 Standard
키워드:?
kbcode kbhowto kbprogramming kbmt KB124482 KbMtko
기계 번역된 문서
이 문서는 Microsoft 기계 번역 소프트웨어를 이용하여 번역되었으며 Microsoft Community에 의한 Community Translation Framework(CTF) 기술 혹은 사람이 번역한 내용에 의하여 사후 편집될 수 있습니다. Microsoft는 Knowledge Base에 있는 모든 문서에 다양한 언어로 접근할 수 있도록 하기 위하여 기계 번역, 사람에 의한 번역 및 커뮤니티가 편집한 내용을 모두 제공합니다. 번역된 문서는 어휘, 구문 및/혹은 문법에 오류가 있을 수 있습니다. Microsoft는 번역 오류로 인한 부정확성, 오류 및/또는 손해와 이를 고객이 사용하는 데에 대하여 책임을 지지 않습니다.
이 문서의 영문 버전 보기:124482

피드백 보내기

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com