برخی اوقات تعداد صفحات یک فایل اکسل ما زیاد هستند و می خواهیم به سریع ترین روش خودمان یا کاربر به صفحه دلخواه برود. برای این منظور دو روش وجود دارد.
راه اول: استفاده از دکمه F5، که دیالوگ باکسی را باز می کند و می توانید صفحه مورد نظر را انتخاب کنید.
راه دوم: با استفاده از VBA در اکسل. که در بسیاری از برنامه ها می تواند کاربرد داشته باشد.
Sub GotoSheet()
Dim sSheet As String
sSheet = InputBox( _
Prompt:="Sheet name or number?", _
Title:="Input Sheet")
On Error Resume Next
If Val(sSheet) > 0 Then
Worksheets(Val(sSheet)).Activate
Else
Worksheets(sSheet).Activate
End If
End Sub
حال می توانید دکمه ای را به این ماژول اختصاص دهید و به صورت مستقیم داده را از کاربر بگیرید و یا در برنامه دیگری از آن استفاده نمایید.
ضمنا لینک گروه تلگرامتون رو هم زحمت بکشین بفرستین
با تشکر