डिफ़ॉल्ट रूप से संपूर्ण कार्यपुस्तिका के भीतर खोजने के लिए Excel सेट करें

Question

Microsoft Excel में, जब मैं CTRL+ का उपयोग करके खोज करता हूं, तो Fडिफ़ॉल्ट रूप से यह केवल वर्तमान वर्कशीट के भीतर खोज करता है।

मैं इसे डिफ़ॉल्ट रूप से संपूर्ण कार्यपुस्तिका में खोजने के लिए कैसे सेट कर सकता हूं? मेरे पास है Office 2010। क्या यह भी संभव है? क्या किसी विशिष्ट कार्यपुस्तिका या कार्यपत्रक के लिए इसे सेट करना संभव है? अगर यह क्या होता है, तो मैं एक रजिस्ट्री संपादन के साथ ठीक हूं।

नोट: लगभग 10 साल बाद, मैं अब भी ऐसा करना चाहूंगा, लेकिन अब एक्सेल 2016/2019 के लिए।

Answer 1

आप इस तरह की वर्कबुक_ऑपेन मैक्रो को इटवर्क्सबुक मॉड्यूल में कर सकते हैं, जैसे:

Private Sub Workbook_Open()

Application.CommandBars.FindControl(ID:=1849).Execute
SendKeys "%(t)%(h)W~{ESC}"

End Sub

यह आपके द्वारा उस कार्यपुस्तिका के सत्र के लिए सेट किया जाएगा जिसमें आप हैं।

ऐसा करने के लिए आपको हमेशा व्यक्तिगत मैक्रो वर्कबुक बनाने की आवश्यकता होती है ।

Comments

मैं इसके लिए मैक्रो का उपयोग नहीं करूंगा।

— जोएल कोएहॉर्न

@Joel, सेटिंग्स को शायद एक्सेल के लिए .pip फ़ाइल में संग्रहीत किया जाएगा, जो कि ढूंढना आसान है, लेकिन बाइनरी में है, और मैं इसके लिए एक विशिष्ट संपादक खोजने में असमर्थ हूं (जो कि एक बेहतरीन परियोजना होगी)। आप शायद एक मानक हेक्स संपादक प्राप्त कर सकते हैं और इसे काम कर सकते हैं, लेकिन यह एक परियोजना होगी।

— लांस रॉबर्ट्स

Answer 2

मैंने एक संशोधन शामिल किया है तो यह काम करेगा यदि आपका एक्सेल स्पेनिश में है (मेरी तरह)

Private Sub Workbook_Open()

Dim lCountryCode As Long
lCountryCode = Application.International(xlCountryCode)

Application.CommandBars.FindControl(ID:=1849).Execute

Select Case lCountryCode
Case 34 'spanish
    SendKeys "%(p)%(D)L~{ESC}"
Case Else 'default english
    SendKeys "%(t)%(h)W~{ESC}"
End Select


End Sub

Answer 3

1. होम रिबन में फाइंड / सिलेक्ट आइकन चुनें

2. ढूँढें पर क्लिक करें

3. नीचे दाईं ओर "विकल्प" बॉक्स पर क्लिक करें

4. बाईं ओर यह एक ड्रॉपडाउन है जो पढ़ता है, "भीतर"

5. "शीट" या "वर्कबुक" चुनें

यह साइट बताती है कि डिफ़ॉल्ट को कैसे बदलना है

Comments

यह दो कारणों से काम नहीं करता है। सबसे पहले, यह विकल्प प्रत्येक दस्तावेज़ के साथ सहेजा नहीं गया है। एक स्प्रेडशीट खोलें, परिवर्तन करें, स्प्रेडशीट को सहेजें, एक्सेल को बंद करें, स्प्रेडशीट को फिर से खोलें, और यह उसी तरह से वापस आ गया है जैसा वह था। दूसरे, भले ही यह दस्तावेज़ के साथ सहेजा गया हो, मुझे बहुत सारे दस्तावेज़ खोलने होंगे जो मेरी मशीन पर नहीं बने थे, और इसलिए मूल मशीन से (गलत) सेटिंग होगी जहाँ वे बनाए गए थे।

