Excel'de notasyona göre alan adını nasıl tersine çevirebilirsiniz?
Bazen, aşağıdaki ekran görüntüsünde gösterildiği gibi, notasyona göre alan adını tersine çevirmekle ilgili bir iş karşınıza çıkabilir. Bunu hızlıca çözmek için herhangi bir püf noktanız var mı? Bu makalede, bunu hızlı bir şekilde ele almak için iki yöntem tanıtacağım.
 |  |  |
VBA ile notasyona göre alan adını ters çevirme
Metin Sırasını Ters Çevir özelliğiyle ayırıcıya göre metni ters çevirme
VBA ile notasyona göre alan adını ters çevirme
İşinizi kolaylaştıracak bir makro kodu aşağıda bulunmaktadır. Lütfen Excel'de şu adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Ekle > Modül'e tıklayın, kodu kopyalayıp boş betiğe yapıştırın.
VBA: Notasyona göre alan adını ters çevirme
Sub Reverse()
'UpdatebyExtendoffice2017115
Dim xArr() As String
Dim xSplitStr As String
Dim xVal As String
Dim xRg As Range
Dim xCell As Range
Dim xIndex As Long
On Error Resume Next
Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xSplitStr = "."
For Each xCell In xRg
If InStr(xCell.Value, xSplitStr) = 0 Then GoTo xBreak
xVal = ""
xArr = Split(xCell.Value, xSplitStr)
xIndex = UBound(xArr)
xVal = xArr(xIndex)
Do
xIndex = xIndex - 1
xVal = xVal & xSplitStr & xArr(xIndex)
Loop While xIndex > 0
xCell.Value = xVal
xBreak:
Next
Application.ScreenUpdating = True
End Sub
3. Tuşa basın F5 tuşuna bastığınızda, çalışmak için bir aralık seçmenizi hatırlatan bir iletişim kutusu açılır.
4. Tamam'a tıklayın.
Metin Sırasını Ters Çevir özelliğiyle ayırıcıya göre metni ters çevirme
Eğer Kutools for Excel'iniz varsa, Metin Sırasını Ters Çevir özelliği size bir dizeyi ihtiyaçlarınıza göre ters çevirmenize yardımcı olabilir.
Kutools for Excel'i yükledikten sonra lütfen aşağıdaki işlemleri yapın: (Kutools for Excel'i Şimdi Ücretsiz İndirin!)
1. Kullandığınız dizeyi seçin ve tıklayın Kutools > Metin > Metin Sırasını Ters Çevir.
2. Ters Metin ile açılan iletişim kutusunda, metni ters çevirmek için ihtiyacınız olan seçeneği belirleyin.
3. Tamam'a tıklayın ve metin dizileri ters çevrilmiş olacaktır.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin