Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA
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 planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo as macros acima
Excel planilha vba inputbox seleciona varios intervalo celula refedit (18.04 kB)
