एक्सेल में एक आवर्त सारणी बनाएं:दो सरल तरीके

विधि 1 - मैनुअल आवर्त सारणी

1.1. गुण तालिकामें डेटा डालें

1.2. आवर्त सारणी प्रारूप बनाएं

• 1 से समूह संख्याओं वाले कॉलम –18 .
• 1 से अवधि संख्याओं वाली पंक्तियाँ –7 .
• प्रत्येक तत्व का प्रतीक उनके समूह संख्या और अवधि संख्या के आधार पर उपयुक्त कक्षों में दर्ज करें।
• आपको तालिका के स्वरूपण को आवश्यकतानुसार समायोजित करना चाहिए। आप पंक्ति की ऊँचाई और स्तंभ की चौड़ाई समायोजित कर सकते हैं। तालिका को अधिक आकर्षक और समझने में आसान बनाने के लिए आप फ़ॉन्ट आकार, रंग और सेल बॉर्डर बदल सकते हैं।

1.3. एक्सेल फ़ॉर्मूले के साथ आवर्त सारणी को स्वचालित करें

• किसी भी तत्व का नाम सेल D5 में रखें .
• विलय एवं केंद्र रेंज D5:E5 तक .

• विलय एवं केंद्र सेश्रेणी K4:M4 तक , फ़ॉन्ट आकार 16 डालें .

• विलय एवं केंद्र सेश्रेणी K5:M7 तक , फ़ॉन्ट आकार 48 डालें .

• विलय एवं केंद्र सेश्रेणी K8:M8 तक , फ़ॉन्ट आकार20 डालें .

• विलय एवं केंद्र सेश्रेणी K9:M9 तक , फ़ॉन्ट आकार 16 डालें .

• IFERROR के आधार पर सूत्र सम्मिलित करें &VLOOKUP कार्य.

• सेल K4 में सूत्र:

• सेल K5 में सूत्र:

• सेल K8 में सूत्र:

• सेल K9 में सूत्र:

• VLOOKUP($D$5, Properties!$B$5:$F$123,2,FALSE)

• IFERROR(VLOOKUP($D$5, Properties!$B$5:$F$123,2,FALSE), “”)

• आपको परमाणु क्रमांक दिखाई देगा सेल K4 में , तत्व प्रतीक सेल K5 में , तत्व का नाम सेल K8 में , और परमाणु द्रव्यमान सेल K9 में .

• सेल D5 में तत्व प्रतीक बदलें , आप उस तत्व के गुण रेंज K4:K9 में देखेंगे .

विधि 2 - इंटरैक्टिव आवर्त सारणी

2.1. इंटरएक्टिव टेबल फॉर्मेट बनाएं

• पिछली विधि की तरह ही एक आवर्त सारणी प्रारूप बनाएं।
• प्रॉपर्टी वर्कशीट की प्रॉपर्टी तालिका कुल 10 प्रकार के तत्वों को रिकॉर्ड करती है। रेंज D5:D14 में तत्व प्रकार जोड़ें .

2.2. विभिन्न प्रकार के तत्व के लिए रंग निर्दिष्ट करें

• VBA मैक्रो एडिटर लॉन्च करें आपकी कार्यपुस्तिका से. इस लेख का अनुसरण करें:एक्सेल में वीबीए कोड कैसे लिखें .
• निम्नलिखित कोड को अपने VBA मैक्रो एडिटर में चिपकाएँ .
• रन दबाएं बटन या F5 कोड चलाने के लिए कुंजी.

Sub Property_Color()
    'variable declaration
    Dim myRng As Range
    'set variable
    Set myRng = ActiveSheet.Range("F5:F14")
    'set different cell colors
    myRng.Cells(1).Interior.ColorIndex = 10
    myRng.Cells(2).Interior.ColorIndex = 24
    myRng.Cells(3).Interior.ColorIndex = 8
    myRng.Cells(4).Interior.ColorIndex = 27
    myRng.Cells(5).Interior.ColorIndex = 17
    myRng.Cells(6).Interior.ColorIndex = 14
    myRng.Cells(7).Interior.ColorIndex = 15
    myRng.Cells(8).Interior.ColorIndex = 22
    myRng.Cells(9).Interior.ColorIndex = 36
    myRng.Cells(10).Interior.ColorIndex = 4
End Sub

• आप रेंज F5:F14 में विभिन्न प्रकार के तत्वों के लिए अलग-अलग रंग देखेंगे। .

