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

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • hooman_tt

    • March 2013
    • 31

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

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

    • March 2010
    • 2034

    #2
    سلام
    از این کد استفاده کنید
    بعد این کد رو به shape مورد نظر assign کنید
    کد:
    Sub shape()
    Dim m As String
    m = Sheets(1).Range("a1")
    Sheets(m).Select
    
    
    End Sub

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

    Comment

    • hooman_tt

      • March 2013
      • 31

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



      Comment

      • khakzad

        • March 2010
        • 2034

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

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

        Comment

        • hooman_tt

          • March 2013
          • 31

          #5
          با سلام مجدد
          تمام دستورات شما اجرا کردم . باز هم error میده فقط از حط زیر استباه میگیره !!!
          sheets(m).select





          Comment

          • 4017

            • October 2010
            • 114

            #6
            نوشته اصلی توسط hooman_tt
            با سلام مجدد
            تمام دستورات شما اجرا کردم . باز هم error میده فقط از حط زیر استباه میگیره !!!
            sheets(m).select





            كاملا درسته داداش. اونجا كه نوشته a1 بايد خروجي كمبوباكست باشه و همون اسم شيت ميشه
            فايل پيوستو ببين
            فایل های پیوست شده
            اگر تنهاترين تنهايان شوم بازهم خدا هست،
            او جانشين تمام نداشته هاي من است...!

            Comment

            • hooman_tt

              • March 2013
              • 31

              #7
              با کمال تشکر از شما سروران عزیز

              Comment

              Working...