Pergunte aqui
1

Como faço para copiar uma fórmula de uma célula para outra no Basic

perguntadas 2018-12-11 15:09:00 +0200

imagem do gravatar de crisdoxavier

updated 2019-03-01 18:08:03 +0200

Desejo fazer isso mantendo as refêrencias relativas. Por exemplo, se na célula C2 a fórmula é A2+B2, na célula C3 tem que ser A3+B3.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

0

respondidas 2018-12-11 17:46:16 +0200

Ola @crisdoxavier, segue um exemplo:

' Vai até célula copia vai até a célula cola
Sub CopiarColar
    Call IrPara "Planilha1.C2"
    Call Copiar
    Call IrPara "Planilha1.C3"
    Call Colar
End Sub

' Copia da célula que esta e vai até a célula cola
Sub CopiarColar2
    Call Copiar
    Call IrPara "Planilha1.C3"
    Call Colar
End Sub


'---------------Abaixo SubMacros -------------------------------------

'================================================|
sub IrPara (xlocal as string)
'exemplo uso: IrPara "Planilha.A1" ou "Planila1.A1:B3" ou "NomeArea"
'================================================|
Dim document As Object
Dim dispatcher As Object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = xlocal
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
end sub

'================================================|
sub Copiar
'================================================|
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
end sub

'================================================\
Sub Colar
' equivalente ao Ctrl+V
'================================================/
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
end Sub
editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-12-11 15:09:00 +0200

Lidas: 21 vezes

Última atualização: Dec 11 '18