Excel'de bir hücrenin etrafında nasıl daire çizilir?

Bir çalışma sayfasını düzenlediğinizde, aşağıda gösterilen ekran görüntüsü gibi açıkça göstermek için bir hücrenin etrafına bir daire çizmek isteyebilirsiniz. Şimdi, Excel'de bir hücre etrafında dolaşmanız için bazı püf noktaları tanıtacağım.

Oval şekilli bir hücrenin etrafında daire

VBA ile bir hücre etrafında daire içine alın

Oval şekilli bir hücrenin etrafında daire

Bir hücrenin etrafında daire çizmek için oval bir şekil eklemeniz gerekir.

1. tık Ekle > ŞekillerSeçin ve Oval şekil Basit şekiller listedeki bölüm. Ekran görüntüsüne bakın:

2. İhtiyacınız olan hücrenin etrafında daire çizmek için oval çizin. Ekran görüntüsüne bakın:

3. Şekle sağ tıklayın ve seçin Şekli Biçimle bağlam menüsünden.

4. içinde Şekli Biçimle iletişim kutusu (veya Şekli Biçimle bölme), tıklayın Doldurmak sekmesine gidin ve okunu sürükleyin. Şeffaflık emin olmak için sağa 100% metin kutusunda görüntüleniyor. Ekran görüntüsüne bakın:

5. İletişim kutusunu kapatın. Şimdi hücrenin etrafında bir daire olduğunu görebilirsiniz.

Bahşiş: Varsayılan olarak şekil hücreyle birlikte hareket edecek ve yeniden boyutlandırılacaktır.

VBA ile bir hücre etrafında daire içine alın

Bir hücrenin etrafında hızlıca dolaşmak istiyorsanız, VBA kodunu kullanabilirsiniz.

1. Daire içine almak istediğiniz hücreyi seçin ve Alt + F11 tuşlarını birlikte açarak Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modül ve aşağıdaki VBA kodunu açılan pencereye kopyalayın.

VBA: Bir hücre etrafında daire içine alın.

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. Basın F5 anahtar veya tıklama koşmak VBA kodunu çalıştırmak için düğme, şimdi seçilen hücre daire içine alınmıştır.

İpuçları:

(1) İlk adımda birden çok bitişik hücre seçerseniz, bu VBA makrosu bu hücrelerin etrafında birlikte dönecektir.

(2) İlk adımda birden çok bitişik olmayan hücre seçerseniz, bu VBA makrosu her bir hücrenin etrafında ayrı ayrı dönecektir.