Como negar o operador Like no LibreOffice Basic

[crisdoxavier]

Bom dia, pessoal. Estou tentando criar um código que verifique se uma célula tem fórmula no VBA e para isso estou usando o operador Like. Primeiro, faço o seguinte:

Dim Plan Ativa 'Defino a Planilha onde está sendo executado o código
Dim Range 'Defino o intervalo de células
Dim Formula ' Defino a matriz onde serão colocadas as fórmulas de Range

PlanAtiva = ThisComponent.CurrentController.getActiveSheet
Range = PlanAtiva.getCellRangeByPosition(0, 1, 10, 3)
Formula = Range.getFormulaArray

Formula, então, vira uma matriz dentro de uma matriz, sendo a matriz extrena correspondente às linhas e a matriz interna correspondente às colunas. Chega então o momento em que tenho que verificar se há fórmula ou não. Eu quero que verifique se não há fórmula. Eu fiz desse jeito:

If Not Formula(0)(0) Like "=*" Then

O que gera um erro " Tipos de dados incompatíveis". Se eu fizer sem o Not, roda sem problemas, mas eu queria justamente o contrário.

[Grafeno]

Boa noite,

Eu testei com parênteses, como abaixo, e funcionou:

If Not ( Formula(0)(0) Like "=*" ) Then

Atte,

[crisdoxavier]

Acabei de testar também. Deu certo. Muito Obirgado.

[Levi]

Funciona com os parênteses pois, se não os colocar, nega-se o termo Formula, que é uma String e não uma expressão condicional. Com os parênteses, nega-se uma condição, ou seja, se: (Formula(0)(0) Like “=")->verdadeiro, então not(Formula(0)(0) Like "=”)->falso.