طلب معادلة استخراج رابط من كلمة بها ارتباط تشعبي

[Alaa Ammar New]

السلام عليكم ورحمة الله

عندي جدول به صفوف كثيرة وفيها عامود به كلمة "اضغط الرابط" بها رابط اليوتيوب او فيس على هيئة هايبرلينك فهل هناك معادلة تستخرج الرابط منها وتحوله الى QR CODE

أو على الأقل معادلة تستخرج رابط اليوتيوب او الفيس منها في آخر عامود الملون بالاصفر اسمه qr code؟

وجزاكم الله كل خير

qrcode.xlsx

تم تعديل منذ 19 ساعات بواسطه Alaa Ammar New

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

 

 عن طريق كود  الكود يتعامل مع العمود I   يمكن تغييره الى عمود اخر بالكود 

Sub ExtractHyperlinks()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    Dim hyperlinkAddress As String
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
    For Each cell In ws.Range("I2:I" & lastRow)
        If cell.Hyperlinks.Count > 0 Then
            hyperlinkAddress = cell.Hyperlinks(1).Address
            ws.Cells(cell.Row, "M").Value = hyperlinkAddress
        End If
    Next cell
End Sub

الملف 

qrcode.xlsb

 

تم تعديل منذ 9 ساعات بواسطه عبدالله بشير عبدالله

[عبدالله بشير عبدالله]

طريقة اخرى بدالة غير مباشرة 

Function GetHyperlinkAddress(rng As Range) As String
    On Error Resume Next
    GetHyperlinkAddress = rng.Hyperlinks(1).Address
End Function

ثم في العمود M  نكتب   =GetHyperlinkAddress(I2) لرابط اليوتيوب

 وفي  العمود J نكتب لرابط الفيس  =GetHyperlinkAddress(J2)

الملف

qrcode1.xlsb