Código para macro de desfazer marcação de célula

rodrigocoppola · May 4, 2020, 7:45pm

sempre que executo minha macro de copiar e colar, a celula que eu dei de referencia para copia continua marcada, tem algum codigo para desfazer essa marcação?
segue minha macro.

REM  *****  BASIC  *****
Option VBASupport 1 
   
Global document As Object
Global dispatcher As Object

Sub Abre
    Call DocDisp 'Uso Geral
    Call IrPara "Maio2020.O2"
    Call Copiar
    Call IrPara "Maio2020.G1" rem Primeira celula da coluna de Status
    Call PrimeiraVazia
    Call Colar
    Call IrPara "Maio2020.J3"
    Call Copiadata
    Call IrPara "Maio2020.H1"
    Call PrimeiraVaziaD
    Call Coladata
    Call Linha
end Sub

' Call é usado para chamar outra Macro.

Sub DocDisp
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")  
end Sub


'=========================================================================
sub IrPara (xlocal as string) 
'xlocal = "Maio2020.O2"
'exemplo uso: IrPara "Planilha.A1" ou "Planila1.A1:B3" ou "NomeArea"
'=========================================================================
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
'=========================================================================
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
end sub


'=========================================================================
sub PrimeiraVazia
'=========================================================================
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, Array())
end sub

'=========================================================================
sub Colar
'=========================================================================
dim args2(5) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "SVD"
args2(1).Name = "FormulaCommand"
args2(1).Value = 0
args2(2).Name = "SkipEmptyCells"
args2(2).Value = false
args2(3).Name = "Transpose"
args2(3).Value = false
args2(4).Name = "AsLink"
args2(4).Value = false
args2(5).Name = "MoveMode"
args2(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args2())
end sub
rem encerra primeira parte======================

 


sub Copiadata
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())


end sub

sub PrimeiraVaziaD
'=========================================================================
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, Array())
end sub


sub Coladata
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(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Flags"
args1(0).Value = "SVD"
args1(1).Name = "FormulaCommand"
args1(1).Value = 0
args1(2).Name = "SkipEmptyCells"
args1(2).Value = false
args1(3).Name = "Transpose"
args1(3).Value = false
args1(4).Name = "AsLink"
args1(4).Value = false
args1(5).Name = "MoveMode"
args1(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:Cancel", "", 0, Array())

end sub

schiavinatto · May 4, 2020, 9:54pm

Ola @rodrigocoppola, seja bem vindo ao Grupo.

Veja aqui: ESC (ESCAPE) em macro

Tem arquivo exemplo.

Só funciona quando acionada por botão, a execução pelo IDE do Basic não.

Complemento

Segue sua Macro “desengordurada”…

REM  *****  BASIC  *****

Sub Abre
'=========================================================================
    Call IrPara "Maio2020.O2"
    Call Copiar
    Call IrPara "Maio2020.G1" rem Primeira celula da coluna de Status
    Call PrimeiraVaziaAbaixo
    Call ColarOque "SVD"
    Call IrPara "Maio2020.J3"
    Call Copiar
    Call IrPara "Maio2020.H1"
    Call PrimeiraVaziaAbaixo
    Call ColarOque "SVD"
'    Call Linha
 end Sub


Sub IrPara ( X As String )
'=========================================================================
dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "ToPoint" : args1(0).Value = X
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:GoToCell", "", 0, args1())
End Sub


Sub Copiar : Execute "Copy" : Call ESC : End Sub
'=========================================================================


Sub PrimeiraVaziaAbaixo : Execute "GoDownToEndOfData" : Execute "GoDown" : End Sub
'=========================================================================


Sub ColarOque ( xxx$ )
'=========================================================================
' Add the letters in the sequence below - |- - - or - -- - - - |
' "S" "V" "D" "F" "N" "T" | “A” |
' Text Number DateTime Formula Annotation Format | All + Object |
'---------------------------------------------------------------------------------------------------|
dim args1(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Flags" : args1(0).Value = xxx 
args1(1).Name = "FormulaCommand" : args1(1).Value = 0
args1(2).Name = "SkipEmptyCells" : args1(2).Value = false
args1(3).Name = "Transpose" : args1(3).Value = "false"
args1(4).Name = "AsLink" : args1(4).Value = "false"
args1(5).Name = "MoveMode" : args1(5).Value = 4
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:InsertContents", "", 0, args1())
End Sub


Sub ESC : 	Execute "SetInputMode" : 	Execute "Cancel" : End Sub
'=========================================================================


'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%$$$$$$$$$$$
Sub Execute ( oQue$ )
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:" & oQue & "", "", 0, Array())
End Sub
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

A chamada Call Linha , não sei do que se trata, esta desabilitada.

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Não use Adicionar resposta para comentário. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.

rodrigocoppola · May 5, 2020, 10:45am

não funcionou pra mim, ja havia colocado esse codigo, porém continua marcado

schiavinatto · May 5, 2020, 11:41am

@rodrigocoppola, criou um botão para acionamento ?

Edite sua pergunta e adicione a macro completa, ou um arquivo exemplo usando o ícone clipe.

rodrigocoppola · May 5, 2020, 4:35pm

criei um botao sim, o problema mesmo é que se eu clico seguido no botão que criei ele copia o dado que fica na caixa de seleção. vou editar com a macro .

schiavinatto · May 5, 2020, 6:17pm

@rodrigocoppola, Se clicou seguido vai executar a macro seguido !!!, explicar melhor…

Veja Complemento na minha Resposta acima, estas macros não me é estranha, deve ser de algum arquivo que postei. Veja como estou usando atualmente.