Pergunte aqui
0

Pegar valor de célula atual e somar variável.

perguntadas 2020-07-26 18:53:27 +0200

imagem do gravatar de Schiavinatto

updated 2020-07-30 03:51:03 +0200

Tenho esta macro que pega a string da célula atual:

Sub CurrentCellContent
Dim oSel as Object
oSel = ThisComponent.getCurrentSelection()
Var1 = oSel.getString()
End Sub

Funciona perfeitamente para texto, porém necessito de pegar o valor para somar com uma variável, e não esta funcionando, onde devo alterar.

Sub LancarVoto
Dim oSel as Object
oSel = ThisComponent.getCurrentSelection()
xDig = oSel.getValue()       '<============= Alterei aqui..............................
    EnterString xDig
End Sub

Sub EnterString ( xDig% ) 
dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "StringName" : args1(0).Value = xDig+1
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:EnterString", "", 0, args1())
End Sub

Porem não soma 1.....................

Basicamente necessito algo assim:

  • Pegar o Valor da célula ativa.
  • Colocar em uma Variável.
  • Somar 1 na Variável.
  • Inserir a Variável na célula ativa.
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2020-07-30 02:08:55 +0200

imagem do gravatar de Ronaldo Elias

updated 2020-07-30 03:31:04 +0200

imagem do gravatar de Schiavinatto

Olá, isso resolve!

Sub CurrentCellContent
Dim oSel as Object, Var1 as String, Var2 as String
oSel = ThisComponent.getCurrentSelection()
Var1 = oSel.getString()
Var2 = 1
Print Val(Var1) + Val(Var2)
End Sub
editar assinalar como ofensivo Excluir Link mais

Comentários

Ok @Ronaldo Elias, valeu a dica, ajustei a macro:

Sub CurrentCellContent
Dim oSel as Object, Var1 as String, Var2 as String
oSel = ThisComponent.getCurrentSelection()
Var1 = oSel.getValue()
Var2 = 1
Var1 = Val(Var1) + Val(Var2)
dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "StringName" : args1(0).Value = Var1
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:EnterString", "", 0, args1())
End Sub

E ajudei outro usuário: https://ask.libreoffice.org/it/questi...

imagem do gravatar de SchiavinattoSchiavinatto ( 2020-07-30 03:50:10 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2020-07-26 18:53:27 +0200

Lidas: 15 vezes

Última atualização: Jul 30