— जोएल कोएहॉर्न

Answer 4

Sendkeys आदेशों के रूप में अन्य उत्तरों द्वारा सुझाव प्रोत्साहित नहीं किया जाता है। पिछले Sendkeys कमांड में बहुत ही अप्रत्याशित कार्रवाइयां हुईं, जहां आपको पुनर्प्राप्त करने के लिए कंप्यूटर को रिबूट करना पड़ सकता है। मैं दिनचर्या को स्थानीय बनाने की सिफारिश करूंगा और इसे ऑन-डिमांड ही निष्पादित करूंगा। सुविधा के लिए आप इसे "q" की तरह एक cntl कुंजी भी असाइन कर सकते हैं। सत्र के शेष के लिए कार्यपुस्तिका विकल्प को याद किया जाएगा।

Sub myFind()
  Application.CommandBars.FindControl(ID:=1849).Execute
  SendKeys "%(t)%(h)W~+{Tab}+{Tab}"
End Sub

Answer 5

मेरा मुद्दा भी ऐसा ही था। मेरे पास एक कार्यपुस्तिका में बटन है। यदि बटन पर क्लिक किया जाता है तो मैं चाहता हूं कि "सभी शीट के भीतर पहले से चयनित" के बजाय "शीट के भीतर" चुने गए विकल्प के साथ खोज संवाद को खोलने के लिए एक्सेल, चाहे जो भी हो।

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

यह सुनिश्चित करने के लिए कि कीस्ट्रोक काम करते हैं हमें कीस्ट्रोक्स की एक श्रृंखला की आवश्यकता होती है जो प्रारंभिक अवस्था की परवाह किए बिना सेटिंग सेट करती है। काफी छेड़छाड़ का सामना किया, लेकिन मुझे एक काम मिला।

यहां एक्सेल के अंग्रेजी संस्करण के लिए मेरा कोड है, अन्य भाषाओं के लिए आपको तदनुसार चाबियाँ बदलनी होंगी।

 Sub Commanbutton_Click()

      Cells(1, 1).Select

       SendKeys "^f", True
       SendKeys "{TAB 15}"
       SendKeys " ", True
       SendKeys "%t%t", True
       SendKeys "{TAB 2}", True
       SendKeys "{DOWN}{DOWN}{ENTER}", True
       SendKeys "%t%t", True

  End Sub

आप इसे मैन्युअल रूप से आज़मा सकते हैं:

खोज संवाद के लिए CTRL + F दबाएँ 15 बार TAB दबाएँ ताकि आप या तो "विकल्प" पर या "ड्रॉपडाउन के भीतर खोजें" पर उतरें।

प्रेस स्पेस और भी

1) विकल्प प्रदर्शित होते हैं या 2) ड्रॉपडाउन सक्रिय हो जाता है और कुछ भी नहीं होता है

कर्सर को खोज इनपुट बॉक्स पर रीसेट करने के लिए Alt + T को दो बार दबाएँ

TAB को दो बार दबाएं, यह आपको ड्रॉपडाउन के भीतर खोज में ले जाएगा, चाहे कोई भी हो (क्योंकि पिछले चरण यह सुनिश्चित करते हैं कि वास्तव में विकल्प प्रदर्शित हों!)

"कार्यपुस्तिका" का चयन करने के लिए दो बार तीर दबाएं और चयन करने के लिए दर्ज करें

कर्सर को पुनः इनपुट बॉक्स में रीसेट करने के लिए दो बार ALT + T दबाएँ।

आशा है कि यह किसी और की मदद करता है जिसे इसी तरह की समस्या है। Googling के बहुत सारे लोगों ने मुझे बताया कि VBA के साथ "सभी कार्यपुस्तिकाओं के भीतर खोज" को छांटना संभव नहीं है लेकिन यह काम करता है!

इसे विभिन्न भाषाओं के साथ काम करने के लिए आपको भाषा की जांच करनी होगी और उचित शॉर्टकट के साथ उचित दिनचर्या पर स्विच करने के लिए CASE का उपयोग करना होगा।