Excel: Bir hücreye tıklandığında tüm içeriği göstermek için nasıl genişletilir

Bazı durumlarda, hücre içeriği hücrenin genişliğinden daha uzunsa ve bir sonraki sütun hücrelerinde değerler varsa, yalnızca içeriklerin bir kısmı aşağıdaki ekran görüntüsünde gösterildiği gibi görünür. Hücrelerin genişliğini ve yüksekliğini değiştirmeden kaçınmak için hücreye tıklayabilir ve formül çubuğunda tüm içeriği görüntüleyebilirsiniz. Ancak, formül çubuğu gizliyse veya içeriklerden daha kısa ise, bunu nasıl yapabilirsiniz? Burada, bir hücreye tıklandığında içeriği bir metin kutusunda gösterebilen iki yöntem tanıtılmaktadır.

Bir ActiveX Denetimleri metin kutusu ekleyerek hücreyi genişletme

Kutools for Excel'in Daha Büyük Formül Çubuğu kullanarak hücreyi genişletme

Not: Bu öğreticide sunulan yöntemler Excel 2021'de test edilmiştir, farklı Excel sürümlerinde bazı farklılıklar olabilir.

1. Genişletmek istediğiniz hücrenin bulunduğu çalışma sayfasını etkinleştirin ve Geliştirici > Ekle > Metin Kutusu (ActiveX Denetimleri).

Şeritte Geliştirici sekmesi yoksa, lütfen önce onu görüntüleyin, lütfen Excel Şeridinde Geliştirici Sekmesini Nasıl Göster/Görüntüle tutorial'ına bakın.

2. Ardından, imleci sürükleyerek hücrelerin en uzun içeriklerini gösterebilecek bir genişlik ve yüksekliğe sahip bir metin kutusu çiziniz. Bu metin kutusunun adını unutmayın, burada TextBox1.

3. Metin kutusuna sağ tıklayın ve Özellikler bağlam menüsünden tıklayın. Sonra Özellikler panelinde, açılır listelerden Evet seçeneğini seçin Çok Satırlı ve Kelime Kaydırma bölümlerinde. Ardından Özellikler panelini kapatın.
  >>>  

Veya Özellikler panelindeki Otomatik Boyut bölümündeki açılır listeden Evet'i seçebilirsiniz, metin kutusu, tıkladığınız hücre içeriğinin uzunluğuna göre otomatik olarak boyutlandırılacaktır.

4. Durum çubuğundaki sayfa adı sekmesine sağ tıklayın ve bağlam menüsünden Kodu Görüntüle'ye tıklayın.

5. Microsoft Visual Basic for Applications penceresinde, aşağıdaki kodu boş betiğe kopyalayıp yapıştırın.

VBA: İçeriği göstermek için hücreyi genişletme

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

TextBox1'in çizdiğiniz metin kutusunun adı olduğunu ve A1:B4 kodun çalıştığı aralığı olduğunu unutmayın, bunları ihtiyaçlarınıza göre değiştirin.

6. Sayfaya geri dönün, tıklayın Geliştirici > Tasarım Modu tasarım modundan çıkmak için.

Şimdi bir hücreye tıkladığınızda, metin kutusu yanına çıkacak ve hücrenin tüm içeriğini gösterecektir.

Kutools for Excel'i yüklediyseniz, sağladığı Daha Büyük Formül Çubuğu, Kutools > Daha Büyük Formül Çubuğu'na tıklayarak aktif hale getirdiğiniz sürece, tıkladığınızda tüm hücre içeriğini bir açılır kutuda gösterecektir.

İpuçları:

1. Daha Büyük Formül Çubuğu ile, etkin hücrenin içeriğini görüntülemenin yanı sıra, hücre içeriğini Daha Büyük Formül Çubuğu'nda düzenleyebilirsiniz.

2. Daha Büyük Formül Çubuğu'nun boyutunu, çubuğun sağ alt köşesini sürükleyerek değiştirebilirsiniz.

3. Birden fazla hücre seçerseniz, yalnızca seçimin ilk hücrenin içeriği Daha Büyük Formül Çubuğu'nda gösterilir.

Daha Büyük Formül Çubuğu hakkında daha fazla bilgi için lütfen öğreticisini ziyaret edin.