رفتن به صفحه خاص

**hooman_tt** · 2014/08/09

اساتید گرامی
با سلام و احترام
قطعا سوالی که میپرسم برای شما بسیار ساده و پیش پا افتاده است .
مطالب را گشتم ولی متأسفانه جوابش رو پیدا نکردم برای همین مزاحم شدم .
من یه دستوری نیاز دارم که
نام برخی از صفحات فایل در یک کوبوباکس موجود است .
و آن کومبوباکس به خانه G1 مرتبط است .
میخواهم یک sHAPE به فایل اضافه کنم و به آن کدی مربوط کنم که هر موقع آن را اجرا کردم به صفحه مربوطه که نام آن صفحه در همان لحظه در کومبوباکس فعال است بروم .
با سپاس .

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

سیستم تبلیغات اکسل ایران

**khakzad** · 2014/08/09

سلام
از این کد استفاده کنید
بعد این کد رو به shape مورد نظر assign کنید

کد:

Sub shape()
Dim m As String
m = Sheets(1).Range("a1")
Sheets(m).Select


End Sub

حالا بجای a1 سل مورد نظر خودتون که مرجع کمبوباکس هست رو قرار بدید

**hooman_tt** · 2014/08/09

با عرض سلام و تشکر از زحمات شما
دستورات شما رو اجرا کردم ولی از خط sheets(m).select موقع اجرا خطا میگیرد .

متشکر میشوم راهنمایی بفرمائید .

**khakzad** · 2014/08/09

من سل مرجع رو A1 قرار دادم اونم از شیت 1
اینها رو چک کنید
شما گفته بودید g1
دقت کنید ببینید کدوم شیت هست.

کلا میاد اسم شیت که داخل g1 هست رو میریزه داخل متغیر و بع د هم انتخاب شیت