با سلام
من یک فایل اکسل داشتم روی شبکه که به طور اتفاقی برق رفت و اتوسیو انجام شد و حالا لینک ها داره به یک آدرس روی کامپیوتر خودم ارجاع داده میشه که باید عوض بشه.
یعنی بخشی از هایپرلینک باید تغییر کنه
برای اینکار من این ماکرو رو در اینترنت پیدا کردم که درست کار میکنه:
مشکلی که الان دارم اینه که بخشی از لینک جدید فارسی هست و تو VBA با فارسی مشکلی داره. یه قسمت از لینک این بخش فارسی رو داره: "مدارک مالی"
2 تا سوال دارم:
1. آیا میشه در قسمتی که فرمول Replace رو نوشته ارجاع بدم به یه سلول مثلا بگم برو از سلول A1 بخون که چی باید عوض شه و اگر بله چطوری؟
2. آیا میشه فارسی رو جوری مثلا با CHRW نوشت و اگر بله چطوری.
با توجه به اینکه من در ماکرونویسی خیلی آماتور هستم اگر توضیح کامل بدین ممنون میشم.
من یک فایل اکسل داشتم روی شبکه که به طور اتفاقی برق رفت و اتوسیو انجام شد و حالا لینک ها داره به یک آدرس روی کامپیوتر خودم ارجاع داده میشه که باید عوض بشه.
یعنی بخشی از هایپرلینک باید تغییر کنه
برای اینکار من این ماکرو رو در اینترنت پیدا کردم که درست کار میکنه:
کد:
[COLOR=#101094][FONT=inherit]
[/FONT][/COLOR]
[COLOR=#101094][FONT=inherit]Sub[/FONT][/COLOR][COLOR=#303336][FONT=inherit] test[/FONT][/COLOR][COLOR=#303336][FONT=inherit]()[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#101094][FONT=inherit]Dim[/FONT][/COLOR][COLOR=#303336][FONT=inherit] hLink [/FONT][/COLOR][COLOR=#101094][FONT=inherit]As[/FONT][/COLOR][COLOR=#303336][FONT=inherit] Hyperlink
[/FONT][/COLOR][COLOR=#101094][FONT=inherit]Dim[/FONT][/COLOR][COLOR=#303336][FONT=inherit] wSheet [/FONT][/COLOR][COLOR=#101094][FONT=inherit]As[/FONT][/COLOR][COLOR=#303336][FONT=inherit] Worksheet
[/FONT][/COLOR][COLOR=#101094][FONT=inherit]For[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Each[/FONT][/COLOR][COLOR=#303336][FONT=inherit] wSheet [/FONT][/COLOR][COLOR=#101094][FONT=inherit]In[/FONT][/COLOR][COLOR=#303336][FONT=inherit] Worksheets
[/FONT][/COLOR][COLOR=#101094][FONT=inherit]For[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Each[/FONT][/COLOR][COLOR=#303336][FONT=inherit] hLink [/FONT][/COLOR][COLOR=#101094][FONT=inherit]In[/FONT][/COLOR][COLOR=#303336][FONT=inherit] wSheet[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Hyperlinks
hLink[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Address [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] Replace[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#303336][FONT=inherit]hLink[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Address[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"\\mysrv001\"[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"\\mysrv002\"[/FONT][/COLOR][COLOR=#303336][FONT=inherit])[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#101094][FONT=inherit]Next[/FONT][/COLOR][COLOR=#303336][FONT=inherit] hLink
[/FONT][/COLOR][COLOR=#101094][FONT=inherit]Next[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#101094][FONT=inherit]End[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Sub[/FONT][/COLOR]
2 تا سوال دارم:
1. آیا میشه در قسمتی که فرمول Replace رو نوشته ارجاع بدم به یه سلول مثلا بگم برو از سلول A1 بخون که چی باید عوض شه و اگر بله چطوری؟
2. آیا میشه فارسی رو جوری مثلا با CHRW نوشت و اگر بله چطوری.
با توجه به اینکه من در ماکرونویسی خیلی آماتور هستم اگر توضیح کامل بدین ممنون میشم.
کامنت