Você está offline; aguardando reconexão

PRJ: Macro para valores de soma na lista filtrada

O suporte para o Office 2003 terminou

A Microsoft terminou o suporte para o Office 2003 em 8 de abril de 2014. Esta alteração afetou as suas atualizações de software e opções de segurança. Saiba o que isto significa para você e como permanecer protegido.

IMPORTANTE: Este artigo foi traduzido pelo software de tradução automática da Microsoft e eventualmente pode ter sido editado pela Microsoft Community através da tecnologia Community Translation Framework (CTF) ou por um tradutor profissional. A Microsoft oferece artigos traduzidos automaticamente por software, por tradutores profissionais e editados pela comunidade para que você tenha acesso a todos os artigos de nossa Base de Conhecimento em diversos idiomas. No entanto, um artigo traduzido pode conter erros de vocabulário, sintaxe e/ou gramática. A Microsoft não é responsável por qualquer inexatidão, erro ou dano causado por qualquer tradução imprecisa do conteúdo ou por seu uso pelos nossos clientes.

Clique aqui para ver a versão em Inglês deste artigo: 124482
Sumário
O exemplo de macro do Microsoft Project na seção "Mais informações"Este artigo resume os valores numéricos em uma lista de tarefas visíveis e exibeo total em uma linha de tarefa na parte inferior da lista.
Mais Informações
A Microsoft fornece exemplos do Visual Basic for Applications procedimentos parailustração, sem garantia expressa ou implícita, incluindo,mas não limitado a garantias implícitas de comercialização e/oupara uma finalidade específica. Os procedimentos do Visual Basic neste artigo sãofornecido 'como está' e a Microsoft não garante que eles podem ser usados emtodas as situações. Enquanto o Microsoft Support profissionais podem ajudar a explicar afuncionalidade de uma determinada macro, eles não modificarão esses exemplos parafornecer funcionalidade adicional nem eles ajudarão você criar macros paraatender às suas necessidades específicas. Se você tiver limitado a experiência de programação, vocêtalvez queira consultar um Microsoft Solution Providers. SoluçãoProvedores oferecem uma ampla gama de serviços baseados em taxas, incluindo a criação demacros personalizadas. Para obter mais informações sobre Microsoft Solution Providers,Chame o serviço de informações de cliente da Microsoft no telefone (800) 426-9400.

A macro a seguir soma os valores dos campos Número1 da visíveltarefas. Depois de executar esta macro, será criada uma nova tarefa chamada "Total"e exibida no final do projeto ativo. O campo Número1 nestetarefa irá conter a soma dos valores Número1 para todos os outros visíveistarefas.

Microsoft Project 2010 e 2013

  1. Na faixa de opções do modo de exibição , selecione Macros e clique em Exibir Macros.
  2. Digite o nome "SumFilteredList e clique em criar.
  3. Copie o código da etapa 6 abaixo em Module1 que é aberto no editor do Visual Basic.
Para usar essa macro, faça o seguinte:

  1. Selecione um modo de exibição de tarefa que usa uma tabela, como o gráfico de Gantt.
  2. Exiba apenas as tarefas que você deseja calcular um total para aplicar um filtro ou ocultar ou mostrar subtarefas.
  3. Na faixa de opções do modo de exibição , selecione Macrose, em seguida, clique em Exibir Macros.
  4. Na lista da Macro, selecione SumFilteredList e, em seguida, clique em Executar.


Microsoft Project 98, 2000, 2002, 2003 e 2007
  1. No menu Ferramentas, aponte para Macro e, em seguida, clique em Macros.
  2. No campo nome da Macro, digite SumFilteredList. Clique em criar.
  3. Microsoft Project 2010
  4. Selecione a guia Exibir e, em seguida, clique em Macros
  5. Na caixa de diálogo Macros , o tipo de SumFilteredList no Nome da Macro arquivado e clique em criar.
  6. No Editor do Visual Basic, digite o seguinte 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						

O Microsoft Project 4. x

  1. No menu Ferramentas, clique em Macros.
  2. Clique em novo.
  3. No campo nome da Macro, digite SumFilteredList. Clique em OK.
  4. No Editor do módulo, digite o seguinte 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 usar essa macro, faça o seguinte:

  1. Selecione um modo de exibição de tarefa que usa uma tabela, como o gráfico de Gantt.
  2. Exibir apenas as tarefas que você deseja calcular um total por Aplicar um filtro ou por ocultar ou mostrar subtarefas.
  3. No menu Ferramentas, clique em Macros.
  4. Na lista da Macro, selecione SumFilteredList e, em seguida, clique em executar.
Para usar essa macro, faça o seguinte:

  1. Selecione um modo de exibição de tarefa que usa uma tabela, como o gráfico de Gantt.
  2. Exibir apenas as tarefas que você deseja calcular um total por Aplicar um filtro ou por ocultar ou mostrar subtarefas.
  3. No menu Ferramentas, aponte para Macro e, em seguida, clique em Macros.
  4. Na lista da Macro, selecione SumFilteredList e, em seguida, clique em executar.

Modificar a Macro

Para somar os valores de campos diferente Núm1, substitua a referência aNúmero1 na linha comentada com "Campo Soma" com o nome dacampo para o qual você deseja derivar um total. Para inserir o total em um campodiferente Núm1, substitua a referência a Número1 na linha comentadacom "Campo contendo total" com o nome do campo no qual vocêrealmente deseja inserir o total.

Por exemplo, se o campo que deseja somar é um campo calculado, comoCusto ou custo real e a soma que deve ser colocada em um campo calculado não,como o Custo1 ou Número1. Portanto obter o total de campos de custo para todas astarefas visíveis e coloque o total no campo Custo1 da tarefa "Total",Altere as linhas indicadas da seguinte maneira:
   fTotal = fTotal + oTask.Cost   ' Field to Sum   oTotalTask.Cost1 = fTotal      ' Field containing total				

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 124482 - Última Revisão: 04/29/2013 18:31:00 - Revisão: 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 KbMtpt
Comentários