Anda sedang offline saat ini, menunggu internet Anda untuk menyambung kembali

Pekan Raya: Makro nilai-nilai jumlah dalam daftar disaring

Dukungan untuk Office 2003 telah berakhir

Microsoft mengakhiri dukungan untuk Office 2003 pada 8 April 2014. Perubahan ini telah memengaruhi pemutakhiran perangkat lunak dan opsi keamanan Anda. Pelajari apa artinya ini bagi Anda dan cara untuk tetap terlindungi.

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
Ringkasan
Microsoft Project sampel makro di bagian "Informasi selengkapnya"Artikel ini merangkum nilai-nilai numerik dari daftar tugas-tugas yang terlihat dan menampilkantotal dalam satu baris tugas di bagian bawah daftar.
Informasi lebih lanjut
Microsoft menyediakan contoh Visual Basic untuk aplikasi prosedur untukilustrasi saja, tanpa garansi baik tersurat maupun tersirat, termasuk,Namun tidak terbatas pada jaminan tersirat dapat diperjualbelikan dan/atau Kebugaranuntuk tujuan tertentu. Visual Basic prosedur dalam artikel ini adalahdiberikan 'sebagaimana adanya' dan Microsoft tidak menjamin bahwa mereka dapat digunakan dalamSemua situasi. Sementara Microsoft Support profesional dapat membantu menjelaskanfungsi makro tertentu, mereka tidak akan mengubah contoh-contoh ini untukmenyediakan fungsionalitas tambahan, atau mereka akan membantu Anda membangun macro untukmemenuhi kebutuhan spesifik Anda. Jika Anda memiliki terbatas pengalaman pemrograman, Andamungkin ingin berkonsultasi dengan salah satu penyedia solusi Microsoft. SolusiPenyedia menawarkan berbagai macam fee-based layanan, termasuk menciptakankustom 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 terlihattugas-tugas. Setelah Anda menjalankan makro ini, tugas baru bernama "Total" akan dibuatdan ditampilkan pada akhir proyek aktif. Bidang Number1 dalam hal initugas akan berisi jumlah dari nilai Number1 semua lain terlihattugas-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 untukNumber1 pada baris berkomentar dengan "Lapangan untuk jumlah" dengan namabidang yang Anda inginkan untuk memperoleh total. Untuk menempatkan total dalam bidangSelain Number1, menggantikan rujukan kepada Number1 on line berkomentardengan "Field berisi total" dengan nama bidang di mana Andabenar-benar ingin menempatkan total.

Misalnya, jika bidang yang Anda inginkan untuk jumlah adalah bidang dihitung, sepertiBiaya 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 semuatugas-tugas yang terlihat dan tempat total di bidang tugas "Total", Cost1Anda akan mengubah garis jatuh ditunjukkan sebagai berikut:
   fTotal = fTotal + oTask.Cost   ' Field to Sum   oTotalTask.Cost1 = fTotal      ' Field containing total				

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 124482 - Tinjauan Terakhir: 04/29/2013 18:29:00 - Revisi: 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 KbMtid
Tanggapan
;did=1&t=">