پرسش اصلاح مسیر هایپرلینک در اکسل

[زينب آ]

سلام
من تعداد زيادي از سلول هام و لينک کردم و وقتي که فولدر فايل لينک شده رو جابه جا مي کنم لينکم کار نمي کنه،راهي هست که به جاي اينکه دونه دونه سلول ها رو Edit hyperlinks بزنيم آدرس همه ي سلول ها رو با هم تغيير بديم؟
با تشکر

[~M*E*H*D*I~]

سلول هارو به چی لینک کردید؟

[زينب آ]

به فولدري که جابه جا کردم
مثلا در سلول a1 نوشتم نامه 1 و در سلول a2 نوشتم نامه2 لينک اين سلول ها در آدرس نامه/d هست،حالا اگر تو درايو d يک فولدر ايجاد کنم به اسم سال 92 و فولدر نامه رو به اين فولدر منتقل کنم لينک سلولم کار نميکنه و بايد ختما رو سلول a1 اديت هايپر لينک و بزنم و آدرسش و تغيير بدم.و چون تعداد نامه هام خيلي زياده اين راه برام زمانبره،ميخواستم بدونم راهي غير از اين هست؟

[~M*E*H*D*I~]

دو راه داره یکی ساده و یکی کمی سخت

راه ساده

فرض کنید فایل های شما از فولدری به نام 91 انتخاب شدند و مسیر به شکل زیر هست

c:\91\1.docx

کافیه ستون مورد نظر رو انتخاب کنید و CTRL+ h رو بزنید بعد 91 رو با 92 جایگزین کنید.

راه دوم

یک ماکرو ایجاد کنید کد زیر رو بنویسید اجرا کنید مسیر جدید رو انتخاب کنید و لینک همه فایل هارو مجدد بسازید

Public Dlg_File As Variant
 Sub hyperlinkform()

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlManual
    End With

  UserForm1.Hide
    Application.DisplayAlerts = False
Dim r As Integer

Dlg_File = Application.GetOpenFilename("all Files (*.*),*.*", , "Select Files to Import", "Import Test Files", True)
On Error Resume Next
If Dlg_File <> False Then

r = 2
For x = 1 To UBound(Dlg_File)

Sheets("sheet1").Select
Range("B" & r).Select
Sheets("sheet1").Hyperlinks.Add Anchor:=Selection, Address:=Dlg_File(x), TextToDisplay:=Dlg_File(x)

r = r + 1
Next x
End If
End Sub 

[زينب آ]

ببخشيد فکر کنم من سوالم و درست مطرح نکردم
بذاريد اينجوري توضيح بدم: من در اکسلم کلي نامه دارم که همه ي آنها را لينک کردم مثلا نامه شماره 0918 در آدرس D:\Letters\Sent Letters\Day\92-10-30\0918.docx قرار دارد و نامه 0815 در آدرس D:\Letters\Sent Letters\Aban\92-08-25\0815.docx حالا من مي خوام در فولدر Sent Letters يک فولدر جديد به اسم 92 ايجاد کنم و همه ي فولدر هايم که مربوط به ماههاي مختلف است را کات کنم در فولدر 92 پس مجبورم که همه ي سلول هايم در اکسل را يکي يکي کليک راست کنم و \92 را به همه اضافه کنم(مثلا D:\Letters\Sent Letters\92\Aban\92-08-25\0815.docx) و اين کار خيلي زمانبر است.

[~M*E*H*D*I~]

برای اینکار باید \92 رو به کل فایل ها ضافه کنید آدرس هارو از قسمت \: D با تابع mid بشکنید بعد باقیمانده رو با استفاده از عبارت & به قسمت 92\ : D بچسبانید

[زينب آ]

ميشه لطف کنيد و دقيق تر توضيح بديد؟

[~M*E*H*D*I~]

مثل فایل پیوست عمل کنید

[nargesza]

سلام
ببخشيد اگه بخواهيم فايل اکسل هايپرلينک کرده رو از يه درايو به درايو ديگه منتقل کرديم (يعني کات کرديم) يا کلا از يک سيستم به سيتم ديگه کپي يا کات کرديم چطور لينکها رو نگه داريم؟ چون جابجا شده و ديگه کار نميکنه.
ممنون ميشم راهنمايي کنيد.

[nargesza]

سلام مجدد
منظورم لينک کردم عکس به سلول اکسل هست.
از يک راهي امتحان کردم، اينکه هر عکس رو در يک پوشه قرار بديم و بعد آدرس پوشه رو در تغيير آدرس هايپرلينک قرار بديم. فقط اينکه اينطوري 2 تا مشکل هست: يکي اينکه هر عکسي رو داخل پوشه گذاشتن خيلي وقتگيره. دوم اينکه موقع باز کردم لينک پوشه باز ميشه ن عکس. ما ميخوايم عکس باز بشه.
ممنون ميشم راهنمايي کنيد

[iranweld]

با سلام

میتوانید از ماکرو استفاده کنید

در کنار سلول لینک نام عکس مورد نظر را قید کنید و مسیر جدید را فقط در سلول c2 وارد کنید با اجرای ماکرو لینک ها اصلاح میگردند.

فایل و تصویر پیوست را بررسی کنید. البته عکس های d1,d2,d3 ضمیمه سایت نشده اند خودتان با چند تا عکس تست کنید