Таблица химических элементов в excel - Word и Excel - помощь в работе с программами

Добрый день.

Дмитрий Иванович Менделеев родился в г. Тобольск Тобольской губернии Российской империи 8 февраля 1834 года в семье директора тобольской гимназии.

В 1869 году, в возрасте 35 лет Д.И. Менделеев открыл закон природы, позднее названный в честь открывателя «Периодический закон Д.И. Менделеева ».

На основании открытого закона природы была создана «Таблица химических элементов Менделеева».

Сначала данная таблица имела не вполне приглядный вид. Сейчас эта таблица существует во множестве вариантов оформления.

Один из наиболее удачных вариантов оформленных в виде таблицы «Excel» Вы можете скачать по ссылке ниже:

Таблица Менделеева в формате Excel/ бесплатно

Таблица полностью готова к печати, но гораздо удобнее ей пользоваться в электронном виде, так как при наведении курсора мыши на ячейки с элементами в «Excel» появляется всплывающая подсказка с подробным описанием элемента.

Описание элемента в таблице Менделеева

Источник

Тип: Программа

Программные средства: Microsoft Office Excel 2007

Описание: Данная программа представляет собой периодическую систему химических элементов Д. И. Менделеева, разработанную в среде Excel. В таблице содержатся не только основные сведения об элементах, но и дополнительная информация, появляющаяся в виде заметок при наведении курсора на верхний правый угол ячейки элемента. Элементы выделены цветом в зависимости от их свойств. Правила выделения указаны в «Справке» программы.

Практическое применение: Данной программой можно пользоваться не только индивидуально. Содержащиеся в ней данные будут полезны на уроках химии, а красочный дизайн даст наглядное представление о периодической системе элементов и вызовет дополнительный интерес, особенно у учеников первого года обучения химии. Также программу можно использовать на уроках информатики как пример таблицы, созданной в Excel.

Скачать:

Источник

Сообщение было отмечено ЮрийТ как решение

Решение

Visual Basic

Function MolMassa(ByVal strFormula As String) As Double
    Dim i%, j%, k%, El, eM, S$, S1$, S2$, SubSum#(), OldEM#, OldEM2#, ReCalc As Boolean, LenFormula%, Chislo$, dic
    El = Split("Ac Ag Al Am Ar As At Au Ba Be Bi Bk Br Ca Cd Ce Cf Cl Cm Co Cr Cs Cu Dy Er Es Eu Fe Fm Fr Ga Gd Ge He Hf Hg Ho In Ir Kr La Li Lr Lu Md Mg Mn Mo Na Nb Nd Ne Ni No Np Os Pa Pb Pd Pm Po Pr Pt Pu Ra Rb Re Rh Rn Ru Sb Sc Se Si Sm Sn Sr Ta Tb Tc Te Th Ti Tl Tm Xe Yb Zn Zr B C F H I K N O P S U V W Y")
    eM = Array(227.028, 107.868, 26.982, 243.061, 39.948, 74.922, 209.987, 196.967, 137.33, 9.012, 208.98, 247.07, 79.904, 40.078, 112.41, 140.12, 251.08, 35.453, 247.07, 58.933, 51.996, 132.905, 63.546, 162.5, 167.26, 252.083, 151.96, 55.847, 257.095, 223.02, 69.723, 157.25, 72.59, 4.003, 178.49, 200.59, 164.93, 114.82, 192.22, 83.8, 138.906, 6.941, 260.105, 174.967, 258.099, 24.305, 54.938, 95.94, 22.99, 92.906, 144.24, 20.179, 58.69, 259.101, 237.048, 190.2, 231.036, 207.2, 106.42, 144.913, 208.982, 140.908, 195.08, 244.064, 226.025, 85.468, 186.207, 102.906, 222.018, 101.07, 121.75, 44.956, 78.96, 28.086, 150.36, 118.71, 87.62, 180.948, 158.925, 97.907, 127.6, 232.038, 47.88, 204.383, 168.934, 131.29, 173.04, 65.39, 91.224, 10.811, 12.011, 18.998, 1.008, 126.905, 39.098, 14.007, 15.999, 30.974, 32.066, 238.029, 50.942, 183.85, 88.906)
    strFormula = strFormula & "#"
    LenFormula = Len(strFormula)
    ReDim SubSum(1)
    Set dic = CreateObject("Scripting.Dictionary")
    For j = 0 To UBound(El)
        dic(El(j)) = eM(j)
    Next j
    k = 1
    i = 1
    Do
        S1 = Mid(strFormula, i, 1)
        ReCalc = True
        OldEM2 = OldEM
        Select Case S1
            Case "("
            Case ")", "#"
            Case "0" To "9"
                Chislo = Chislo & S1
                ReCalc = False
            Case Else
                S2 = Mid(strFormula, i, 2)
                S = ""
                If dic.Exists(S2) Then
                    S = S2
                ElseIf dic.Exists(S1) Then
                    S = S1
                End If
                If S <> "" Then
                    OldEM = dic(S)
                    i = i - 1 + Len(S)
                End If
        End Select
        If ReCalc Then
            If Chislo = "" Then Chislo = "1"
            SubSum(k) = SubSum(k) + OldEM2 * Val(Chislo)
            Chislo = ""
        End If
        Select Case S1
            Case "("
                OldEM = 0
                k = k + 1
                ReDim Preserve SubSum(k)
                SubSum(k) = 0
            Case ")"
                OldEM = SubSum(k)
                k = k - 1
        End Select
        i = i + 1
    Loop While i <= LenFormula
    MolMassa = SubSum(1)
    Set dic = Nothing
