راهنمایی در ساخت منو لیستی

[dark_boy99]

سلام دوستان
دوستان من میخوام لیستی رو درست کنم که وقتی تو لیست رو عدد a کلیک شه شیت a هم باز شه
لیست رو درست میکنم
اما نمیدونم چطور تعریف کنم شیت فراخوانی شه
لطفا راهننمایی کنید

[Ali Parsaei]

سلام،
چيزي که به ذهنم مي رسد استفاده از تابع HYPERLINK است، منتهي بايد از يک سل کمکي استفاده کنيد.
اول بايد آدرس فايلتان را دقيقا" پيدا کنيد (با پسوند) مثلا" همين فايل ضميمه را در نظر بگيريد، اگر مستقيما" روي درايو C باشد آدرسش مي شود: C:\LIST.xlsx حال فرضا" در خانه G9 فرمول زير را بنويسيد:

=HYPERLINK("[C:\LIST.xlsx]"&G8&"!A1";"انتقال به شيت")

حالا اگر روي خانه G9 کليک کنيد به صفحه اي منتقل خواهيد شد که در خانه G8 انتخاب کرده ايد.
طبعا" اگر آدرس فايل تغيير کند بايد فرمولتان را هم اصلاح کنيد.
توضيح: در جايي از فرمول نوشته شده A1 و اين اشاره دارد به اينکه وقتي به شيت مورد نظر انتقال پيدا کرديد سل A1 در حالت انتخاب باشد و شما مي توانيد برحسب نظر خود آن را تغيير دهيد، قسمت آخر فرمول هم تعيين مي کند که در همان خانه G9 که فرمول را نوشته ايد چه عبارتي درج شده باشد، شما مي توانيد هر چيز ديگري بنويسيد و يا آن را به متن سل ديگري ارجاع دهيد، فرضا" اگر به جاي عبارت "انتقال به شيت" بنويسد: G8 نتيجه اين خواهد بود که هر چي در خانه G8 نوشته (انتخاب) شود در خانه G9 هم همان درج خواهد شد.

[generalsamad]

سلام،
چيزي که به ذهنم مي رسد استفاده از تابع HYPERLINK است، منتهي بايد از يک سل کمکي استفاده کنيد.
اول بايد آدرس فايلتان را دقيقا" پيدا کنيد (با پسوند) مثلا" همين فايل ضميمه را در نظر بگيريد، اگر مستقيما" روي درايو C باشد آدرسش مي شود: C:\LIST.xlsx حال فرضا" در خانه G9 فرمول زير را بنويسيد:

=HYPERLINK("[C:\LIST.xlsx]"&G8&"!A1";"انتقال به شيت")

حالا اگر روي خانه G9 کليک کنيد به صفحه اي منتقل خواهيد شد که در خانه G8 انتخاب کرده ايد.
طبعا" اگر آدرس فايل تغيير کند بايد فرمولتان را هم اصلاح کنيد.
توضيح: در جايي از فرمول نوشته شده A1 و اين اشاره دارد به اينکه وقتي به شيت مورد نظر انتقال پيدا کرديد سل A1 در حالت انتخاب باشد و شما مي توانيد برحسب نظر خود آن را تغيير دهيد، قسمت آخر فرمول هم تعيين مي کند که در همان خانه G9 که فرمول را نوشته ايد چه عبارتي درج شده باشد، شما مي توانيد هر چيز ديگري بنويسيد و يا آن را به متن سل ديگري ارجاع دهيد، فرضا" اگر به جاي عبارت "انتقال به شيت" بنويسد: G8 نتيجه اين خواهد بود که هر چي در خانه G8 نوشته (انتخاب) شود در خانه G9 هم همان درج خواهد شد.

میشه روی این فایل عمل انتقال رو توضیح دهید؟
ممنون

[Alireza392]

سلام دوست عزیز من زیاد حرفه ای نیستم ولی فکر کنم با هایپر لینک که دوستمون گفت نشه.
احتمالاً باید ماکرو نوشته بشه براش. سعی میکنم بنویسم بذار برات

[dark_boy99]

تشکر از تمام دوستان
امتحان میکنم نتیجه رو اعلام میکنم

[abootorab]

میشه روی این فایل عمل انتقال رو توضیح دهید؟
ممنون

با درود
دوست عزیز اگر نمیخواین از سلول کمکی استفاده بشه باید از ماکرو در رویداد Worksheet_Change شیت مورد نظرتون (Sheet1) استفاده کنید.
روی شیت "Sheet1" راست کلیک و View Code رو کلیک کنید سپس در پنجره vb باز شده کد زیر رو کپی کنید.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        Sheets(Range("A2").Text).Activate
    End If
End Sub 

[dark_boy99]

دوستان با hyperlink نمیشه
چون باید تو سیستم های مختلفی اجرا بشه
بعد باید جوری باشه تولیست 70 عدد باشه برا هر عدد باید تعیین کنم بعد از انتخاب شدن بره توشیت همون عدد
فرمول و راهش رو بلد نیستم
راهنمایی کنید

[dark_boy99]

سلام به دوستان گلم
دوستان فهمیدم چیکارش کنم برای این کار از vb کمک گرفتم

[Ali Parsaei]

میشه روی این فایل عمل انتقال رو توضیح دهید؟
ممنون

البته همانطور که دوستان اشاره کرده اند راه حل درستش همان VBA است ولي براي فايل مورد اشاره شما بايد عرض کنم که:
فايلتان را روي درايو C کامپيوتر خود با همان نام Move TO Sheet و پسوند XLSX ذخيره کنيد سپس در خانه A3 فرمول زير را بنويسيد:

=HYPERLINK("[C:\Move TO Sheet.xlsx]"&A2&"!A1";"انتقال به شيت")

حال خواهيد ديد که هر شيتي که در خانه A2 انتخاب کنيد، با کليک روي خانه A3 به همان شيت منتقل خواهيد شد.