Comment faire le tour d'une cellule dans Excel?

Lorsque vous modifiez une feuille de calcul, vous souhaiterez peut-être dessiner un cercle autour d'une cellule pour l'afficher de manière évidente, comme illustré ci-dessous. Je vais maintenant vous présenter quelques astuces pour entourer une cellule dans Excel.

Cercle autour d'une cellule de forme ovale

Entourez une cellule avec VBA

Cercle autour d'une cellule de forme ovale

Pour encercler une cellule, vous devez insérer une forme ovale.

1. Cliquez insérer > Formes, et sélectionnez Ovale forme de la Formes de base section dans la liste. Voir la capture d'écran:

2. Dessinez l'ovale pour faire le tour de la cellule dont vous avez besoin. Voir la capture d'écran:

3. Faites un clic droit sur la forme et sélectionnez Forme du format depuis le menu contextuel.

4. dans le Forme du format dialogue (ou Forme du format volet), cliquez sur Niveau de remplissage onglet et faites glisser la flèche de Transparence à droite pour s'assurer 100% affichage dans la zone de texte. Voir la capture d'écran:

5. Fermez la boîte de dialogue. Vous pouvez maintenant voir qu'il y a un cercle autour de la cellule.

Conseil : Par défaut, la forme se déplacera et se redimensionnera avec la cellule.

Entourez une cellule avec VBA

Si vous souhaitez faire rapidement le tour d'une cellule, vous pouvez utiliser le code VBA.

1. Sélectionnez la cellule que vous souhaitez encercler et appuyez sur Alt + F11 clés ensemble pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module et copiez le code VBA suivant dans la fenêtre qui apparaît.

VBA: Entourez une cellule.

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. presse F5 touche ou cliquez Courir bouton pour exécuter le code VBA, maintenant la cellule sélectionnée est encerclée.

Conseils:

(1) Si vous sélectionnez plusieurs cellules adjacentes à la première étape, cette macro VBA encerclera ces cellules ensemble.

(2) Si vous sélectionnez plusieurs cellules non adjacentes à la première étape, cette macro VBA encerclera chaque cellule individuellement.