با سلام و عرض خسته نباشید
میتونید کد هایپرلینک رو برام توضیح بدین
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
میتونید کد هایپرلینک رو برام توضیح بدین
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
کامنت