End Function
 
Sub Test_MolMassa()
    Debug.Print "H", MolMassa("H")
    Debug.Print "O", MolMassa("O")
    Debug.Print "H2O", MolMassa("H2O")
    
    Debug.Print "S", MolMassa("S")
    Debug.Print "Al2", MolMassa("Al2")
    Debug.Print "SO4", MolMassa("SO4")
    Debug.Print "(SO4)3", MolMassa("(SO4)3")
    Debug.Print "Al2(SO4)3", MolMassa("Al2(SO4)3")
 
    Debug.Print "H2(SO4)3", MolMassa("H2(SO4)3")
 
    Debug.Print "(CH3)3", MolMassa("(CH3)3")
    Debug.Print "(CH3)3N", MolMassa("(CH3)3N")
    Debug.Print "((CH3)3N)2", MolMassa("((CH3)3N)2")
End Sub

Вариант не для Windows без словаря

Кликните здесь для просмотра всего текста

Visual Basic

Function MolMassa2(ByVal strFormula As String) As Double ' Медленный вариант не под Windows
    Dim i%, j%, k%, El, eM, S$, S1$, S2$, SubSum#(), OldEM#, OldEM2#, ReCalc As Boolean, LenFormula%, Chislo$
    El = Split("Ac Ag Al Am Ar As At Au Ba Be Bi Bk Br Ca Cd Ce Cf Cl Cm Co Cr Cs Cu Dy Er Es Eu Fe Fm Fr Ga Gd Ge He Hf Hg Ho In Ir Kr La Li Lr Lu Md Mg Mn Mo Na Nb Nd Ne Ni No Np Os Pa Pb Pd Pm Po Pr Pt Pu Ra Rb Re Rh Rn Ru Sb Sc Se Si Sm Sn Sr Ta Tb Tc Te Th Ti Tl Tm Xe Yb Zn Zr B C F H I K N O P S U V W Y")
    eM = Array(227.028, 107.868, 26.982, 243.061, 39.948, 74.922, 209.987, 196.967, 137.33, 9.012, 208.98, 247.07, 79.904, 40.078, 112.41, 140.12, 251.08, 35.453, 247.07, 58.933, 51.996, 132.905, 63.546, 162.5, 167.26, 252.083, 151.96, 55.847, 257.095, 223.02, 69.723, 157.25, 72.59, 4.003, 178.49, 200.59, 164.93, 114.82, 192.22, 83.8, 138.906, 6.941, 260.105, 174.967, 258.099, 24.305, 54.938, 95.94, 22.99, 92.906, 144.24, 20.179, 58.69, 259.101, 237.048, 190.2, 231.036, 207.2, 106.42, 144.913, 208.982, 140.908, 195.08, 244.064, 226.025, 85.468, 186.207, 102.906, 222.018, 101.07, 121.75, 44.956, 78.96, 28.086, 150.36, 118.71, 87.62, 180.948, 158.925, 97.907, 127.6, 232.038, 47.88, 204.383, 168.934, 131.29, 173.04, 65.39, 91.224, 10.811, 12.011, 18.998, 1.008, 126.905, 39.098, 14.007, 15.999, 30.974, 32.066, 238.029, 50.942, 183.85, 88.906)
    strFormula = strFormula & "#"
    LenFormula = Len(strFormula)
    ReDim SubSum(1)
    k = 1
    i = 1
    Do
        S1 = Mid(strFormula, i, 1)
        ReCalc = True
        OldEM2 = OldEM
        Select Case S1
            Case "("
            Case ")", "#"
            Case "0" To "9"
                Chislo = Chislo & S1
                ReCalc = False
            Case Else
                S2 = Mid(strFormula, i, 2)
                For j = 0 To UBound(El)
                    If Len(El(j)) = 1 Then S = S1 Else S = S2
                    If S = El(j) Then
                        OldEM = eM(j)
                        i = i - 1 + Len(El(j))
                        Exit For
                    End If
                Next j
        End Select
        If ReCalc Then
            If Chislo = "" Then Chislo = "1"
            SubSum(k) = SubSum(k) + OldEM2 * Val(Chislo)
            Chislo = ""
        End If
        Select Case S1
            Case "("
                OldEM = 0
                k = k + 1
                ReDim Preserve SubSum(k)
                SubSum(k) = 0
            Case ")"
                OldEM = SubSum(k)
                k = k - 1
        End Select
        i = i + 1
    Loop While i <= LenFormula
    MolMassa2 = SubSum(1)
