जब Microsoft Word / Excel में फ़ोकस बदलता है, तो चयनित टेक्स्ट को हाइलाइट कैसे रखा जाए

Question

इस प्रश्न से संबंधित: जब मेरा मामला Microsoft Word से संबंधित हो , तो फ़ोकस में नहीं होने पर Excel में सेल चयन दिखाएं ।

जब मैं Microsoft Word या Excel (2003, 2007, 2010 या 2013) में पाठ या एक कॉलम / पंक्ति का चयन करता हूं, तो यह इस तरह दिखाया जाता है जैसे शब्द:

और चैनल:

हालाँकि, जब मैं फ़ोकस को किसी अन्य प्रोग्राम में बदलता हूं, तो हाइलाइट किया गया टेक्स्ट अब हाइलाइट नहीं किया जाता है।

मैं आम तौर पर 2 मॉनिटर के साथ काम करता हूं, जहां एक मॉनिटर में एक दस्तावेज़ / स्प्रेडशीट होती है जिसमें डेटा मुझे पढ़ने की आवश्यकता होती है, और दूसरा मॉनिटर वह जगह है जहां मैं वास्तव में काम कर रहा हूं। मैं कुछ पाठों (या कक्षों) का चयन करूँगा, ताकि यह डेटा के कई पृष्ठों के बीच में खड़ा हो, और फिर कार्यक्रमों को स्विच कर सके, लेकिन हाइलाइट किया गया पाठ अब दिखाई नहीं देता है।

क्या इस समस्या का कोई स्थायी समाधान है?

Comments

यह एक शालीनता से पर्याप्त लोकप्रिय प्रश्न की तरह लगता है और 'एक अलग ऐप का उपयोग करने' की तुलना में बेहतर उत्तर का हकदार है। VBA समाधान का एक बहुत, हालांकि थोड़ा और अधिक जटिल सुंदर सहायक लग रहे हैं। मुझे लगता है कि @glenneroo को सबसे अच्छा जवाब बदलने पर विचार करना चाहिए।

— CGTheLegend

@CGTheLegend: वैकल्पिक समाधानों ने लागत के पैसे की पेशकश की या अस्थायी मैक्रो हैं जो AFAIK कई फ़ाइलों में काम नहीं करते हैं।

— ग्लेननरू

Answer 1

अपनी समस्या के आधे हिस्से को ठीक करने का एक त्वरित तरीका (जब एक्सेल से वर्ड में स्विच किया जाता है) पाठ की प्रतिलिपि बनाना है। जब आप Ctrl + c को मारते हैं तो कोशिकाएँ चिन्हित होती रहेंगी (हाईलिगिंग चली गई है, लेकिन आपके पास पाठ के चारों ओर अभी भी एक बिंदीदार रेखा है)।

इसका एक नकारात्मक पहलू यह है कि पाठ केवल तब तक चिह्नित किया जाता है, जब तक आप कॉपी की गई कोशिकाओं को पकड़ते हैं। मतलब आप कुछ और कॉपी नहीं कर सकते या मार्किंग खत्म हो गई है। दुर्भाग्य से यह वर्ड से एक्सेल में काम नहीं करेगा।

Answer 2

यह एक विशेष Microsoft "सुविधा" प्रतीत होता है। अधिकांश परियोजनाओं के लिए मुझे केवल पढ़ने की आवश्यकता है, केवल पहुंच और स्वरूपण मेरे मामले में मायने नहीं रखता है, इसलिए मैंने ओपनऑफ़िस पर स्विच किया है जो इस व्यवहार को प्रदर्शित नहीं करता है।

Comments

मुझे नहीं लगता कि यह उत्तर सबसे अच्छा समाधान है। बस एक अलग एप्लिकेशन का उपयोग करना सभी के लिए सबसे अच्छा समाधान नहीं है।

— CGTheLegend

मैं इस समाधान को पसंद करता हूं क्योंकि एमएस ने इस बग को 100 साल से नहीं हटाया था

— हार्टमुट पी।

Answer 3

इस समस्या का कोई स्थायी समाधान नहीं है।

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

इस कोड को शीट 1 कोड में पीछे रखें और आप स्प्रैडशीट पर जाएं और कुछ सेल चुनें, अन्य का चयन करें फिर रंग छोड़ने के लिए पहले वाले को फिर से चुनें।

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range

    For Each cell In Target.Cells
        If cell.Interior.Color = RGB(60, 150, 230) Then
            cell.Interior.Pattern = xlNone
        Else
            cell.Interior.Color = RGB(60, 150, 230)
        End If
    Next
