PRJ: Součet hodnot filtrovaného seznamu makra

Překlady článku Překlady článku
ID článku: 124482 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Ukázkové makro aplikace Microsoft Project v části "Další informace" v tomto článku součet číselných hodnot ze seznamu zobrazení a zobrazit úlohy Součet řádku v dolní části seznamu úkolů.

Další informace

Společnost Microsoft poskytuje příklady jazyka Visual Basic pro Applications procedury pro pouze pro ilustraci bez záruční vyjádřené nebo předpokládané, včetně, ale nejen, mlčky předpokládaných záruk obchodovatelnosti nebo vhodnosti pro určitý účel. Procedury jazyka Visual Basic v tomto článku jsou poskytován "tak, jak je" a společnost Microsoft nezaručuje, že je lze použít v všechny situace. Zatímco pracovníci Support společnosti Microsoft mohou vysvětlit funkce určité makro, nemohou tyto příklady zvýší jeho funkčnost ani bude pomáhají vytvářet makra vašim specifickým potřebám. Jestliže nejste zkušenými programátory, můžete může být vhodné konzultovat některého z poskytovatelů řešení společnosti Microsoft. Řešení Poskytovatelé nabízejí širokou škálu služeb založených na poplatek, včetně vytváření vlastní makra. Další informace o Microsoft poskytovatelům řešení, Zavolejte zákazníkovi informace služby na čísle (800) 426 9400.

Následující makro součet hodnot z polí Číslo1 pro všechny viditelné úkoly. Po spuštění toto makro, bude vytvořen nový úkol s názvem "Celkem" a na konci aktivního projektu. Do tohoto pole Číslo1 úkol bude obsahovat součet hodnot číslo1 pro všechny ostatní viditelné úkoly.

Aplikace Microsoft Project 2010 a 2013

  1. Na zobrazení pásu karet přejděte na příkaz makro a klepněte na tlačítko Zobrazit makra.
  2. Zadejte název "SumFilteredList a klepněte na tlačítko vytvořit.
  3. Zkopírujte kód z kroku 6 níže do Module1, který je otevřen v editoru jazyka Visual Basic.
Chcete-li použít toto makro, postupujte takto:

  1. Vyberte zobrazení úkolu, který používá tabulku, například v Ganttově diagramu.
  2. Zobrazte pouze úlohy, které chcete vypočítat součet pro buď použitím filtru nebo zobrazení nebo skrytí dílčích úkolů.
  3. Zobrazení pásu karet přejděte na příkaz makroa potom klepněte na tlačítko Zobrazit makra.
  4. V seznamu maker vyberte SumFilteredList a potom klepněte na příkaz Spustit.


Aplikace Microsoft Project 98, 2000, 2002, 2003 a 2007
  1. V nabídce Nástroje přejděte na příkaz Makro a potom klepněte na příkaz makra.
  2. V poli Název makra zadejte SumFilteredList. Klepněte na tlačítko vytvořit.
  3. Aplikace Microsoft Project 2010
  4. Klepněte na kartu zobrazení a klepněte na příkaz makra
  5. Typ SumFilteredList v poli Název makra v dialogovém okně makra podána a klepněte na tlačítko vytvořit.
  6. V editoru jazyka Visual Basic zadejte následující kód:
          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
    						

Aplikace Microsoft Project 4.x

  1. V nabídce Nástroje klepněte na příkaz makra.
  2. Klepněte na tlačítko Nový.
  3. V poli Název makra zadejte SumFilteredList. Klepněte na tlačítko OK.
  4. V editoru modulu zadejte následující kód:
          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
    						
Chcete-li použít toto makro, postupujte takto:

  1. Vyberte zobrazení úkolu, který používá tabulku, například v Ganttově diagramu.
  2. Zobrazit pouze úkoly, které chcete vypočítat součet pro buď použití filtru nebo podle nebo skrytí dílčích úkolů.
  3. V nabídce Nástroje klepněte na příkaz makra.
  4. V seznamu název makra vyberte SumFilteredList a potom klepněte na příkaz Spustit.
Chcete-li použít toto makro, postupujte takto:

  1. Vyberte zobrazení úkolu, který používá tabulku, například v Ganttově diagramu.
  2. Zobrazit pouze úkoly, které chcete vypočítat součet pro buď použití filtru nebo podle nebo skrytí dílčích úkolů.
  3. V nabídce Nástroje přejděte na příkaz Makro a potom klepněte na příkaz makra.
  4. V seznamu název makra vyberte SumFilteredList a potom klepněte na příkaz Spustit.

Změna makra

Chcete-li součet hodnot z polí než Číslo1, nahradit odkaz na Komentář Číslo1 na řádku s "Pole součtu" s názvem pole, pro které chcete získat celkem. Chcete-li umístit součet v poli než Číslo1 nahraďte odkaz na Číslo1 na řádku komentář s "Pole obsahující celkem" s názvem pole, do kterého je skutečně chcete umístit součet.

Pokud pole, které chcete vypočítat součet vypočítané pole, jako například Náklady nebo skutečné náklady, pak součet musí být umístěn v poli počítá se například Náklady1 nebo číslo1. Proto chcete-li získat celkové pole nákladů pro všechny Zobrazit úkoly a místo celkem do pole Náklady1 "Celkovou" úkolu uvedené řádky by změnit následujícím způsobem:
   fTotal = fTotal + oTask.Cost   ' Field to Sum
   oTotalTask.Cost1 = fTotal      ' Field containing total
				

Vlastnosti

ID článku: 124482 - Poslední aktualizace: 29. dubna 2013 - Revize: 1.0
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Project 98 Standard Edition
  • Microsoft Project 4.1 Standard Edition
  • Microsoft Project 4.0 Standard Edition
  • Microsoft Project 4.0 pro počítače 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
Klíčová slova: 
kbcode kbhowto kbprogramming kbmt KB124482 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku: 124482

Dejte nám zpětnou vazbu

 

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