Aprenda fazer formularios no excel para digitacao

Saberexcel - o site de quem precisa aprender Macros Microsft Excel VBA.

Esses macros do aplicativo Micrososft Excel VBA, inserem uma borda na área ou célula selecionada, a intençao dos macros é ajudá-lo e facilitar a confecção de uma fatura, recibo, contrato e outros, pois há quem pena para fazer esses contratos, há uma maneira aparentemente mais simples, voce deverá primeiramente, autoajustar todas as linhas e colunas para começar o seu trabalho de distribuição de células com bordas para digitação mescladas ou nao. Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.

Sub Borda_I()
'
' Borda_I Macro
' Macro gravada por: Alunos (SaberExcel_VBA_Treinamentos®) Aprenda Microsoft Excel VBA (Saberexcel)
With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 50
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 50
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 50
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 50
    End With
End Sub

Sub Borda_II()
'
' Borda_II Macro
' Macro gravada por: Alunos (SaberExcel_VBA_Treinamentos®) Aprenda Microsoft Excel VBA (Saberexcel)
With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 50
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 50
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 50
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 50
    End With
End Sub

Sub Borda_III()
'
' Borda_III Macro
' Macro gravada por: Alunos (SaberExcel_VBA_Treinamentos®) Aprenda Microsoft Excel VBA (Saberexcel)
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 50
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 50
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 50
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 50
    End With
    Range("Y6").Select
    Range("AM23").Select
End Sub

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

Baixe o exemplo de planilha contendo procedimento acima
Aprenda fazer formularios no excel para digitacao (237.26 KB - arquivo pdf)

Publicidade
Compre com segurança, garantia e ótimos preços

Tags: