Metin kutularında belirli metinler nasıl bulunur ve değiştirilir?
Bul ve Değiştir, hücre içeriğini veya formülleri çalışma sayfasında hızlı ve kolay bir şekilde bulup değiştirmemiz için yararlı bir araçtır. Ama şimdi, çalışma sayfamda birden çok metin kutusu var ve yalnızca bu metin kutularında belirli bir metni bulup başka bir değerle değiştirmek istiyorum. Bu problemle başa çıkmanın iyi bir yolu var mı?
Birden çok metin kutusunda belirli bir metni bulun ve değiştirin
Birden çok metin kutusunda belirli bir metni bulun ve değiştirin
İhtiyaç duyduğunuz metni manuel olarak tek tek bulabilir ve değiştirebilirsiniz, ancak birden fazla metin kutusu varsa, bu sıkıcı ve yorucu olacaktır. Bu nedenle, aşağıdaki VBA kodu bir kerede bitirmenize yardımcı olabilir.
1. Çalışma sayfanızı etkinleştirin ve ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Geçerli çalışma sayfasının metin kutularında belirli metni bulun ve değiştirin
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve değiştirmek istediğiniz eski metninizi girmenizi hatırlatan bir komut kutusu açılır. Ekran görüntüsüne bakın:
4. Tıklamaya git OKve bu istem kutusuna istediğiniz yeni metin değerini yazın, ekran görüntüsüne bakın:
5. Ve sonra tıklayın OK düğmesi, eski değerler mevcut çalışma sayfasına girdiğiniz yeni değerlerle değiştirildi. Ekran görüntülerine bakın:
İlgili yazılar:
Excel'de grafik başlıklarında metin nasıl bulunur ve değiştirilir?
Excel'deki yorumlarda metin nasıl bulunur ve değiştirilir?
Excel'de aynı anda birden çok köprü yolu nasıl değiştirilir?
En İyi Ofis Üretkenlik Araçları
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...
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!