End Function

Источник

Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel для Интернета Еще…Меньше

С помощью связанных типов данных вы можете легко добавлять химические данные и факты непосредственно в Excel. Для этого сначала преобразуйте текст в тип данныхХимия, а затем извлеките нужные факты в книгу. В этой статье представлены инструкции, как это сделать.

Примечание: Типы данных «Химия» доступны только обладателям подписки Microsoft 365 персональный, Microsoft 365 для семьи и Microsoft 365 для образования. Дополнительные сведения о требованиях см. в статье Связанные типы данных: вопросы, ответы и рекомендации.

Преобразование в тип данных «Химия» и его использование

В ячейке введите название химического элемента, химического соединения, изотопа, минерала или химическую формулу. Например, можно ввести «Водород», «Вода» или «H2O». Если вы вводите несколько элементов, располагайте каждый из них в отдельной ячейке столбца.
Выделите эти ячейки и выберите Вставка > Таблица, чтобы создать таблицу. При желании добавьте заголовок столбца.

Примечание: Хотя создавать таблицу необязательно, мы рекомендуем помещать текст в таблицу для оптимальной работы.
Выбрав таблицу, нажмите Данные, разверните раскрывающуюся коллекцию Типы данных и щелкните Химия.
Excel преобразует текст в тип данных «Химия», соответствующий нашим онлайн-источникам. Вы узнаете, что он преобразован, когда в ячейках появится значок типа данных «Химия» .

Примечание: Если в ячейке отображается вопросительный знак , это означает, что Excel нужна ваша помощь для уточнения соответствия. См. раздел об использовании средства выбора данных ниже.
Чтобы добавить данные в таблицу, выделите одну или несколько преобразованных ячеек. После этого появится кнопка Добавить столбец . Нажмите эту кнопку и выберите любое из полей, чтобы добавить эти факты в таблицу.
Советы:
- Если вы хотите просмотреть данные перед их вставкой, вы можете выбрать в ячейке значок «Химия» , чтобы открыть карточку.
- Дополнительные сведения см. в статье Просмотр и вставка данных из типа данных.
После добавления нужных данных в книгу вы можете использовать любимые функции Excel, например формулы, чтобы ссылаться на данные и работать с ними. Дополнительные сведения см. в статье Создание формул, которые ссылаются на типы данных.

