هايپر لينك اكسل

[rasools13]

سلام ببخشيد آقا رسول من نتونستم اين كد ماكرو رو در فايل خودم اجرا كنم فايل رو براتون ارسال ميكنم بي زحمت ميخوام در شيت هفتگي جاري روي هر برنامه كه كليك ميكنم معادل آن را در شيت تشريحي داشته باشم

سلام روی شیت "هفتگی" کلیک راست کرده و روی View code کلیک کنید و کد ذیل رو در کادر Vba باز شده کپی پیست کنید

Private Sub Worksheet_FollowHyperlink(ByVal Target1 As Hyperlink)
   Macro1
End Sub 

در ادامه در همان پنجره vba همانند تصویر ذیل بر روی VBA Project(FileName)i کلیک راست کرده و یک Module به پروژه اضافه کنید

.
و کد ذیل را در محیط Module کپی نمایید

Sub Macro1()
'
' Macro1 Macro
'

'
    Dim Target As Variant
    Dim i, Result As Integer
    Target = ActiveCell.Text
    Sheets(2).Select
    Set Cell = Cells.Find(What:=Target, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)

    If Not Cell Is Nothing Then
       Cell.Activate
    Else
       MsgBox "موردي پيدا نشد"
    End If
End Sub 

حال در شیت "هفتگی" هر کدام از برنامه ها را با استفاده از هایپرلینک به خود برنامه ها ارجاع دهید مثلا برنامه XX که در سلول C20 است رو به همان سلول C20 ارجاع دهید.
تمام

[roohalamin]

آقا رسول ديگه واقعه عالي عالي بود ممنون

[roohalamin]

خيلي لطف كردين آقا رسول

[rasools13]

خيلي لطف كردين آقا رسول

خواهش میکنم.. اگر جواب رو کامل گرفتین سوال رو هم ببندید تشکر

[roohalamin]

سلام آقا رسول ببخشيد امكان داره در همين فايل كه براتون فرستادم وقتي لينك ميديم فونت و قالب ها به هم نريزد؟

[rasools13]

سلام آقا رسول ببخشيد امكان داره در همين فايل كه براتون فرستادم وقتي لينك ميديم فونت و قالب ها به هم نريزد؟

بله میتونید همانند یه سلول عادی فونت و رنگش رو .... تغییر بدید
میتونید با استفاده از ابزار Format Painter فرمت دیگر سلول ها رو روی سلول های لینک دار اعمال کنید
یا اینکه با Ctrl + U خط زیر متن لینک دار را حذف سپس فونت و رنگ سلول رو هم تغییر بدید