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

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

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

आवर्त सारणी के प्रत्येक तत्व के गुणों का एक अनूठा सेट होता है। ये गुण आवर्त सारणी के तत्वों द्वारा दिखाए जाने वाली विभिन्न विशेषताओं, प्रवृत्तियों और संबंधों को संदर्भित करते हैं। प्रमुख गुण इस प्रकार हैं।

प्रतीक (Symbol): प्रत्येक तत्व का अपना प्रतीक होता है, रासायनिक तत्व का प्रतिनिधित्व करने के लिए उपयोग किया जाने वाला एक या दो अक्षरों का संक्षिप्त नाम।

परमाणु संख्या (Atomic Number): परमाणु संख्या एक तत्व में प्रोटॉन की संख्या को संदर्भित करती है। यह किसी भी तत्व का एक अनूठा गुण है।

परमाणु द्रव्यमान (Atomic Mass): परमाणु द्रव्यमान एक विशिष्ट तत्व के परमाणु के वजन या द्रव्यमान को संदर्भित करता है। इसमें परमाणु में प्रोटॉन, न्यूट्रॉन और इलेक्ट्रॉन का द्रव्यमान शामिल होता है। हम इसे परमाणु द्रव्यमान इकाई (amu) में मापते हैं।

तत्व प्रकार (Element Type): तत्व प्रकार उनके गुणों और विशेषताओं के आधार पर तत्वों को विभिन्न श्रेणियों में वर्गीकृत करने को संदर्भित करता है। ये श्रेणियां अन्य तत्वों के सामान्य व्यवहार को समझने में मदद करती हैं।

हमने 118 तत्वों के गुणों को एक सारणीबद्ध रूप में एकत्र किया है। यह गुण तालिका आवर्त सारणी बनाने के लिए आवश्यक है।

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

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

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

• सेल D5 में कोई भी तत्व नाम डालें।
• Merge & Center करें रेंज D5:E5 के लिए।

• Merge & Center करें रेंज K4:M4 के लिए, फ़ॉन्ट आकार 16 रखें।

• Merge & Center करें रेंज K5:M7 के लिए, फ़ॉन्ट आकार 48 रखें।

• Merge & Center करें रेंज K8:M8 के लिए, फ़ॉन्ट आकार 20 रखें।

• Merge & Center करें रेंज K9:M9 के लिए, फ़ॉन्ट आकार 16 रखें।

• IFERROR और VLOOKUP फंक्शन के आधार पर फॉर्मूला डालें।

• सेल K4 में फॉर्मूला:

=IFERROR(VLOOKUP($D$5, Properties!$B$5:$F$123,2,FALSE), "")

• सेल K5 में फॉर्मूला:

=IFERROR(VLOOKUP($D$5, Properties!$B$5:$F$123,1,FALSE), "")

• सेल K8 में फॉर्मूला:

=IFERROR(VLOOKUP($D$5, Properties!$B$5:$F$123,3,FALSE), "")

• सेल K9 में फॉर्मूला:

=IFERROR(VLOOKUP($D$5, Properties!$B$5:$F$123,4,FALSE), "")

फॉर्मूला ब्रेकडाउन

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

VLOOKUP फंक्शन Properties वर्कशीट में रेंज B5:F123 में सेल D5 के मान को खोजता है। यदि मान मेल खाता है, तो यह निर्दिष्ट रेंज के दूसरे कॉलम (2) से मान लौटाता है। False सटीक मिलान को दर्शाता है।
परिणाम: 1

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

IFERROR फंक्शन VLOOKUP फंक्शन का मान लौटाता है। यदि कोई त्रुटि है, तो यह एक खाली स्ट्रिंग लौटाता है।
परिणाम: 1

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

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

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

2.1. इंटरएक्टिव टेबल प्रारूप बनाएं

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

2.2. विभिन्न तत्व प्रकारों के लिए रंग असाइन करें

