Momentálne ste offline a čaká sa, kým sa znova pripojíte na internet

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

Poskytovanie technickej podpory pre balík Office 2003 sa skončilo

8. apríla 2014 ukončila spoločnosť Microsoft poskytovanie technickej podpory pre balík Office 2003. Táto zmena ovplyvnila aktualizácie softvéru a možnosti zabezpečenia. Zistite, čo to pre vás znamená a ako ponechať počítač zabezpeč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
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 prelen ako názornú ukážku bez záruky vyjadrené alebo implicitné, vrátane,ale nie obmedzený na implicitných záruk obchodovateľnosti a vhodnostipre 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é vvš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íkladyposkytovať 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, budetemôže chcieť konzultovať jeden z poskytovateľov riešení spoločnosti Microsoft. RiešeniePoskytovatelia ponúkajú širokú škálu poplatok-založené služby, vrátane vytváraniavlastné 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ázvompole, pre ktoré chcete odvodiť celkom. Miesto celkovo v oblastiOkrem Číslo1, nahradiť odkaz na Číslo1 na linke poznamenals "Pole obsahujúce celkom" s názvom poľa do ktorého steskutočne chcete umiestniť celkom.

Ak je pole, ktoré chcete sčítať vypočítavané pole, ako napríkladNá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šetkyviditeľ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				

Upozornenie: Tento článok bol preložený automaticky.

Vlastnosti

ID článku: 124482 – Posledná kontrola: 04/29/2013 18:33:00 – Revízia: 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 KbMtsk
Pripomienky