End Sub

Comments

@DaveRook का चयन या तो SelectionChange या सक्रिय घटना पर पृष्ठभूमि रंग बदलने का विचार एक्सेल और वर्ड दोनों के लिए काम करना चाहिए।

Answer 4

यह VBa करेगा, लेकिन यह मानता है कि आप हाइलाइटिंग का उपयोग नहीं कर रहे हैं। यदि आप हैं, तो आपका हाइलाइटिंग गड़बड़ हो जाएगा इसलिए इसका उपयोग न करें।

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveCell.Worksheet.Cells.Interior.ColorIndex = xlNone
    ActiveCell.EntireRow.Interior.ColorIndex = 19
End Sub

मैं MS Office में VBA कैसे जोड़ूँ?

---

चारों ओर एक बड़े पैमाने पर काम के रूप में (यदि हाइलाइटिंग आपके लिए काम नहीं करती है), तो आप JRuler जैसी किसी चीज़ का उपयोग कर सकते हैं (मुझे बाहर सुनें :) !! ) क्योंकि यह आपको इसके ऊपर की पंक्ति में शासक को स्क्रीन पर छोड़ने की अनुमति देगा, इसलिए जब आपकी आंखें उस स्क्रीन पर लौटती हैं, तो आप देख सकते हैं कि आप कहां थे (इसलिए आप देख सकते हैं, मैंने अपना हाइलाइटिंग खो दिया है लेकिन कम से कम मैं देख सकता हूं पंक्ति 3 को देख रहा था)!

मुझे गलत मत समझो, यह श्रमसाध्य और एक दर्द है यदि आप इसे बहुत कुछ कर रहे हैं, लेकिन, यह किसी भी कार्यक्रम (वर्ड और एक्सेल) के लिए पर्याप्त हो सकता है।

Answer 5

इस समस्या के दस साल बाद मुझे पागल होने के साथ ही आखिरकार मुझे एक समाधान मिल गया है जो मेरे लिए काम करता है। दुर्भाग्य से यह मुफ़्त नहीं है ... वास्तविक विंडो प्रबंधकइसमें एक विशेषता है जिसे "इग्नोर डिएक्टिवेशन" कहा जाता है जिसे विशिष्ट एप्लिकेशन के लिए सक्षम किया जा सकता है। यह खिड़की को लगता है कि यह अभी भी ध्यान केंद्रित है जब यह नहीं करता है। मैंने इसे सभी कार्यालय एप्लिकेशन के लिए चालू कर दिया है और अब मैं हाइलाइट किए गए चयन को तब भी देख सकता हूं, जब दूसरी विंडो पर ध्यान केंद्रित किया गया हो। मेरे पास कोई नकारात्मक दुष्प्रभाव भी नहीं है। मैं कई मॉनिटरों का भी उपयोग करता हूं और इस कार्यक्रम में कई मॉनिटरों के साथ काम करने के लिए अन्य उपयोगी टूल का एक टन है और साथ ही यह मेरे लिए सार्थक है। मैंने परीक्षण स्थापित किया और फिर इसे अनइंस्टॉल कर दिया और इसने मुझे 30% की छूट दी। एक मुफ्त कार्यक्रम हो सकता है जो ऐसा करता है, लेकिन मुझे एक नहीं मिला ... मुझे आशा है कि इससे किसी को मेरी मदद करने में मदद मिलेगी!

Comments

दुर्भाग्य से यह विधि वर्ड 2010 और विंडोज 7 के लिए काम नहीं करता है

— यूजीन माला

Answer 6

मैं लंबे समय से इसी मुद्दे से जूझ रहा था। मैं भी कई स्क्रीन का उपयोग करते समय घनी एक्सेल फाइलों में खो जाता हूं।

इंटरनेट पर उपलब्ध एक्सेल प्लगइन्स का एक विशाल संग्रह है। मुझे पता चला कि कुटूल एक्सेल एक्सटेंशन (मुफ्त संस्करण) में क्रॉस-हेयर पर वन-क्लिक है जो एक्सेल के अनफोकस्ड होने पर भी दिखाई देता है। कुटूल में भी बहुत सी अतिरिक्त विशेषताएं हैं, लेकिन यह निश्चित रूप से एकमात्र विकल्प उपलब्ध नहीं है।

यहां कुतूलों का एक स्क्रीनशॉट कार्रवाई में क्रॉस-हेयर हाइलाइट किया गया है:

