प्रिंटिंग करते समय पंक्तियों को दबाएं - एक्सेल टिप्स

जीन और अर्नोल्डो ने इस हफ्ते के एक्सेल सवाल पूछे।

लोटस 1-2-3 में, आप पहले वर्ण को पाइप वर्ण (|) होने के द्वारा पंक्ति की छपाई को दबा सकते हैं। यह शांत था क्योंकि आपके पास कॉलम ए में एक सूत्र हो सकता है जिसका उपयोग शून्य के साथ लाइनों की छपाई को दबाने के लिए किया जा सकता है @IF(E2=0,"|",""):। एक्सेल इस सुविधा की पेशकश नहीं करता है। मैं पंक्तियों को छिपाना नहीं चाहता, मैं सिर्फ एक्सेल में उनकी छपाई को दबाना चाहता हूं।

MrExcel आपकी स्थिति के साथ सहानुभूति कर सकता है। मैंने अपनी कंपनी के नए मानक के रूप में एक्सेल पर फैसला करने से पहले 8 साल तक लोटस 1-2-3 का इस्तेमाल किया। स्विचिंग कभी सुंदर नहीं होती है। एक्सेल और लोटस समान हैं, लेकिन लोटस 1-2-3 के पावर उपयोगकर्ता समस्याओं में भाग लेते हैं।

संक्रमण के कई साल बाद, अब मुझे लगता है कि एक्सेल लोटस से बेहतर है। हालांकि, मैं स्विच करते समय आवश्यक दर्द के बारे में गहराई से जानता हूं। व्यक्तिगत हमले के रूप में परिवर्तनों को लेना और Microsoft से नाराज होना आसान है। मुझे याद है कि मैं रोज़ सोचता हूँ, "मुझे अपने @VLOOKUPs में अंतिम तर्क के रूप में ', गलत' क्यों डालना है, और मदद फ़ाइल क्यों नहीं निकलती है और मुझे सिर्फ यह बताना है?"।

यदि आपके पास मैक्रोज़ हैं जो लोटस 1-2-3 में दर्ज किए गए थे, तो याद रखें कि आप मैक्रो रूपांतरण के लिए परामर्श का उपयोग कर सकते हैं।

कुछ चीजें हैं जो लोटस 1-2-3 ने आसानी से की जो एक्सेल में उपलब्ध नहीं हैं। लोटस में / फाइल कम्बाइन ऐड एंटायर की सुंदर सादगी को एक्सेल में 8 चरणों के साथ बदल दिया गया है।

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

Option Base 1 Sub LotusPrint() ' ' LotusPrint Macro ' This Macro will temporarily hide rows that start with |, ' print the sheet, then unhide those rows. It is meant to ' emulate the Lotus 1-2-3 feature of not printing rows that ' start with a pipe. ' Copyright 1999 www.MrExcel.com ' ' Dim UnhideRow() As Single Application.ScreenUpdating = False ' Locate the final row in column A FinalRow = Range("A65536").End(xlUp).Row Ctr = 0 ' Check and hide each row that starts with a pipe For x = 1 To FinalRow If Left(Range("A" & x).Value, 1) = "|" Then ' Do nothing if the row is already hidden If Not Range("A" & x).EntireRow.Hidden Then Range("A" & x).EntireRow.Hidden = True ' Save the row number so that it can be unhidden Ctr = Ctr + 1 ReDim Preserve UnhideRow(Ctr) UnhideRow(Ctr) = x End If End If Next x ' Print the sheet ActiveWindow.SelectedSheets.PrintOut ' Unhide any hidden rows If Ctr> 0 Then For x = 1 To Ctr Range("A" & UnhideRow(x)).EntireRow.Hidden = False Next x End If Application.ScreenUpdating = True End Sub