| Descricao: |
|
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.
|