experiência Hands-on é uma das melhores maneiras de se introduzidos no Visual Basic for Applications (VBA) de linguagem. VBA é uma linguagem de programação de computadores disponível em todos os aplicativos do Microsoft Office, como o Access e Excel. No Access, quando você cria um novo banco de dados , você normalmente começar por criar uma tabela e inserir dados nela. Este processo pode ser facilmente automatizado através do utilizador do VBA . No Excel , você pode automatizar tarefas primeiras macros VBA de gravação. Você pode modificar uma macro VBA para atender às suas necessidades depois de ter sido gravada. Coisas que você precisa
Microsoft Office
Mostrar Mais instruções
1

Inicie o Microsoft Access , clique em "Banco de Dados em Branco ", e clique no botão "Criar" para criar um novo base de dados . Clique em "Ferramentas de banco de dados " e clique em " Visual Basic " para iniciar o editor de VBA. . Clique no menu "Inserir" e clique em " Módulo " para inserir um novo módulo de código
2

Copie e cole o seguinte código para criar uma tabela e inserir uma linha de dados usando instruções SQL : < br >

Private Sub CreateTable ()

Dim strSQL As String

strSQL = " CREATE TABLE MyTbl ( fName TEXTO, lName TEXT) "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO VALUES MyTbl ( ' JOHN ', ' Smith' ) "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( strSQL )

End Sub
3

Pressione " F5" para executar o procedimento .
4

Abra o Microsoft Excel , clique na guia " desenvolvedor " e clique em "Record macro "para iniciar a gravação de uma macro VBA. Clique em " OK" na janela de diálogo " Gravar Macro " . Tipo " 2 " em A1 e " 4 " no " B1 ". Clique em " Stop Recording " e clique em " Visual Basic " para iniciar o editor VBA
5

Expanda os "Módulos" pasta e clique duas vezes em " Module1 " para ver o seguinte código macro: .

Range (" A1") . Selecione

ActiveCell.FormulaR1C1 = "2"

Range (" B1 " ) . Selecione

ActiveCell.FormulaR1C1 = "4 "
6

Adicione o seguinte código para a macro para exibir a adição de A1 e B1 em C1:

Dim a as Integer Dim b

as Integer

Dim total de As Integer

Range (" A1") . Selecione

a = Range (" A1") Valor

Range (" B1 " . ) . Selecione

b = Range ( "B1" ) . Valor

totais = a + b

Range (" C1" ) . Selecione

ActiveCell.FormulaR1C1 =
total de
7

Pressione " F5 " para executar o código de macro VBA.