Excel'de üst simge ile karakteri hızlı bir şekilde nasıl bulabilir ve değiştirebilirim?
Bul ve Değiştir işleviyle bul ve üst simge ile değiştir
VBA'ya göre üst simge ile bulun ve değiştirin
Bul ve Değiştir işleviyle bul ve üst simge ile değiştir
Aslında, metni bulmak için Bul ve Değiştir'i kullanabilir ve ardından üst simge biçimiyle değiştirebilirsiniz.
1. Bulmak ve değiştirmek istediğiniz aralığı seçin ve Ctrl + H açmak için Bul ve Değiştir iletişim.
2. içinde Bul ve Değiştir iletişim, tıklayın değiştirmek sekmesine gidin ve ardından bulmak istediğiniz metni Ne bul Metin kutusu. Ekran görüntüsüne bakın:
3. Sonra şuraya git Ile değiştirin metin kutusu, değiştirmek istediğiniz metni girin, dikkat edin, tutun Ara Toplam tuşuna basın ve ardından tuşuna basın. 0179 üzerindeki anahtarlar Sayı panosu üst simge numarasını girmek için 3. Ekran görüntüsüne bakın:
4. tık Tümünü Değiştir. Ve kaç tane değiştirme yapıldığını size hatırlatmak için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
Bahşiş: Ancak bu yöntemle, yalnızca 2'e ve 0178'a 3'e basarak 0179 numaranın üstünü yazabilirsiniz.
VBA'ya göre üst simge ile bulun ve değiştirin
Bul ve Değiştir işleviyle, sayıyı yalnızca üst simge ile değiştirebilir. Mektubu aşağıda gösterilen ekran görüntüsü gibi üst simge ile değiştirmek isterseniz, çözmek için VBA kodunu uygulayabilirsiniz.
1. Basın Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve komut dosyasına VBA kodunun altına yapıştırın.
VBA: Bul ve üst simge biçimiyle değiştir
Sub DoConvert()
'UpdatebyExtendoffice20160705
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "YL3" Then
xCell.Characters(1, 1).Font.Superscript = True
End If
Next
End Sub
3. Basın F5 kodu çalıştırmak için tuşuna basın ve bir aralık seçmenizi hatırlatmak için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. tık OK, belirli dizedeki belirli karakter, seçimde üst simge biçimine dönüştürüldü. Ekran görüntüsüne bakın:
Bahşiş: kodda, "YL3"Bulmak istediğiniz dizedir ve (1, 1) dizenin ilk 1 karakterinin dönüştürüleceğini gösterir, ilk iki karakteri dönüştürmek istiyorsanız (1, 2) olarak değiştirebilirsiniz, dizenin ikinci karakterinden 1 karakteri dönüştürmek isterseniz şu şekilde değiştirebilirsiniz ( 2, 1).
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!