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

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • khezri_sadegh

    • 2017/10/28
    • 5

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

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

    • 2013/11/18
    • 1522
    • 71.67

    #2
    سلام،

    منظورتان از اينکه (فرمولش رو داخل یک سلول اکسل نوشتم) را دقيقا" متوجه نشدم!
    در هر حال ....اگر سلول (فرضا" سلول A1) را به يک فايل لينک کرده ايد از فرمول زير براي کليد فشاري (CommandButton)استفاده کنيد:
    کد PHP:
    Range("A1").Hyperlinks(1).Follow NewWindow:=FalseAddHistory:=True 
    ولي اگر در سلول فقط آدرس لينک مورد نظر را درج کرده ايد (آدرس بايد کامل و دقيق باشد) از کد زير
    (فرضا" براي سلول A1) مي توانيد استفاده نماييد:
    کد PHP:
    ActiveSheet.Hyperlinks.Add Anchor:=Range("A2"), Address:=Range("A2").Value
    Range
    ("A2").Hyperlinks(1).Follow NewWindow:=FalseAddHistory:=True
    Range
    ("A2").Hyperlinks.Delete 
    [SIGPIC][/SIGPIC]

    کامنت

    چند لحظه..