Pekan Raya: Makro nilai-nilai jumlah dalam daftar disaring

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 124482 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

Ringkasan

Microsoft Project sampel makro di bagian "Informasi selengkapnya" Artikel ini merangkum nilai-nilai numerik dari daftar tugas-tugas yang terlihat dan menampilkan total dalam satu baris tugas di bagian bawah daftar.

Informasi lebih lanjut

Microsoft menyediakan contoh Visual Basic untuk aplikasi prosedur untuk ilustrasi saja, tanpa garansi baik tersurat maupun tersirat, termasuk, Namun tidak terbatas pada jaminan tersirat dapat diperjualbelikan dan/atau Kebugaran untuk tujuan tertentu. Visual Basic prosedur dalam artikel ini adalah diberikan 'sebagaimana adanya' dan Microsoft tidak menjamin bahwa mereka dapat digunakan dalam Semua situasi. Sementara Microsoft Support profesional dapat membantu menjelaskan fungsi makro tertentu, mereka tidak akan mengubah contoh-contoh ini untuk menyediakan fungsionalitas tambahan, atau mereka akan membantu Anda membangun macro untuk memenuhi kebutuhan spesifik Anda. Jika Anda memiliki terbatas pengalaman pemrograman, Anda mungkin ingin berkonsultasi dengan salah satu penyedia solusi Microsoft. Solusi Penyedia menawarkan berbagai macam fee-based layanan, termasuk menciptakan kustom macro. Untuk informasi lebih lanjut tentang penyedia solusi Microsoft, Hubungi Microsoft Layanan informasi pelanggan di (800) 426-1-215-513-9400.

Makro berikut jumlah nilai dari bidang Number1 semua terlihat tugas-tugas. Setelah Anda menjalankan makro ini, tugas baru bernama "Total" akan dibuat dan ditampilkan pada akhir proyek aktif. Bidang Number1 dalam hal ini tugas akan berisi jumlah dari nilai Number1 semua lain terlihat tugas-tugas.

Microsoft Project 2010 dan 2013

  1. Pada pita View , pilih Macro dan klik View Macro.
  2. Masukkan nama "SumFilteredList dan klik buat.
  3. Salin kode dari langkah 6 di bawah ke Module1 yang terbuka di editor Visual Basic.
Menggunakan makro ini, lakukan hal berikut:

  1. Pilih Lihat tugas yang menggunakan Daftar Tabel, seperti Gantt Chart.
  2. Menampilkan hanya tugas-tugas yang Anda ingin menghitung total untuk, baik dengan menerapkan penyaring atau dengan menyembunyikan atau menampilkan subtugas.
  3. Pada pita View , pilih Macros, dan kemudian klik Lihat Macro.
  4. Dalam daftar makro, pilih SumFilteredList, dan kemudian klik Jalankan.


Microsoft Project 98, 2000, 2002, 2003 dan 2007
  1. Pada alat menu, titik makro, dan kemudian klik macro.
  2. Di bidang nama Macro, ketik SumFilteredList. Klik Buat.
  3. Microsoft Project 2010
  4. Pilih Lihat tab, dan klik Macro
  5. Di kotak dialog Macros , jenis SumFilteredList dalam Macro Name diajukan dan klik buat.
  6. Dalam Visual Basic Editor, masukkan kode berikut:
          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. Pada alat menu, klik makro.
  2. klik New.
  3. Di bidang nama Macro, ketik SumFilteredList. Klik OK.
  4. Dalam modul Editor, masukkan kode berikut:
          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
    						
Menggunakan makro ini, lakukan hal berikut:

  1. Pilih Lihat tugas yang menggunakan Daftar Tabel, seperti Gantt Chart.
  2. Menampilkan hanya tugas-tugas yang Anda ingin menghitung total untuk baik oleh menerapkan penyaring atau dengan menyembunyikan atau menampilkan subtugas.
  3. Pada alat menu, klik makro.
  4. Dalam daftar makro, pilih SumFilteredList, dan kemudian klik Jalankan.
Menggunakan makro ini, lakukan hal berikut:

  1. Pilih Lihat tugas yang menggunakan Daftar Tabel, seperti Gantt Chart.
  2. Menampilkan hanya tugas-tugas yang Anda ingin menghitung total untuk baik oleh menerapkan penyaring atau dengan menyembunyikan atau menampilkan subtugas.
  3. Pada alat menu, titik makro, dan kemudian klik macro.
  4. Dalam daftar makro, pilih SumFilteredList, dan kemudian klik Jalankan.

Memodifikasi makro

Untuk jumlah nilai dari bidang lain selain Number1, menggantikan referensi untuk Number1 pada baris berkomentar dengan "Lapangan untuk jumlah" dengan nama bidang yang Anda inginkan untuk memperoleh total. Untuk menempatkan total dalam bidang Selain Number1, menggantikan rujukan kepada Number1 on line berkomentar dengan "Field berisi total" dengan nama bidang di mana Anda benar-benar ingin menempatkan total.

Misalnya, jika bidang yang Anda inginkan untuk jumlah adalah bidang dihitung, seperti Biaya atau biaya yang sebenarnya, maka jumlah harus ditempatkan dalam bidang non-dihitung, seperti Cost1 atau Number1. Oleh karena itu, untuk mendapatkan total biaya bidang untuk semua tugas-tugas yang terlihat dan tempat total di bidang tugas "Total", Cost1 Anda akan mengubah garis jatuh ditunjukkan sebagai berikut:
   fTotal = fTotal + oTask.Cost   ' Field to Sum
   oTotalTask.Cost1 = fTotal      ' Field containing total
				

Properti

ID Artikel: 124482 - Kajian Terakhir: 29 April 2013 - Revisi: 1.0
Berlaku bagi:
  • 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
Kata kunci: 
kbcode kbhowto kbprogramming kbmt KB124482 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan oleh perangkat lunak penerjemahan mesin Microsoft, dan mungkin telah diedit oleh Masyarakat Microsoft melalui teknologi CTF dan bukan oleh seorang penerjemah profesional. Microsoft menawarkan baik artikel yang diterjemahkan oleh manusia maupun artikel hasil editan terjemahan oleh mesin/komunitas, sehingga Anda dapat mengakses semua artikel di Sentra Pengetahuan yang kami miliki dalam berbagai bahasa. Namun artikel hasil editan mesin atau bahkan komunitas tidak selalu sempurna. Artikel ini dapat mengandung kesalahan dalam hal kosa kata, sintaksis atau tatabahasa, sangat mirip dengan penutur asing yang membuat kekeliruan ketika berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab atas ketidakakuratan, kesalahan atau kerugian apa pun akibat dari kekeliruan dalam penerjemahan isi atau penggunaannya oleh pelanggan kami. Microsoft juga akan senantiasa memperbarui perangkat lunak penerjemahan mesin dan alat untuk menyempurnakan Editan Hasil Penerjemahan Mesin.
Klik disini untuk melihat versi Inggris dari artikel ini: 124482

Berikan Masukan

 

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