أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

إن المستعرض الذي تستخدمه غير معتمد

إنك تحتاج إلى تحديث المستعرض لاستخدام الموقع.

التحديث إلى أحدث إصدار من Internet Explorer

PRJ: ماكرو إلى مجموع القيم في قائمة تمت تصفيتها

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

هام: تمت ترجمة هذه المقالة باستخدام برامج مايكروسوفت للترجمة الآلية ومن المحتمل ان يتم تحريرها او تدقيقها بعد ذلك من خلال تكنولوجيا منصة مجموعات الترجمة(CTF) او من خلال مترجم بشري. تقدم لك شركة مايكروسوفت هذه المقالات المترجمة بشكل آلي او بالترجمة البشرية او بعد تحريرها وتدقيقها من قبل مجموعات الترجمة حتى تمكنكم من الوصول إلى جميع المقالات الموجودة في قواعد المعرفة لديها بلغات مختلفة. إلا أن المقالات المترجمة قد تحتوي على أخطاء في المفردات او بناء الجمل او النحو. وعليه، فإن شركة مايكروسوفت ليست مسؤولة عن اية أخطاء او عدم دقة في الترجمة او أية أضرار قد تحدث نتيجة أخطاء في ترجمة محتويات النص او استخدامه من قبل العملاء.

اضغط هنا لرابط المقالة باللغة الانجليزية124482
الموجز
Microsoft Project نموذج الماكرو في قسم "مزيد من المعلومات" منهذه المقالة جمع القيم الرقمية من قائمة المهام مرئية وعرضالإجمالي في صف مهمة في أسفل القائمة.
معلومات أخرى
تقدم Microsoft أمثلة Visual Basic للتطبيقات إجراءاتالتوضيح فقط، دون الضمان كانت أم ضمنية، بما في ذلك، أماالمثال لا الحصر الضمانات الضمنية الخاصة بالتسويق و/أو الملاءمةلغرض معين. تكون إجراءات Visual Basic في هذه المقالةتوفير 'كما هو' ولا تضمن Microsoft أن يمكن استخدامها فيكافة الحالات. بينما تساعد محترفو دعم Microsoft شرحالأداء الوظيفي لماكرو محدد، لن يقوموا بتعديل هذه الأمثلةتوفير إضافة وظائف، ولا هي سيساعدك بناء الماكرويتناسب مع احتياجاتك المحددة. إذا قمت محدودة الخبرة في مجال البرمجة، يمكنكقد تحتاج إلى مراجعة أحد موفري حلول Microsoft. الحليقدم موفرو نطاق واسع من الخدمات المستندة إلى رسوم، بما في ذلك إنشاءوحدات الماكرو المخصصة. لمزيد من المعلومات حول موفري الحلول Microsoft،استدعاء خدمة معلومات العملاء ل Microsoft على (800) 426-9400.

الماكرو التالي بجمع القيم من حقول "الرقم 1" كافة مرئيةالمهام. بعد تشغيل هذا الماكرو، سيتم إنشاء مهمة جديدة تسمى "المجموع"والمعروضة في نهاية المشروع النشط. في هذا الحقل الرقم 1المهمة سوف تحتوي على مجموع قيم الرقم 1 لكافة الأخرى مرئيةالمهام.

Microsoft Project 2010 و 2013

  1. على "الشريط" عرض "، حدد وحدات الماكرو ، وانقر فوق عرض وحدات الماكرو.
  2. أدخل الاسم "سومفيلتيريدليست انقر فوق إنشاء.
  3. نسخ التعليمات البرمجية من الخطوة 6 أدناه في الوحدة النمطية 1 الذي يفتح في محرر Visual Basic.
لاستخدام هذا الماكرو، نفذ الإجرائين التاليين:

  1. حدد طريقة عرض مهام التي تستخدم جدول، مثل "مخطط جانت".
  2. عرض المهام الذي تريده لحساب إجمالي ل، أما بتطبيق عامل تصفية أو بإخفاء أو إظهار المهام الفرعية فقط.
  3. على "الشريط" عرض "، حدد وحدات الماكروومن ثم انقر فوق عرض وحدات الماكرو.
  4. في القائمة الماكرو، حدد سومفيلتيريدليست ومن ثم انقر فوق تشغيل.


