Pergunte aqui
1

Macro basic referencia em célula

perguntadas 2018-12-11 23:42:09 +0200

imagem do gravatar de Ronaldo Elias

updated 2019-03-01 18:07:29 +0200

Boa noite, existe uma macro (basic para calc) que ao selecionar determinada célula mostre o seu conteúdo, bem como como de células adjacentes. Ex.: Selecionado a célula A1 (valor mostrado é Animais) e as adjacentes, no caso, A2 (valor mostrado é Macaco) e A3 (valor mostrado é Girafa).

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Explique melhor, pois se você estiver na célula A1, A2 e A3 já estão visíveis !!!!!!!!!!!

Tem arquivo de exemplo ?

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-12-12 01:45:19 +0200 )editar

,

Sub PegarStringDaCelulaAtual()

        Dim oSel as Object

            oSel = ThisComponent.getCurrentSelection()

            Var1 = oSel.getString()

            Var2 = 'a posição esquerda seguinte da Var1

            Msgbox Var1 & " - " & Var2

        End Sub
imagem do gravatar de Ronaldo EliasRonaldo Elias ( 2018-12-14 19:03:12 +0200 )editar

2 Respostas

0

respondidas 2018-12-14 21:54:50 +0200

. Segue um exemplo: Pega a string da célula atual e a esquerda dela.

Sub PegarStringDaCelulaAtualEEsquerda()
Dim document As Object
Dim dispatcher As Object
Dim oSel as Object
oSel = ThisComponent.getCurrentSelection()
Var1 = oSel.getString()

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1  '<==== quantidade colunas deslocadas no cursor.
args1(1).Name = "Sel"
args1(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0,  args1())

oSel = ThisComponent.getCurrentSelection()
Var2 = oSel.getString()
Msgbox Var1 & " - " & Var2
End Sub
editar assinalar como ofensivo Excluir Link mais
0

respondidas 2018-12-12 14:37:26 +0200

imagem do gravatar de Luizz

updated 2018-12-15 01:00:14 +0200

.

Sub Main

MsgBox ThisComponent.Sheets(0).GetCellRangeByName("A1").Value

MsgBox ThisComponent.Sheets(0).GetCellRangeByName("A2").Value

MsgBox ThisComponent.Sheets(0).GetCellRangeByName("A3").Value

End Sub

Seria isto?

editar assinalar como ofensivo Excluir Link mais

Comentários

.

   Sub PegarStringDaCelulaAtual()

 Dim oSel as Object 

oSel = ThisComponent.getCurrentSelection() 

Var1 = oSel.getString() 

Var2 = 'a posição esquerda seguinte da Var1 

Msgbox Var1 & " - " & Var2 

End Sub

.

imagem do gravatar de Ronaldo EliasRonaldo Elias ( 2018-12-14 19:03:39 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-12-11 23:42:09 +0200

Lidas: 55 vezes

Última atualização: Dec 15 '18