Numeros isnumeric excel vba planilhas, vamos verificar no exemplo abaixo o que é número
ou o que é texto, observe que números também podem vir como string ou texto e
seus calculos sairem errados, mas isso dependerá de como você vai tratar e
inserir números, então cuidado para não inserir numeros na forma de
texto. Geralmente usando a Função CDBL pode resolver, isso é
declarando o carácter número como Double tipo assim Por
ex: [c4].value = cdlb(Cells(i,”b”))
pronto.! Abaixo vamos ver como usar a Função ISNumberic para ver se
determinados caracteres em células ou conjunto de células são números ou não.
Vamos aproveitar e brincar um pouquinho com Excel VBA, inserindo cores etc..
Vamos aproveitar e brincar um pouquinho com Excel VBA, inserindo cores etc..
Sub sbx_numericos_ou_textos()
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(“D2:G” & x).Clear ‘limpar para pegar as alterações
For i = 2 To (x – 1) ‘fazendo o loop na coluna A
If IsNumeric(Cells(i, “a”)) And _
IsNumeric(Cells(i, “b”)) Then
Cells(i, “e”).Value = “Numero” ‘ se atender as duas condições (Num e Num)
Cells(i, “e”).Font.ColorIndex = 5 ‘cor font. azul se for número
Cells(i, “e”).Interior.ColorIndex = 35 ‘cor Interior verde claro se for número
Else
Cells(i, “g”).Value = “Texto” ‘ Retorna Texto se houver texto na coluna(A) ou coluna(B)
Cells(i, “g”).Font.ColorIndex = 10 ‘cor fonte verde se for Texto
Cells(i, “g”).Interior.ColorIndex = 36 ‘cor interior amarelo claro se for Texto
End If
Next i
sbx_ocultar_mostrar
End Sub
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(“D2:G” & x).Clear ‘limpar para pegar as alterações
For i = 2 To (x – 1) ‘fazendo o loop na coluna A
If IsNumeric(Cells(i, “a”)) And _
IsNumeric(Cells(i, “b”)) Then
Cells(i, “e”).Value = “Numero” ‘ se atender as duas condições (Num e Num)
Cells(i, “e”).Font.ColorIndex = 5 ‘cor font. azul se for número
Cells(i, “e”).Interior.ColorIndex = 35 ‘cor Interior verde claro se for número
Else
Cells(i, “g”).Value = “Texto” ‘ Retorna Texto se houver texto na coluna(A) ou coluna(B)
Cells(i, “g”).Font.ColorIndex = 10 ‘cor fonte verde se for Texto
Cells(i, “g”).Interior.ColorIndex = 36 ‘cor interior amarelo claro se for Texto
End If
Next i
sbx_ocultar_mostrar
End Sub
Sub sbx_numerico_ou_texto_limpar()
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(“E2:G” & x).Clear ‘limpar se houver alterações
sbx_ocultar_mostrar
End Sub
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(“E2:G” & x).Clear ‘limpar se houver alterações
sbx_ocultar_mostrar
End Sub
Sub sbx_ocultar_mostrar()
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
With Plan1.Shapes(“sbx_01”)
If .Visible = True Then
.Visible = False
Range(“E2:G” & x).Clear
Else
.Visible = True
End If
End With
End Sub
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
With Plan1.Shapes(“sbx_01”)
If .Visible = True Then
.Visible = False
Range(“E2:G” & x).Clear
Else
.Visible = True
End If
End With
End Sub
