एक्सेल में शीट के बीच स्विच करने के लिए कीबोर्ड शॉर्टकट

Question

क्या Excel 2007 में एक कीबोर्ड शॉर्टकट है जो कार्यपत्रकों के बीच स्विच करता है?

Answer 1

Ctrl + PgUp बाईं ओर जाने के लिए।

Ctrl + PgDn दाईं ओर जाना।

Comments

यह एक्सेल 2013 = पर भी लागू होता है)

— Metafaniel

और एक मैकबुक w / ओ pgup और pgdown पर?

— theonlygusti

काश उनके पास एक बेहतर शॉर्टकट होता, जैसा कि Page Up तथा Page Down हमेशा अलग-अलग लैपटॉप में ढूंढना मुश्किल होता है और बहुत आसानी से कीबोर्ड पर नहीं रखा जाता है।

— Cricrazy

Answer 2

VBA मैक्रोज़ और कस्टम कीबोर्ड शॉर्टकट पहली या अंतिम शीट को सक्रिय करने के लिए

यदि आप पहले या अंतिम वर्कशीट पर जाने के लिए एक वास्तविक कीबोर्ड शॉर्टकट चाहते हैं, तो इस कोड को "PERSONAL" वर्कबुक में एक मॉड्यूल में डालें:

Sub ToFirstSheet()
    Sheets(1).Activate
End Sub

Sub ToLastSheet()
    Sheets(Sheets.Count).Activate
End Sub

डेवलपर टैब पर जाएं & gt; मैक्रो। इन मैक्रोज़ (ToFirstSheet और ToLastSheet) पर ब्राउज़ करें। एक का चयन करें, विकल्प पर क्लिक करें और एक कीबोर्ड शॉर्टकट असाइन करें। दूसरे के लिए भी यही करें।

इसे "व्यक्तिगत" कार्यपुस्तिका में सहेजने से यह किसी भी एक्सेल फ़ाइल में उपलब्ध होगा।

पिछली या अगली शीट को सक्रिय करने के लिए कीबोर्ड शॉर्टकट में निर्मित

एक कार्यपत्रक को बाईं या दाईं ओर कूदने के लिए आप इन डिफ़ॉल्ट कीबोर्ड शॉर्टकट का उपयोग कर सकते हैं:

Ctrl + PgUp

Ctrl + PgDn

VBA मैक्रोज़ को पिछली या अगली शीट को सक्रिय करने के लिए

यहाँ VBA का उपयोग करके इसे पूरा करने का तरीका बताया गया है:

Sub ToPreviousSheet()
    If ActiveSheet.Index = 1 Then
        ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count).Activate
    Else
        ActiveWorkbook.Worksheets(ActiveSheet.Index - 1).Activate
    End If
End Sub

Sub ToNextSheet()
    If ActiveSheet.Index = ActiveWorkbook.Worksheets.Count Then
        ActiveWorkbook.Worksheets(1).Activate
    Else
        ActiveWorkbook.Worksheets(ActiveSheet.Index + 1).Activate
    End If
End Sub

VBA के कार्य पिछले या अगली शीट पर लौटने के लिए

यदि आप पिछली या अगली वर्कशीट ऑब्जेक्ट प्राप्त करेंगे तो इस फ़ंक्शन का उपयोग करें:

Function GetPreviousSheet(ByVal targetSheet As Worksheet) As Worksheet
    Dim targetBook As Workbook
    Set targetBook = targetSheet.Parent

    If targetSheet.Index = 1 Then
        Set GetPreviousSheet = targetBook.Worksheets(targetBook.Worksheets.Count)
    Else
        Set GetPreviousSheet = targetBook.Worksheets(targetSheet.Index - 1)
    End If
End Function

Function GetNextSheet(ByVal targetSheet As Worksheet) As Worksheet
    Dim targetBook As Workbook
    Set targetBook = targetSheet.Parent

    If targetSheet.Index = targetBook.Worksheets.Count Then
        Set GetNextSheet = targetBook.Worksheets(1)
    Else
        Set GetNextSheet = targetBook.Worksheets(targetSheet.Index + 1)
    End If
End Function

इस तरह के कार्यों का उपयोग करें:

Sub EXAMPLE()
    MsgBox "Previous Sheet:  " & GetPreviousSheet(ActiveSheet).Name
    MsgBox "Next Sheet:  " & GetNextSheet(ActiveSheet).Name
    GetNextSheet(ActiveSheet).Activate
End Sub

Comments

मुझे अगली और पिछली शीट कैसे मिल सकती है? मैं एक बनाना चाहता हूँ Sub ToPreviousSheet तथा ToNextSheet?

— theonlygusti

इसके लिए शीट इंडेक्स का इस्तेमाल करें। इसे शामिल करने के लिए मैं अपने उत्तर को अपडेट करूंगा।

— ChrisB

Answer 3

तुम भी त्वरक कुंजियों का उपयोग करने के लिए प्राप्त कर सकते हैं Go संवाद बॉक्स। आप तब कुछ टाइप कर सकते हैं foo!A1 "फू" नाम की शीट में शीर्ष बाएं सेल में नेविगेट करने के लिए। जबकि पेज अप और पेज डाउन आमतौर पर जल्दी होते हैं। यदि आपके पास अच्छी तरह से नामित चादरों की एक बड़ी संख्या (जैसे, 20+) है, तो यह जल्दी हो सकता है। यदि आप अपनी शीट में तालिकाओं का नाम रखते हैं, तो भी अच्छी तरह से काम करता है।

सामान्य रूप से F5 दबाने पर खुलता है Go संवाद बॉक्स।