Arquivo de Artigos
20/08/2010 11:34
FUNÇÃO PERSONALIZADA PARA EXTRAIR APENAS TEXTO
Esta macro extrai apenas texto de uma celula.
Function Textos(Texto As String)
For Num = 1 To Len(Texto)
If Mid(Texto, Num, 1) <= 9 Then
Else
Textos = Textos + Mid(Texto, Num, 1)
End If
Next
End Function
abraço.
—————
20/08/2010 11:31
FUNÇÃO PERSONALIZADA EXTRAIR APENAS NÚMEROS
Esta função pode ser muito Útil pois extrai todo valor numérico de determinada célula que contenha texto com números juntos.
Copie esta macro e cole no módulo do VBA , vá em inserir função , função definida pelo usuário e pronto.
Function RetirarNumero(Texto As String)
Dim x As...
—————
20/08/2010 11:27
FUNÇÃO PERSONALIZADA INVERTER TEXTO
Esta função inverte o texto de trás para frente.
Function Textorevertido(texto) As String
Dim lista As Integer
Dim x As Integer
TextLen = Len(texto)
For x = TextLen To 1 Step -1
Textorevertido = Textorevertido & Mid(texto, x, 1)
Next x
End Function
—————
—————
—————
—————
21/05/2010 17:11
Limite o tempo de uso de suas planilhas
Neste caso a planilha ficará aberta por 10 segundos, irá salvar e fechar.
Private Sub Workbook_Open()
Dim PauseTime, Start
PauseTime = 10
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
ThisWorkbook.Saved = True
Application.Quit
End Sub
—————
21/05/2010 17:02
Auto Destruição - Artifício de segurança
Esta macro deleta todo o conteúdo caso a celula A1 receba o valor "x"'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = "x" Then
Range("A1:IV65536").Select
Selection.ClearContents
...
—————
21/05/2010 16:55
Converter a 1ª letra em maiúscula
Vamos supor que você tem um texto todo ele em minusculo, e precisa que sómente as primeiras letras fiquem maiusculas.
use ocódigo abaixo dentro de um módulo.
Observação selecione a área desejada, ou as palavras desejadas.
Sub Converte_Primeira_Maiuscula()
Dim C As Range
...
—————
21/05/2010 16:32
Tratando Erros em Fórmulas
Se você também se irrita com os malditos #N/D quando faz um PROCV OU PROCH, e não sabe como tira-los, veja o texto abaixo.
Existe um método de mascarar os erros nas fórmulas utilizando uma combinação de função: SE e ÈERROS.
Veja o exemplo abaixo:
Estamos utilizando uma PROCV...
Pesquisar no site