Ir para o conteúdo principal

Como circular em torno de uma célula no Excel?

Quando você edita uma planilha, você pode querer desenhar um círculo ao redor de uma célula para mostrá-la obviamente, como mostrado na imagem abaixo. Agora vou apresentar alguns truques para você circular em torno de uma célula no Excel.

Circule em torno de uma célula com formato oval

Circule em torno de uma célula com VBA


seta azul bolha direita Circule em torno de uma célula com formato oval

Para circular em torno de uma célula, você precisa inserir uma forma oval.

1. Clique inserção > Formase selecione oval forma do Formas Básicas seção da lista. Veja a imagem:

doc-círculo-ao redor da célula-1

2. Desenhe a forma oval para circundar a célula de que você precisa. Veja a imagem:

doc-círculo-ao redor da célula-2

3. Clique com o botão direito na forma e selecione Formatar Forma no menu de contexto.

doc-círculo-ao redor da célula-3

4. No Formatar Forma diálogo (ou Formatar Forma painel), clique Preencher guia e arraste a seta de Transparência à direita para ter certeza 100% exibindo na caixa de texto. Veja a imagem:

doc-círculo-ao redor da célula-4

5. Feche a caixa de diálogo. Agora você pode ver que há um círculo ao redor da célula.

doc-círculo-ao redor da célula-6

Dica: Por padrão, a forma se moverá e será redimensionada com a célula.

doc-círculo-ao redor da célula-7


seta azul bolha direita Circule em torno de uma célula com VBA

Se você deseja circular rapidamente em torno de uma célula, pode usar o código VBA.

1. Selecione a célula que deseja circular e pressione Alt + F11 chaves juntas para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Módulo e copie o seguinte código VBA para a janela aberta.

VBA: Circule em torno de uma célula.

Sub DrawCircle()
	'Updateby20141105
	Dim Arng As Range
	Dim WorkRng As Range
	Set WorkRng = Application.Selection
	For Each Arng In WorkRng.Areas
		With Arng
			x = Arng.Height * 0.1
			y = Arng.Width * 0.1
			Application.ActiveSheet.Ovals.Add Top: = .Top - x, Left: = .Left - y, _
			Height: = .Height + 2 * x, Width: = .Width + 1.5 * y
			With Application.ActiveSheet.Ovals(ActiveSheet.Ovals.Count)
				.Interior.ColorIndex = xlNone
				.ShapeRange.Line.Weight = 1.25
			End With
		End With
	Next
	WorkRng.Select
End Sub

3. Pressione F5 tecla ou clique Execute botão para executar o código VBA, agora a célula selecionada está circulada.

Dicas:

(1) Se você selecionar várias células adjacentes na primeira etapa, esta macro VBA circulará ao redor dessas células juntas.

(2) Se você selecionar várias células não adjacentes na primeira etapa, esta macro VBA circulará em torno de cada célula individualmente.

doc-círculo-ao redor da célula-8

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
THAKING YOU.........!
This comment was minimized by the moderator on the site
Thank you so much for this tip! I used the macro and it worked fantastically. I added macro multiple times for different colored ovals. One question - how do I shift the oval over to right on the cell slightly. I think this would better center the oval for the size of my cells. Thanks, Zach
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations