Momentan sunteți offline, așteptați să vă reconectați la internet

PRJ: Macro la suma valorilor din Listă tabel filtrată

Asistența pentru Office 2003 s-a încheiat

Microsoft a încheiat asistența pentru Office 2003 la data de 8 aprilie 2014. Această schimbare a afectat actualizările de software și opțiunile de securitate. Aflați ce înseamnă aceasta pentru dvs. și cum puteți rămâne protejat.

IMPORTANT: Acest articol a fost tradus de software-ul de traducere automată Microsoft, si nu de un traducător. Microsoft vă oferă atât articole traduse de persoane, cât şi articole traduse automat, astfel incat aveti access la toate articolele din Baza noastră de informatii în limba dvs. materna. Totuşi, un articol tradus automat nu este întotdeauna perfect. Acesta poate conţine greşeli de vocabular, sintaxă sau gramatică, la fel cum un vorbitor străin poate face greşeli vorbind limba dvs. materna. Compania Microsoft nu este responsabilă pentru nici o inexactitate, eroare sau daună cauzată de traducerea necorespunzătoare a conţinutului sau de utilizarea traducerii necorespunzătoare de către clienţii nostri. De asemenea, Microsoft actualizează frecvent software-ul de traducere automată.

124482
Rezumat
Microsoft Project eşantion macrocomanda în secţiunea "Mai multe informaţii" aAcest articol însumează valorile numerice din Listă tabel de sarcini de vizibil şi afişeazătotal într-un rând de sarcină în The Bottom a listei.
Informaţii suplimentare
Microsoft oferă exemple de Visual Basic pentru aplicaţii procedurile deilustrare numai, fara garantie fie exprimate sau implicite, incluzând,dar nu limitat la garantiile implicite de vandabilitate şi/sau de fitnesspentru un anumit scop. Visual Basic procedurile din acest articol suntfurnizate "ca atare" şi Microsoft nu garantează că acestea pot fi utilizate întoate situaţiile. În marcă de timp ce Microsoft Support profesionişti pot ajuta la explicareafuncţionalitatea de o anumită macrocomandă, se va modifica aceste exemple pentru aoferă funcţionalitate adăugată, nici ele vă va ajuta construi macro-uri pentru asatisface nevoile dumneavoastra specifice. Dacă aţi limitat experienţă de programare, văpoate doriţi să consulte unul dintre furnizorii de soluţii Microsoft. SoluţieFurnizori oferă o gamă largă de consolidare servicii bazate pe taxă, inclusiv crearea demacrocomenzile particularizate. Pentru mai multe informaţii despre Microsoft furnizori de soluţii,apel sosit serviciu de informaţii client Microsoft la (800) 426-9400.

Următoarea macrocomandă însumează valorile din câmpurile Number1 de toate vizibilesarcini. După ce executaţi această macrocomandă, va fi creată o nouă activitate numit "Total"şi afişate la sfârşitul proiectul activ. În acest câmp Number1sarcina va conţine totalul valorilor Number1 pentru toate celelalte vizibilsarcini.

Microsoft Project 2010 şi 2013

  1. Vezi panglică, selectaţi macrocomenzi şi faceţi clic pe Vedere macro-uri.
  2. Introduceţi nume de sign-in de "SumFilteredList şi faceţi clic pe Creare.
  3. Copiaţi codul de la Pasul 6 de mai jos în Module1 care este deschis în Visual Basic Editor.
Pentru a utiliza această macrocomandă, efectuaţi următoarele:

  1. Selectaţi o vizualizare Proiect de sarcina care foloseste un tabel, precum diagrama Gantt.
  2. Afişează numai activităţile pe care doriţi să calculaţi un total, fie prin aplicarea unui filtru sau prin ascunderea sau afişarea subactivităţi pentru.
  3. Pe panglică Vezi , macro-uri, şi apoi atunci pocnitură Vezi macro-uri.
  4. În Listă tabel de macrocomenzi, SumFilteredList, şi apoi atunci pocnitură a alerga.


Microsoft Project 98, 2000, 2002, 2003 şi 2007
  1. În meniul Instrumente, indicați macrocomandă, şi apoi pe macrocomenzi.
  2. În câmpul nume, tastaţi SumFilteredList. Faceţi clic pe Creare.
  3. Microsoft Project 2010
  4. Selectaţi fila vizualizare Proiect şi faceţi clic pe macrocomenzi
  5. În casetă de dialog Macros , tip SumFilteredList în nume de sign-in dosar şi faceţi clic pe Creare.
  6. În Visual Basic Editor, introduceţi codul de următoarele:
          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 proiect 4.x

  1. În meniul Instrumente, faceţi clic pe macrocomenzi.
  2. Faceţi clic pe nou.
  3. În câmpul nume, tastaţi SumFilteredList. Faceţi clic pe OK.
  4. În modulul Editor, introduceţi codul de următoarele:
          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						
Pentru a utiliza această macrocomandă, efectuaţi următoarele:

  1. Selectaţi o vizualizare Proiect de sarcina care foloseste un tabel, precum diagrama Gantt.
  2. Afişează numai activităţile pe care doriţi pentru a calcula un total pentru fie prin aplică un filtru sau prin ascunderea sau afişarea subactivităţi.
  3. În meniul Instrumente, faceţi clic pe macrocomenzi.
  4. În Listă tabel de macrocomenzi, SumFilteredList, şi apoi atunci pocnitură a alerga.
Pentru a utiliza această macrocomandă, efectuaţi următoarele:

  1. Selectaţi o vizualizare Proiect de sarcina care foloseste un tabel, precum diagrama Gantt.
  2. Afişează numai activităţile pe care doriţi pentru a calcula un total pentru fie prin aplică un filtru sau prin ascunderea sau afişarea subactivităţi.
  3. În meniul Instrumente, indicați macrocomandă, şi apoi pe macrocomenzi.
  4. În Listă tabel de macrocomenzi, SumFilteredList, şi apoi atunci pocnitură a alerga.

Modificarea Macro

Suma valorilor din câmpuri decât Number1, înlocuiţi trimiterea laNumber1 pe linia comentat cu "Câmp suma" cu nume de sign-in decâmpul pentru care doriţi pentru a obţine un total. Pentru a plasa total într-un câmpdecât Number1, înlocuiţi trimiterea Number1 pe linia de comentatcu care "câmp conţine totalul" cu nume de sign-in de domeniu în care văde fapt doriţi să plasaţi în total.

De exemplu, dacă domeniul pe care doriţi să suma este un câmp calculat, cum ar fiCostul sau costul real, atunci suma trebuie plasat într-un câmp non-calculat,cum ar fi Cost1 sau Number1. Prin urmare, pentru a obţine în total costul câmpuri pentru toatevizibil sarcini şi locul total în domeniul Cost1 de sarcina "Total",s-ar schimba liniile indicate după cum urmează:
   fTotal = fTotal + oTask.Cost   ' Field to Sum   oTotalTask.Cost1 = fTotal      ' Field containing total				

Avertisment: Acest articol a fost tradus automat

Proprietăți

ID articol: 124482 - Ultima examinare: 04/29/2013 18:32:00 - Revizie: 1.0

  • Microsoft Project 98 Standard Edition
  • Microsoft Project 4.1 Standard Edition
  • Microsoft Project 4.0 Standard Edition
  • Microsoft Project 4.0 pentru 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 KbMtro
Feedback