मुख्य सामग्री पर जाएं

एक्सेल में उस अक्षर से शुरू होने वाले सेल पर जाने के लिए वर्णमाला के अक्षर पर कैसे क्लिक करें?

लेखक: सिलुविया अंतिम संशोधित: 2017-11-02

बड़ी मात्रा में डेटा के साथ एक्सेल वर्कशीट का उपयोग करते समय, क्या आप जानते हैं कि उन विशिष्ट कोशिकाओं पर कैसे नेविगेट करें या तुरंत ढूंढें जिनमें निर्दिष्ट सामग्री शामिल है? इस आलेख में विधि के साथ, आप उस सेल पर नेविगेट करने के लिए वर्णमाला अक्षर सेल पर क्लिक कर सकते हैं जिसकी सामग्री स्वचालित रूप से उस वर्णमाला अक्षर से शुरू होती है।

उस सेल पर जाने के लिए वर्णमाला के अक्षर पर क्लिक करें जो VBA कोड वाले उस अक्षर से शुरू होता है

उस सेल पर जाने के लिए वर्णमाला के अक्षर पर क्लिक करें जो VBA कोड वाले उस अक्षर से शुरू होता है

एक्सेल में किसी अल्फाबेट सेल पर क्लिक करके सेल पर जाने के लिए कृपया निम्नानुसार कार्य करें।

1. वर्कशीट में, आपको वर्णमाला सेल पर क्लिक करके सेल पर जाना होगा, शीट टैब पर राइट क्लिक करें और फिर क्लिक करें कोड देखें राइट-क्लिक मेनू से. स्क्रीनशॉट देखें:

2. फिर ए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो पॉप अप हो जाती है, कृपया नीचे दिए गए वीबीए कोड को कोड विंडो में कॉपी और पेस्ट करें।

वीबीए कोड: उस सेल पर जाने के लिए वर्णमाला अक्षर पर क्लिक करें जो उस अक्षर से शुरू होता है

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgRtn As Range
    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Target, Range("1:1")) Is Nothing Then
        Set xRg = ActiveSheet.UsedRange
        Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
        For Each xCell In xRg
            If Left(xCell.Value, 1) = Target.Value Then
                If xRgRtn Is Nothing Then
                    Set xRgRtn = xCell
                Else
                    Set xRgRtn = Application.Union(xRgRtn, xCell)
                End If
            End If
        Next
        If xRgRtn.Address = Target.Address Then
            MsgBox "No matched cell found", , "KuTools For Excel"
        Else
            xRgRtn.Select
        End If
    End If
    Application.EnableEvents = True
End Sub

नोट: कोड में, 1:1 का अर्थ है कि वर्णमाला के अक्षर वर्कशीट की पहली पंक्ति पर स्थित हैं।

3। दबाएं ऑल्ट + Q को बंद करने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

अब से, जब किसी वर्णमाला सेल पर क्लिक किया जाता है, तो उस अक्षर से शुरू होने वाले सभी सेल स्वचालित रूप से वर्कशीट में एक ही बार में चयनित हो जाते हैं।

यदि कोई भी सेल चयनित अक्षर से प्रारंभ नहीं होता है, तो आपको नीचे स्क्रीनशॉट में दिखाए गए अनुसार एक्सेल के लिए कुटूल डायलॉग बॉक्स मिलेगा।

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (2)
No ratings yet. Be the first to rate!
Pip
Pip
This comment was minimized by the moderator on the site
That's a really good implementation of "find the word that starts with the letter . . ."
I don't want the cells selected though as that can lead to data changes or worse, deletions.
I know that because I just did it. ;-(
I will figure out how to jump to the first cell and not select all (or any) of them.
Meantime, I thank you for your assistance. I appreciate this.
pip
Reply
0
0
crystal
crystal     Pip
This comment was minimized by the moderator on the site
Hi,
Sorry for the inconvenience, the following VBA code can help to jump to the first cell in current sheet when clicking on a cell that contains a specific letter.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20220520
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgRtn As Range
    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Target, Range("1:1")) Is Nothing Then
        Set xRg = ActiveSheet.UsedRange
        Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
        For Each xCell In xRg
            If Left(xCell.Value, 1) = Target.Value Then
                If xRgRtn Is Nothing Then
                    Set xRgRtn = xCell
                    Exit For
                End If
            End If
        Next
        If xRgRtn.Address = Target.Address Then
            MsgBox "No matched cell found", , "KuTools For Excel"
        Else
            xRgRtn.Select
        End If
    End If
    Application.EnableEvents = True
End Sub
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations