Şu anda çevrimdışısınız; İnternet'in yeniden bağlanması bekleniyor

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

Office 2003 desteği sona erdi

Microsoft, Office 2003 desteğini 8 Nisan 2014'te sona erdirdi. Bu değişiklik yazılım güncelleştirmelerinizi ve güvenlik seçeneklerinizi etkiledi. Bunun sizin için ne anlama geldiğini ve korunmaya nasıl devam edebileceğinizi öğrenin.

Ö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
Özet
"Ek bilgi" bölümünde Microsoft Project Örnek makroBu makalenin görünür görevleri ve görüntüler listesinden sayısal değerleri toplarlistenin altındaki görev satırının toplam.
Daha fazla bilgi
Microsoft Visual Basic for Applications yordamları için örnekleryalnı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ğildirBelirli bir amaç için. Bu makaledeki yordamların Visual BasicMicrosoft bunlar kullanılabilir olduğunu garanti etmez ve 'olduğu gibi' sağlanantüm durumlar. Support uzmanları açıklanmasına yardımcı olabilir ancakbir makroyu işlevselliğini, için bu örnekleri değiştirmezlerek 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çinMicrosoft 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ı buGörev için tüm diğer görünür Sayı1 değerlerin toplamını içerirgö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ştirinSayı1 satırındaki adı ile "Alan" toplamak ile açıklamalıToplam türetmek istediğiniz alan. Toplam bir alanına yerleştirmek içinSayı1 dışında Sayı1 referansı açıklamalı satırındaki Değiştir"Alan toplam alanın adını içine içeren" ilegerçekte toplam yerleştirmek istersiniz.

Örneğin, toplamak istediğiniz alanı gibi bir hesaplanmış alan iseMaliyet 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				

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 124482 - Son İnceleme: 04/29/2013 18:34:00 - Düzeltme: 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 KbMttr
Geri bildirim