Pergunte aqui

Perfil de crisdoxavier - atividade

2019-10-14 17:32:24 +0200 Medalha recebida  Pergunta famosa (fonte)
2019-04-24 22:02:07 +0200 Medalha recebida  Pergunta famosa (fonte)
2019-02-25 15:48:31 +0200 Medalha recebida  Pergunta notável (fonte)
2019-02-25 14:12:25 +0200 Marcada como a melhor resposta 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.

2019-02-25 14:12:25 +0200 Medalha recebida  Acadêmico (fonte)
2019-02-25 14:10:28 +0200 Resposta comentada Como negar o operador Like no LibreOffice Basic

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

2019-02-25 14:05:14 +0200 Medalha recebida  Pergunta notável (fonte)
2019-02-21 02:02:11 +0200 Medalha recebida  Pergunta popular (fonte)
2019-02-19 14:15:28 +0200 Pergunta editada Como negar o operador Like no LibreOffice Basic

Como negar o operador Like no LibreOffice Basic Bom dia, pessoal. Estou tentando criar um código que verifique se uma cé

2019-02-19 14:02:08 +0200 Perguntou Como negar o operador Like no LibreOffice Basic

Como negar o operador Like no LibreOffice Basic Bom dia, pessoal. Estou tentando criar um código que verifique se uma cé

2019-02-17 16:58:06 +0200 Medalha recebida  Pergunta notável (fonte)
2019-01-24 17:33:17 +0200 Medalha recebida  Taxonomista
2019-01-18 10:54:14 +0200 Medalha recebida  Pergunta popular (fonte)
2019-01-17 20:15:28 +0200 Medalha recebida  Editor (fonte)
2019-01-17 20:15:28 +0200 Pergunta editada Função com Objeto Range como argumento pega Matriz de Dados do Range

Função com Objeto Range como argumento pega Matriz de Dados do Range Olá, pessoal. Não sei se minha pergunta foi clara,

2019-01-17 19:13:13 +0200 Perguntou Função com Objeto Range como argumento pega Matriz de Dados do Range

Função com Objeto Range como argumento pega Matriz de Dados do Range Olá, pessoal. Não sei se minha pergunta foi clara,

2019-01-14 19:31:38 +0200 Marcada como a melhor resposta Definir Hora de Execução de Macro

No VBA, eu usava o Application.OnTime para definir a hora de execução de uma Macro. Como faço o mesmo no LibreOffice Basic?

2019-01-02 11:45:47 +0200 Medalha recebida  Pergunta popular (fonte)
2018-12-29 20:30:46 +0200 Medalha recebida  Pergunta popular (fonte)
2018-12-29 15:54:21 +0200 Medalha recebida  Pergunta boa (fonte)
2018-12-28 18:44:46 +0200 Medalha recebida  Entusiasta
2018-12-27 23:04:59 +0200 Marcada como a melhor resposta Como faço o end(xlup) no LibreOffice Basic

Uso muito a propriedade end(xlup) no VBA para descobrir a última linha preenchida da planilha. Gostaria de saber como fazer isso no LibreOffice Basic. Abaixo um exemplo da função que uso no VBA

`

Function fUltimaLinhaPlan(PlanRef As String) As Long

fUltimaLinhaPlan = ThisWorkbook.Worksheets(PlanRef).Range("A1048576").End(xlUp).Row

End Function

`

2018-12-27 17:20:41 +0200 Perguntou Definir Hora de Execução de Macro

Definir Hora de Execução de Macro No VBA, eu usava o Application.OnTime para definir a hora de execução de uma Macro. Co

2018-12-19 13:30:06 +0200 Marcada como a melhor resposta Como faço para copiar uma fórmula de uma célula para outra no Basic

Desejo fazer isso mantendo as refêrencias relativas. Por exemplo, se na célula C2 a fórmula é A2+B2, na célula C3 tem que ser A3+B3.

2018-12-11 15:09:00 +0200 Perguntou Como faço para copiar uma fórmula de uma célula para outra no Basic

Como faço para copiar uma fórmula de uma célula para outra no Basic Desejo fazer isso mantendo as refêrencias relativas.

2018-12-07 05:01:51 +0200 Medalha recebida  Pergunta notável (fonte)
2018-12-06 19:34:17 +0200 Pergunta editada Como faço o end(xlup) no LibreOffice Basic

Como faço o end(xlup) no LibreOffice Basic Uso muito a propriedade end(xlup) no VBA para descobrir a última linha preenc

2018-12-06 19:33:37 +0200 Resposta comentada Como faço o end(xlup) no LibreOffice Basic

Olá. Testei a solução, mas ela tem um problema. Essa Função retorna a última linha menos 1. Naturalmente, posso fazer al

2018-12-06 11:08:49 +0200 Medalha recebida  Pergunta popular (fonte)
2018-12-05 18:33:05 +0200 Medalha recebida  Estudante (fonte)
2018-12-05 15:39:55 +0200 Perguntou Como faço o end(xlup) no LibreOffice Basic

Como faço o end(xlup) no LibreOffice Basic Uso muito a propriedade end(xlup) no VBA para descobrir a última linha preenc