دستم به دامنتون بچه ها به یه مشکل بزرگ با هایپر لینک برخوردم کمکم کنید

[bidariii]

سلام . من یه جدول دارم که برای ثبته . همه موضوعات ثبتیم هم به فایل های مختلف توی کمپیوتر لینک هست. حالا یه اتفاقی افتاده!! نمیدونم چی شده اما الان دیگه وقتی روی متنم کلیک میکنم دیگه فایلم باز نمیشه و پیغام میده. (جای فایلها یا در واقع آدرس ها رو به هیچ وجه تغییر ندادم) . وقتی چک کردم دیدم که به تموم هایپر لینک هام این آدرس => C:\Users\HAMPA\AppData\Roaming\Microsoft اضافه شده . یعنی مثلا آدرس درست فایل این بوده => اسکن نامه های ارسالی\غیره\خاص\کلیه پیمانکاران\0384 و الان شده این => C:\Users\HAMPA\AppData\Roaming\Microsoft\اسکن نامه های ارسالی\غیره\خاص\کلیه پیمانکاران\0384 .

خلاصه نمیدونم چیکار کنم که به حالت اول برگردن . تعداد فایل ها بالای 1000 تاس نمیتونم همرو بشینم دوباره لینک بدم. اصن چرا اینجوری شد. و خواهشن یه راه بگید که درست شن هایپر لینک ها

[Amir Ghasemiyan]

سلام دوست عزیز
شما میتونین با استفاده از یک کد vba خیلی راحت مشکلتون رو حل کنید
البته اگه فایلتون باشه بهتر میشه راهنمایی کرد اما این نمونه کد میتونه کمکتون کنه

Sub hashyperlink()
If Range("A1").Hyperlinks.Count > 0 Then
    q = Range("A1").Hyperlinks(1).Address
    qq = Replace(q, "C:\Users\HAMPA\AppData\Roaming\Microsoft\", "")
    Range("A1").Hyperlinks(1).Address = qq
End If
End Sub