Saberexcel - site das macros
Essas declarações e funções do Aplicativo Microsoft Excel VBA, retorna uma mensagem personalizada do Windows Explorer e algumas informações do sistema conforme mostra a mensagem abaixo.


Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" _
(ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As _
String, ByVal hIcon As Long) As Long
Declare Function GetActiveWindow Lib "user32" () As Long


Sub Sobre_Saberexcel_BR()
Dim hwnd As Integer
On Error Resume Next
hwnd = GetActiveWindow()
ShellAbout hwnd, Nm, vbCrLf + Chr(169) + "" & "SaberexcelBR - Excel VBA Estudos®" _
+ vbCrLf, 1
On Error GoTo 0
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Essa macro do Aplicativo Microsoft Excel VBA, que insere cores em diversas áreas contíguas de células na folha de planilha.
Usando uma entrada de dados(InputBox) com argumento Type:=8, que é igual o RefEdit, libera para o usuário selecionar áreas diversas na folha de planilha, neste caso voce poderá pressionar a tela CTRL e selecionar várias áreas para que a macro insira cores nas áreas selecionadas atraves desta inputbox. Espero que a matéria possa lhe ser útil. Fique com Deus, Boa Sorte.
Baixe o exemplo de planilha no final da página.



Sub inputbox_colorindo_area()
Dim vRange As Range
Dim msgTitulo As String

msgTitulo = "Demonstração - Colorindo vários intervalos de células "

On Error Resume Next
Set vRange = Application.InputBox _
(Prompt:="- Escolha o intervalo de células que deseja colorir " & _
"SELECIONANDO-O" & vbCrLf & vbCrLf & "Pode ser em varias áreas " & _
"- Para selecionar, mantenha pressionada a Tecla Ctrl e " & vbCrLf & _
"- Selecione os intervalos desejados tecla ctrl pressionada", _
Title:=msgTitulo, Type:=8)

If Not vRange Is Nothing Then

MsgBox "As área foram selecionadas e vão ser coloridas!:" & vbCrLf & _
vRange.Address, vbExclamation, msgTitulo
'Atribuir uma cor de fundo das células
vRange.Interior.Color = RGB(255, 255, 0) 'amarelo

Else
MsgBox "Você não selecionou uma área !", _
vbOKOnly + vbInformation, msgTitulo & "Saberexcel"
End If

End Sub

Sub limpar_teste()
Cells.ClearFormats: [G1].Select
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel