এক্সেলে একটি পর্যায় সারণী তৈরি করুন:দুটি সহজ পদ্ধতি

• কোষ D5-এ যেকোনো উপাদানের নাম রাখুন .
• একত্রীকরণ এবং কেন্দ্র পরিসীমা D5:E5 এ .

• একত্রীকরণ এবং কেন্দ্র ৷ থেকে পরিসর K4:M4 , ফন্ট সাইজ 16 রাখুন .

• একত্রীকরণ এবং কেন্দ্র থেকে পরিসর K5:M7 , ফন্ট সাইজ 48 রাখুন .

• একত্রীকরণ এবং কেন্দ্র থেকে পরিসর K8:M8 , ফন্ট সাইজ 20 রাখুন .

• একত্রীকরণ এবং কেন্দ্র থেকে পরিসর 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, বৈশিষ্ট্য!$B$5:$F$123,2,FALSE)

VLOOKUP ফাংশন সেল D5 এর মান খোঁজে পরিসীমা B5:F123-এ সম্পত্তি থেকে কার্যপত্রক যদি মানটি মিলে যায়, এটি দ্বিতীয় কলাম থেকে একটি মান প্রদান করে (2 ) নির্দিষ্ট পরিসরের। মিথ্যা সঠিক মিল বোঝায়।
ফলাফল:1

• IFERROR(VLOOKUP($D$5, বৈশিষ্ট্য!$B$5:$F$123,2,FALSE), “”)

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

• আপনি পারমাণবিক সংখ্যা দেখতে পাবেন সেলে K4 , উপাদান প্রতীক সেলে K5 , উপাদানের নাম সেলে K8 , এবং পারমাণবিক ভর সেলে K9 .

• কোষ D5-এ উপাদান প্রতীক পরিবর্তন করুন , আপনি রেঞ্জ K4:K9-এ সেই উপাদানটির বৈশিষ্ট্য দেখতে পাবেন .

পদ্ধতি 2 – ইন্টারেক্টিভ পর্যায় সারণী

2.1. ইন্টারেক্টিভ টেবিল ফরম্যাট তৈরি করুন

• আগের পদ্ধতির মতোই একটি পর্যায় সারণী বিন্যাস তৈরি করুন।
• প্রপার্টি ওয়ার্কশীটের প্রোপার্টি টেবিলটি মোট 10 ধরনের উপাদান রেকর্ড করে। পরিসীমা D5:D14-এ উপাদানের ধরন যোগ করুন .

2.2. বিভিন্ন উপাদান প্রকারের জন্য রং বরাদ্দ করুন

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

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. উপাদান প্রকারের উপর ভিত্তি করে পর্যায় সারণীতে রং বরাদ্দ করুন

• নিম্নলিখিত কোডটি একটি নতুন মডিউলে পেস্ট করুন।
• চালান টিপুন বোতাম বা 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-এ প্রতিটি লুপের জন্য পরিসর, সম্পত্তি নামের একটি পরিবর্তনশীল কোন সম্পত্তি নেই একটি মান দিয়ে শুরু করা হয়েছে৷ . অভ্যন্তরীণ লুপ তারপর 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

• ইন্টারেক্টিভ পর্যায় সারণীতে পর্যায় সারণির ভিতরে একটি কক্ষে ক্লিক করুন কার্যপত্রক; আপনি সেই ঘরের উপাদানটির বৈশিষ্ট্য দেখতে পাবেন। কিন্তু যদি আপনি একাধিক ঘর নির্বাচন করেন, একটি সতর্কীকরণ ডায়ালগ বক্স প্রদর্শিত হবে৷
৷

VBA ব্রেকডাউন

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

• VBA কোডের এই অংশটি বর্তমানে নির্বাচিত কক্ষের সংখ্যা পরীক্ষা করে। যদি নির্বাচিত কক্ষের সংখ্যা 1 ছাড়িয়ে যায় , এটি একটি MsgBox-এ একটি সতর্কতা বার্তা প্রদর্শন করে৷ ব্যবহারকারীকে সতর্ক করতে। কোডটি প্রস্থান সাব ব্যবহার করে সাবরুটিন থেকে প্রস্থান করে কমান্ড, বাকি কোডগুলিকে কার্যকর করা থেকে বাধা দেয়।

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 সাফ করা হয়। পরিসরের পটভূমির রঙ সাদা হয়ে যায়।
  

মনে রাখার মতো বিষয়গুলি৷

Excel এ একটি পর্যায় সারণি তৈরি করার সময় কিছু জিনিস মনে রাখতে হবে।

• VLOOKUP -এর উৎস পরিসর সম্পর্কে সতর্ক থাকুন ফাংশন।
• প্রতিটি উপাদানের বৈশিষ্ট্যের জন্য বিভিন্ন রং ব্যবহার করুন।
• প্রপার্টি টেবিলের বৈশিষ্ট্যগুলি সঠিক কিনা তা নিশ্চিত করুন।

প্রায়শই জিজ্ঞাসিত প্রশ্ন

1. পর্যায় সারণীতে প্রতিনিধিত্বকারী উপাদানগুলি কী কী?
প্রতিনিধিত্বমূলক উপাদান হল 1 গ্রুপের উপাদান , 2 , এবং 13 থেকে 18 পর্যায় সারণীর। তারা বিস্তৃত রাসায়নিক বৈশিষ্ট্য প্রদর্শন করে এবং অসংখ্য রাসায়নিক বিক্রিয়ায় অংশগ্রহণ করে।

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

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

অভ্যাস ওয়ার্কবুক ডাউনলোড করুন

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