Índice
Verifique se a folha existe
Criamos uma função que testará se uma planilha ou intervalo (em uma planilha específica) existe. O teste de intervalo é útil se você deseja verificar se um determinado intervalo nomeado existe em uma planilha.
| 123456789101112 | 'Teste se um intervalo existe em uma folha.'Deixe o intervalo em branco para testar se a folha existe'Entradas:'WhatSheet - String Name of Sheet (ex "Sheet1")'WhatRange (opcional, padrão = "A1") - String Nome do intervalo (ex "A1")Função RangeExists (WhatSheet As String, Opcional ByVal WhatRange As String = "A1") As BooleanDim test As RangeOn Error Resume NextSet test = ActiveWorkbook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0No erro GoTo 0Função Final |
Coloque a função dentro de um Módulo de Código VBA e você pode acessá-la usando subprocedimentos como estes:
Verifique se existe folha
| 123 | Sub Test_SheetExists ()MsgBox RangeExists ("configuração")End Sub |
Verifique se o intervalo existe em uma folha
| 123 | Sub Test_RangeExists ()MsgBox RangeExists ("setup", "rngInput")End Sub |
Ajustando a função RangeExists
Verifique se a planilha existe em outra pasta de trabalho
A função acima olhou para ActiveWorkbook (a pasta de trabalho atualmente ativa). Em vez disso, você pode ajustar a função para olhar para uma pasta de trabalho específica como esta:
| 12345678910111213 | 'Teste se um intervalo existe em uma folha.'Deixe o intervalo em branco para testar se a folha existe'Entradas:'WhatBook - * Workbook Object *'WhatSheet - String Name of Sheet (ex "Sheet1")'WhatRange (opcional, padrão = "A1") - Nome da string do intervalo (ex "A1")Função RangeExists (WhatBook As Workbook, WhatSheet As String, Opcional ByVal WhatRange As String = "A1") As BooleanDim test As RangeOn Error Resume NextDefinir teste = WhatBook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0No erro GoTo 0Função Final |
Implementação:
| 1234567 | Sub Test_WBSheet_Exists ()Dim wb como pasta de trabalhoDefinir wb = ActiveWorkbookMsgBox RangeExists (wb, "Folha1")End Sub |