• अपनी वर्कबुक से VBA Macro Editor लॉन्च करें। इस लेख का पालन करें: एक्सेल में VBA कोड कैसे लिखें।
• अपने VBA Macro Editor में निम्नलिखित कोड पेस्ट करें।
• कोड चलाने के लिए Run बटन या 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 में विभिन्न तत्व प्रकारों के लिए अलग-अलग रंग निर्दिष्ट देखेंगे।

VBA ब्रेकडाउन

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

कोड का यह भाग myRng रेंज के प्रत्येक सेल को लेता है और निर्दिष्ट रेंज में प्रत्येक सेल को अलग-अलग रंग असाइन करता है।

2.3. तत्व प्रकार के आधार पर आवर्त सारणी को रंग असाइन करें

• निम्नलिखित कोड को एक नए मॉड्यूल में पेस्ट करें।
• कोड चलाने के लिए Run बटन या 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

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

VBA ब्रेकडाउन

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 रेंज में प्रत्येक लूप के लिए, Property नामक एक वेरिएबल को मान No Property के साथ आरंभ किया जाता है। आंतरिक लूप फिर जांचता है कि TableRng रेंज में वर्तमान सेल का मान PropertyRng रेंज के पहले कॉलम में किसी मान से मेल खाता है या नहीं। Property वेरिएबल को PropertyRng रेंज के पांचवें कॉलम से संबंधित मान के साथ अपडेट किया जाता है। आंतरिक लूप मिलान खोजता है, Property वेरिएबल को अंतिम मिलान के मान के साथ अपडेट करता हुआ। एक बार आंतरिक लूप पूरा हो जाने पर, बाहरी लूप TableRng रेंज में अगले सेल पर चला जाता है और प्रक्रिया दोहराता है। इसलिए, Property वेरिएबल PropertyRng रेंज में प्रत्येक सेल के लिए अंतिम मिलान प्रविष्टि से जुड़े गुण मान को रखता है, या No 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

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

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

• निम्नलिखित कोड को Interactive Periodic Table वर्कशीट के वर्कशीट मॉड्यूल में पेस्ट करें।
• कोड Save करें।

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

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

VBA ब्रेकडाउन

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 रेंज की प्रत्येक पंक्ति के माध्यम से पुनरावृति करता है ताकि चयनित सेल के मान (Atom) और प्रत्येक पंक्ति के पहले कॉलम में मानों के बीच मिलान ढूंढा जा सके। जब कोई मिलान मिलता है, तो 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 फंक्शन के स्रोत रेंज के साथ सावधान रहें।
• प्रत्येक तत्व गुण के लिए अलग-अलग रंगों का उपयोग करें।
• सुनिश्चित करें कि गुण तालिका में गुण सटीक हैं।

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

1. आवर्त सारणी में प्रतिनिधि तत्व क्या हैं?
प्रतिनिधि तत्व आवर्त सारणी के समूह 1, 2, और 13 से 18 के तत्व हैं। वे रासायनिक गुणों की एक विस्तृत श्रृंखला प्रदर्शित करते हैं और कई रासायनिक प्रतिक्रियाओं में भाग लेते हैं।

2. नोबल गैस का महत्व क्या है?
हम समूह 18 के प्रत्येक तत्व को नोबल गैस के रूप में संदर्भित करते हैं। नोबल गैस रासायनिक रूप से निष्क्रिय होती है। यह अपने स्थिर इलेक्ट्रॉन विन्यास के कारण रासायनिक प्रतिक्रियाओं में भाग नहीं लेती है।

3. आइसोटोप क्या हैं?
आइसोटोप के केंद्र में प्रोटॉन की समान संख्या होती है, लेकिन उनमें न्यूट्रॉन की संख्या भिन्न हो सकती है। यह उन्हें उसी तत्व के थोड़े भारी या हल्के संस्करण बनाता है।

प्रैक्टिस वर्कबुक डाउनलोड करें

आप इस प्रैक्टिस वर्कबुक को लेख पढ़ते समय डाउनलोड कर सकते हैं।

मुफ्त उन्नत एक्सेल अभ्यास समाधान के साथ प्राप्त करें!