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

Phương pháp 1 – Bảng tuần hoàn thủ công

1.1. Nhập dữ liệu vào Bảng thuộc tính

Mỗi nguyên tố của bảng tuần hoàn có một tập thuộc tính duy nhất. Các thuộc tính này đề cập đến các đặc điểm, xu hướng và mối quan hệ được thể hiện bởi các nguyên tố của bảng tuần hoàn. Các thuộc tính chính như sau.

Ký hiệu: Mỗi nguyên tố có ký hiệu riêng, viết tắt một hoặc hai chữ cái dùng để đại diện cho nguyên tố hóa học.

Số nguyên tử: Số nguyên tử là số proton trong một nguyên tố. Đây là thuộc tính duy nhất của bất kỳ nguyên tố nào.

Khối lượng nguyên tử: Khối lượng nguyên tử là trọng lượng hoặc khối lượng của một nguyên tử của một nguyên tố cụ thể. Nó bao gồm khối lượng của proton, neutron và electron trong nguyên tử. Chúng ta đo bằng Đơn vị khối lượng nguyên tử (amu).

Loại nguyên tố: Loại nguyên tố đề cập đến việc phân loại nguyên tố thành các danh mục khác nhau dựa trên thuộc tính và đặc điểm của chúng. Các danh mục này giúp hiểu hành vi chung của các nguyên tố khác.

Chúng tôi đã thu thập thuộc tính của 118 nguyên tố dưới dạng bảng. Bảng thuộc tính này thiết yếu để tạo bảng tuần hoàn.

1.2. Tạo định dạng Bảng tuần hoàn

• Các cột với số nhóm từ 1–18.
• Các hàng với số chu kỳ từ 1–7.
• Nhập ký hiệu của mỗi nguyên tố vào ô thích hợp tùy thuộc vào số nhóm và số chu kỳ của chúng.
• Bạn nên điều chỉnh định dạng bảng theo nhu cầu. Bạn có thể điều chỉnh chiều cao hàng và chiều rộng cột. Bạn có thể thay đổi cỡ chữ, màu sắc và viền ô để làm cho bảng đẹp hơn và dễ hiểu hơn.

1.3. Tự động hóa Bảng tuần hoàn với công thức Excel

• Đặt tên bất kỳ nguyên tố nào vào ô D5.
• Gộp & Căn giữa đến phạm vi D5:E5.

• Gộp & Căn giữa đến phạm vi K4:M4, đặt cỡ chữ 16.

• Gộp & Căn giữa đến phạm vi K5:M7, đặt cỡ chữ 48.

• Gộp & Căn giữa đến phạm vi K8:M8, đặt cỡ chữ 20.

• Gộp & Căn giữa đến phạm vi K9:M9, đặt cỡ chữ 16.

• Chèn công thức dựa trên hàm IFERROR & VLOOKUP.

• Công thức trong ô K4:

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

• Công thức trong ô K5:

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

• Công thức trong ô K8:

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

• Công thức trong ô K9:

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

Phân tích công thức

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

Hàm VLOOKUP tìm giá trị của ô D5 trong phạm vi B5:F123 từ trang tính Properties. Nếu giá trị khớp, nó trả về giá trị từ cột thứ hai (2) của phạm vi chỉ định. False biểu thị khớp chính xác.
Kết quả: 1

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

Hàm IFERROR trả về giá trị của hàm VLOOKUP . Nếu có lỗi, nó trả về chuỗi rỗng.
Kết quả: 1

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

• Thay đổi ký hiệu nguyên tố trong ô D5, bạn sẽ thấy thuộc tính của nguyê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 trang tính Properties ghi nhận tổng cộng 10 loại nguyên tố. Thêm các loại nguyên tố vào phạm vi D5:D14.

2.2. Gán màu cho các Loại nguyên tố khác nhau

• Khởi chạy Trình soạn thảo Macro VBA từ sổ làm việc của bạn. Theo dõi bài viết: Cách viết mã VBA trong Excel.
• Dán mã sau vào Trình soạn thảo Macro VBA.
• Nhấn nút Chạy hoặc phím F5 để 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 nguyên tố 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

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

