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

[roohalamin]

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[rasools13]

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

همانند تصویر از قسمت Link To گزینه Exsiting File or Wepage...انتخاب و سپس فایلی را که میخواهی به آن ارجاع دهید را (فایل مقصد) را انتخاب و بعد از آن بر روی دکمه Bookmark... کلیک کنید در کادر باز شده

می توانیید نام شیت هایی که در فایل مقصد وجود دارد را ببینید، شیت مورد نظر خود را انتخاب و در کادر type in the celll referance سلولی که میخواهید به آن ارجاع داده شوید را بنویسید مثلا C10 و ok و ok نمایید
حالی اگز بر روی متن لینک دار شده کلیک کنید ممکن است با پیغام امنیتی ذیل مواجهه شوید

بر روی yes کلیک کنید تا به فایل و سلول مورد نظر ارجاع داده شوید
موفق باشید

[roohalamin]

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

همانند تصویر از قسمت Link To گزینه Exsiting File or Wepage...انتخاب و سپس فایلی را که میخواهی به آن ارجاع دهید را (فایل مقصد) را انتخاب و بعد از آن بر روی دکمه Bookmark... کلیک کنید در کادر باز شده

می توانیید نام شیت هایی که در فایل مقصد وجود دارد را ببینید، شیت مورد نظر خود را انتخاب و در کادر type in the celll referance سلولی که میخواهید به آن ارجاع داده شوید را بنویسید مثلا C10 و ok و ok نمایید
حالی اگز بر روی متن لینک دار شده کلیک کنید ممکن است با پیغام امنیتی ذیل مواجهه شوید

بر روی yes کلیک کنید تا به فایل و سلول مورد نظر ارجاع داده شوید
موفق باشید

ممنونم آقا رسول از راهنمايي شما اما منظورم را باز درست نگفتم انگار. ببينيد چون دو تا شيت من حاوي بسيار زيادي اسم است كه در صفحات مختلف اين شيت است بعد من ميخوام وقتي لينك ميدم بره و خودش كلمه يا كلمه هاي از فايل مبدا رو در فايل مقصد پيدا كنه و يعني احتمالا با ماكرويي چيزي بايد حل شود يعني من سلول خاصي منظورم نيست سلولي در فايل مقصد را خودش پيدا كند كه همان در فايل مبدا هست

[rasools13]

ممنونم آقا رسول از راهنمايي شما اما منظورم را باز درست نگفتم انگار. ببينيد چون دو تا شيت من حاوي بسيار زيادي اسم است كه در صفحات مختلف اين شيت است بعد من ميخوام وقتي لينك ميدم بره و خودش كلمه يا كلمه هاي از فايل مبدا رو در فايل مقصد پيدا كنه و يعني احتمالا با ماكرويي چيزي بايد حل شود يعني من سلول خاصي منظورم نيست سلولي در فايل مقصد را خودش پيدا كند كه همان در فايل مبدا هست

فکر کنم متوجه منظورتون شدم از ماکرو ذیل میتونید استفاده کنید

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets(1).Range("D4") = ""
    Dim Target As Variant
    Dim i, Result As Integer
    Target = Sheets(1).Range("D3")
    For i = 2 To Sheets.Count Step 1
            Sheets(i).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
               Result = Result + 1
               Exit For
            End If
    Next
    
    If Result = 0 Then
        Sheets(1).Select
        Sheets(1).Range("D4") = "موردی پیدا نشد"
    End If
End Sub 

یک نمونه هم در فایل پیوست هست

[roohalamin]

آقا رسول ازتون ممنونم بسيار عالي بود

[roohalamin]

فقط Sheets(1).Range("D4") = "ãæÑÏí íÏÇ äÔÏ" اين قسمت گويا نيست يعني بهم ريخته است

[rasools13]

فقط sheets(1).range("d4") = "ãæñïí íïç äôï" اين قسمت گويا نيست يعني بهم ريخته است

سلام خواهش می کنم
این "ãæñïí íïç äôï" در اصل "موردی پیدا نشد" است که فونتش رو یادم رفت عوض کنم.. موقعی که جست و جو نتیجه ای نداشته باشه این پغام رو در سلول d4 نشون میده

[roohalamin]

ممنونم آقا رسول خيلي ممنونم خدا به شما خير بدهد

[roohalamin]

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

[roohalamin]

ببخشيد اين هم نمونه فايل