[Resolvido] Alteração de Fonte (Nome e Tamanho) vTotal (numero) vTotal( Escrita)

2024 - VBA & Macros

Post Recente por DIVINORS 4 anos atrás

4 Posts

3 Usuários

0 Reactions

1,251 Visualizações

RSS

DIVINORS

(@divinors)

Posts: 23

Eminent Member

Topic starter

Sub sbx_Somar_total_coluna_b()
Dim vContador As Long
Dim vTotal As Currency

For vContador = 2 To Plan1.Cells(Rows.Count, "B").End(xlUp).Row
vTotal = vTotal + Plan1.Cells(vContador, "B")
Next vContador
[b65000].End(xlUp).Offset(2, 0).Value = vTotal
[b65000].End(xlUp).Offset(0, -1).Value = "Total....:"
End Sub

[b65000].End(xlUp).Offset(2, 0).Value = vTotal
[b65000].End(xlUp).Offset(0, -1).Value = "Total....:"

1-Gostaria de alterar a Fonte dos dois campos acima.

2-Gostaria de alterar o Tamanho dos dois campos acima.

SOMAR-COLUNA.xlsm

Postado : 21/01/2021 2:15 pm

Mauro Coutinho

(@coutinho)

Posts: 95

Estimable Member

@divinors não entendi o tamanho do campo se são as colunas, mas segue um exemplo básico:

Nessa instrução alteramos o tamanho das colunas "A:B", se quer só de uma é so eliminar uma letra: Columns("A:B").ColumnWidth = 15

Sub sbx_Somar_total_coluna_b()
Dim vContador As Long
Dim vTotal As Currency

For vContador = 2 To Plan1.Cells(Rows.Count, "B").End(xlUp).Row
vTotal = vTotal + Plan1.Cells(vContador, "B")
Next vContador

[b65000].End(xlUp).Offset(2, 0).Font.Name = "Arial" 'Fonte
[b65000].End(xlUp).Offset(2, 0).Interior.ColorIndex = 6 'Cor da celula
[b65000].End(xlUp).Offset(2, 0).Font.Color = vbRed 'Cor do texto
[b65000].End(xlUp).Offset(2, 0).Value = vTotal

[b65000].End(xlUp).Offset(0, -1).Font.Name = "Arial" 'Fonte
[b65000].End(xlUp).Offset(0, -1).Interior.ColorIndex = 6 'Cor da celula
[b65000].End(xlUp).Offset(0, -1).Font.Size = 16 'Tamanho da fonte
[b65000].End(xlUp).Offset(0, -1).Value = "Total....:"

Columns("A:B").ColumnWidth = 15 'Tamanho da coluna

End Sub