4 Replies Latest reply: Jun 18, 2016 11:06 AM by Clever Anjos RSS

    Passagem de parâmetro em macro

    Luiz Cláudio Gomes

      Bom dia pessoal

       

      Estou utilizando uma macro para gerar colunas em uma tabela dinâmica, porém preciso fixar um limite para os valores.

      Esta macro gera valores de parcelamento de débitos e preciso que o processo seja encerrado quando o valor da parcela chegar, por exemplo, a R$60,00.

      Como faço para passar um valor como parâmetro na macro?

       

      Luiz Cláudio

        • Re: Passagem de parâmetro em macro
          rodrigo silvestre

          Lembro do seu outro post, fazendo essa macro para gerar as colunas, vc utilizava um for certo? Você não consegue colocar dentro de um for também utilizando como condicional a variável com o valor da parcela ?

            • Re: Passagem de parâmetro em macro
              Luiz Cláudio Gomes

              Rodrigo

               

              A minha dificuldade está em identificar qual o valor do cálculo na macro abaixo.

               

              Sub Gera_expressao

              Dim Parcelas

              Parcelas = 2

              set Graph = ActiveDocument.GetSheetObject("CH76")

              set v = ActiveDocument.Variables("Qt_Parcelas")

              While Parcelas <=12

              ExpNo = Graph.AddExpression("Column(4)/"&Parcelas)

              set cp = Graph.GetProperties

              set ExpVis = cp.Expressions.Item(ExpNo).Item(0).Data.ExpressionVisual

              ExpVis.Label.v = Parcelas

              ExpVis.NumAdjust = 2      'center

              ExpVis.LabelAdjust = 1    'center

              set np = cp.Expressions.Item(ExpNo).Item(0).Data.ExpressionVisual.NumberPresentation

              np.Dec = ","

              np.Fmt = "#.##0,00"

              np.nDec = 2

              np.Thou = "."

              np.Type = 11 'fixed decimal

              np.UseThou = 1

              Graph.SetProperties cp

              Parcelas = Parcelas + 1

              v.SetContent Cstr(Parcelas),true

              wend

              End Sub

               

              Luiz Cláudio

            • Re: Passagem de parâmetro em macro
              Clever Anjos

              Já conseguiu a resposta? Se sim, escolha uma e marque como "Correta" para fechar o tópico e nos ajudar a manter a comunidade organizada

              Have fun, be Qlik