এক্সেলে পিরিওডিক টেবিল তৈরি: দুটি সহজ পদ্ধতি

পদ্ধতি ১ - ম্যানুয়াল পিরিওডিক টেবিল

১.১. প্রপার্টি টেবিলে ডেটা ইনসার্ট করা

পিরিওডিক টেবিলের প্রতিটি উপাদানের নিজস্ব অনন্য বৈশিষ্ট্য রয়েছে। এই বৈশিষ্ট্যগুলো পিরিওডিক টেবিলের উপাদানগুলোর বিভিন্ন বৈশিষ্ট্য, ট্রেন্ড এবং সম্পর্ককে বোঝায়। মূল বৈশিষ্ট্যগুলো হলো:

চিহ্ন (Symbol): প্রতিটি উপাদানের নিজস্ব একটি চিহ্ন থাকে, যা রাসায়নিক উপাদানটি প্রতীক করতে ব্যবহৃত এক বা দুই অক্ষরের সংক্ষিপ্তরূপ।

পরমাণু সংখ্যা (Atomic Number): পরমাণু সংখ্যা উপাদানের প্রোটন সংখ্যাকে বোঝায়। এটি যেকোনো উপাদানের অনন্য বৈশিষ্ট্য।

পরমাণু ভর (Atomic Mass): পরমাণু ভর নির্দিষ্ট উপাদানের একটি পরমাণুর ওজন বা ভরকে বোঝায়। এতে পরমাণুর প্রোটন, নিউট্রন এবং ইলেকট্রনের ভর অন্তর্ভুক্ত থাকে। আমরা এটিকে পরমাণু ভর একক (amu)-এ পরিমাপ করি।

উপাদানের ধরন (Element Type): উপাদানের ধরন বলতে উপাদানগুলোর বৈশিষ্ট্য এবং বৈশিষ্ট্যের ভিত্তিতে তাদের বিভিন্ন ক্যাটাগরিতে ভাগ করার পদ্ধতিকে বোঝায়। এই ক্যাটাগরিগুলো অন্য উপাদানগুলোর সাধারণ আচরণ বুঝতে সাহায্য করে।

আমরা টেবুলার ফরম্যাটে ১১৮টি উপাদানের বৈশিষ্ট্য সংগ্রহ করেছি। এই প্রপার্টি টেবিল পিরিওডিক টেবিল তৈরি করার জন্য অপরিহার্য।

১.২. পিরিওডিক টেবিল ফরম্যাট তৈরি করা

• ১–১৮ গ্রুপ নম্বর সহ কলামগুলো।
• ১–৭ পিরিওড নম্বর সহ সারিগুলো।
• প্রতিটি উপাদানের চিহ্ন তাদের গ্রুপ নম্বর এবং পিরিওড নম্বর অনুযায়ী উপযুক্ত সেলে লিখুন।
• আপনার প্রয়োজন অনুযায়ী টেবিলের ফরম্যাটিং সামঞ্জস্য করুন। আপনি সারির উচ্চতা এবং কলামের প্রস্থ সামঞ্জস্য করতে পারেন। টেবিলকে আরও চমৎকার এবং বোঝার সহজ করতে ফন্ট সাইজ, রঙ এবং সেল বর্ডার পরিবর্তন করতে পারেন।

১.৩. এক্সেল ফর্মুলা দিয়ে পিরিওডিক টেবিল অটোমেট করা

• সেল D5-এ যেকোনো উপাদানের নাম লিখুন।
• Merge & Center করুন রেঞ্জ D5:E5-এ।

• Merge & Center করুন রেঞ্জ K4:M4-এ, ফন্ট সাইজ ১৬ রাখুন।

• Merge & Center করুন রেঞ্জ K5:M7-এ, ফন্ট সাইজ ৪৮ রাখুন।

• Merge & Center করুন রেঞ্জ K8:M8-এ, ফন্ট সাইজ ২০ রাখুন।

• Merge & Center করুন রেঞ্জ K9:M9-এ, ফন্ট সাইজ ১৬ রাখুন।

• 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-এর মান খোঁজে। মান মিললে, নির্দিষ্ট রেঞ্জের দ্বিতীয় কলাম (২)- থেকে মান ফেরত দেয়। False সঠিক মিলকে বোঝায়।
ফলাফল: ১

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

IFERROR ফাংশন VLOOKUP ফাংশনের মান ফেরত দেয়। যদি এরর থাকে, তবে খালি স্ট্রিং ফেরত দেয়।
ফলাফল: ১

• আপনি সেল K4-এ পরমাণু সংখ্যা, সেল K5-এ উপাদানের চিহ্ন, সেল K8-এ উপাদানের নাম এবং সেল K9-এ পরমাণু ভর দেখতে পাবেন।

