PRJ: Filtre uygulanmış listedeki toplam değerleri makro

Makale çevirileri Makale çevirileri
Makale numarası: 124482 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

"Ek bilgi" bölümünde Microsoft Project Örnek makro Bu makalenin görünür görevleri ve görüntüler listesinden sayısal değerleri toplar listenin altındaki görev satırının toplam.

Daha fazla bilgi

Microsoft Visual Basic for Applications yordamları için örnekler yalnızca gösterim olmadan garanti ya da veya örtük dahil olmak üzere, Ancak satılabilirlik ve/veya zımni garantileri için sınırlı değildir Belirli bir amaç için. Bu makaledeki yordamların Visual Basic Microsoft bunlar kullanılabilir olduğunu garanti etmez ve 'olduğu gibi' sağlanan tüm durumlar. Support uzmanları açıklanmasına yardımcı olabilir ancak bir makroyu işlevselliğini, için bu örnekleri değiştirmezler ek işlevsellik sağlamak veya, makrolar oluşturmak yardımcı olur özel ihtiyaçlarınızı karşılamak. Programlama deneyiminiz kısıtlıysa, Microsoft çözüm sağlayıcılarından birini başvurmak isteyebilirsiniz. Çözüm Ücretli hizmetler oluşturma dahil olmak üzere çeşitli sağlayıcıları sunar özel makrolar. Microsoft Çözüm Sağlayıcıları hakkında daha fazla bilgi için Microsoft Müşteri bilgi hizmeti (800) 426-9400 çağırın.

A?a??daki makro, tüm görünür Sayı1 alanların değerlerini toplar. görevler. Bu makroyu çal??t?rd?ktan sonra "Toplam" adlı yeni bir görev oluşturulur. ve etkin proje sonunda görüntülenen. Numara1 alanını bu Görev için tüm diğer görünür Sayı1 değerlerin toplamını içerir görevler.

Microsoft Project 2010 ve 2013

  1. Şeridi Göstermakroları seçin ve Görünüm makrolar' ı tıklatın.
  2. Adı girin "SumFilteredList tıklatıp Oluştur.
  3. Adım 6 altında Visual Basic Düzenleyicisi'nde açık olan Module1 içine kodu kopyalayın.
Bu makroyu kullanmak için aşağıdakileri yapın:

  1. Gantt grafiği gibi bir tablo kullanan bir görev görünümü seçin.
  2. İçin filtre uygulama veya alt görevleri gösterme veya gizleme bir toplam hesaplamak istediğiniz görevleri görüntüler.
  3. Şeridi Göster makrolarıseçin ve Makroları Görüntüle'yitıklatın.
  4. Makro listesinde SumFilteredList seçin ve sonra Çalıştır' ı tıklatın.


Microsoft Project 98, 2000, 2002, 2003 ve 2007
  1. Araçlar menüsünden Makro'yu seçin ve makrolar'ı tıklatın.
  2. Makro adı kutusuna SumFilteredListyazın. Oluştur'u tıklatın.
  3. Microsoft Project 2010
  4. Görünüm sekmesini seçin ve makrolar ' ı tıklatın
  5. Makro iletişim kutusunda, Makro adı SumFilteredList türü dosyalanmış ve Oluştur' u tıklatın.
  6. Visual Basic Düzenleyicisi'nde, aşağıdaki kodu girin:
          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. Araçlar menüsünden makrolar'ı tıklatın.
  2. Yeni'yi tıklatın.
  3. Makro adı alanına yazın SumFilteredList. Tamam'ı tıklatın.
  4. Modül Düzenleyicisi'nde, aşağıdaki kodu girin:
          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
    						
Bu makroyu kullanmak için aşağıdakileri yapın:

  1. Gantt grafiği gibi bir tablo kullanan bir görev görünümü seçin.
  2. Ya da için toplam hesaplamak istediğiniz görevleri görüntüleme filtre uygulama veya göre gizleme veya alt görevleri gösterme.
  3. Araçlar menüsünden makrolar'ı tıklatın.
  4. Makro listesinde SumFilteredList seçin ve sonra Çalıştır'ı tıklatın.
Bu makroyu kullanmak için aşağıdakileri yapın:

  1. Gantt grafiği gibi bir tablo kullanan bir görev görünümü seçin.
  2. Ya da için toplam hesaplamak istediğiniz görevleri görüntüleme filtre uygulama veya göre gizleme veya alt görevleri gösterme.
  3. Araçlar menüsünden Makro'yu seçin ve makrolar'ı tıklatın.
  4. Makro listesinde SumFilteredList seçin ve sonra Çalıştır'ı tıklatın.

Makroyu değiştirme

Sayı1 dışındaki alanlardan değerleri toplamak için başvurusunu değiştirin Sayı1 satırındaki adı ile "Alan" toplamak ile açıklamalı Toplam türetmek istediğiniz alan. Toplam bir alanına yerleştirmek için Sayı1 dışında Sayı1 referansı açıklamalı satırındaki Değiştir "Alan toplam alanın adını içine içeren" ile gerçekte toplam yerleştirmek istersiniz.

Örneğin, toplamak istediğiniz alanı gibi bir hesaplanmış alan ise Maliyet veya fiili maliyet ve toplam hesaplanan olmayan bir alana yerleştirilmelidir, Maliyet1 veya Numara1 gibi. Bu nedenle, toplam almak için tüm maliyet alanları görünür görevleri ve toplam Maliyet1 alanına "Toplam" Görev yeri, Aşağıdaki şekilde gösterilen satırlar değiştirecek:
   fTotal = fTotal + oTask.Cost   ' Field to Sum
   oTotalTask.Cost1 = fTotal      ' Field containing total
				

Özellikler

Makale numarası: 124482 - Last Review: 29 Nisan 2013 Pazartesi - Gözden geçirme: 1.0
Bu makaledeki bilginin uygulandığı durum:
  • 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
Anahtar Kelimeler: 
kbcode kbhowto kbprogramming kbmt KB124482 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, Microsoft Makine Çevirisi Düzenleme yazılımı tarafından tercüme edilmiş olup, yüksek olasılıkla profesyonel bir çevirmen yerine CTF teknolojisi kullanılarak, Microsoft Topluluğu tarafından düzenlenmiştir. Microsoft, Bilgi Bankamız içindeki tüm makaleleri kendi dilinizde okuyabilmeniz için size hem profesyonel çevirmenler tarafından tercüme edilen hem de makine tarafından tercüme edildikten sonra Topluluk tarafından kontrol edilen makaleler sunar. Bununla birlikte, makine tarafından tercüme edilen, hatta Topluluk tarafından kontrol edilen bir makale bile her zaman mükemmel dil kalitesinde olmayabilir. Makalede dilinizi konuşan yabancı birisinin yapabileceği türden sözcük, söz dizimi veya dilbilgisi hataları bulunabilir. Microsoft, içeriğin hatalı tercümesinin veya müşterilerimiz tarafından kullanımının doğurabileceği olası yanlış anlamalar, hatalar veya zararlardan sorumlu değildir. Öte yandan Microsoft, Makine Çevirisi Düzenleme işlemini geliştirmek amacıyla Makine Çevirisi Düzenleme yazılımını ve araçlarını sık sık güncelleştirmektedir.
Makalenin İngilizcesi aşağıdaki gibidir: 124482

Geri Bildirim Ver

 

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