एक जगह में पंक्तियों की पुनर्व्यवस्थित सूची उन पंक्तियों में कालानुक्रमिक आदेशों के आधार पर

Question

मेरे पास चार पाठ्यक्रम हैं जो मैं इस शब्द की योजना बनाना चाहता हूं। मैंने प्रत्येक पाठ्यक्रम के परीक्षण और असाइनमेंट के डेटा को निम्नलिखित के रूप में एक्सेल में अलग-अलग तालिकाओं में सूचीबद्ध किया है:

मैं निम्नलिखित के रूप में अलग-अलग और एकल स्थान में उनकी तारीखों के कालानुक्रमिक क्रम के आधार पर इन तालिकाओं की पंक्तियों को संकलित करने और पुन: व्यवस्थित करने की समस्या को हल करना चाहता हूं:

फ़ार्मुलों का उपयोग करना, सशर्त स्वरूपण या अन्य चीज़ों का उपयोग करना, ऐसा करने के लिए सबसे कुशल तरीका क्या है?

Comments

नए स्थान पर सभी डेटा (यह वर्तमान क्रम में) की प्रतिलिपि बनाएँ। फिर सभी डेटा का चयन करें और इसे आरोही क्रम में दिनांक कॉलम द्वारा सॉर्ट करें। डेटा मेनू से सॉर्ट ... चुनें और सॉर्ट कॉलम और ऑर्डर निर्दिष्ट करें।

— बैंडसनैच

Answer 1

विभिन्न पाठ्यक्रमों और अंतिम आउटपुट के लिए डेटा रेंज पर विचार करने के बाद, मैं आपको अनुसरण करने के लिए सुझाव दे सकता हूं।

1. सभी 4 भागों को एक डेटा रेंज में कॉपी और पेस्ट या VBA कोड द्वारा एकत्र करें।
2. बढ़ते क्रम में दिनांक पर संपूर्ण श्रेणी को क्रमबद्ध करें।
3. अंत में सशर्त स्वरूपण लागू करें।

आप इस साधारण VBA कोड का उपयोग कॉपी और पेस्ट डेटा के साथ कर सकते हैं और सेल फॉर्मेट्स के साथ अपना समय बचाएंगे और आप प्रारूप को छोड़ सकते हैं।

Sub CommandButton1_Click()

Dim CopyRng As Range, PasteRng As Range

Title = "Copy & Paste"

Set CopyRng = Application.Selection

  Set CopyRng = Application.InputBox("Ranges to Copy :", Title, CopyRng.Address, Type:=8)
    Set PasteRng = Application.InputBox("Range to Paste, select Single cell):", Title, Type:=8)

       CopyRng.Copy

         PasteRng.Parent.Activate

           PasteRng.PasteSpecial xlPasteValuesAndNumberFormats

            PasteRng.PasteSpecial xlPasteFormats

         Application.CutCopyMode = False

End Sub

इस VBA कोड का उपयोग आप दिनांक स्तंभ पर सॉर्ट करने के लिए कर सकते हैं।

Sub CommandButton2_Click()

Dim SortRange As Range, keyRange As Range

  Set SortRange = Application.InputBox("Sort Range", SortRange.Address,Type:=8)

  Set keyRange = Application.InputBox("Key Range", keyRange.Address,Type:=8) 

SortRange.Sort Key1:=keyRange, Order1:=xlAscending

End Sub

NB: आशा है कि यह आपकी मदद करेगा। यदि मेरा समाधान आपके विचार से अलग है तो टिप्पणी छोड़ दें।