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

Ինչպե՞ս Excel- ում բազմաթիվ էլփոստի հասցեներ փոխարկել հղումների: 

Եթե ​​աշխատանքային էջում ունեք պարզ տեքստային էլփոստի հասցեների ցուցակ, և այժմ ցանկանում եք փոխել այս էլեկտրոնային հասցեները հիպերհղումների, որոնք կարող եք նամակներ ուղարկել ՝ հասցեները սեղմելով: Իհարկե, դրանք կարող եք վերափոխել գերհաղորդակցված էլ. Փոստի հասցեների, բայց այս մեթոդը ձանձրալի կլինի, եթե վերափոխման համար անհրաժեշտ բազմաթիվ հասցեներ լինեն: Այս հոդվածում ես կխոսեմ այս խնդրի լուծման մի քանի լավ հնարքների մասին:

Formula- ի միջոցով բազմաթիվ էլփոստի հասցեներ փոխարկել հղումների

Փոխակերպել բազմաթիվ էլփոստի հասցեներ VBA կոդով հղումների


նետ կապույտ աջ պղպջակ Formula- ի միջոցով բազմաթիվ էլփոստի հասցեներ փոխարկել հղումների

Հետ Գերկապի գործառույթը, դուք կարող եք արագորեն փոխել սյունակի էլփոստի հասցեները միանգամից հիպերհղված հասցեների:

1, Մուտքագրեք այս բանաձևը = գերհղում ("mailto:" & A2) դատարկ բջիջի մեջ, որտեղ ցանկանում եք տեղադրել արդյունքը, տես նկարի նկարը.

doc- ի հասցեները փոխարկել հղումների 1

2, Ապա լրացրեք բռնիչը ներքև քաշեք այն բջիջները, որոնք ցանկանում եք պարունակել այս բանաձևը, և ​​բոլոր էլ. Փոստի հասցեները դարձել են սեղմվող հիպերհղումներ, ինչպես ցույց է տրված հետևյալ նկարը.

doc- ի հասցեները փոխարկել հղումների 2


նետ կապույտ աջ պղպջակ Փոխակերպել բազմաթիվ էլփոստի հասցեներ VBA կոդով հղումների

Ինչպես տեսնում եք, օգտագործելով վերոնշյալ բանաձևը, յուրաքանչյուր էլփոստի հասցեի դիմաց կավելացվի «mailto:» տողը, եթե չեք ուզում mailto. Հասցեների ներքո, հետևյալ VBA կոդը կարող է ձեզ լավություն դարձնել:

1, Պահեք պահեք Alt + F11 Excel- ի ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլներ Պատուհանը:

VBA կոդ. Բազմաթիվ էլփոստի հասցեներ փոխարկել հղումների

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, Կոդի տեղադրումից հետո սեղմեք F5 այս կոդի բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք օգտագործել, տե՛ս նկարը.

doc- ի հասցեները փոխարկել հղումների 3

4. Եվ այնուհետեւ կտտացրեք OK, բոլոր ընտրված էլփոստի հասցեները վերափոխվել են հիպերհղված հասցեների, տես նկարի նկարը.

doc- ի հասցեները փոխարկել հղումների 4


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (7)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես չեմ կարող գտնել գտածոն, որը բջիջները վերածում է հիպերհղումների:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
դու աստղ ես, այն հիանալի աշխատեց: շնորհակալություն մեկ միլիոն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես MAC միջավայրում եմ, ուստի ALT ստեղն չունեմ: Որևէ այլ գաղափարներ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ALT ստեղնի համարժեքը հրամանի ստեղնն է (գտնվում է Option Key-ի ձախ կողմում):

Այս երկու ստեղները գտնվում են տիեզերական տողի ձախ կողմում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կատարյալ աշխատում է Excel 2003-ում: Շատ շնորհակալ եմ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ich suche eine Formel mit der ich EMail-Adressen in URLs umwandeln kann...

Beispiel: test@test.de > http://www.test.de

Կարող մարդը կարող է օգնել ինձ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, kk.operator

Ձեր խնդիրը լուծելու համար խնդրում ենք կիրառել հետևյալ կոդը.

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


Խնդրում ենք փորձել, հուսով եմ, որ դա կարող է օգնել ձեզ:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից