방법 1 – 수동 주기율표
1.1. 속성 테이블에 데이터 삽입
주기율표의 각 요소에는 고유한 속성 집합이 있습니다. 이러한 속성은 주기율표의 요소가 나타내는 다양한 특성, 추세 및 관계를 나타냅니다. 주요 속성은 다음과 같습니다.
기호 :각 원소에는 고유한 기호, 즉 화학 원소를 나타내는 데 사용되는 한 글자 또는 두 글자 약어가 있습니다.
원자 번호 :원자 번호는 원소의 양성자 수를 나타냅니다. 이는 모든 요소의 고유한 속성입니다.
원자 질량 :원자 질량은 특정 원소의 원자의 무게 또는 질량을 나타냅니다. 여기에는 원자의 양성자, 중성자 및 전자의 질량이 포함됩니다. 원자 질량 단위로 측정합니다. (아무 ).
요소 유형 :요소 유형은 요소의 속성과 특성에 따라 요소를 여러 범주로 분류하는 것을 말합니다. 이러한 카테고리는 다른 요소의 일반적인 동작을 이해하는 데 도움이 됩니다.
118의 속성을 수집했습니다. 표 형식의 요소. 이 성질표는 주기율표를 만드는데 꼭 필요한 것입니다.
1.2. 주기율표 형식 만들기
- 1의 그룹 번호가 포함된 열 –18 .
- 1부터 기간 번호가 포함된 행 –7 .
- 그룹 번호와 기간 번호에 따라 해당 셀에 각 요소의 기호를 입력하세요.
- 필요에 따라 표 형식을 조정해야 합니다. 행 높이와 열 너비를 조정할 수 있습니다. 표를 시각적으로 더욱 매력적이고 이해하기 쉽게 만들기 위해 글꼴 크기, 색상 및 셀 테두리를 변경할 수 있습니다.
1.3. Excel 수식으로 주기율표 자동화
- 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, Properties!$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 매크로 편집기 실행 통합 문서에서. 이 문서를 따르십시오:Excel에서 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에 경고 메시지를 표시합니다. 사용자에게 경고합니다. 코드는 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 의 소스 범위에 주의하세요. 기능.
- 각 요소 속성에 서로 다른 색상을 사용하세요.
- 속성 표의 속성이 정확한지 확인하세요.
자주 묻는 질문
1. 주기율표의 대표적인 원소는 무엇입니까?
대표 요소는 그룹 1의 요소입니다. , 2 및 13 18 주기율표의. 이들은 광범위한 화학적 특성을 나타내며 수많은 화학 반응에 참여합니다.
2. 희가스의 중요성은 무엇입니까?
18 그룹의 각 요소를 참조합니다. 희가스로. 노블 가스는 화학적으로 불활성입니다. 안정적인 전자 구성으로 인해 화학 반응에 참여하지 않습니다.
3. 동위원소란 무엇입니까?
동위원소는 중심에 있는 양성자 수는 같지만 중성자 수는 다를 수 있습니다. 이렇게 하면 동일한 요소에 대해 조금 더 무겁거나 가벼운 버전이 됩니다.
연습 문제집 다운로드
기사를 읽으면서 이 연습 문제집을 다운로드할 수 있습니다.
솔루션이 포함된 무료 고급 Excel 연습을 받아보세요!