Ana içeriğe atla

Excel: Tıklandığında tüm içeriği gösterecek şekilde hücre nasıl genişletilir

Bazı durumlarda, hücre içeriği hücrenin genişliğinden daha uzunsa ve sonraki sütun hücrelerinde değerler varsa, aşağıdaki ekran görüntüsü gibi yalnızca içeriğin bölümleri gösterilir. Hücrelerin genişliğini ve yüksekliğini değiştirmekten kaçınmak için hücreye tıklayıp formül çubuğunda tüm içeriği görüntüleyebilirsiniz. Ancak formül çubuğu gizliyse veya içerikten daha kısaysa nasıl yapılır? Burada, üzerine tıklandığında hücre içeriğini bir metin kutusunda gösterebilen iki yöntem tanıtılmaktadır.
başka bir listeden otomatik tamamlama

Bir metin kutusu ekleyerek tüm içeriği göstermek için hücreyi genişletin Active X Denetimleri

Kutools for Excel'in Daha Büyük Formül Çubuğunu kullanarak tüm içeriği göstermek için hücreyi genişletin

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


Bir metin kutusu ekleyerek tüm içeriği göstermek için hücreyi genişletin Active X Denetimleri

1. Hücreyi genişletmek istediğiniz çalışma sayfasını etkinleştirin, Geliştirici > Ekle > Metin Kutusu (ActiveX Denetimleri).
başka bir listeden otomatik tamamlama

Eğer yok ise Geliştirici şeritte sekme, lütfen ilk önce görüntüleyin, lütfen bu öğreticiyi görüntüleyin Excel Şeritinde Geliştirici Sekmesi Nasıl Gösterilir/Görüntülenir

2. Ardından, hücrelerin en uzun içeriğini gösterebilecek genişlik ve yükseklikte bir metin kutusu çizmek için imleci sürükleyin. Bu metin kutusunun adını hatırlayın, işte TextBox1.
başka bir listeden otomatik tamamlama

3. Metin kutusuna sağ tıklayın ve Emlaklar bağlam menüsünden. Daha sonra Emlaklar bölme, seç Gerçek içindeki açılır listelerden Çoklu Hat ve Sözlük bölümler. sonra kapat Emlaklar bölmesi.
başka bir listeden otomatik tamamlama  başka bir listeden otomatik tamamlama

Veya aşağıdaki açılır listeden Doğru'yu seçebilirsiniz. Otomatik Boyut Özellikler bölmesindeki 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 Kodu Görüntüle bağlam menüsünden.

5. içinde Uygulamalar için Microsoft Visual Basic penceresini açın, aşağıdaki kodu boş komut dosyasına kopyalayıp yapıştırın.

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

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

başka bir listeden otomatik tamamlama

TextBox1'in çizdiğiniz metin kutusunun adı olduğuna ve A1:B4'ün bu kodun çalıştığı aralık olduğuna dikkat edin, istediğiniz gibi değiştirin.

6. Sayfaya geri dönün, Geliştirici > Tasarım Modu tasarım modu var.
başka bir listeden otomatik tamamlama

Şimdi hücreye tıkladığınızda, metin kutusu yanında görünecek ve hücrenin tüm içeriğini gösterecektir.
başka bir listeden otomatik tamamlama


Kutools for Excel'in Daha Büyük Formül Çubuğunu kullanarak tüm içeriği göstermek için hücreyi genişletin

Kutools for Excel'i yüklediyseniz, sağladığı Daha Büyük Formül Çubuğu, tıklatarak etkinleştirdiğiniz sürece tıkladığınızda hücrenin tüm içeriğini açılan bir kutuda gösterecektir. Kutools > Daha Büyük Formül Çubuğu.
başka bir listeden otomatik tamamlama

İpuçları:

1. Daha Büyük Formül Çubuğu ile, aktif hücrenin içeriğini görüntülemek dışında, Daha Büyük Formül Çubuğundaki hücre içeriğini de düzenleyebilirsiniz.

2. Daha Büyük Formül Çubuğunu, Çubuğun sağ alt köşesini sürükleyerek yeniden boyutlandırabilirsiniz.

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

Bigger Formula Bar hakkında daha fazla ayrıntı, lütfen adresini ziyaret edin. öğretici.


Diğer İşlemler (Makaleler)

Otomatik Tamamlama Nasıl Kapatılır
İşte Excel'de otomatik tamamlamayı durdurabilecek bir seçenek.

Excel Dosya Boyutu Nasıl Küçültülür?
Bazen, Excel dosyası çok büyükse açılması veya kaydedilmesi dakikalar alabilir. Bu sorunu çözmek için, bu öğreticide, gereksiz veya hiç kullanılmayan içerikleri veya biçimleri kaldırarak Excel dosya boyutunu nasıl küçülteceğiniz anlatılmaktadır.

Hücreleri Başka Bir Tablodan Otomatik Olarak Tamamlama
Bu öğreticide, bir sütun değeri girdikten sonra başka bir sayfadaki bir tablodaki diğer sütun hücrelerinin nasıl otomatik olarak tamamlanacağı anlatılmaktadır.

Excel'de tek veya çift (alternatif) satırlara / sütunlara gölgeleme nasıl uygulanır?
Bir çalışma sayfası tasarlarken, birçok kişi çalışma sayfasını daha görsel hale getirmek için tek veya çift (alternatif) satırlara veya sütunlara gölgeleme uygulama eğilimindedir. Bu makale, Excel'deki tek veya çift satırlara / sütunlara gölgelendirme uygulamak için iki yöntem gösterecektir.


  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme ve Verilerin Saklanması; Bölünmüş Hücre İçeriği; Yinelenen Satırları ve Toplam / Ortalamayı Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Sık Kullanılan ve Hızlı Eklenen Formüller, Aralıklar, Grafikler ve Resimler; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • Pivot Tablo Gruplaması hafta numarası, haftanın günü ve daha fazlası ... Kilidi Açılmış, Kilitli Hücreleri Göster farklı renklerle; Formülü / Adı Olan Hücreleri Vurgulayın...
kte sekmesi 201905
  • 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!
ofis tabanı
Comments (5)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I am having the same issue as Neil. Code works fine, except when selecting any full row or column that include the cell range in the code, i am getting the Run-time error '94'. Invalid use of Null, highlighting to .Text = Target.Text. This code was very helpful except for the debug popping up every time. Please provide a solution
This comment was minimized by the moderator on the site
Hi, I have modified the code, it will not pop up a bug dialog when you select a column of cells or multiple cells, and the textbox will be hidden as well. Please try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
If Target.CountLarge > 1 Then
    TextBox1.Visible = False
    Exit Sub
End If
xRgAddress = "A1:A20" '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
This comment was minimized by the moderator on the site
Sunny, this is absolutely perfect - thank you so much for your time and expertise.
This comment was minimized by the moderator on the site
Good day, this code is great - I have two columns included in my code and the expanding text box pops up no issues when a cell is clicked - however, if I highlight multiple cells including one of the cells I wish to have the text box pop up - I get run-time error '94' - Invalid use of Null. Debugging highlights the 2nd 'Text = Target.Text' line.

Appreciate any feedback.
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi, do you want to show all contents of the selected cells to the textbox? Or just supports to select cells but show contents of the first one cell of the selection?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations