Excel'de bir hücreyi daire içine almak mümkün müdür?
Bir çalışma sayfasını düzenlerken, aşağıdaki ekran görüntüsünde gösterildiği gibi bir hücreyi dikkat çekici şekilde daire içine almak isteyebilirsiniz. Excel’de bir hücreyi daire içine alma konusunda size bazı pratik püf noktaları paylaşacağım.
Oval şekliyle bir hücreyi daire içine alma
VBA ile bir hücreyi daire içine alma
Oval şekliyle bir hücreyi daire içine alma
Bir hücreyi daire içine almak için bir oval şekil eklemeniz gerekir.
1. Ekle > Şekiller seçeneğine tıklayın ve listedeki Oval şeklini Temel Şekiller bölümünden seçin. Ekran görüntüsüne bakın:
2. Gerekli hücreyi daire içine alacak şekilde oval bir şekil çizin. Ekran görüntüsüne bakın:
3. Şekle sağ tıklayın ve bağlam menüsünden Şekli Biçimlendir seçeneğini seçin.
4. Şekli Biçimlendiriletişim kutusunda (veya)Şekli Biçimlendir bölmesinde), Dolgu sekmesine tıklayın ve metin kutusunda 100 % değerinin göründüğünden emin olmak için Saydamlık sürgüsünü sağa doğru sürükleyin. Ekran görüntüsüne bakın:
5. İletişim kutusunu kapatın. Artık hücrenin çevresinde bir daire göreceksiniz.
İpucu: Varsayılan olarak şekil, hücreyle birlikte hem hareket eder hem de yeniden boyutlandırılır.
VBA ile bir hücreyi daire içine alma
Bir hücreyi hızlıca daire içine almak istiyorsanız, VBA kodunu kullanabilirsiniz.
1. Daire içine almak istediğiniz hücreyi seçin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki VBA kodunu açılan pencereye kopyalayın.
VBA: Bir hücreyi 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. VBA kodunu çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın; seçili hücre artık daire içine alınmış olacak.
İpuçları:
(1) İlk adımda birden fazla bitişik hücre seçerseniz, bu VBA makrosu tüm bu hücreleri tek bir daire içine alır.
(2) İlk adımda birden fazla bitişik olmayan hücre seçerseniz, bu VBA makrosu her birini ayrı ayrı daire içine alır.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar