[حل شده] Hyperlink

[ناصر خان خان]

سلام خدمت اساتید
لطفا فایل پیوست و مشاهده و در مورد ایجاد هایپر لینک در یک سلول و یا یک ردیف، کمک کنید.
یعنی اینکه میخوام در جایی که تعیین میکنم انجام بشه نه کل شیت.
مشاهد کنید متوجه میشوید.
با تشکر

[M_ExceL]

سلام خدمت اساتید
لطفا فایل پیوست و مشاهده و در مورد ایجاد هایپر لینک در یک سلول و یا یک ردیف، کمک کنید.
یعنی اینکه میخوام در جایی که تعیین میکنم انجام بشه نه کل شیت.
مشاهد کنید متوجه میشوید.
با تشکر

سلام،
اگر منظورتون این هست که کدها با انتخاب محدوده مشخصی اجرا شوند، کدهاتون رو بین کد زیر قرار بدید :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a1:a4")) Is Nothing Then
کد های شما در این قسمت نوشته شود
End If
End Sub

در مثال فوق، در صورتی کدها اجرا می شوند که یکی از سلول های رنج a1:a4 انتخاب شود
یا حق.

[ناصر خان خان]

سلام،
اگر منظورتون این هست که کدها با انتخاب محدوده مشخصی اجرا شوند، کدهاتون رو بین کد زیر قرار بدید :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a1:a4")) Is Nothing Then
کد های شما در این قسمت نوشته شود
End If
End Sub

در مثال فوق، در صورتی کدها اجرا می شوند که یکی از سلول های رنج a1:a4 انتخاب شود
یا حق.

سلام
آره منظور اینه که کد داره هرچی لینک به صورت تکست مینویسی و اجرا میکنه در تمام اون شیت هر جا که نوشته باشه.
حالا میخوام فقط در ردیف A اجرا بشه یا حتی فقط در A1. مثلا در A1 نوشتم D:\pic\123.jpg و این اجرا میشه و دیگه هرجا که نوشته بود کار نکنه.
من الان متوجه نشدم که شما چی گفتید. لطفا این چیزی که گفتم رو یه زحمت بکشید.

متشکرم

[M_ExceL]

سلام
آره منظور اینه که کد داره هرچی لینک به صورت تکست مینویسی و اجرا میکنه در تمام اون شیت هر جا که نوشته باشه.
حالا میخوام فقط در ردیف A اجرا بشه یا حتی فقط در A1. مثلا در A1 نوشتم D:\pic\123.jpg و این اجرا میشه و دیگه هرجا که نوشته بود کار نکنه.
من الان متوجه نشدم که شما چی گفتید. لطفا این چیزی که گفتم رو یه زحمت بکشید.

متشکرم

سلام،
بله، بنده هم همین رو عرض کردم
یکی از کد های زیر رو استفاده کنید :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
If IsEmpty(Target.Value) = False Then
ThisWorkbook.FollowHyperlink Target.Value
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("a1").Address Then
If IsEmpty(Target.Value) = False Then
ThisWorkbook.FollowHyperlink Target.Value
End If
End If
End Sub

[ناصر خان خان]

سلام و خسته نباشید
خودش بود ممنونم مثل همیشه عالی.