Pergunte aqui
0

If #VALOR! then

perguntadas 2017-10-27 22:27:13 +0100

imagem do gravatar de Tandy

updated 2019-03-01 19:05:41 +0100

Boa tarde pessoal! Estou precisando verificar se uma célula contém o erro "#VALOR!" como faço para fazer essa comparação no basic? Para finalizar a pergunta, será assim: Se H6 for igual a "#VALOR!" então oculte a coluna H. Alguém poderia me ajudar?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

0

respondidas 2017-10-28 04:05:40 +0100

imagem do gravatar de Grafeno

Boa noite,


O erro pode ser lido como texto (string) através da API UNO:

Sub Main
Dim oDoc As Object, oPlan As Object
Dim oCel As Object
Dim nCol as Long

   oDoc = ThisComponent
   oPlan = oDoc.Sheets.getByName( "Planilha1" )
   oCel = oPlan.getCellRangeByName( "H6" )

   If oCel.String = "#VALOR!" Then
      nCol = oCel.CellAddress.Column
      oPlan.Columns.getByIndex( nCol ).IsVisible = False      
   End If   
End Sub


Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

Muito Obrigado!!!

imagem do gravatar de TandyTandy ( 2017-10-30 18:15:50 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2017-10-27 22:27:13 +0100

Lidas: 45 vezes

Última atualização: Oct 28 '17