Используйте средство выбора данных для уточнения типов данных «Химия».

Ниже приведены советы, которые помогут вам определить правильное соответствие для вашего текста. Если вам нужна помощь по использованию средства выбора данных, см. статью Указание типов данных с помощью мастера выбора данных.

При вводе химических формул для преобразования в тип данных «Химия» учитывается регистр. Если не возвращаются нужные вам результаты, проверьте регистр. Например, «Co» представляет «кобальт», а «CO» представляет монооксид углерода.
В случае элементов из периодической таблицы может потребоваться выбрать между типом данных, который представляет химическое соединение,и типом данных, который представляет химический элемент:
- Химические соединения представлены значком и содержат такие сведения, как структура, фазовая диаграмма, идентификаторы и многое другое.
- Химические соединения представлены значком и содержат такие сведения, как размер атома, свойства периодической таблицы, изотопы и многое другое.

См. также

Связанные типы данных: вопросы, ответы и рекомендации

Какие типы связанных данных доступны в Excel?

Создание формул, которые ссылаются на типы данных

Функция ЗНАЧПОЛЯ

Ошибка #ПОЛЕ!

Нужна дополнительная помощь?

Источник

В следующей статье подробно описано, как вводить химические формулы в Excel.

Например: введите химическую формулу самых сильных кислот в соответствии со следующей таблицей:

Например: введите химическую формулу фторантимоновой кислоты: H2SFbF6.

Способ 1

Шаг 1: В ячейку введите набранную формулу H.

Шаг 2. Щелкните правой кнопкой мыши ячейку, в которой вводится формула, и выберите «Форматировать ячейки».

Шаг 3: Появится диалоговое окно и выберите Нижний индекс -> ОК.

Шаг 4: Вернитесь к ячейке, в которой вводится формула, и введите число 2 ->, указанное ниже.

Изображение 5 Инструкции по вводу химических формул в Excel

Шаг 5: Чтобы вернуться в обычный режим набора текста, щелкните правой кнопкой мыши ячейку, в которой вводится формула, выберите «Формат ячеек».

Изображение 6 Инструкции по вводу химических формул в Excel

Шаг 6: Откроется диалоговое окно в разделе «Подстрочный индекс» -> «ОК».

Изображение 7 Инструкции по вводу химических формул в Excel

Шаг 7: Вернитесь в ячейку, в которой вводится формула, чтобы ввести другие символы.

Изображение 8 Инструкции по вводу химических формул в Excel

Шаг 8: Действуйте, как на шаге 3, и введите индекс ниже 6 -> результат представляет собой химическую формулу фторированной сурьмяной кислоты: H2SFbF6.

Изображение 9 Инструкции по вводу химических формул в Excel

Способ 2

Шаг 1. Введите все символы в формулу, включая индекс.

Изображение 10 Инструкции по вводу химических формул в Excel

Шаг 2: Выделите символы под индексом -> щелкните правой кнопкой мыши и выберите Формат ячеек.

Изображение 11 Инструкции по вводу химических формул в Excel

Шаг 3: Появится диалоговое окно и выберите Нижний индекс -> ОК.

Изображение 12 Инструкции по вводу химических формул в Excel

Результат записал индекс ниже:

Изображение 13 Инструкции по вводу химических формул в Excel

Аналогично другим индикаторам:

Изображение 14 Инструкции по вводу химических формул в Excel

Для остальных кислот проделаем то же самое -> результат:

Изображение 15 Инструкции по вводу химических формул в Excel

При этом два вышеуказанных способа в основном одинаковы, но отличаются только порядком действий.

Удачи!

Источник