پرسش Vba و اجرای هایپرلینک یک سل اکسل

[khezri_sadegh]

با سلام و احترام..
بنده میخوام یک هایپر لینک رو که فرمولش رو داخل یک سلول اکسل نوشتم و این هایپرلینک یک قایل pdf رو داخل محیط ویندوز باز میکنه رو توسط یک کد در vba باز کنم.. یعنی با فشردن یک کلید فشاری هایپرلینک داخل اون سل اجرا شه و فایل باز شه.. واقعا ممنون میشم کسی کمکم کنه..

[Ali Parsaei]

سلام،

منظورتان از اينکه (فرمولش رو داخل یک سلول اکسل نوشتم) را دقيقا" متوجه نشدم!

در هر حال ....اگر سلول (فرضا" سلول A1) را به يک فايل لينک کرده ايد از فرمول زير براي کليد فشاري (CommandButton)استفاده کنيد:

Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 

ولي اگر در سلول فقط آدرس لينک مورد نظر را درج کرده ايد (آدرس بايد کامل و دقيق باشد) از کد زير (فرضا" براي سلول A1) مي توانيد استفاده نماييد:

ActiveSheet.Hyperlinks.Add Anchor:=Range("A2"), Address:=Range("A2").Value
Range("A2").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("A2").Hyperlinks.Delete