मुझे पता है कि कुछ लोग 3rd पार्टी प्लगइन्स या टूल से डरते हैं, लेकिन उनका उपयोग करना शायद सबसे तेज़ और आसान विकल्प है।

Answer 7

एक टेक्स्ट बॉक्स डालें जो कोशिकाओं की लंबाई को बढ़ाता है। टेक्स्ट बॉक्स को भरने के लिए ******* समान वर्णों की एक पंक्ति टाइप करें। आप पाठ बॉक्स को पृष्ठ पर नीचे ले जा सकते हैं क्योंकि आप एक हार्ड कॉपी पर एक शासक या कागज का टुकड़ा होगा। जब किया हटाएं।

Answer 8

एक साधारण समाधान ^{_{जो चयन में परिवर्तन होने पर सेल रंग देता है}}

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Selection.Interior.ColorIndex = xlColorIndexNone
    Selection.Interior.Color = RGB(204, 204, 204)
End Sub

---

एक जटिल समाधान ^{_{जो केवल फोकस खो जाने पर सेल रंग को बदल देता है}}

एक मानक मॉड्यूल में:

Option Explicit    
Public s As Range

शीट में आप चाहते हैं कि वह इसमें काम करे:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set s = Selection
End Sub

इन ThisWorkbook:

Private Sub Workbook_Deactivate()
    If s Is Nothing Then
        Set s = Selection
        Exit Sub
    End If
    s.Interior.ColorIndex = xlColorIndexNone
    s.Interior.Color = RGB(204, 204, 204)

    ' This is optional formatting to make the cells look more like they're actually selected
    s.Borders.Color = RGB(130, 130, 130)
    s.BorderAround _
    Color:=RGB(30, 130, 37), Weight:=xlThick
End Sub

Private Sub Workbook_Activate()
    If s Is Nothing Then
        Set s = Selection
        Exit Sub
    End If
    s.Interior.ColorIndex = xlColorIndexNone
    s.Borders.ColorIndex = xlColorIndexNone
End Sub

---

_{उद्धरण: सरल समाधान @Dave द्वारा उत्तर से दूर है ; जटिल समाधान कई स्रोतों से एक साथ लाया गया था, विशेष रूप से इस पोस्ट में @JohnColeman की मदद से ।}

Answer 9

ऐसा करने का एक बहुत ही सरल तरीका सशर्त स्वरूपण और VBA के साथ है।

इसे अपने ThisWorkbook कोड में जोड़ें:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Application.CutCopyMode = False Then
        Application.Calculate
    End If
End Sub

और सशर्त प्रारूप नियम बनाने के लिए केवल एक बार निम्न कोड चलाएँ :

Sub CreateConditionalFormats()
  Dim y As FormatCondition
    For Each ws In ThisWorkbook.Worksheets
        DoEvents

        'Optionally delete any existing conditional formats
        'ws.Cells.FormatConditions.Delete

        ' Selection highlight
        Set y = ws.Cells.FormatConditions.Add(Type:=xlExpression, Formula1:="=AND(ROW()=CELL(""row""), COLUMN()=CELL(""col""))")
        With y.Borders(xlTop)
            .LineStyle = xlSolid
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With y.Borders(xlBottom)
            .LineStyle = xlSolid
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With y.Borders(xlLeft)
            .LineStyle = xlSolid
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With y.Borders(xlRight)
            .LineStyle = xlSolid
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        y.StopIfTrue = False
        y.SetFirstPriority

        ' Row highlight
        Set y = ws.Cells.FormatConditions.Add(Type:=xlExpression, Formula1:="=ROW()=CELL(""row"")")
        With y.Borders(xlTop)
            .LineStyle = xlDash
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With y.Borders(xlBottom)
            .LineStyle = xlDash
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        y.StopIfTrue = False

        ' Column highlight
        Set y = ws.Cells.FormatConditions.Add(Type:=xlExpression, Formula1:="=COLUMN()=CELL(""col"")")
        With y.Borders(xlLeft)
            .LineStyle = xlDash
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With y.Borders(xlRight)
            .LineStyle = xlDash
            .Color = -16776961
            .TintAndShade = 0
            .Weight = xlThin
        End With
        y.StopIfTrue = False
    Next
End Sub

Answer 10

इन्सर्ट शेप / आयत का उपयोग करना एक सरल उपाय है। "नो फिल" विकल्प चुनें और इसके माध्यम से आप कोशिकाओं को संपादित भी कर सकते हैं।

तस्वीर को यहां देखिए: