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