Microsoft Project 98, 2000 و 2002، 2003 و 2007
  1. من القائمة أدوات، أشر إلى ماكرو، ومن ثم انقر فوق وحدات الماكرو.
  2. في الحقل "اسم الماكرو"، اكتب سومفيلتيريدليست. انقر فوق إنشاء.
  3. Microsoft Project 2010
  4. حدد علامة التبويب عرض ، وانقر فوق وحدات الماكرو
  5. في مربع الحوار وحدات ماكرو ، تصنيف نوع سومفيلتيريدليست في اسم الماكرو وانقر فوق إنشاء.
  6. في محرر Visual Basic، قم بإدخال التعليمات البرمجية التالية:
          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. في القائمة أدوات، انقر فوق وحدات الماكرو.
  2. انقر فوق جديد.
  3. في الحقل "اسم الماكرو"، اكتب سومفيلتيريدليست. انقر فوق موافق.
  4. في محرر الوحدة النمطية، قم بإدخال التعليمات البرمجية التالية:
          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						
لاستخدام هذا الماكرو، نفذ الإجرائين التاليين:

  1. حدد طريقة عرض مهام التي تستخدم جدول، مثل "مخطط جانت".
  2. عرض المهام الذي تريده لحساب إجمالي لأيهما بواسطة فقط تطبيق عامل تصفية أو عن طريق إخفاء أو إظهار المهام الفرعية.
  3. في القائمة أدوات، انقر فوق وحدات الماكرو.
  4. في القائمة الماكرو، حدد سومفيلتيريدليست ومن ثم انقر فوق تشغيل.
لاستخدام هذا الماكرو، نفذ الإجرائين التاليين:

  1. حدد طريقة عرض مهام التي تستخدم جدول، مثل "مخطط جانت".
  2. عرض المهام الذي تريده لحساب إجمالي لأيهما بواسطة فقط تطبيق عامل تصفية أو عن طريق إخفاء أو إظهار المهام الفرعية.
  3. من القائمة أدوات، أشر إلى ماكرو، ومن ثم انقر فوق وحدات الماكرو.
  4. في القائمة الماكرو، حدد سومفيلتيريدليست ومن ثم انقر فوق تشغيل.

تعديل الماكرو

لجمع القيم من الحقول، ماعدا الرقم 1، استبدل المرجع إلىعلق الرقم 1 في السطر "حقل مجموع" بالاسمالحقل الذي تريد اشتقاق إجمالي. لوضع الإجمالي في حقلعدا الرقم 1، استبدل المرجع إلى الرقم 1 على خط التعليقمع "الحقل الذي يحتوي على مجموعة" مع اسم الحقل الذي تقومفي الواقع تريد وضع الإجمالي.

على سبيل المثال، إذا كان الحقل التي تريد جمعها الحقول محسوبة، مثليجب وضع التكلفة أو التكلفة الفعلية، ثم المجموع في حقل غير محسوب،مثل التكلفة 1 أو الرقم 1. ولذلك، للحصول على الإجمالي حقول التكلفة للجميعمكان الإجمالي في حقل التكلفة 1 للمهمة "المجموع"، والمهام مرئيةيمكنك تغيير الخطوط المشار إليها كما يلي:
   fTotal = fTotal + oTask.Cost   ' Field to Sum   oTotalTask.Cost1 = fTotal      ' Field containing total				

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 124482 - آخر مراجعة: 04/29/2013 18:25:00 - المراجعة: 1.0

  • Microsoft Project 98 Standard Edition
  • Microsoft Project 4.1 Standard Edition
  • Microsoft Project 4.0 Standard Edition
  • Microsoft Project 4.0 لـ 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 KbMtar
تعليقات
0&did=1&t=">p;did=1&t=">&did=1&t=">rotocol) + "//c.microsoft.com/ms.js'><\/script>"); src="https://c.microsoft.com/ms.js">