نرم افزار و نکات کاربردی



با سلام 

برای حل مشکل اینکه تمام آدرس های هایپرلینک ها ( Hyperlink ) تغییر می کنه کافیه یک ماکرو جدید باز کنید ( برای این کار کافیه کلید های Alt + F11 رو همزمان با هم فشار بدید) و کد زیر رو در اون قرار بدید و بعد دکمه اجرا رو بزنید یا همون کلید F5



دریافت
حجم: 177 کیلوبایت


برای این تغییر کافیست مراحل زیر را مطابق فایل پیوست انجام دهید تا تمامی آدرس های موجود در فایل اکسل پیش روی شما به آدرس جدید مورد نظرتان تغییر یابد.


دریافت
حجم: 224 کیلوبایت


متن کد موجود در فایل :


Dim wks As Worksheet

    Dim hl As Hyperlink

    Dim sOld As String

    Dim sNew As String


    Set wks = ActiveSheet

    

    sNew = "S:\Network\"

    For Each hl In wks.Hyperlinks

        sOld = hl.Address

        hl.Address = Replace(hl.Address, sOld, sNew)

    Next hl


آخرین ارسال ها

آخرین جستجو ها

noorgram ایرنسل من mywizard725 6in6 خرید و فروش فلزیاب شرکت زرشناسان seoonpage تنهایی دل آرمان دموکراسی سلامت آموزش زبان ترکی آذربایجانی