Excel で周期表を作成する:2 つの簡単な方法

方法 1 – 手動周期表

1.1.プロパティ テーブルにデータを挿入します。

周期表の各元素には、固有の一連の特性があります。これらの特性は、周期表の元素によって示されるさまざまな特性、傾向、および関係を指します。主要なプロパティは次のとおりです。

シンボル :各元素には独自の記号があり、化学元素を表すために使用される 1 文字または 2 文字の略語が使用されます。

原子番号 :原子番号は、元素内の陽子の数を指します。これは、あらゆる要素に固有のプロパティです。

原子質量 :原子質量とは、特定の元素の原子の重量または質量を指します。これには、原子内の陽子、中性子、電子の質量が含まれます。私たちは原子質量単位で測定します。 (あむ ).

要素の種類 :要素タイプとは、要素をその特性と特性に基づいてさまざまなカテゴリに分類することを指します。これらのカテゴリは、他の要素の一般的な動作を理解するのに役立ちます。

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 列目の値 (2) が返されます。 ) 指定された範囲の。 誤り は完全一致を示します。
結果:1

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

恐怖 関数は 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

• コードのこの部分では、2 つのネストされたループが TableRng を反復処理します。 とプロパティリング 範囲。 TableRng の各ループについて range、プロパティという名前の変数 プロパティなしの値で開始されます 。次に、内側のループは、TableRng 内の現在のセルの値がどうかをチェックします。 range は、PropertyRng の最初の列の任意の値と一致します。 範囲。 プロパティ 変数は、PropertyRng の 5 列目の対応する値で更新されます。 範囲。内側のループは一致するものを検索し、プロパティを更新します。 見つかった最後に一致した値を含む変数。内側のループが完了すると、外側のループは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 コードのこの部分では、2 つのネストされたループが、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 を超える場合 , メッセージボックスに警告メッセージが表示されます。 ユーザーに警告します。このコードは、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 の範囲内に配置される、一致した行の 2 番目、3 番目、および 4 番目の列のデータが含まれます。 また範囲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 の元素です。 、2 、 13 18 まで 周期表の。これらは幅広い化学的特性を示し、多数の化学反応に関与します。

２．希ガスの重要性は何ですか?
グループ 18 の各要素を指します。 希ガスとして。希ガスは化学的に不活性です。電子配置が安定しているため、化学反応には関与しません。

３．同位体とは何ですか?
同位体の中心には同じ数の陽子がありますが、異なる数の中性子を持つことができます。これにより、同じ要素の少し重いバージョンまたは軽いバージョンになります。

練習ワークブックをダウンロード

この記事を読みながら、この練習用ワークブックをダウンロードできます。

ソリューション付きの高度な Excel 演習を無料で入手しましょう!