Pergunte aqui
0

Macro com sub-rotina

perguntadas 2016-10-18 03:58:06 +0200

updated 2016-10-19 01:38:06 +0200

Como acertar esta Macro com sub-rotina ?

   sub Executar
        rem ===> ir para planilha 1 celula c5
        IrParaCelula 1, "$c$5"
   end sub

   sub IrParaCelula   ( x as integer, y as string)       rem <=== como definir aqui ?
        rem ======================================================================
        rem define variables
        dim document   as object
        dim dispatcher as object
        rem ----------------------------------------------------------------------
        rem get access to the document
        document   = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
        rem ----------------------------------------------------------------------
        dim args1(0) as new com.sun.star.beans.PropertyValue
        args1(0).Name = "Nr"
        args1(0).Value = x      rem <=== x é o numero da planilha
        dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
        rem ----------------------------------------------------------------------
        dim args2(0) as new com.sun.star.beans.PropertyValue
        args2(0).Name = "ToPoint"
        args2(0).Value = y      rem <==== y é a célula
        dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
   end sub
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Olá. Não entendi o que deseja fazer. A macro não funciona? (Não posso testar o código no momento)

imagem do gravatar de GrafenoGrafeno ( 2016-10-18 16:41:56 +0200 )editar

1 Resposta

1

respondidas 2016-10-18 22:23:00 +0200

imagem do gravatar de Grafeno

@Gilberto Schiavinatto,


O segundo argumento ( y ) foi declarado como string, portanto, para a chamada funcionar é preciso entrar com o argumento entre aspas ( " " ).

Então uma chamada correta seria:

sub Executar
   rem ===> ir para planilha 1 celula c5
   IrParaCelula 1, "$c$5"       ' <== Aceita também "c5"
end sub


Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

Boa noite @Grafeno, falha minha na digitação na wiki, já esta assim e da o seguinte erro: Erro na sintaxe do BASIC. O símbolo IrParaCelula já esta definido de maneira diferente.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2016-10-19 01:30:59 +0200 )editar
1

@Grafeno, refis a macro em outro arquivo e funcionou, veja o teste: ----- https://dl.dropboxusercontent.com/u/1... ----- só não entendi o erro que estava acusando!!!!

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2016-10-19 02:06:03 +0200 )editar

Bem, se vc refez a macro e está funcionado, então está tudo certo. Rodando seu exemplo funcionou perfeitamente, como o esperado.

imagem do gravatar de GrafenoGrafeno ( 2016-10-19 14:34:31 +0200 )editar

Só para finalizar, descobri o motivo do erro. Como fiz vários teste de macro, havia uma sobra, não apagada, com esta informação "IrParaCelula". Obrigado @Grafeno.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2016-10-20 00:25:13 +0200 )editar

Oi @Grafeno, gostaria de me comunicar diretamente contigo. Necessito de uma opinião sua antes de expor o assunto, poderia entrar em contato gilberto@schiavinatto.com Grato.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2016-10-25 01:30:33 +0200 )editar

@Gilberto Schiavinatto, mandei o e-mail solicitado.

imagem do gravatar de GrafenoGrafeno ( 2016-10-28 20:54:58 +0200 )editar

@Grafeno, até agora, nada recebido....... nem no Span, nem Lixeira !

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2016-10-29 00:29:17 +0200 )editar

Ok, @Gilberto Schiavinatto, então tente me mandar um email: grafeno.o2[arroba]gmail.com

imagem do gravatar de GrafenoGrafeno ( 2016-11-01 21:16:13 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2016-10-18 03:58:06 +0200

Lidas: 140 vezes

Última atualização: Oct 19 '16