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

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere cores aleatórias em todas as palavras contidas em determinadas células,
neste caso específico insere em uma célula(H3) uma condição IF, para que voce possa testar e entender melhor o exemplo, por exemplo se o valor da célula [H3] for igual a "cores", o macro irá inserir cores no interior da célula e também cores aleatórias em cada palavra da célula a cada execução da macro, caso escolha o valor da célula "branco", então não vai inserir cores no interior da célula, somente cores aleatórias em todas as palavras contidas na frase na célula A1. Por exemplo a frase ficaria assim, com cores aleatórias a cada execução do macro.

Espero que gostem do exemplo, Fique com Deus, Expedito Marcondes.
Esta planiha faz parte do MODULO COMO FAZER - Programação Microsoft Excel VBA_V
( há alguns exemplos dos módulos COMO FAZER Programação MS Excel VBA, como demonstração) - São muito bons.


Public Sub cores_aleatorias_frase()
Dim vRange As Range
Dim vCorInterior As Integer
Dim sbArray
Dim i As Long, vTemp As Long

'Todas as palavras de uma célula com a cor da fonte aleatória

Set vRange = Saber1.Range("A1")

If vRange.Value = "" Then
MsgBox "Não há nenhum texto na célula", vbInformation, "Saberexcel - site das macros"
Exit Sub
End If

sbArray = Split(vRange.Value)
Randomize
'[A1].Select
For i = 0 To UBound(sbArray)
vCorInterior = Int((56 * Rnd) + 1)
vRange.Characters(Start:=vTemp + i, Length:=Len(vRange)).Font.ColorIndex = vCorInterior

'(condição IF) somente para ilustrar o teste mudar a cor de fundo do intervalo de células
If [H3].Value = "cores" Then
[A1:J1].Interior.ColorIndex = vCorInterior
[H5].Value = "H3 = palavra 'cores' Mudará as cores da fonte de cada letra da frase e interior da célula"
[H5].Font.ColorIndex = 11
Else
[A1:J1].Interior.ColorIndex = xlNone
[H5].Value = "H3 = palavra 'branco' Mudará apenas as cores da fonte de cada letra da frase"
[H5].Font.ColorIndex = 7
End If

vTemp = vTemp + Len(sbArray(i))

Next i

Set vRange = Nothing
Erase sbArray
End Sub

Essas macros abaixo são apenas auxiliar para o teste, para facilitar, mas uso muito em aplicações em programas acho de boa utilidade.
Sub visualizar_macros_vbe()
Dim Resposta As String

Resposta = MsgBox("Deseja visualizar as macros no módulo VBE?", vbYesNo, "Saberexcel - o site das macros")
If Resposta = 6 Then ' 6 é igual a vbyes
Application.Goto reference:="cores_aleatorias_frase"
Else
Saber1.Shapes("sb").Visible = True
End If
End Sub

Sub oc()
Saber1.Shapes("sb").Visible = False
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

Saberexcel - site das macros

Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), seleciona a próxima linha célula colorida, com interior colorido, irá selecionando na coluna desejada até atingir o limite da última linha, neste ponto voce poderá retroceder a seleção de células coloridas,
pois, selecionará até o ponto inicial ou final e emitirá uma mensagem, alertando sobre o limite maximo atingido.
Observe que o macro também insere cores na fonte.

Option Explicit

Sub Procurar_cores_abaixo()
Dim vLinha As Long
vLinha = Range("A65536").End(xlUp).Row
If ActiveCell.Row >= vLinha Then
MsgBox "Atingiu última linha.", vbInformation, "Saberexcel - site das macros"
Exit Sub
End If
Do
Selection.Offset(1, 0).Select
ActiveCell.Offset(1, 0).Font.ColorIndex = 5
Loop Until (ActiveCell.Interior.ColorIndex <> xlColorIndexNone And ActiveCell.Interior.ColorIndex <> 1) Or ActiveCell.Row = vLinha
End Sub

Sub Procurar_cores_acima()
Dim vLinha As Long
vLinha = 2
If ActiveCell.Row <= vLinha Then
MsgBox "Atingiu a primeira linha.", vbInformation, "Saberexcel - site das macros"
Exit Sub
End If

Do
Selection.Offset(-1, 0).Select
ActiveCell.Offset(1, 0).Font.ColorIndex = 9
Loop Until (ActiveCell.Interior.ColorIndex <> xlColorIndexNone And ActiveCell.Interior.ColorIndex <> 1) Or ActiveCell.Row = vLinha
End Sub


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

CORES - MACRO INSERE CORES DO VBA E CODIGO NA COLUNA(A)

Esta macro cores nas células(A1:A56) com os respectivos números códigos.
na coluna a inseri as cores e coluna(B) os códigos referente as cores
insira no módulo comum a macro abaixo que terá o resultado desejado!

Sub cores_codigos()
For i = 1 To 55
For Each c In Range("A1:A56").Cells
c.Interior.ColorIndex = i
c.Offset(0, 1).Value = "VB CODIGO: " & i
i = i + 1
Next
Next
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

PRODUTOS SABEREXCEL
► Coleção 15.000 Macros Microsoft Excel VBA
► DVD 14.000 Planilhas Exemplos Microsoft Excel VBA
► Curso Completo Microsoft Excel VBA
► DVD 3.000 Apostilas e Ebooks Microsoft Excel VBA e Excel Avançado
► COMO FAZER - Programação Microsoft Excel VBA (Vários Módulos)





 Compras com segurança na internet Lojas Submarino, milhares de ofertas

SaberExcel - o site das macros
Este exemplo de Funções do Aplicativo Microsoft Excel VBA, filtra dados pela cor e Estilo da Fonte. (Cor e Negrito),
Observe as Funções

=Filtra_Txt_Cores(A2) =(as cores abaixo)

Function Filtra_Txt_Cores(sb As Range)
Application.Volatile
Select Case sb.Font.ColorIndex
Case 3
Filtra_Txt_Cores = "Vermelho"
Case 4
Filtra_Txt_Cores = "Verde"
Case 1
Filtra_Txt_Cores = "Preto"
Case 2
Filtra_Txt_Cores = "Branco"
Case Else
Filtra_Txt_Cores = "outras cores"
End Select
End Function

Essa função retorna se a fonte esta normal ou negritada.
=Negrito(C12)

Function Negrito(sb As Range)
Application.Volatile
Negrito = IIf(sb.Font.Bold, "Negrito", "Normal")
End Function


Aprenda Microsoft Excel VBA -- com Saberexcel
sozinho, em casa, com baixo custo,