Visual Basic - VBA
28/09/2010 10:52
Função fExtenso
Bom dia,
Função show de bola converte número para extenso.
1º Passo abra o editor do visual basic (Alt + F11)
2º Passo insira um módulo e cole o código abaixo.
Function fExtenso(Num As Double, Optional FraçTipo As Integer, Optional UndNomeSing As String,...
—————
23/09/2010 11:28
Bloquear apenas celula após digitar
Bom dia Galera!
Atendento a um pedido, adaptei o seguite para apenas bloquear a celula que contém dado, um amigo precisa que após a celula fosse editada ela ficasse bloqueada e as demais celulas livres para edição e que pudesse ser alterada apenas inserindo a senha de acesso.
Código:
Private Sub...
—————
21/09/2010 12:02
Como apresentar graficos em um UserForm
Bom dia galera!
Hoje vou ensinar você dar um toque digamos mais profissional na sua planilha com a ajuda do Vba.
1º passo:
Crie uma tabela no excel, faça 2 ou mais gráficos.
Renomeie a planilha para "Graficos".
2º Passo
Abra o editor do vba, ALT+F11
Insira um UserForm
Insira a ferramanta Imagem,...
—————
17/09/2010 15:37
Função para Proteger Celulas com Formulas
Sub Proteger_Formulas()
Range("A1").Select
On Error Resume Next
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=">1"
.IgnoreBlank = True
.InCellDropdown =...
—————
20/08/2010 11:42
FUNÇÃO PERSONALIZADA PARA TIRAR ACENTOS
Olá , esta função personalizada serve para tirar os acentos das palavras , copie esta macro e cole em seu editor do VBA , em seguida , vá em inserir funções , funções definidas pelo usuário , e ela estará lá pronta para ser usada.
Abraço.
Função que retira acento das...
—————
20/08/2010 11:40
ACIONADO UMA MACRO AO SELECIONAR A CELULA
Olá , esta evento executa uma macro toda vez que uma célula ou intervalo de células são selecionado , as celulas podem ser determinadas por vc.
Ponha esta macro no Módulo da Planilha WorkSheet.
Private Sub Worksheet_SelectionChange(ByVal target As Excel.Range)
If...
—————
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