Ana içeriğe atla

Excel'deki yorumlarda metin nasıl bulunur ve değiştirilir?

Bildiğimiz gibi excel'de Bul ve Değiştir işlevi var ve bu işlevle hücrelerdeki içeriği hızlı bir şekilde bulup değiştirebiliyoruz. Ancak Excel'deki yorumlarda içeriği bulup değiştirebilir miyiz?

Yorumlarda metin bulmak ve değiştirmek için VBA kodunu kullanma

Yorumların içindeki metni hızlı ve kolay bir şekilde bulmak ve değiştirmek için


ok mavi sağ balon Yorumlarda metin bulmak ve değiştirmek için VBA kodunu kullanma

Excel'de, VBA kodunu kullanmak dışında bu sorunu çözmenin başka bir yolu yok gibi görünüyor, tüm yorumlarda metni bulmak ve değiştirmek için aşağıdaki VBA kodunu kullanabilirsiniz. Örneğin, Excel'deki tüm yorumlarda 2011'i 2012 ile değiştireceğim.

1. tıklayın Geliştirici >Visual Basic, Yeni bir Uygulamalar için Microsoft Visual Basic pencere görüntülenecek, tıklayın Ekle > modül ve ardından Modüle aşağıdaki VBA kodunu girin:

VBA: Excel'deki tüm yorumlarda metni bulun ve değiştirin.

Alt ReplaceComments ()
Dim cmt Yorum Olarak
Çalışma Sayfası Olarak Dim wks
Dim sDize Olarak Bul
Dize Olarak Değiştir
Dize Olarak Dim sCmt
sFind = "2011"
sReplace = "2012"
ActiveWorkbook.Worksheets'teki her hafta için
Haftada Her cmt için.
sCmt = cmt.Metin
InStr (sCmt, sFind) <> 0 ise
sCmt = Application.WorksheetFunction. _
İkame (sCmt, sFind, sReplace)
cmt.Text Metni: = sCmt
Eğer son
Sonraki
Sonraki
Wks ayarla = Hiçbir şey
Cmt'yi ayarla = Hiçbir şey
End Sub

Not: Yukarıdaki kodda, sBul ve sDeğiştir aradığınız ve neyle değiştirmek istediğiniz için değişkenler.

2. Sonra tıklayın dpc-değiştirme-açıklama-1 düğmesi ve tüm yorumlarda 2011'in tamamı, çalışma kitabının tamamında 2012 ile değiştirilecektir.


ok mavi sağ balon Kullanışlı bir araç tYorumlardaki metni hızlı ve kolay bir şekilde bulmak ve değiştirmek için

Tüm yorumlardaki metni hızlı bir şekilde bulabilir ve değiştirebiliriz. Kutools for Excel'S Hücre Yorum Araçları.

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Şimdi alın

Kutools for Excel'i yüklediyseniz, metni Excel'deki tüm yorumlarda kolayca bulabilir ve değiştirebilirsiniz.

1. tıklayın Kutools > Daha > Hücre Yorum Araçları. Ekran görüntüsüne bakın:

doc-değiştir-yorum-2

2. In Hücre Yorum Araçları iletişim kutusu:

  • (1.) Tıklayın Bul / Değiştir sekme;
  • (2.) Bu yardımcı programı uygulamak istediğiniz kapsamı seçin, seçebilirsiniz Aktif sayfa or Tüm sayfalar;
  • (3.) Değiştirmek istediğiniz metni (2011), Yorumlarda metin bulun kutusuna girin ve kullanmak istediğiniz belirli metni (2012) girin. Ile değiştirin kutu.

doc-değiştir-yorum-3

3. Ve sonra tıklayın değiştirmek buton. Aktif çalışma sayfasındaki yorumlarda 2011'in tamamı 2012 ile değiştirilecektir. Ekran görüntülerine bakın:

doc-değiştir-yorum-4 -2 doc-değiştir-yorum-5

not: Kontrol ettiyseniz Özeti göster, kaç tane hücre yorumunun değiştirildiğini size hatırlatmak için bir istem kutusu olacaktır.

Hakkında daha ayrıntılı bilgi için Hücre Yorum AraçlarıZiyaret edin Hücre Yorum Araçları özellik açıklaması.


İ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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above like below, Chr(10) is the key change:

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above as below, Chr(10) is the key change!

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
How to replace line break in comments?
This comment was minimized by the moderator on the site
The above code turns the whole comment to bold. Normally only the title is bold in an Excel comment by default. The below code fixes the problem. Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim lTitleLength As Long Dim sCmt As String sFind = "2011" sReplace = "2014" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") With cmt.Shape.TextFrame .Characters(1, lTitleLength).Font.Bold = True .Characters(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False End With Next Next Set wks = Nothing Set cmt = Nothing End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations