สร้างตารางธาตุใน Excel:สองวิธีง่ายๆ

รายละเอียดสูตร

• 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 ฟังก์ชั่น หากมีข้อผิดพลาดก็จะส่งคืนสตริงว่าง
ผลลัพธ์ :<แข็งแกร่ง> 1
<แข็งแกร่ง>

• คุณจะเห็นเลขอะตอม ในเซลล์ K4 , สัญลักษณ์องค์ประกอบ ในเซลล์ K5 , ชื่อองค์ประกอบ ในเซลล์ K8 และ มวลอะตอม ในเซลล์ K9 .

• เปลี่ยนสัญลักษณ์องค์ประกอบใน เซลล์ D5 คุณจะเห็นคุณสมบัติขององค์ประกอบนั้นใน ช่วง K4:K9 .

วิธีที่ 2 – ตารางธาตุเชิงโต้ตอบ

2.1. สร้างรูปแบบตารางเชิงโต้ตอบ

• สร้างรูปแบบตารางธาตุเช่นเดียวกับวิธีก่อนหน้า
• ตารางคุณสมบัติของแผ่นงานคุณสมบัติจะบันทึกองค์ประกอบทั้งหมด 10 ประเภท เพิ่มประเภทองค์ประกอบใน ช่วง D5:D14 .

2.2. กำหนดสีสำหรับองค์ประกอบประเภทต่างๆ

• เปิด ตัวแก้ไขแมโคร VBA จากสมุดงานของคุณ ติดตามบทความนี้:วิธีเขียนโค้ด VBA ใน Excel .
• วางโค้ดต่อไปนี้ใน VBA Macro Editor ของคุณ .
• กด เรียกใช้ ปุ่มหรือ 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 range ซึ่งเป็นตัวแปรชื่อ คุณสมบัติ เริ่มต้นด้วยค่า ไม่มีคุณสมบัติ . วงในจะตรวจสอบว่าค่าของเซลล์ปัจจุบันใน 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 เพื่อแจ้งเตือนผู้ใช้ รหัสออกจากรูทีนย่อยโดยใช้ 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 จะถูกล้าง สีพื้นหลังของช่วงจะกลายเป็นสีขาว
  

สิ่งที่ต้องจดจำ

มีบางสิ่งที่ต้องจดจำขณะสร้างตารางธาตุใน Excel

• โปรดใช้ความระมัดระวังกับช่วงแหล่งที่มาของ VLOOKUP ฟังก์ชั่น
• ใช้สีที่แตกต่างกันสำหรับคุณสมบัติของแต่ละองค์ประกอบ
• ตรวจสอบให้แน่ใจว่าคุณสมบัติในตารางคุณสมบัตินั้นถูกต้อง

คำถามที่พบบ่อย

1. องค์ประกอบที่เป็นตัวแทนในตารางธาตุคืออะไร?
องค์ประกอบที่เป็นตัวแทนคือองค์ประกอบในกลุ่ม 1 , 2 และ 13 ถึง 18 ของตารางธาตุ พวกมันแสดงคุณสมบัติทางเคมีที่หลากหลายและมีส่วนร่วมในปฏิกิริยาเคมีมากมาย

<แข็งแกร่ง>2. ก๊าซมีตระกูลมีความสำคัญอย่างไร?
เราอ้างถึงแต่ละองค์ประกอบของกลุ่ม 18 เป็นก๊าซมีตระกูล ก๊าซมีตระกูลเป็นก๊าซเฉื่อยทางเคมี มันไม่ได้มีส่วนร่วมในปฏิกิริยาเคมีเนื่องจากมีการกำหนดค่าอิเล็กตรอนที่เสถียร

<แข็งแกร่ง>3. ไอโซโทปคืออะไร?
ไอโซโทปมีจำนวนโปรตอนอยู่ตรงกลางเท่ากัน แต่สามารถมีจำนวนนิวตรอนต่างกันได้ ซึ่งทำให้มีองค์ประกอบเดียวกันในเวอร์ชันที่หนักกว่าหรือเบากว่าเล็กน้อย

ดาวน์โหลดหนังสือแบบฝึกหัด

คุณสามารถดาวน์โหลดสมุดแบบฝึกหัดนี้ขณะอ่านบทความได้