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

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:

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:

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:

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: