هایپر لینک سلول به شیت

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • Z.Ruzbeh

    • 2019/01/18
    • 16

    پرسش هایپر لینک سلول به شیت

    با سلام و عرض خسته نباشید
    میتونید کد هایپرلینک رو برام توضیح بدین
    activesheet.hyperlink.add anchor:=selection, address:="",subaddress:="" کلا باید به چه ترتیبی نوشت؟
    فرض کنید anchor رو من یک متغیر از نوع رنج تعریف کرده باشم به نام orng و بخوام این رنج رو هایپرلینک کنم به یک شیت که توسط کد نوشتن ایجاد کردم که اسم این شیت رو با یک متغیر استریگ به نام name ایجاد کردم
    anchor:=orang
    subaddress:="'name'!A1"

    کد زیر به راحتی سلول انتخاب شده رو به شیت 58 هایپرلینک میکند اما وقتی بخوام مقدار انکر را یک رنج با تعریف متغر رنج بدم و شیت مورد نظر رو با یک متغیر استرینگ بنویسم چطور باید اصلاح کنم ؟
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    "'58'!A1"


    کد کلی من :

    Dim orng As Range
    name = ActiveCell.Value
    Set orng = ActiveCell
    For rep = 1 To (Worksheets.Count)
    If LCase(Sheets(rep).name) = LCase(name) Then
    MsgBox "this sheet already exist"
    Exit Sub
    End If
    Next
    ThisWorkbook.Sheets("raw").Copy after:=ThisWorkbook.Sheets(Sheets.Count)
    ActiveSheet.name = name
    Sheets("permit").Activate
    ActiveSheet.Hyperlinks.Add Anchor:=orng, Address:="", SubAddress:= _
    "'name'!A1"
    End Sub
    *هایپرلینک درست ایجاد نمیشود و ارور زیر را میدهد
    reffrence is not valid








    Last edited by Z.Ruzbeh; 2019/02/11, 19:53.
  • hadi1980

    • 2019/01/07
    • 237
    • 86.00

    #2
    سلام
    بنظرم نبايد مشکلي باشه
    ميشه فايل بزاريد تا بشه بررسي کرد و ديباگش کرد

    کامنت

    • Z.Ruzbeh

      • 2019/01/18
      • 16

      #3
      خط هایپر لینک رو به اینصورت اصلاح کردم، درست شد
      ActiveSheet.Hyperlinks.Add Anchor:=orng, Address:="", SubAddress:="'" & name & "'" & "!A1"
      کسی میتونه توضیح بدهد ؟؟؟؟
      Last edited by Z.Ruzbeh; 2019/02/15, 14:01.

      کامنت

      چند لحظه..