Note: The other languages of the website are Google-translated. Back to English

Excel'de birden çok e-posta adresini köprülere nasıl dönüştürebilirim? 

Bir çalışma sayfasında düz metin e-posta adreslerinin bir listeniz varsa ve şimdi, bu e-posta adreslerini, adreslere tıklarken e-posta gönderebileceğiniz köprülere dönüştürmek istiyorsunuz. Elbette, bunları köprülü e-posta adreslerine dönüştürebilirsiniz, ancak dönüştürülmesi gereken birden fazla adres varsa bu yöntem sıkıcı olacaktır. Bu yazıda, bu görevin üstesinden gelmek için bazı iyi püf noktalarından bahsedeceğim.

Formula ile birden çok e-posta adresini köprülere dönüştürün

VBA kodu ile birden çok e-posta adresini köprülere dönüştürün


ok mavi sağ balon Formula ile birden çok e-posta adresini köprülere dönüştürün

İle Köprü işlevi, sütun e-posta adreslerini tek seferde köprülü adreslere hızlı bir şekilde dönüştürebilirsiniz.

1. Bu formülü girin = köprü ("mailto:" & A2) sonucu koymak istediğiniz boş bir hücreye, ekran görüntüsüne bakın:

doc adresleri köprülere dönüştür 1

2. Ardından, doldurma tutamacını bu formülü içermesini istediğiniz hücrelere sürükleyin ve aşağıdaki ekran görüntüsü gibi tüm e-posta adresleri tıklanabilir köprüler haline gelir:

doc adresleri köprülere dönüştür 2


ok mavi sağ balon VBA kodu ile birden çok e-posta adresini köprülere dönüştürün

Gördüğünüz gibi, yukarıdaki formülü kullanarak, her e-posta adresinin önüne bir “mailto:” dizesi eklenecektir, eğer mailto: adreslerinin içinde, aşağıdaki VBA kodu size bir iyilik yapabilir.

1. Basılı tutun Alt + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki makroyu modül Pencere.

VBA kodu: Birden çok e-posta adresini köprülere dönüştürün

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Kodu yapıştırdıktan sonra lütfen F5 Bu kodun anahtarı ve kullanmak istediğiniz veri aralığını seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:

doc adresleri köprülere dönüştür 3

4. Ve sonra tıklayın OK, seçilen tüm e-posta adresleri köprülü adreslere dönüştürüldü, ekran görüntüsüne bakın:

doc adresleri köprülere dönüştür 4


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (7)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hücreleri köprülere dönüştüren bul bulamıyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
sen bir yıldızsın, mükemmel çalıştı. milyonlarca kez teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
MAC ortamındayım, bu yüzden ALT anahtarım yok. Başka iea var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
ALT tuşunun eşdeğeri komut tuşudur (Seçenek Tuşunun solunda bulunur).

Bu tuşların ikisi de boşluk çubuğunun solunda bulunur.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Excel 2003'te mükemmel çalışıyor! Çok teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
URL'lerde E-posta Adresi ile böyle bir Formel umwandeln kann...

Açıklama: test@test.de > http://www.test.de

Birisi bana yardımcı olabilir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, kk.operatör

Sorununuzu çözmek için lütfen aşağıdaki kodu uygulayın:

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim xCell As Range
    Dim xCell2 As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim xRegEx As Object
    Dim arrSplit() As String
    
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    Set yRg = Application.InputBox("Please select the save range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If yRg Is Nothing Then Exit Sub
    Set yRg = yRg.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)

    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
        .Global = True
        .IgnoreCase = True
    End With
    
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            Set xCell = xRg.Cells(I, J)
            Set xCell2 = yRg.Cells(I, J)
            If xRegEx.test(xCell.Value) Then
                arrSplit = Split(xCell.Value, "@")
                 If UBound(arrSplit, 1) = 1 Then
                    xCell2.Value = "http://www." & arrSplit(1)
                    xCell2.Hyperlinks.Add Anchor:=xCell2, Address:=xCell2.Value
                 End If
            End If
        Next
    Next
    Application.ScreenUpdating = xUpdate
End Sub


Lütfen bir deneyin, umarım size yardımcı olabilir!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır