Cambiar color celda activa

edit

@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

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 a la izquierda de la respuesta, para finalizar la pregunta.

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