Skip to main content
adicionou 434 caracteres ao conteúdo
Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

Exemplo Num Caract

Limite caract

Este código Extrai cada parte da String (ano,mes e dia) e verifica se o ano não é menor do que 1 ou se é maior do que o ano atual (caso trabalhe com o futuro alterar esta parte). Se o dia é menor do que 1 ou se é maior do que os dias que aquele mês possui. Se o mês é menor do que 1 ou maior do que 12.

Verificar Data

Este código utiliza a Função IsNumeric para verificar se é número.

Verifica Número

Note que: Caso nenhuma das condições anteriores sejam atingidas, não ocorre nada. Este código somente cria uma mensagem de Erro.

Este código Extrai cada parte da String (ano,mes e dia) e verifica se o ano não é menor do que 1 ou se é maior do que o ano atual (caso trabalhe com o futuro alterar esta parte). Se o dia é menor do que 1 ou se é maior do que os dias que aquele mês possui. Se o mês é menor do que 1 ou maior do que 12.

Este código utiliza a Função IsNumeric para verificar se é número.

Exemplo Num Caract

Limite caract

Este código Extrai cada parte da String (ano,mes e dia) e verifica se o ano não é menor do que 1 ou se é maior do que o ano atual (caso trabalhe com o futuro alterar esta parte). Se o dia é menor do que 1 ou se é maior do que os dias que aquele mês possui. Se o mês é menor do que 1 ou maior do que 12.

Verificar Data

Este código utiliza a Função IsNumeric para verificar se é número.

Verifica Número

Note que: Caso nenhuma das condições anteriores sejam atingidas, não ocorre nada. Este código somente cria uma mensagem de Erro.

adicionou 912 caracteres ao conteúdo
Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32
    Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo CleanExit
    Application.EnableEvents = False
    Dim i As Long                                '<-- Linha selecionada
    Dim NumeroCaract As String, anomesdia As String
    Dim ano As Long, mes As Long, dia As Long, DiasNoMes As Long
    
    i = Target.Column
    'Limita o número de caracteres na coluna B
    If i = 2 Then
        NumeroCaract = Len(Target.Value)
        If NumeroCaract <> 6 Then
            MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
        End If
    End If
    
    'Limita o número de caracteres na coluna C e verifica data
    If i = 3 Then
        'Verifica Num Caract
        NumeroCaract = Len(Target.Value)
        If NumeroCaract <> 8 Then
            MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
        End If
        'Verifica Data
        anomesdia = Target.Value
        ano = CLng(Left(anomesdia, 4))
        mes = CLng(Left(Mid(anomesdia, 5), 2))
        dia = CLng(Right(anomesdia, 2))
        DiasNoMes = Day(DateSerial(ano, mes + 1, 0))
    
        If mes < 1 Or mes > 12 Or dia < 1 Or dia > DiasNoMes Or ano < 1 Or ano > Year(Now) Then 'Checa se não é data
            MsgBox "Não é data na Célula: " & Target.Address
        End If
    End If
    
    'Limita o número de caracteres na coluna F e verifica se é número
    If i = 6 Then
        'Verifica Num Caract
        NumeroCaract = Len(Target.Value)
        If NumeroCaract <> 4 Then
            MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
        End If
        'Verifica Se é Número
  
        If Not IsNumeric(Target) Then 'Checa se é data
            MsgBox "Não é número na Célula: " & Target.Address
        End If
    End If

CleanExit:
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

###Explicação

  • Verifica Num Caract

Este código utilizada a Função Len para verificar o número de caracteres na String.

  • Verifica Data

Este código Extrai cada parte da String (ano,mes e dia) e verifica se o ano não é menor do que 1 ou se é maior do que o ano atual (caso trabalhe com o futuro alterar esta parte). Se o dia é menor do que 1 ou se é maior do que os dias que aquele mês possui. Se o mês é menor do que 1 ou maior do que 12.

  • Verifica Se é Número

Este código utiliza a Função IsNumeric para verificar se é número.

  • Verifica se a célula alterada está na coluna desejada

    If i = 2 Then é a condicional que verifica se é a coluna do Target, contando pelo index. Onde 1 é A, 2 é B e assim por diante.

    Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo CleanExit
    Application.EnableEvents = False
    Dim i As Long                                '<-- Linha selecionada
    Dim NumeroCaract As String, anomesdia As String
    Dim ano As Long, mes As Long, dia As Long, DiasNoMes As Long
    
    i = Target.Column
    'Limita o número de caracteres na coluna B
    If i = 2 Then
        NumeroCaract = Len(Target.Value)
        If NumeroCaract <> 6 Then
            MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
        End If
    End If
    
    'Limita o número de caracteres na coluna C e verifica data
    If i = 3 Then
        'Verifica Num Caract
        NumeroCaract = Len(Target.Value)
        If NumeroCaract <> 8 Then
            MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
        End If
        'Verifica Data
        anomesdia = Target.Value
        ano = CLng(Left(anomesdia, 4))
        mes = CLng(Left(Mid(anomesdia, 5), 2))
        dia = CLng(Right(anomesdia, 2))
        DiasNoMes = Day(DateSerial(ano, mes + 1, 0))
    
        If mes < 1 Or mes > 12 Or dia < 1 Or dia > DiasNoMes Then 'Checa se não é data
            MsgBox "Não é data na Célula: " & Target.Address
        End If
    End If
    
    'Limita o número de caracteres na coluna F e verifica se é número
    If i = 6 Then
        'Verifica Num Caract
        NumeroCaract = Len(Target.Value)
        If NumeroCaract <> 4 Then
            MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
        End If
        'Verifica Se é Número
  
        If Not IsNumeric(Target) Then 'Checa se é data
            MsgBox "Não é número na Célula: " & Target.Address
        End If
    End If

