Ana içeriğe atla

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


ok mavi sağ balon 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:

doc-circle-around-hücre-1

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

doc-circle-around-hücre-2

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

doc-circle-around-hücre-3

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:

doc-circle-around-hücre-4

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

doc-circle-around-hücre-6

Bahşiş: Varsayılan olarak, şekil hücre ile birlikte taşınır ve yeniden boyutlandırılır.

doc-circle-around-hücre-7


ok mavi sağ balon 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.

doc-circle-around-hücre-8

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
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