Excel'de Metin Kutusu içindeki belirli metni nasıl bulup değiştirebilirim?
Bul ve Değiştir aracı, bir çalışma sayfasındaki hücre içeriklerini veya formüllerini hızlıca güncellemek için vazgeçilmezdir. Ancak birden fazla Metin Kutusu’ndaki metinleri yönetmek, yalnızca manuel güncellemelerle yapılıyorsa oldukça zorlu hale gelebilir. Metin Kutusu içinde belirli bir metni bulup verimli şekilde değiştirmeniz gerekiyorsa, bu öğretici sizi görevi yalnızca birkaç adımda tamamlamak üzere VBA kodunu kullanmaya yönlendirecektir.
Birden fazla Metin Kutusu içindeki belirli metni Bul ve Değiştir
Birden fazla Metin Kutusu içindeki belirli metni Bul ve Değiştir
Metni tek tek manuel olarak Bul ve Değiştir ile değiştirebilirsiniz; ancak bu işlem, birden fazla Metin Kutusu ile uğraşırken hem yorucu hem de zaman alıcı hale gelir. Aşağıdaki VBA kodu, bu görevi tek seferde hızlı ve verimli şekilde tamamlamanızı sağlar.
1. Çalışma sayfanızı etkinleştirin 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 kodu Modül Penceresine yapıştırın.
VBA kodu: Geçerli Çalışma Sayfası içindeki Metin Kutusu içindeki belirli metni Bul ve Değiştir
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub
3. Ardından, bu kodu çalıştırmak için F5 tuşuna basın; yerine koymak istediğiniz Eski Metin’i girmenizi hatırlatan bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın ve bu iletişim kutusuna istediğiniz Yeni Metin değerini girin. Ekran görüntüsüne bakın:
5. Sonra, Tamam düğmesine tıklayın; eski değerler, Geçerli Çalışma Sayfası’nda girdiğiniz yeni değerlerle değiştirilir. Ekran görüntülerine bakın:
 |
 |
 |
İlgili makaleler:
Excel'de grafik başlıklarındaki metni nasıl bulup değiştirebilirim?
Excel'de yorumlar içindeki metni nasıl Bul ve Değiştirirsiniz?
Excel'de birden fazla köprü yolunu aynı anda nasıl değiştirebilirsiniz?
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