2.3. Gán màu cho Bảng tuần hoàn dựa trên Loại nguyên tố

• Dán mã sau vào module mới.
• Nhấn nút Chạy hoặc phím F5 để 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 nguyên tố bảng tuần hoàn được tô màu theo màu được gán dựa trên loại nguyê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 đoạn mã này, hai vòng lặp lồng nhau lặp qua phạm vi TableRng và PropertyRng. Với mỗi vòng lặp trong phạm vi TableRng, một biến tên Property được khởi tạo với giá trị No Property. Vòng lặp bên trong sau đó kiểm tra xem giá trị của ô hiện tại trong phạm vi TableRng có khớp với bất kỳ giá trị nào trong cột đầu tiên của phạm vi PropertyRng không. Biến Property được cập nhật với giá trị tương ứng từ cột thứ năm của phạm vi PropertyRng. Vòng lặp bên trong tìm kiếm các kết quả khớp, cập nhật biến Property với giá trị của mục khớp cuối cùng tìm thấy. Khi vòng lặp bên trong hoàn thành, vòng lặp bên ngoài chuyển sang ô tiếp theo trong phạm vi TableRng và lặp lại quá trình. Vì vậy, biến Property giữ giá trị thuộc tính liên quan đến mục khớp cuối cùng trong phạm vi PropertyRng cho mỗi ô trong phạm vi TableRng, hoặc No Property nếu không tìm thấy kết quả khớ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 đoạn mã VBA này, hai vòng lặp lồng nhau khớp thuộc tính liên quan đến mỗi ô trong phạm vi TableRng với các thuộc tính nguyên tố trong phạm vi ElementRng. Nếu tìm thấy kết quả khớp, ô tương ứng trong phạm vi TableRng được tô màu dựa trên chỉ số màu (ColIndex) được lấy từ phạm vi ElementRng. Quá trình này lặp lại cho tất cả các ô trong phạm vi TableRng, dẫn đến các ô được tô màu dựa trên thuộc tính nguyên tố liên quan của chúng.
  

2.4. Làm cho Bảng tuần hoàn Tương tác

• Dán mã sau vào module trang tính của trang tính Bảng tuần hoàn Tương tác .
• 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ấn vào một ô bên trong bảng tuần hoàn trong trang tính Bảng tuần hoàn Tương tác; bạn sẽ thấy thuộc tính của nguyên tố của ô đó. Nhưng nếu bạn chọn nhiều ô, 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

• Đoạn mã VBA này kiểm tra số ô hiện đang được chọn. Nếu số ô 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 thủ tục con bằng lệnh Exit Sub, 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

• Đoạn mã VBA này lặp qua mỗi hàng của phạm vi PropertyRng để tìm sự khớp giữa giá trị của ô được chọn (Atom) và giá trị trong 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 phạm vi PropertyRng đượ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, ba và bốn của hàng khớp, được đặt trong phạm vi S4:S13. Hơn nữa, màu nền của phạm vi S4:S13 được đặt để khớp với màu nền của ô được 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 bị xóa. Màu nền của phạm vi trở thành trắng.
  

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

Có một vài điều cần nhớ khi tạo bảng tuần hoàn trong Excel.

• Cẩn thận với phạm vi nguồn của hàm VLOOKUP .
• Sử dụng màu khác nhau cho mỗi thuộc tính nguyên tố.
• Đảm bảo các thuộc tính trong bảng thuộc tính chính xác.

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

1. Nguyên tố đại diện trong bảng tuần hoàn là gì?
Nguyên tố đại diện là các nguyên tố trong nhóm 1, 2, và 13 đến 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 gọi mỗi nguyên tố của nhóm 18 là khí hiếm. Khí hiếm hóa học bất hoạt. Nó không tham gia phản ứng hóa học do cấu hình electron ổn định.

3. Đồng vị là gì?
Đồ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 khiến chúng thành phiên bản nặng hoặc nhẹ hơn một chút của cùng một nguyên tố.

Tải Sổ làm việc thực hành

Bạn có thể tải sổ làm việc thực hành này khi đọc bài viết.

Nhận BÀI TẬP EXCEL NÂNG CAO MIỄN PHÍ kèm Giải pháp!