PRJ: ????? ??? ????? ????? ?? ????? ??? ???????

?????? ????????? ?????? ?????????
???? ???????: 124482 - ??? ???????? ???? ????? ????? ??? ???????.
????? ???? | ?? ????

?? ??? ??????

??????

Microsoft Project ????? ??????? ?? ??? "???? ?? ?????????" ?? ??? ??????? ??? ????? ??????? ?? ????? ?????? ????? ???? ???????? ?? ?? ???? ?? ???? ???????.

??????? ????

???? Microsoft ????? Visual Basic ????????? ??????? ??????? ???? ??? ?????? ???? ?? ?????? ??? ?? ???? ??? ?????? ?? ????? ???????? ??????? ?????? ???????? ?/?? ???????? ???? ????. ???? ??????? Visual Basic ?? ??? ??????? ????? '??? ??' ??? ???? Microsoft ?? ???? ????????? ?? ???? ???????. ????? ????? ?????? ??? Microsoft ??? ?????? ??????? ?????? ????? ?? ?????? ?????? ??? ??????? ????? ????? ?????? ??? ?? ??????? ???? ??????? ?????? ?? ????????? ???????. ??? ??? ?????? ?????? ?? ???? ???????? ????? ?? ????? ??? ?????? ??? ????? ???? Microsoft. ???? ???? ????? ???? ???? ?? ??????? ???????? ??? ????? ??? ?? ??? ????? ????? ??????? ???????. ????? ?? ????????? ??? ????? ?????? Microsoft? ??????? ???? ??????? ??????? ? Microsoft ??? (800) 426-9400.

??????? ?????? ???? ????? ?? ???? "????? 1" ???? ????? ??????. ??? ????? ??? ???????? ???? ????? ???? ????? ???? "???????" ????????? ?? ????? ??????? ?????. ?? ??? ????? ????? 1 ?????? ??? ????? ??? ????? ??? ????? 1 ????? ?????? ????? ??????.

Microsoft Project 2010 ? 2013

  1. ??? "??????" ??? "? ??? ????? ??????? ? ????? ??? ??? ????? ???????.
  2. ???? ????? "??????????????? ???? ??? ?????.
  3. ??? ????????? ???????? ?? ?????? 6 ????? ?? ?????? ??????? 1 ???? ???? ?? ???? Visual Basic.
???????? ??? ???????? ??? ????????? ????????:

  1. ??? ????? ??? ???? ???? ?????? ????? ??? "???? ????".
  2. ??? ?????? ???? ????? ????? ?????? ?? ??? ?????? ???? ????? ?? ?????? ?? ????? ?????? ??????? ???.
  3. ??? "??????" ??? "? ??? ????? ?????????? ?? ???? ??? ??? ????? ???????.
  4. ?? ??????? ???????? ??? ??????????????? ??? ?? ???? ??? ?????.


Microsoft Project 98, 2000 ? 2002? 2003 ? 2007
  1. ?? ??????? ?????? ??? ??? ?????? ??? ?? ???? ??? ????? ???????.
  2. ?? ????? "??? ???????"? ???? ???????????????. ???? ??? ?????.
  3. Microsoft Project 2010
  4. ??? ????? ??????? ??? ? ????? ??? ????? ???????
  5. ?? ???? ?????? ????? ????? ? ????? ??? ??????????????? ?? ??? ??????? ????? ??? ?????.
  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 Project 4.x

  1. ?? ??????? ?????? ???? ??? ????? ???????.
  2. ???? ??? ????.
  3. ?? ????? "??? ???????"? ???? ???????????????. ???? ??? ?????.
  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. ??? ????? ??? ???? ???? ?????? ????? ??? "???? ????".
  2. ??? ?????? ???? ????? ????? ?????? ?????? ?????? ??? ????? ???? ????? ?? ?? ???? ????? ?? ????? ?????? ???????.
  3. ?? ??????? ?????? ???? ??? ????? ???????.
  4. ?? ??????? ???????? ??? ??????????????? ??? ?? ???? ??? ?????.
???????? ??? ???????? ??? ????????? ????????:

  1. ??? ????? ??? ???? ???? ?????? ????? ??? "???? ????".
  2. ??? ?????? ???? ????? ????? ?????? ?????? ?????? ??? ????? ???? ????? ?? ?? ???? ????? ?? ????? ?????? ???????.
  3. ?? ??????? ?????? ??? ??? ?????? ??? ?? ???? ??? ????? ???????.
  4. ?? ??????? ???????? ??? ??????????????? ??? ?? ???? ??? ?????.

????? ???????

???? ????? ?? ??????? ????? ????? 1? ?????? ?????? ??? ??? ????? 1 ?? ????? "??? ?????" ?????? ????? ???? ???? ?????? ??????. ???? ???????? ?? ??? ??? ????? 1? ?????? ?????? ??? ????? 1 ??? ?? ??????? ?? "????? ???? ????? ??? ??????" ?? ??? ????? ???? ???? ?? ?????? ???? ??? ????????.

??? ???? ??????? ??? ??? ????? ???? ???? ????? ?????? ??????? ??? ??? ??? ??????? ?? ??????? ???????? ?? ??????? ?? ??? ??? ?????? ??? ??????? 1 ?? ????? 1. ?????? ?????? ??? ???????? ???? ??????? ?????? ???? ???????? ?? ??? ??????? 1 ?????? "???????"? ??????? ????? ????? ????? ?????? ?????? ????? ??? ???:
   fTotal = fTotal + oTask.Cost   ' Field to Sum
   oTotalTask.Cost1 = fTotal      ' Field containing total
				

???????

???? ???????: 124482 - ????? ??? ??????: 19/????? ???????/1434 - ??????: 1.0
????? ???
  • Microsoft Project 98 Standard Edition
  • Microsoft Project 4.1 Standard Edition
  • Microsoft Project 4.0 Standard Edition
  • Microsoft Project 4.0 ?? 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 KbMtar
????? ????
???: ??? ????? ??? ??????? ???????? ????? ?????????? ??????? ?????? ??? ??????? ?? ??? ??????? ?? ??????? ??? ??? ?? ???? ????????? ???? ??????? ???????(CTF) ?? ?? ???? ????? ????. ???? ?? ???? ?????????? ??? ???????? ???????? ???? ??? ?? ???????? ??????? ?? ??? ??????? ???????? ?? ??? ??????? ??????? ??? ?????? ?? ?????? ??? ???? ???????? ???????? ?? ????? ??????? ????? ????? ??????. ??? ?? ???????? ???????? ?? ????? ??? ????? ?? ???????? ?? ???? ????? ?? ?????. ?????? ??? ???? ?????????? ???? ?????? ?? ??? ????? ?? ??? ??? ?? ??????? ?? ??? ????? ?? ???? ????? ????? ?? ????? ??????? ???? ?? ???????? ?? ??? ???????.
???? ??? ????? ??????? ?????? ??????????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