• সেল D5-এ উপাদানের চিহ্ন পরিবর্তন করলে, আপনি রেঞ্জ K4:K9-এ সেই উপাদানের বৈশিষ্ট্য দেখতে পাবেন।

পদ্ধতি ২ - ইন্টারঅ্যাক্টিভ পিরিওডিক টেবিল

২.১. ইন্টারঅ্যাক্টিভ টেবিল ফরম্যাট তৈরি করা

• পূর্বের পদ্ধতির মতো পিরিওডিক টেবিল ফরম্যাট তৈরি করুন।
• Properties ওয়ার্কশিটের প্রপার্টি টেবিলে মোট ১০ ধরনের উপাদান রেকর্ড করা আছে। উপাদানের ধরনগুলো রেঞ্জ D5:D14-এ যোগ করুন।

২.২. বিভিন্ন উপাদানের ধরনের জন্য রঙ অ্যাসাইন করা

• আপনার ওয়ার্কবুক থেকে VBA ম্যাক্রো এডিটর চালু করুন। এই আর্টিকেলটি ফলো করুন: এক্সেলে VBA কোড লিখার পদ্ধতি।
• নিচের কোডটি আপনার VBA ম্যাক্রো এডিটর-এ পেস্ট করুন।
• কোড রান করতে 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 রেঞ্জের প্রতিটি সেল নেয় এবং নির্দিষ্ট রেঞ্জের প্রতিটি সেলে ভিন্ন রঙ অ্যাসাইন করে।

২.৩. উপাদানের ধরন ভিত্তিক পিরিওডিক টেবিলে রঙ অ্যাসাইন করা

• নিচের কোডটি একটি নতুন মডিউলে পেস্ট করুন।
• কোড রান করতে 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 ভেরিয়েবলটি TableRng রেঞ্জের প্রতিটি সেলের জন্য 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 রেঞ্জের সকল সেলের জন্য চালু থাকে, ফলে তাদের সংশ্লিষ্ট উপাদান প্রপার্টির ভিত্তিতে সেলগুলো রঙিন হয়।
  

২.৪. ইন্টারঅ্যাক্টিভ পিরিওডিক টেবিল তৈরি করা

• নিচের কোডটি 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 কোডের এই অংশ বর্তমানে নির্বাচিত সেলের সংখ্যা চেক করে। নির্বাচিত সেলের সংখ্যা ১-এর চেয়ে বেশি হলে, এটি একটি 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 ফাংশনের সোর্স রেঞ্জ নিয়ে সতর্ক থাকুন।
• প্রতিটি উপাদানের বৈশিষ্ট্যের জন্য ভিন্ন রঙ ব্যবহার করুন।
• নিশ্চিত করুন যে প্রপার্টি টেবিলের বৈশিষ্ট্যগুলো নির্ভুল।

প্রশ্নোত্তর

১. পিরিওডিক টেবিলে প্রতিনিধিত্বমূলক উপাদানগুলো কোনগুলো?
প্রতিনিধিত্বমূলক উপাদান হলো পিরিওডিক টেবিলের গ্রুপ ১, ২, এবং ১৩ থেকে ১৮-এ থাকা উপাদানগুলো। এগুলো রাসায়নিক বৈশিষ্ট্যের একটি বিস্তৃত পরিসর প্রদর্শন করে এবং অনেক রাসায়নিক বিক্রিয়ায় অংশ নেয়।

২. নোবেল গ্যাসের তাৎপর্য কী?
গ্রুপ ১৮-এর প্রতিটি উপাদানকে আমরা নোবেল গ্যাস বলি। নোবেল গ্যাস রাসায়নিকভাবে নিষ্ক্রিয়। এর স্থিতিশীল ইলেকট্রন কনফিগারেশনের কারণে এটি রাসায়নিক বিক্রিয়ায় অংশ নেয় না।

৩. আইসোটোপ কী?
আইসোটোপের তাদের কেন্দ্রে একই সংখ্যক প্রোটন থাকে, কিন্তু তাদের নিউট্রন সংখ্যা ভিন্ন হতে পারে। এতে তারা একই উপাদানের কিছুটা ভারী বা হালকা সংস্করণ হয়ে ওঠে।

অনুশীলন ওয়ার্কবুক ডাউনলোড করুন

আপনি এই অনুশীলন ওয়ার্কবুকটি আর্টিকেল পড়ার সময় ডাউনলোড করতে পারেন।

ফ্রি অ্যাডভান্সড এক্সেল অনুশীলনী সমাধানসহ পান!