خوشحال میشم بازیم رو امتحان کنید
خوشحال میشم بازیم رو امتحان کنید
برای این تغییر کافیست مراحل زیر را مطابق فایل پیوست انجام دهید تا تمامی آدرس های موجود در فایل اکسل پیش روی شما به آدرس جدید مورد نظرتان تغییر یابد.
دریافت
حجم: 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
مفید بود