Etki alanı adını Excel'de gösterimle nasıl tersine çevirebilirim?
Bazen, aşağıda gösterilen ekran görüntüsü gibi notasyonla alan adını ters çevirme konusunda bir işle karşılaşabilirsiniz, hızlı bir şekilde çözmek için herhangi bir püf noktanız var mı? Bu yazıda, hızlı bir şekilde halletmek için iki yöntem sunacağım.
VBA ile notasyona göre alan adını ters çevirin
Ters Metin Sırasına sahip bir ayırıcı ile dizeyi ters çevir
VBA ile notasyona göre alan adını ters çevirin
İşte size yardımcı olabilecek bir makro kodu, lütfen Excel'de şunları yapın:
1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modül, kodu kopyalayıp boş komut dosyasına yapıştırın.
VBA: Alan adını gösterime göre ters çevir
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. Basın F5 tuşuna basıldığında, çalışmak için bir aralık seçmenizi hatırlatan bir iletişim kutusu açılır.
4. tık OK.
Ters Metin Sırasına sahip bir ayırıcı ile dizeyi ters çevir
Kutools for Excel'iniz varsa, Ters Metin Sırası özelliği, ihtiyacınız olan bir dizeyi tersine çevirmenize yardımcı olabilir.
Kutools for Excel, ile daha fazla 120 kullanışlı fonksiyonlar, işlerinizi kolaylaştırır. | ||
Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın: (Şimdi Excel için Kutools'u Ücretsiz İndirin!)
1. Kullandığınız dizeyi seçin, tıklayın Kutools > Metin > Ters Metin Sırası.
2. içinde Metni Ters Çevir iletişim kutusu, metni temel alarak ters çevirmeniz gereken bir seçeneği seçin.
3. tık Okve metin dizeleri tersine çevrildi.
Gösteri
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!