Haz tu Pregunta
0

Cambiar color celda activa

preguntado 2020-06-05 21:47:48 +0200

Imagen Gravatar de liogf
edit re-etiquetar marcar como ofensivo cerrar fusionar delete

Comments

Con tantas explicaciones, sobre cual es el sistema operativo, la versión de LibreOffice, las opciones de accesibilidad. Será difícil que te puedan ayudar si la bola de cristal.

Imagen Gravatar de m.a.riosv m.a.riosv ( 2020-06-06 14:27:21 +0200 )edit

2 Respuestas

Ordenar por » viejos nuevas más votado
0

respondido 2020-06-06 22:00:41 +0200

updated 2020-06-06 22:01:59 +0200

@liogf

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

Global OldCell As Object

Sub cellaattiva(Target) 
'==========================================================================
    If NOT Target.supportsService("com.sun.star.sheet.SheetCell") then exit sub
    On Error Resume Next    
     OldCell.IsCellBackgroundTransparent = True
    Target.CellBackColor = QBColor(7)
    OldCell = Target
'     OldCell.IsCellBackgroundTransparent = True
End Sub


Sub AcionarMacro
'==========================================================================
Dim document As Object, dispatcher As Object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    Teste = "NUOVO" 'Parola di confronto
Dim Plan As Object
Dim Var1 As String
    oSel = ThisComponent.getCurrentSelection()
    Var1 = oSel.getString() 
    If Var1 = Teste Then
            Call Nuovo   'Chiama la tua macro
    Else
    End If
End Sub

descripción de la imagen

descripción de la imagen

descripción de la imagen

test file

-----------------------------------------------------------------------------

ATENCIÓN: Si desea dar más detalles a su pregunta, utilice edit en la pregunta o add a comment abajo. Agradecido.

Si la respuesta atendió su necesidad, por favor, haga clic en la bolita Descrição da imagem a la izquierda de la respuesta, para finalizar la pregunta.

edit marcar como ofensivo delete enlace mas
0

respondido 2020-06-06 16:06:47 +0200

Imagen Gravatar de Kyodake

updated 2020-06-06 16:07:14 +0200

Para obtener lo solicitado, impresiona como que deberías usar una macro.

a- Deberías crear la macro.

b- Deberías copiar la macro en el archivo.

c- Deberías crear un estilo de celda, por ejemplo "Coloreado" con el color de fondo requerido.

d- Deberías asignar la macro al evento "Al cambiar selección"

Aquí podrías aprender al respecto: https://wiki.open-office.es/Calc

edit marcar como ofensivo delete enlace mas
Ingresa/Regístrate para Contestar

Herramientas de Preguntas

1 seguidor

Estadisticas

Preguntado: 2020-06-05 21:47:48 +0200

Visto: 49 veces

Ultima actualización: Jun 06