Tạo bảng tuần hoàn trong Excel:Hai phương pháp đơn giản

• Bạn sẽ thấy Số nguyên tử trong ô K4 , Biểu tượng phần tử trong ô K5 , Tên phần tử trong ô K8 , và Khối lượng nguyên tử trong ô K9 .

• Thay đổi ký hiệu phần tử trong ô D5 , bạn sẽ thấy thuộc tính của phần tử đó trong phạm vi K4:K9 .

Phương pháp 2 – Bảng tuần hoàn tương tác

2.1. Tạo định dạng bảng tương tác

• Tạo định dạng bảng tuần hoàn giống như phương pháp trước.
• Bảng thuộc tính của bảng tính Thuộc tính ghi lại tổng cộng 10 loại phần tử. Thêm các loại phần tử trong phạm vi D5:D14 .

2.2. Gán màu cho các loại phần tử khác nhau

• Khởi chạy Trình chỉnh sửa macro VBA từ sổ làm việc của bạn. Hãy theo dõi bài viết này:Cách viết mã VBA trong Excel .
• Dán đoạn mã sau vào Trình chỉnh sửa macro VBA của bạn .
• Nhấn nút Chạy nút hoặc F5 chìa khóa để chạy mã.

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

• Bạn sẽ thấy các màu khác nhau được gán cho nhiều loại phần tử khác nhau trong phạm vi F5:F14 .

Phân tích 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

Phần mã này lấy từng ô của myRng phạm vi và gán các màu khác nhau cho mỗi ô trong phạm vi được chỉ định.

2.3. Gán màu cho bảng tuần hoàn dựa trên loại phần tử

• Dán đoạn mã sau vào mô-đun mới.
• Nhấn nút Chạy nút hoặc F5 chìa khóa để chạy mã.

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

• Bạn sẽ thấy các thành phần trong bảng tuần hoàn được tô màu theo màu được chỉ định dựa trên loại phần tử của chúng.

Phân tích 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

• Trong phần mã này, hai vòng lặp lồng nhau lặp qua TableRng và PropertyRng phạm vi. Đối với mỗi vòng lặp trong TableRng phạm vi, một biến có tên Thuộc tính được bắt đầu bằng giá trị Không có thuộc tính . Sau đó, vòng lặp bên trong sẽ kiểm tra xem giá trị của ô hiện tại có trong TableRng hay không phạm vi khớp với bất kỳ giá trị nào trong cột đầu tiên của PropertyRng phạm vi. Thuộc tính biến được cập nhật với giá trị tương ứng từ cột thứ năm của PropertyRng phạm vi. Vòng lặp bên trong tìm kiếm các kết quả khớp, cập nhật Thuộc tính biến có giá trị của kết quả khớp cuối cùng được tìm thấy. Sau khi vòng lặp bên trong hoàn tất, vòng lặp bên ngoài sẽ di chuyển tới ô tiếp theo trong TableRng phạm vi và lặp lại quá trình. Vì vậy, Thuộc tính biến giữ giá trị thuộc tính được liên kết với mục nhập khớp cuối cùng trong PropertyRng phạm vi cho mỗi ô trong TableRng phạm vi hoặc Không có thuộc tính nếu không tìm thấy kết quả phù hợp.

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

• Trong phần mã VBA này, hai vòng lặp lồng nhau khớp với thuộc tính được liên kết với mỗi ô trong TableRng phạm vi có thuộc tính phần tử trong ElementRng phạm vi. Nếu tìm thấy kết quả khớp, ô tương ứng trong TableRng phạm vi được tô màu dựa trên chỉ mục màu (ColIndex ) được truy xuất từ ElementRng phạm vi. Quá trình này tiếp tục lặp lại cho tất cả các ô trong TableRng phạm vi, dẫn đến các ô được tô màu dựa trên các thuộc tính phần tử liên quan của chúng.
  

2.4. Tạo bảng tuần hoàn tương tác

• Dán đoạn mã sau vào mô-đun trang tính của Bảng tuần hoàn tương tác  bảng tính.
• Lưu mã.

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

• Nhấp vào một ô bên trong bảng tuần hoàn trong Bảng tuần hoàn tương tác bảng tính; bạn sẽ thấy thuộc tính của phần tử của ô đó. Nhưng nếu bạn chọn nhiều ô, một hộp thoại cảnh báo sẽ xuất hiện.

Phân tích VBA

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

• Phần mã VBA này kiểm tra số lượng ô hiện được chọn. Nếu số lượng ô được chọn vượt quá 1 , Nó hiển thị thông báo cảnh báo trong MsgBox để cảnh báo người dùng. Mã thoát khỏi chương trình con bằng cách sử dụng Thoát Sub lệnh, ngăn phần còn lại của mã thực thi.

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

• Phần mã VBA này lặp qua từng hàng của PropertyRng phạm vi để tìm kết quả khớp giữa giá trị của ô đã chọn (Atom ) và các giá trị ở cột đầu tiên của mỗi hàng. Khi tìm thấy kết quả khớp, một số thuộc tính của PropertyRng phạm vi được hiển thị trong bảng tính. Các thuộc tính này bao gồm dữ liệu từ cột thứ hai, thứ ba và thứ tư của hàng phù hợp, được đặt trong phạm vi S4:S13. Ngoài ra, màu nền của phạm vi S4:S13 được đặt để khớp với màu nền của ô đã chọn.

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

• Khi ô được chọn trống hoặc chứa giá trị số, phạm vi S4:S13 sẽ bị xóa. Màu nền của dải ô trở thành màu trắng.
  

Những điều cần nhớ

Có một số điều cần nhớ khi lập bảng tuần hoàn trong Excel.

• Hãy cẩn thận với phạm vi nguồn của VLOOKUP  chức năng.
• Sử dụng các màu khác nhau cho từng thuộc tính phần tử.
• Đảm bảo rằng các thuộc tính trong bảng thuộc tính là chính xác.

Câu hỏi thường gặp

1. Các yếu tố đại diện trong bảng tuần hoàn là gì?
Các phần tử đại diện là các phần tử trong nhóm 1 , 2 , và 13 tới 18 của bảng tuần hoàn. Chúng thể hiện nhiều tính chất hóa học và tham gia vào nhiều phản ứng hóa học.

2. Ý nghĩa của khí hiếm là gì?
Chúng ta đề cập đến từng phần tử của nhóm 18 như một khí hiếm. Khí Noble trơ về mặt hóa học. Nó không tham gia vào các phản ứng hóa học do cấu hình electron ổn định.

3. Đồng vị là gì?
Các đồng vị có cùng số proton ở trung tâm, nhưng chúng có thể có số neutron khác nhau. Điều này làm cho chúng trở thành phiên bản nặng hơn hoặc nhẹ hơn của cùng một phần tử.

Tải xuống sổ tay thực hành

Bạn có thể tải xuống sổ bài tập thực hành này trong khi xem qua bài viết.