Como converter esse macro LO Basic para VBA?


#1

Eu estava criando uma planilha no Libre Office, fui criando alguns macros em LO Basic
Mas agora quero converter para VBA
Como consigo isso?
O código é abaixo:

Option Explicit

Public oPlanCalculadora As Object

Sub ToolOperacao()
    Dim oVerdePositivo As Object
    'base'
        oPlanCalculadora = ThisComponent.Sheets.GetByName("Calculadora")
    'objetos'
    
    'ifs'
        If oPlanCalculadora.GetCellRangeByName("W14").String = "Manual" Then
            oPlanCalculadora.GetCellRangeByName("W14").SetString("Automática")
            oPlanCalculadora.GetCellRangeByName("V14").SetString("I")
            oPlanCalculadora.GetCellRangeByName("V14").CellBackColor = RGB( 154,168,58 )
    	    Exit Sub
        End If

        If oPlanCalculadora.GetCellRangeByName("W14").String = "Automática" Then
            oPlanCalculadora.GetCellRangeByName("W14").SetString("Manual")
            oPlanCalculadora.GetCellRangeByName("V14").SetString("O")
            oPlanCalculadora.GetCellRangeByName("V14").CellBackColor = RGB( 199,68,74 )
        End If
                
 End Sub

Para facilitar:

ThisComponent.Sheets.GetByName = Procura a planilha pelo nome, creio que posso usar o “Worksheets”

GetCellRangeByName = Procura a celula pelo nome, creio eu que possa usar “Range”

.String = No caso utilizado aí em cima, ele olha se o texto (String) é igual ao que está entre aspas

.SetString = Define o texto (String) da celula para o texto entre Parentese e Aspas

.CellBackColor = Define a cor de fundo da celula para o valor em RGB

Se puderem me ajudar, serei muito grato!
Aguardo respostas!


#2

Já resolvi!
Consegui da seguinte maneira:

Sem%20t%C3%ADtulo

Valeu galera!