Diferenciar cor e tipo dos binários

[Pennafortt]

Boas

. O código funciona bem, queria apenas mudar a maneira (cor) como é mostrado os binários na tabela A3:G10. Na versão original, zeros (0) e uns (1) tem fonte normal, cor cinza. Alterando no código (.Bold = False) para (.Bold = True) os binários (0-1) ficam em negrito cinza, então queria fazer e não deu muito certo, é manter o binário 1 (.Bold = False) original e o binário 0 em (.Bold = True) mas com a cor black, resumindo, 1 cinza normal e 0 black negrito.

Sub Diagonal()

Dim Intervalo As Range

Dim Coluna1 As Range

Dim Celula As Range

Dim i As Integer

Dim QtdeAzul As Integer

Dim QtEnc As Integer

Application.ScreenUpdating = False

QtdeAzul = [A1].Value

Set Intervalo = [A3:G10]

With Intervalo.Font

.ColorIndex = 15

.Bold = False

End With

For Each Celula In Coluna1

Celula.Select

QtEnc = 0

While ActiveCell.Value = 1 And Not Application.Intersect(ActiveCell, Intervalo) Is Nothing

QtEnc = QtEnc + 1

ActiveCell.Offset(-1, 1).Select

Wend

If QtEnc = QtdeAzul Then

For i = 1 To QtdeAzul

ActiveCell.Offset(1, -1).Select

ActiveCell.Font.Color = vbBlue

ActiveCell.Font.Bold = True

Next

End If

Next

Application.ScreenUpdating = True

End Sub

Cumps

[acao]

boas

comenta o teu codigo

ou diz aonde tens o valor 0 e 1

se não tens nenhuma variavel com este valor deverás implementar

ou não querendo em vba e em excel 2010 vais a aba «base,formatação condicional, gerir regras. e colocas as regras.

cumps

acao

Edited July 8, 2012 at 02:41 PM by acao

[Pennafortt]

Boas

O codigo completo e o que ele faz em:

http://www.filefactory.com/file/2thhvzvmfy7v/n/Diagonal_rar [/ url]

cump

[acao]

boas

substitua o cod seguinte em cada modulo e declare uma variavel range para a variavel Celula2.

With Intervalo.Font
.ColorIndex = 15
.Bold = False
End With

por isto:

For Each Celula2 In Intervalo.Cells
		 If Celula2.Value = 0 Then
		 Celula2.Font.Color = vbBlack
		 Celula2.Font.Bold = True
		 Celula2.Interior.Color = xlNone
		 Else
		 Celula2.Font.ColorIndex = 15
		 Celula2.Font.Bold = False
		 Celula2.Interior.Color = xlNone
		 End If
		 Next

não sei se reparou mas o programa não corre o range todo (grelha) e interrompe a diagonal quando encontra um zero.

Edited July 9, 2012 at 03:15 PM by acao

[Pennafortt]

Boas

Meu nobre acao, o codigo foi desenvolvido com essa finalidade, interromper a diagonal e parar quando encontra um zero, vou implementar as alterações e volto a postar com o resultado obtido.

cumps

[Pennafortt]

Boas

Obrigado!! Com a tua ajuda consegui resolver o problema.

[acao]

boas

se está resolvido dá o tópico resolvido.

editei o meu ultimo tópico, «Celula2.select» não é necessário, foi para testar e depois esqueci-me de deletar.

cumps

acao

[Pennafortt]

Boas

Não sei como colocar o topico como resolvido?