myRng.Cells(1).Interior.ColorIndex = 10
    myRng.Cells(2).Interior.ColorIndex = 24
    myRng.Cells(3).Interior.ColorIndex = 8
    myRng.Cells(4).Interior.ColorIndex = 27
    myRng.Cells(5).Interior.ColorIndex = 17
    myRng.Cells(6).Interior.ColorIndex = 14
    myRng.Cells(7).Interior.ColorIndex = 15
    myRng.Cells(8).Interior.ColorIndex = 22
    myRng.Cells(9).Interior.ColorIndex = 36
    myRng.Cells(10).Interior.ColorIndex = 4

2.3. तत्व प्रकार के आधार पर आवर्त सारणी में रंग निर्दिष्ट करें

• निम्नलिखित कोड को एक नए मॉड्यूल में चिपकाएँ।
• रन दबाएं बटन या F5 कोड चलाने के लिए कुंजी.

Sub Periodic_Table()
    'variable declaration
    Dim PropertyRng As Range
    Dim ElementRng As Range
    Dim TableRng As Range
    Dim Property As String
    Dim ColIndex As Integer
    'set variables
    Set PropertyRng = Sheets("Properties").Range("B5:F122")
    Set ElementRng = ActiveSheet.Range("D5:F14")
    Set TableRng = ActiveSheet.Range("D18:U27")
    'loop through each cell of property table
    For i = 1 To TableRng.Cells.Count
    Property = "No Property"
        'look for the element property
        For j = 1 To PropertyRng.Rows.Count
            If TableRng.Cells(i) = PropertyRng.Cells(j, 1) Then
                Property = PropertyRng.Cells(j, 5)
            End If
        Next j
        'change cell color according to element property
        For k = 1 To ElementRng.Rows.Count
            If Property = ElementRng.Cells(k, 1) Then
                ColIndex = ElementRng.Cells(k, 3).Interior.ColorIndex
                TableRng.Cells(i).Interior.ColorIndex = ColIndex
            End If
        Next k
    Next i
End Sub

• आप आवर्त सारणी के तत्वों को उनके तत्व प्रकारों के आधार पर निर्दिष्ट रंग के अनुसार रंगते हुए देखेंगे।

For i = 1 To TableRng.Cells.Count
    Property = "No Property"
        For j = 1 To PropertyRng.Rows.Count
            If TableRng.Cells(i) = PropertyRng.Cells(j, 1) Then
                Property = PropertyRng.Cells(j, 5)
            End If
        Next j

• कोड के इस भाग में, दो नेस्टेड लूप TableRng के माध्यम से पुनरावृत्त होते हैं और PropertyRng श्रेणियां. TableRng में प्रत्येक लूप के लिए रेंज, प्रॉपर्टी नाम का एक वेरिएबल मूल्य कोई संपत्ति नहीं के साथ शुरू किया गया है . आंतरिक लूप तब जाँचता है कि TableRng में वर्तमान सेल का मान क्या है श्रेणी PropertyRng के पहले कॉलम में किसी भी मान से मेल खाती है रेंज. संपत्ति वेरिएबल को PropertyRng के पांचवें कॉलम से संबंधित मान के साथ अद्यतन किया जाता है रेंज. आंतरिक लूप प्रॉपर्टी को अपडेट करते हुए मिलान खोजता है अंतिम मिलान के मान के साथ वैरिएबल मिला। एक बार जब आंतरिक लूप पूरा हो जाता है, तो बाहरी लूप TableRng में अगले सेल में चला जाता है रेंज और प्रक्रिया को दोहराता है। तो,संपत्ति वेरिएबल PropertyRng में अंतिम मिलान प्रविष्टि से संबद्ध संपत्ति मान रखता है TableRng में प्रत्येक सेल के लिए रेंज रेंज, या कोई संपत्ति नहीं यदि कोई मिलान नहीं मिला.

For k = 1 To ElementRng.Rows.Count
            If Property = ElementRng.Cells(k, 1) Then
                ColIndex = ElementRng.Cells(k, 3).Interior.ColorIndex
                TableRng.Cells(i).Interior.ColorIndex = ColIndex
            End If
        Next k
    Next i

• VBA कोड के इस हिस्से में, दो नेस्टेड लूप TableRng में प्रत्येक सेल से जुड़ी संपत्ति से मेल खाते हैं ElementRng में तत्व गुणों के साथ श्रेणी रेंज. यदि कोई मिलान पाया जाता है, तो TableRng में संबंधित सेल रंग सूचकांक (ColIndex) के आधार पर रेंज को रंगीन किया जाता है ) ElementRng से पुनर्प्राप्त किया गया रेंज. यह प्रक्रिया TableRng में सभी कोशिकाओं के लिए दोहराई जाती रहती है रेंज, जिसके परिणामस्वरूप उनके संबंधित तत्व गुणों के आधार पर रंगीन कोशिकाएं बनती हैं।
  