CleanExit:
    Application.EnableEvents = True
    On Error GoTo 0
End Sub
    Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo CleanExit
    Application.EnableEvents = False
    Dim i As Long                                '<-- Linha selecionada
    Dim NumeroCaract As String, anomesdia As String
    Dim ano As Long, mes As Long, dia As Long, DiasNoMes As Long
    
    i = Target.Column
    'Limita o número de caracteres na coluna B
    If i = 2 Then
        NumeroCaract = Len(Target.Value)
        If NumeroCaract <> 6 Then
            MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
        End If
    End If
    
    'Limita o número de caracteres na coluna C e verifica data
    If i = 3 Then
        'Verifica Num Caract
        NumeroCaract = Len(Target.Value)
        If NumeroCaract <> 8 Then
            MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
        End If
        'Verifica Data
        anomesdia = Target.Value
        ano = CLng(Left(anomesdia, 4))
        mes = CLng(Left(Mid(anomesdia, 5), 2))
        dia = CLng(Right(anomesdia, 2))
        DiasNoMes = Day(DateSerial(ano, mes + 1, 0))
    
        If mes < 1 Or mes > 12 Or dia < 1 Or dia > DiasNoMes Or ano < 1 Or ano > Year(Now) Then 'Checa se não é data
            MsgBox "Não é data na Célula: " & Target.Address
        End If
    End If
    
    'Limita o número de caracteres na coluna F e verifica se é número
    If i = 6 Then
        'Verifica Num Caract
        NumeroCaract = Len(Target.Value)
        If NumeroCaract <> 4 Then
            MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
        End If
        'Verifica Se é Número
  
        If Not IsNumeric(Target) Then 'Checa se é data
            MsgBox "Não é número na Célula: " & Target.Address
        End If
    End If

CleanExit:
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

###Explicação

  • Verifica Num Caract

Este código utilizada a Função Len para verificar o número de caracteres na String.

  • Verifica Data

Este código Extrai cada parte da String (ano,mes e dia) e verifica se o ano não é menor do que 1 ou se é maior do que o ano atual (caso trabalhe com o futuro alterar esta parte). Se o dia é menor do que 1 ou se é maior do que os dias que aquele mês possui. Se o mês é menor do que 1 ou maior do que 12.

  • Verifica Se é Número

Este código utiliza a Função IsNumeric para verificar se é número.

  • Verifica se a célula alterada está na coluna desejada

    If i = 2 Then é a condicional que verifica se é a coluna do Target, contando pelo index. Onde 1 é A, 2 é B e assim por diante.

Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

###Dados de teste Utilizando os seguintes dados para teste:

dados

###Inserir código de Evento Utilizar o evento Worksheet_Change, em que este deverá ser colocado dentro da planilha em que os dados se encontram (MARKET). Por Exemplo, no meu caso foi em Planilha1:

Planilha1

###Código

O código é acionado toda vez que a planilha possui alguma alteração.

    Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo CleanExit
    Application.EnableEvents = False
    Dim i As Long                                '<-- Linha selecionada
    Dim NumeroCaract As String, anomesdia As String
    Dim ano As Long, mes As Long, dia As Long, DiasNoMes As Long
    
    i = Target.Column
    'Limita o número de caracteres na coluna B
    If i = 2 Then
        NumeroCaract = Len(Target.Value)
        If NumeroCaract <> 6 Then
            MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
        End If
    End If
    
    'Limita o número de caracteres na coluna C e verifica data
    If i = 3 Then
        'Verifica Num Caract
        NumeroCaract = Len(Target.Value)
        If NumeroCaract <> 8 Then
            MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
        End If
        'Verifica Data
        anomesdia = Target.Value
        ano = CLng(Left(anomesdia, 4))
        mes = CLng(Left(Mid(anomesdia, 5), 2))
        dia = CLng(Right(anomesdia, 2))
        DiasNoMes = Day(DateSerial(ano, mes + 1, 0))
    
        If mes < 1 Or mes > 12 Or dia < 1 Or dia > DiasNoMes Then 'Checa se não é data
            MsgBox "Não é data na Célula: " & Target.Address
        End If
    End If
    
    'Limita o número de caracteres na coluna F e verifica se é número
    If i = 6 Then
        'Verifica Num Caract
        NumeroCaract = Len(Target.Value)
        If NumeroCaract <> 4 Then
            MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
        End If
        'Verifica Se é Número
  
        If Not IsNumeric(Target) Then 'Checa se é data
            MsgBox "Não é número na Célula: " & Target.Address
        End If
    End If

CleanExit:
    Application.EnableEvents = True
    On Error GoTo 0
End Sub