Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Como negar o operador Like no LibreOffice Basic

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.

Como negar o operador Like no LibreOffice Basic

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.

Como negar o operador Like no LibreOffice Basic

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.