2.4. इंटरैक्टिव आवर्त सारणी बनाएं

• निम्नलिखित कोड को इंटरैक्टिव आवर्त सारणी के वर्कशीट मॉड्यूल में चिपकाएँ वर्कशीट.
• सहेजें कोड.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    'variable declaration
    Dim Atom As Variant
    Dim PropertyRng As Range
    Dim WS As Worksheet
    'set variables
    Atom = Selection.Value
    Set PropertyRng = Sheets("Properties").Range("B5:F122")
    Set WS = ActiveSheet
    'ensure only one cell is selected
    If Selection.Cells.Count > 1 Then
        MsgBox "Please select only one cell from the Periodic Table"
        Exit Sub
    End If
    'look for the properties of the atom
    For i = 1 To PropertyRng.Rows.Count
        If Atom = PropertyRng.Cells(i, 1) Then
            WS.Range("S4") = PropertyRng.Cells(i, 2)
            WS.Range("S6") = Atom
            WS.Range("S11") = PropertyRng.Cells(i, 3)
            WS.Range("S13") = PropertyRng.Cells(i, 4)
            WS.Range("S4:S13").Interior.ColorIndex = Selection.Interior.ColorIndex
        End If
        'if no property is found
        If Atom = "" Or IsNumeric(Atom) Then
            WS.Range("S4:S13") = ""
            WS.Range("S4:S13").Interior.ColorIndex = 2
        End If
    Next i
End Sub

• इंटरैक्टिव आवर्त सारणी में आवर्त सारणी के अंदर एक सेल पर क्लिक करें वर्कशीट; आपको उस सेल के तत्व का गुण दिखाई देगा। लेकिन यदि आप एकाधिक कक्षों का चयन करते हैं, तो एक चेतावनी संवाद बॉक्स दिखाई देगा।

If Selection.Cells.Count > 1 Then
        MsgBox "Please select only one cell from the Periodic Table"
        Exit Sub
    End If

• VBA कोड का यह भाग वर्तमान में चयनित कोशिकाओं की संख्या की जाँच करता है। यदि चयनित कक्षों की संख्या 1 से अधिक है , यह एक MsgBox में एक चेतावनी संदेश प्रदर्शित करता है उपयोगकर्ता को सचेत करने के लिए. कोड Exit Sub का उपयोग करके सबरूटीन से बाहर निकलता है कमांड, शेष कोड को निष्पादित होने से रोकता है।

For i = 1 To PropertyRng.Rows.Count
        If Atom = PropertyRng.Cells(i, 1) Then
            WS.Range("S4") = PropertyRng.Cells(i, 2)
            WS.Range("S6") = Atom
            WS.Range("S11") = PropertyRng.Cells(i, 3)
            WS.Range("S13") = PropertyRng.Cells(i, 4)
            WS.Range("S4:S13").Interior.ColorIndex = Selection.Interior.ColorIndex
        End If

• VBA कोड का यह भाग PropertyRng की प्रत्येक पंक्ति के माध्यम से पुनरावृत्त होता है चयनित सेल (एटम) के मान के बीच मिलान खोजने के लिए रेंज ) और प्रत्येक पंक्ति के पहले कॉलम में मान। जब कोई मिलान मिलता है, तो PropertyRng के कुछ गुण रेंज वर्कशीट में प्रदर्शित होती है। इन गुणों में मिलान की गई पंक्ति के दूसरे, तीसरे और चौथे कॉलम का डेटा शामिल है, जिन्हें S4:S13 श्रेणी के भीतर रखा गया है। इसके अलावा, रेंज S4:S13 का पृष्ठभूमि रंग चयनित सेल के पृष्ठभूमि रंग से मेल खाने के लिए सेट किया गया है।

If Atom = "" Or IsNumeric(Atom) Then
            WS.Range("S4:S13") = ""
            WS.Range("S4:S13").Interior.ColorIndex = 2
        End If
    Next i

• जब चयनित सेल या तो खाली होता है या उसमें कोई संख्यात्मक मान होता है, तो श्रेणी S4:S13 साफ़ हो जाती है। रेंज का पृष्ठभूमि रंग सफेद हो जाता है।
  

याद रखने योग्य बातें

• VLOOKUP की स्रोत सीमा से सावधान रहें समारोह.
• प्रत्येक तत्व गुण के लिए अलग-अलग रंगों का उपयोग करें।
• सुनिश्चित करें कि संपत्ति तालिका में गुण सटीक हैं।

अक्सर पूछे जाने वाले प्रश्न