رفتن به شیت مورد نظر

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • ali719

    • 2013/12/05
    • 207

    رفتن به شیت مورد نظر

    سلام
    من فایل اکسل محتوی 300 شیت دارم ( نام های شیتها با شماره است ) می خوام در یک سلول بنویسم 150 و وقتی اینتر کردم شیت 150 باز شود
  • amir_ts

    • 2015/03/17
    • 1247

    #2
    با سلام
    کد زیر رو امتحان کنید.
    در سلول a1 نام شیت مربوطه رو بنویسد.

    کد:
    Sub activateSheet()
    Dim s As String
    s = CStr(Cells(1, 1))
        Sheets(s).Select
    End Sub
    [SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]

    کامنت

    چند لحظه..