Abrindo Arquivo com Inputbox
Abrindo uma planilha através de uma Macro
Abrir Site No Internet Explorer
Array
Bloquear VBProject
Calculadora
Calendário
Comando Find
Combobox - Inserindo Itens
Confirmando antes de executar uma macro
Cont Valores no VBA
Controle Listbox
Copiar e Colar via código VBA
Criando mais de uma pasta
Criando um arquivo de texto
Criando um campo de pesquisa em um form
Criando um evento para determinar um tempo
Criando um Item na barra de menus
Criando uma pasta
Criar Planilhas Automáticamente
Desbloquear VBProject
Deslocando para outra guia de planilha
Desprotegendo uma planilha via código VBA
Efeito sonoro no excel (Beep)
Enviando Email Pelo VBA
Erros Fatais em Planilhas
Excluindo uma Aba sem confirmação
Excluir Célula Repetida
Excluir Linha Repetida
Executando um UserForm
Exibindo valor de uma célula em Msgbox
Exportando para TXT
Fechando o UserForm com a Tecla ESC
Flash Player
Formatação Condicional
Formulário sem Caption
Foto no Excel
Função Tab com Enter
GetOpenFile
Guias de Planilhas - Exibir
Impedindo Fechar pelo botão [X]
Inputbox - Inserindo valor em uma célula
Inserindo um valor em uma célula
Limpando uma seleção
Loop - Inserindo valor próxima célula em branco
Loop Do While
Mascara no Textbox
Mensagem de Saudação
Menu Suspenso
Msgbox - Exemplo Simples
Mudando o Nome da Plan
Nome da Planilha - Msgbox
Ocultando as guias de planilha
Ocultando o excel
Ocultando um UserForm
Parando o relógio
Planilha Trial
Procv no VBA
Protegendo uma planilha com uma Macro
Quebrando senha de Planilha
Relógio no excel
Retirando o texto da barra de status
Salvando e fechando o excel ativo
Salvando uma planilha
Salvando uma planilha com outro nome
Selecionar intervalo existente em uma célula
Select Case
Senhas nas Abas da Planilha
Soma através de Inputbox
Soma na mesma célula
SpinButton - Como Usar
Split - Comando
Texto na barra de status
Timer no excel
Tirando Acento
Usando If e Else
Vetor
Exit Sub
End If
If Nome <> "" Then
ChDir "C:\Documents and Settings\Hacker\Desktop"
[Link] Filename:=Nome
End If
End Sub
[Link] FileName:=”c:\[Link]”
End Sub
[Link]
Next "[Link]
End Sub
End Sub
[Link] Index:=0
End Sub
ANO = [Link]
MsgBox
End With "DATA:" & DIA & "/" & MES & "/" & ANO, vbOKCancel, "CONFIRMA A DATA SELECIONADA ?"
End Sub
[Link] "Teofilo"
End
‘AquiSub
entra a macro caso seja clicado em sim.
End Sub
range("b2").Value = Cont + 4
End Sub
[Link] = "1 cm; 2 cm; 1,5 cm; 4 cm; 6 cm; 2 cm "
End Sub
[Link]
End Sub
CreateFolderDemo = [Link]
End Sub
[Link]
EndNext
Sub
End If = 0
Início
End Sub
End Sub
CreateFolderDemo = [Link]
End Sub
End Sub
End Sub
Range(”A1”).Select
End Sub
[Link] password:=”senha”
End
Beep Sub
End Sub
End Sub
End If
End Sub
[Link] = True
End Sub
Next
End
Next Sub
End Sub
[Link]
End Sub [A1]
MsgBox
End Sub "Backup Efetuado"
MsgBox
End
EndSub
Sub
[Link]
End Sub
Call BarraTítuloUserForm(False)
End Sub
‘A fotografia deve estar na mesma pasta da planilha para funcionar.
End Sub = [Link]("Arquivos de texto (*.txt),*.txt", , "TUDO SOBRE EXCEL - Escolha o arquivo par
QualArquivo
[Link]("F2") = QualArquivo
[Link] = True
End Sub
End Sub
[Link]("A1").Value = Numero1 + Numero2
End Sub
Range(“A1”).Value = ”Texto que aparecerá na célula”
End Sub
[Link]
End Sub
[Link](0, 1) = [Link]
End Sub
End Sub
SendKeys "{End}", True
End Sub
MsgBox "Seja Bem Vindo " & [Plan1!a1] & " !!!"
End Sub
MsgBox “Esta é a mensagem que aparecerá na tela” , VbOkOnly , “Este é o título da mensagem”
End Sub
[Link] = "Novo Nome"
End Sub
MsgBox [Link]
End Sub
[Link] = False
[Link]
Sub = False
End Sub
[Link]
End Sub
[Link] EarliestTime:=proximosegundo, Procedure:="ahora", Schedule:=False
End Sub
End If
End Sub
[Link](Arg1, Arg2,
[Link] DrawingObjects:=True, Contents:=True, Arg3, Arg4)password:=”senha”
Scenarios:=True,
End Sub
End Sub
[Link] = Time
End Sub
[Link] = false
End Sub
[Link]
End Sub
[Link]
End Sub
End Sub
range([e2]).Select
End Sub
End
End Sub
If
End Sub = InputBox("Digite o 1º Valor", "Título da InputBox")
Numero1
Numero2
End If = InputBox("Digite o 2º Valor", "Título da InputBox")
End Sub
UserForm1.TextBox4 = Sheets("Plan1").Cells(linha, 4)
End Sub
val2 = val1 * 60
[Link] = cString(0)
[Link] + Val(val2)
= "Bom dia"
End Sub
Ação a ser executada
End Sub
End Sub
End
NextSub
End
