Teď jste offline a čekáte, až se znova připojí internet.

Váš prohlížeč není podporovaný.

Pokud chcete používat tento web, musíte si aktualizovat prohlížeč.

Aktualizovat na nejnovější verzi Internet Exploreru

PRJ: Součet hodnot filtrovaného seznamu makra

Podpora Office 2003 byla ukončena.

Společnost Microsoft ukončila dne 8. dubna 2014 podporu Office 2003. Tato změna ovlivnila aktualizace softwaru a možnosti zabezpečení. Další informace o tom, co to pro vás znamená a jak zajistit ochranu

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
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 úlohySoučet řádku v dolní části seznamu úkolů.
Další informace
Společnost Microsoft poskytuje příklady jazyka Visual Basic pro Applications procedury propouze 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 vhodnostipro určitý účel. Procedury jazyka Visual Basic v tomto článku jsouposkytován "tak, jak je" a společnost Microsoft nezaručuje, že je lze použít vvšechny situace. Zatímco pracovníci Support společnosti Microsoft mohou vysvětlitfunkce určité makro, nemohou tyto příkladyzvýší jeho funkčnost ani bude pomáhají vytvářet makravašim specifickým potřebám. Jestliže nejste zkušenými programátory, můžetemůž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 naKomentář Číslo1 na řádku s "Pole součtu" s názvempole, pro které chcete získat celkem. Chcete-li umístit součet v polinež Číslo1 nahraďte odkaz na Číslo1 na řádku komentářs "Pole obsahující celkem" s názvem pole, do kterého jeskutečně chcete umístit součet.

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

Upozornění: Tento článek je přeložený automaticky

Vlastnosti

ID článku: 124482 - Poslední kontrola: 04/29/2013 18:26:00 - Revize: 1.0

  • 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
  • kbcode kbhowto kbprogramming kbmt KB124482 KbMtcs
Váš názor
"text/javascript"> Asimov.clickstreamTracker.init(); >>t=">ol) + "//c.microsoft.com/ms.js'><\/script>"); >>