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

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

|