PRJ: Makro pre súčet hodnoty filtrovaného zoznamu

Preklady článku Preklady článku
ID článku: 124482 - Zobraziť produkty, ktorých sa tento článok týka.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

Súhrn

Vzorky makro programu Microsoft Project v časti "Ďalšie informácie" Tento článok sčíta číselné hodnoty v zozname viditeľné úloh a zobrazí celková úloha riadok v spodnej časti zoznamu.

Ďalšie informácie

Spoločnosť Microsoft poskytuje príklady Visual Basic pre aplikácie postupov pre len ako názornú ukážku bez záruky vyjadrené alebo implicitné, vrátane, ale nie obmedzený na implicitných záruk obchodovateľnosti a vhodnosti pre konkrétny účel. Visual Basic postupy v tomto článku sú poskytované "tak ako sú" a spoločnosť Microsoft nezaručuje, že môžu byť použité v všetky situácie. Zatiaľ čo Microsoft Support profesionáli môžu pomôcť vysvetliť funkčnosť určité makro, tomu si nie upravovať tieto príklady poskytovať pridanú funkčnosť, ani oni vám pomôže postaviť makrá vyhovujú vašim špecifickým potrebám. Ak máte obmedzené skúsenosti s programovaním, budete môže chcieť konzultovať jeden z poskytovateľov riešení spoločnosti Microsoft. Riešenie Poskytovatelia ponúkajú širokú škálu poplatok-založené služby, vrátane vytvárania vlastné makrá. Ďalšie informácie o Microsoft poskytovateľov riešení, Zavolajte Microsoft zákaznícky servis informácie na (800) 426-9400.

Nasledovné makro sčíta hodnoty z polí Číslo1 všetko viditeľné úlohy. Po spustení makro, vytvorí sa nová úloha s názvom "Celkom" a zobrazené na konci aktívneho projektu. Číslo1 oblasti v tejto úlohou bude obsahovať súčet hodnôt Číslo1 všetky ostatné viditeľné úlohy.

Program Microsoft Project 2010 a 2013

  1. Na zobrazenie pása s nástrojmi, vyberte makrá a kliknite na tlačidlo Zobraziť makrá.
  2. Zadajte názov "SumFilteredList a kliknite na tlačidlo vytvoriť.
  3. Skopírujte kód z kroku 6 nižšie do Module1, ktorá je otvorená v editore jazyka Visual Basic.
Ak chcete použiť makro, postupujte nasledovne:

  1. Vyberte zobrazenie úlohy, ktorý využíva tabuľku, napríklad v Ganttovom grafe.
  2. Zobraziť iba úlohy, ktoré chcete vypočítať súčet pre filtrovanie alebo skrytie alebo ukazujúce podúloh.
  3. Na zobrazenie pása s nástrojmi, vyberte makráa potom kliknite na položku Zobraziť makrá.
  4. V zozname makier, vyberte SumFilteredList a kliknite na tlačidlo spustiť.


Microsoft Project 98, 2000, 2002, 2003 a 2007
  1. V ponuke Nástroje ukážte na príkaz Makro a potom kliknite na makrá.
  2. Do poľa Názov makra zadajte SumFilteredList. Kliknite na tlačidlo vytvoriť.
  3. Program Microsoft Project 2010
  4. Vyberte kartu Zobraziť , a kliknite na príkaz makrá
  5. V dialógovom okne makrá , typ SumFilteredList v Názov makra súbor a kliknite na tlačidlo vytvoriť.
  6. V editore jazyka Visual Basic zadajte nasledujúci 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
    						

Microsoft Project 4.x

  1. V ponuke Nástroje kliknite na príkaz makrá.
  2. Kliknite na tlačidlo nové.
  3. Do poľa Názov makra zadajte SumFilteredList. Kliknite na tlačidlo OK.
  4. V editore modulu zadajte nasledujúci 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
    						
Ak chcete použiť makro, postupujte nasledovne:

  1. Vyberte zobrazenie úlohy, ktorý využíva tabuľku, napríklad v Ganttovom grafe.
  2. Zobraziť iba úlohy, ktoré chcete vypočítať súčet pre buď filtrovanie alebo o skrytie alebo ukazujúce podúloh.
  3. V ponuke Nástroje kliknite na príkaz makrá.
  4. V zozname makier, vyberte SumFilteredList a kliknite na tlačidlo Spustiť.
Ak chcete použiť makro, postupujte nasledovne:

  1. Vyberte zobrazenie úlohy, ktorý využíva tabuľku, napríklad v Ganttovom grafe.
  2. Zobraziť iba úlohy, ktoré chcete vypočítať súčet pre buď filtrovanie alebo o skrytie alebo ukazujúce podúloh.
  3. V ponuke Nástroje ukážte na príkaz Makro a potom kliknite na makrá.
  4. V zozname makier, vyberte SumFilteredList a kliknite na tlačidlo Spustiť.

Zmena makra

Súčet hodnôt z polí ako Číslo1, nahradiť odkaz na Číslo1 riadku vyjadril "Pole Súčet" s názvom pole, pre ktoré chcete odvodiť celkom. Miesto celkovo v oblasti Okrem Číslo1, nahradiť odkaz na Číslo1 na linke poznamenal s "Pole obsahujúce celkom" s názvom poľa do ktorého ste skutočne chcete umiestniť celkom.

Ak je pole, ktoré chcete sčítať vypočítavané pole, ako napríklad Náklady alebo skutočných nákladov, potom súčet musí byť umiestnené v non-vypočítané pole, Cost1 alebo Číslo1. Preto, získať celkové náklady polia pre všetky viditeľné úloh a miesto v Cost1 oblasti "Celkom" úlohy, zmeníte označené riadky takto:
   fTotal = fTotal + oTask.Cost   ' Field to Sum
   oTotalTask.Cost1 = fTotal      ' Field containing total
				

Vlastnosti

ID článku: 124482 - Posledná kontrola: 29. apríla 2013 - Revízia: 1.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • 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
Kľúčové slová: 
kbcode kbhowto kbprogramming kbmt KB124482 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem: 124482

Odošlite odozvu

 

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