Home Excel - Dicas Microsoft Excel VBA Excel VBA - Cadastro Excel planilha vba cadastro com formulario lista excel

Excel planilha vba cadastro com formulario lista excel

E-mail Imprimir PDF

Referência do Desenvolvedor do Excel

Worksheet.Método ShowDataForm

Exibe o formulário de dados associado à planilha.
Sintaxe
expressão.ShowDataForm

expressão   Uma variável que representa um objeto Worksheet.

Comentários

A macro faz uma pausa enquanto você está usando o formulário de dados. Quando você fecha o formulário de dados, a macro é reiniciada na linha seguinte ao método ShowDataForm.

Esse método executa o formulário de dados personalizado, se existir um.

Exemplo

Este exemplo exibe o formulário de dados de Sheet1.

Visual Basic for Applications

Worksheets(1).ShowDataForm

Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application) abre um formulário do objeto Application,
onde voce poderá manipular os dados cadastrais de determinado banco de dados em uma planilha ms excel.

'Esse exemplo de planilha foi retirado dos exemplos  1000 Planilhas inteligentes, para associados, há sempre uma publicação inteligente
para os assoaciados Saberexcel, associe-se ao nosso site e veja as vantagens sobre o acesso a material didático no treinamento com macros, fórmulas e Funções Microsost Excel VBA.
'-- - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_abrir_formulario_lista()
Dim UltimaLinha As Integer
Dim vIntervalo As Integer
Dim vPlanilha As Worksheet
   
Set vPlanilha = Worksheets("Cadastro")
  UltimaLinha = NumElementos("Cadastro", "A", 2) + 1
 
  For vIntervalo = 2 To UltimaLinha + 1
      Range("A" & vIntervalo & ":A" & vIntervalo).Select
      Range("A" & vIntervalo).Select
    Next
End Sub
'-- - - - - - - - - - - - - - - - - - - - - - - - -
Public Function NumElementos
(sPlanilha As String, sColuna As String, sLinha As Integer) As Integer
    Dim vIntervalo As Integer
    Dim vRegiao As String
    vIntervalo = sLinha
    vRegiao = sColuna & sLinha
   
    While Range(sPlanilha & "!" & vRegiao).Value <> ""
    vIntervalo = vIntervalo + 1
        vRegiao = sColuna & vIntervalo
    Wend
    NumElementos = vIntervalo - sLinha
    ActiveSheet.ShowDataForm
End Function
Sub sbx_autofiltro()
    Range("A6").Select
    Selection.AutoFilter
End Sub
'-- - - - - - - - - - - - - - - - - - - - - - - - -

'macro retirado da coleção de 15.000 macros microsoft excel vba, fórmulas e funções.
'aquisição no site:
www.microsoftexcel.com.br - www.saberexcel.com
Sub sbx_imprimir()
    Range("A2").Select
    Selection.CurrentRegion.Select
    Selection.PrintOut Copies:=1, Collate:=True
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.787401575)
        .RightMargin = Application.InchesToPoints(0.787401575)
        .TopMargin = Application.InchesToPoints(0.984251969)
        .BottomMargin = Application.InchesToPoints(0.984251969)
        .HeaderMargin = Application.InchesToPoints(0.4921259845)
        .FooterMargin = Application.InchesToPoints(0.4921259845)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 360
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub

 

 


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




 baixe o exemplo de planilha contendo os macros acima.
Excel planilha vba cadastro com formulario lista excel (25.33 KB)

Última atualização em Qua, 30 de Novembro de 2011 16:20  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4845
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana25046
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês43234
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466063
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA