Estás trabajando sin conexión, espera a que vuelva la conexión a Internet

PRJ: Macro para sumar los valores de la lista filtrada

Ha finalizado el soporte técnico para Office 2003

Microsoft puso fin al soporte técnico para Office 2003 el 8 de abril de 2014. Este cambio ha afectado a las actualizaciones de software y las opciones de seguridad. Sepa qué significa esto en su caso y cómo puede mantenerse protegido.

IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.

Haga clic aquí para ver el artículo original (en inglés): 124482
Resumen
La macro de ejemplo de Microsoft Project en el artículo de esta sección "Más información" suma los valores numéricos de una lista de tareas visibles y demuestra total en una fila en la parte inferior de la lista de tareas.
Más información
Microsoft proporciona ejemplos de Visual Basic para Aplicaciones, forillustration de procedimientos sin garantía expresa o implícita, incluyendo, pero sin limitarse a las garantías implícitas de comerciabilidad o adecuación de un fin determinado. Los procedimientos de Visual Basic en este artículo areprovided "tal cual" y Microsoft no garantiza que pueden ser utilizados inall situaciones. Mientras que los profesionales de Microsoft Support pueden ayudar a explicar la thefunctionality de una macro determinada, no modificarán estos ejemplos proveer funcionalidad agregada ni le ayudarán a usted crear macros conocer sus necesidades específicas. Si tiene poca experiencia en programación, tal vez desee consultar uno de los proveedores de soluciones de Microsoft. SolutionProviders ofrece una amplia gama de servicios de pago, incluidas las macros creatingcustom. Para obtener más información acerca de los proveedores de soluciones de Microsoft, llame a servicio de información al cliente de Microsoft en (800) 426-9400.

La siguiente macro suma los valores de los campos Número1 de todos visibletasks. Después de ejecutar esta macro, una nueva tarea denominada "Total" será creaday aparece al final del proyecto activo. El campo Número1 en thistask contendrá la suma de los valores de número 1 para todos los otros visibletasks.

Microsoft Project 2010 y 2013

  1. En la cinta de opciones de vista , seleccione Macros y haga clic en Ver Macros.
  2. Escriba el nombre de "SumFilteredList y haga clic en crear.
  3. Copie el código del paso 6 más abajo en Module1 que se abre en el editor de Visual Basic.
Para utilizar esta macro, haga lo siguiente:

  1. Seleccione una vista de tareas que utiliza una tabla, como el gráfico de Gantt.
  2. Mostrar sólo las tareas que desea calcular un total para aplicar un filtro o ocultar o mostrar las subtareas.
  3. En la cinta de opciones de vista , seleccione Macrosy, a continuación, haga clic en Ver Macros.
  4. En la lista de macros, seleccione SumFilteredList y, a continuación, haga clic en Ejecutar.


Microsoft Project 98, 2000, 2002, 2003 y 2007
  1. En el menú Herramientas, señale Macro y, a continuación, haga clic en Macros.
  2. En el campo nombre de la Macro, escriba SumFilteredList. Haga clic en crear.
  3. Microsoft Project 2010
  4. Seleccione la ficha Ver y haga clic en Macros.
  5. En el cuadro de diálogo Macros , tipo SumFilteredList en el Nombre de la Macro y haga clic en crear.
  6. En el Editor de Visual Basic, escriba el siguiente código:
          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. En el menú Herramientas, haga clic en Macros.
  2. Haga clic en nuevo.
  3. En el campo nombre de la Macro, escriba SumFilteredList. Haga clic en Aceptar.
  4. En el Editor de módulo, escriba el siguiente código:
          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						
Para utilizar esta macro, haga lo siguiente:

  1. Seleccione una vista de tareas que utiliza una tabla, como el gráfico de Gantt.
  2. Mostrar sólo las tareas que desea calcular un total para aplicar un filtro o ocultar o mostrar las subtareas.
  3. En el menú Herramientas, haga clic en Macros.
  4. En la lista de macros, seleccione SumFilteredList y, a continuación, haga clic en ejecutar.
Para utilizar esta macro, haga lo siguiente:

  1. Seleccione una vista de tareas que utiliza una tabla, como el gráfico de Gantt.
  2. Mostrar sólo las tareas que desea calcular un total para aplicar un filtro o ocultar o mostrar las subtareas.
  3. En el menú Herramientas, señale Macro y, a continuación, haga clic en Macros.
  4. En la lista de macros, seleccione SumFilteredList y, a continuación, haga clic en ejecutar.

Modificar la Macro

Para sumar los valores de los campos que no sean Número1, reemplazar el toNumber1 de referencia de la línea de comentarios con "Campo en suma" con el nombre de campo para el que desea obtener un total. Para colocar el total en una fieldother que Número1, sustituir la referencia al número 1 en el commentedwith de la línea "Campo contiene total" con el nombre del campo en que verdad desea colocar el total.

Por ejemplo, si el campo que desee sumar es un campo calculado, tales asCost o el costo real, la suma debe colocarse en un campo no calculados, como Costo1 o Número1. Por lo tanto, para conseguir que los campos de costo total de las tareas de allvisible y colocar el total en el campo Costo1 de la tarea "Total", deberá cambiar las líneas indicadas como sigue:
   fTotal = fTotal + oTask.Cost   ' Field to Sum   oTotalTask.Cost1 = fTotal      ' Field containing total				

Advertencia: este artículo se tradujo automáticamente

Propiedades

Id. de artículo: 124482 - Última revisión: 02/01/2015 04:54:00 - Revisión: 2.0

Microsoft Project 98 Standard, Microsoft Project 4.1 Standard, Microsoft Project 4.0 Standard, Microsoft Project 4.0 para Macintosh, Microsoft Office Project Standard 2007, Microsoft Office Project Standard 2003, Microsoft Project 2000 Standard, Microsoft Project 2002 Standard, 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, 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 KbMtes
Comentarios
ge.locale}}" href="" ng-click="setLanguage(language);" class="ng-binding" id="language-zh-hk">香港特別行政區 - 繁體中文
El Salvador - Español
Panamá - Español
Uruguay - Español
대한민국 - 한국어
España - Español
Paraguay - Español
Venezuela - Español
>//c1.microsoft.com/c.gif?DI=4050&did=1&t=">ment.getElementsByTagName('head')[0].appendChild(m);" src="http://c1.microsoft.com/c.gif?"> y>