aram قام بنشر سبتمبر 22, 2023 قام بنشر سبتمبر 22, 2023 السلام عليكم اساتذتي الافاضل هذا الكود ينشئ ارتباط تشعبي اذا كانت قيمة الخلية متطابقة مع اسم الملف . لكنني احتاج للمساعدة في تغيير نطاق هذا الكود ليشتغل فقط على الخلايا المحددة من قبلي وليس على كامل العمود . لأنني عندما اغير مسار ملفاتي في الكود الى مجلد اخر يتم تحديث الروابط السابقة حسب ملفات مسار المجلد الجديد اذا ما صادف وجود ملف بنفس الاسم في المجلد الجديد . أرجو المساعدة وجزاكم الله خيرا Sub AddHypaerlinks() Dim lastRow As Long Dim myPath As String, fileName As String myPath = "C:\Users\civat\Desktop\New folder\" 'SET TO WHERE THE FILES ARE LOCATED lastRow = Range("B" & Rows.Count).End(xlUp).Row For i = 2 To lastRow If Len(Range("B" & i)) > 0 Then fileName = myPath & Range("B" & i).Value & "*.docx" 'IF THE FILE EXISTS THEN If Len(Dir(fileName)) <> 0 Then ActiveSheet.Hyperlinks.Add Range("B" & i), myPath & Dir(fileName) End If Next End Sub ارتباط تشعبي.xlsm
أفضل إجابة أ / محمد صالح قام بنشر سبتمبر 23, 2023 أفضل إجابة قام بنشر سبتمبر 23, 2023 عليكم السلام جرب استخدام هذا الكود بعد تحديد الخلايا التي يراد وضع ارتباط تشعبي لها Sub AddHypaerlinks() Dim cl As Range Dim myPath As String, fileName As String myPath = "C:\Users\civat\Desktop\New folder\" 'SET TO WHERE THE FILES ARE LOCATED For Each cl In Selection If Len(cl) > 0 Then fileName = myPath & cl.Value & "*.docx" 'IF THE FILE EXISTS THEN If Len(Dir(fileName)) <> 0 Then ActiveSheet.Hyperlinks.Add cl, myPath & Dir(fileName) End If Next End Sub بالتوفيق 3
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.