Ana içeriğe atla

İçeriğini Excel'e sığdırmak için yorum kutusu nasıl otomatik boyutlandırılır?

Hücrelere yorum eklediğinizde, yorum kutusunun boyutu varsayılan değerdir. İçine çok fazla içerik girerseniz, içeriğin bir kısmı doğrudan görünmeyecektir. Yorum kutusunun boyutunu içeriğine otomatik olarak sığdırmak mümkün müdür?

İçeriğini bir çalışma sayfasına sığdırmak için otomatik boyutlu yorum kutusu
İçeriğini bir hücre aralığına sığdırmak için otomatik boyutlu yorum kutusu
İçeriğini aktif sayfaya veya harika bir araçla tüm sayfaya sığdırmak için kolayca otomatik boyutlandırılmış yorum kutusu


İçeriğini bir çalışma sayfasına sığdırmak için otomatik boyutlu yorum kutusu

Excel'de, yorum kutusunu ihtiyaç boyutunuza elle tek tek sürükleyebilirsiniz, ancak çok sayıda yorum kutusunun yeniden boyutlandırılması gerekiyorsa, bu yöntem sıkıcı ve zaman alıcı olacaktır. Bu durumda aşağıdaki VBA kodunu uygulayabilirsiniz.

1. Tuşunu basılı tutun. ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. tık Ekle > modülve aşağıdaki makroyu Modül penceresi.

VBA kodu: Bir çalışma sayfasındaki otomatik boyutlu yorum kutuları

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3. Ardından F5 Bu kodu çalıştırmak için anahtar ve etkin çalışma sayfasındaki tüm yorum kutuları, gösterilen aşağıdaki ekran görüntüsü gibi içeriklerine uyacak şekilde yeniden boyutlandırılmıştır:

doc autoize comment1

Bahşiş: Bu kod yalnızca mevcut çalışma sayfasında çalışır ve eklediğiniz yeni yorum kutularını otomatik olarak yeniden boyutlandıramaz.


Excel'de yorum kutusunun boyutunu içeriğine otomatik olarak sığdırmak için tek bir tıklama:

The Otomatik Sığdırma Yorumu yarar Kutools for Excel Aşağıdaki demoda gösterildiği gibi bir çalışma sayfasında yorum kutusunun boyutunu içeriğine otomatik olarak sığdırmaya yardımcı olabilir. Şimdi indirin ve deneyin! (30 günlük ücretsiz iz)


İçeriğini bir hücre aralığına sığdırmak için otomatik boyutlu yorum kutusu

Yalnızca bir dizi hücre yorum kutusunu otomatik boyutlandırmanız gerekiyorsa, aşağıdaki VBA kodunu kullanabilirsiniz.

1. Tuşunu basılı tutun. ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. tık Ekle > modülve aşağıdaki makroyu Modül penceresi.

VBA kodu: Bir dizi hücrede otomatik boyutlu yorum kutuları

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. Ardından F5 Bu kodu yürütmek için bir anahtar ve yorum kutularını yeniden boyutlandırmak istediğiniz bir hücre aralığını seçmenizi hatırlatmak için bir istem kutusu görünecektir, ekran görüntüsüne bakın:

doc-resize-yorum-kutusu3

4. Ve sonra tıklayın OK, seçili hücre yorum kutularınız yorum içeriğine otomatik olarak yerleştirildi.

Bahşiş: Bu kod, eklediğiniz yeni yorum kutularını otomatik olarak yeniden boyutlandıramaz.


İçeriğini etkin sayfaya veya tüm sayfaya sığdırmak için otomatik boyutlu yorum kutusu 

Siz deneyebilirsiniz Otomatik Sığdırma Yorumu yarar Kutools for Excel otomatik olarak yeniden boyutlandırmak içinEtkin sayfadaki veya Excel'deki tüm sayfalardaki yorum kutuları. Lütfen aşağıdaki işlemleri yapın.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. Yorum kutularını içeriklerini aktif sayfaya sığacak şekilde otomatik olarak yeniden boyutlandırmak için lütfen tıklayın Kutools > Daha > Otomatik Sığdırma Yorumu > Aktif sayfa.

Ve tüm çalışma kitabındaki tüm yorum kutularını otomatik olarak yeniden boyutlandırmak istiyorsanız, lütfen tıklayın Kutools > Daha > Otomatik Sığdırma Yorumu > Tüm sayfalar. Ekran görüntüsüne bakın:

Ardından tüm yorum kutuları içeriklerine uyacak şekilde otomatik olarak yeniden boyutlandırılır. Ekran görüntüsüne bakın:

notlar:

  • 1. Yorum kutuları otomatik olarak yeniden boyutlandırıldıktan sonra, yorumu yeniden düzenlerken, yorum kutusu içerikle birlikte otomatik olarak genişler veya küçülür.
  • 2. Eklediğiniz yeni yorumlar için, eklenen tüm yeni yorum kutularını yeniden boyutlandırmak üzere bu Otomatik Sığdırma yorum yardımcı programını yeniden etkinleştirmeniz gerekir.

  Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


İçeriğine sığması için kolayca otomatik boyutlandırılan yorum kutusu


İlgili yazılar:

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 (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I've been using an xls spreadsheet for 10+ years. Suddenly, all my note boxes were hugely expanded, showed as a blank note until I edited them. Your solution below worked to resize all of my note boxes to fit contents. But now when I try to resize the note box to add more text, Excel crashes. This is even after I saved as an xlsx file to remove all VB code. Can you help?

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End Sub
This comment was minimized by the moderator on the site
Bom-dia,

Salvou de mais! Após abrir planilha no celular todos os comentários ficaram desajustados no pc.
Tinha mais de 10 mil comentários pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
This comment was minimized by the moderator on the site
It doesn't work, the insert module does not show up
This comment was minimized by the moderator on the site
amazing! thank you, the first way works! saved me hours of work!
This comment was minimized by the moderator on the site
I guess Crystal got us off track the question was: Is there a way of making the line from the comment box to the cell darker or fatter? That would be the line surrounding the comment box. TIA DD
This comment was minimized by the moderator on the site
Is there a way of making the line from the comment box to the cell darker or fatter?
This comment was minimized by the moderator on the site
Hi Demondrew,
Sorry can help you for that.
This comment was minimized by the moderator on the site
Thank you so much for sharing this. Really helpful!
This comment was minimized by the moderator on the site
@DENNIE "While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks." // Agreed
This comment was minimized by the moderator on the site
Thank you very much. This really saved me from lots of hassles.
This comment was minimized by the moderator on the site
While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations