Як легко перетворити між собою різні одиниці температури, такі як Цельсій, Фаренгейт, Кельвін, у своєму слові

У цій статті ми покажемо вам, як легко перетворити температурні одиниці, такі як Цельсій, Фаренгейт, Кельвін, у своєму слові.

Добре використовуючи Word VBA, ви можете створити багато маленьких, але корисних інструментів. Наприклад, вам абсолютно добре створити перетворювач температури в Word, щоб зробити за вас нудне перетворення. Тому читайте далі, щоб дізнатися більше деталей.

Вставте форму користувача

Щоб створити перетворювач, вам спочатку доведеться створити форму користувача.

1. Перш за все, натисніть “Alt + F11”, щоб відкрити редактор VBA.
2. Потім натисніть "Звичайний" у лівій колонці.
3. Потім натисніть «Вставити» та виберіть «UserForm».
4. Клацніть на ручки навколо форми, щоб відрегулювати її розмір.
5. Далі натисніть “F4”, щоб запустити “Вікно властивостей”.
6. У вікні, назвіть форму користувача як “frmTemperatureConverter” та встановити підпис як "Перетворювач температури".
7. Крім того, встановіть для властивості форми “ShowModal” значення “False”.
8. Потім на панелі меню натисніть «Панель інструментів», щоб вивести її назовні.
9. Використовуйте елементи керування на панелі інструментів, щоб створити мітку, два текстових поля, дві командні кнопки та два комбіновані поля. Розмістіть ці елементи керування на формі у такому порядку:
10. Далі встановіть конкретні властивості для створених елементів керування:

• Спочатку клацніть на текстовому полі 1. Назвіть його як “txtTempValue1”.
• Потім клацніть на текстовому полі 2 і назвіть його як “txtTempValue2”.
• Потім натисніть на ярлик і встановіть його підпис як «=».
• Клацніть на поле зі списком 1 і назвіть його як “cmbTempUnit1”.
• І клацніть на поле зі списком 2 і назвіть його як “cmbTempUnit2”.
• Потім натисніть на командну кнопку 1 і назвіть її "btnConvert". Встановіть підпис як «Перетворити».
• Клацніть на командну кнопку 2 та назвіть її "btnClose". Встановіть його підпис як “Закрити”.

Крім того, встановіть інші властивості, якщо це необхідно.

Коди введення для елементів керування

1. Двічі клацніть на кнопку «Конвертувати», щоб ввести область коду. Вставте туди такі коди:

Private Sub btnConvert_Click()
  Dim dTempValue1 As Double, dTempValue1InF As Double, dTempValue2 As Double
  Dim strTempUnit1 As String, strTempUnit2 As String
 
  strTempUnit1 = frmTemperatureConverter.cmbTempUnit1.Text
  strTempUnit2 = frmTemperatureConverter.cmbTempUnit2.Text
 
  dTempValue1 = CDbl(frmTemperatureConverter.txtTempValue1.Value)
 
  Select Case strTempUnit1
    Case "Celsius"
      dTempValue1InF = dTempValue1 * 33.8
    Case "Fahrenheit"
      dTempValue1InF = dTempValue1
    Case "Kelvin"
      dTempValue1InF = dTempValue1 * -457.87
    Case "Rankine"
      dTempValue1InF = dTempValue1 * -458.67
    Case "Delisle"
      dTempValue1InF = dTempValue1 * 1.2
    Case "Newton"
      dTempValue1InF = dTempValue1 * 102.414
    Case "Réaumur"
      dTempValue1InF = dTempValue1 * 34.25
    Case "Rømer"
      dTempValue1InF = dTempValue1 * 3.42857143
  End Select
 
  Select Case strTempUnit2
    Case "Celsius"
      dTempValue2 = dTempValue1InF / 33.8
    Case "Fahrenheit"
      dTempValue2 = dTempValue1InF
    Case "Kelvin"
      dTempValue2 = dTempValue1InF / -457.87
    Case "Rankine"
      dTempValue2 = dTempValue1InF / -458.67
    Case "Delisle"
      dTempValue2 = dTempValue1InF / 1.2
    Case "Newton"
      dTempValue2 = dTempValue1InF / 102.414
    Case "Réaumur"
      dTempValue2 = dTempValue1InF / 34.25
    Case "Rømer"
      dTempValue2 = dTempValue1InF / 3.42857143
  End Select
 
  ' Convert dTempValue2 to string
  If Abs(dTempValue2 - Int(dTempValue2)) > 0.00000001 Then
    frmTemperatureConverter.txtTempValue2.Value = Format(dTempValue2, "###0.00000000")
  Else
    frmTemperatureConverter.txtTempValue2.Value = Format(dTempValue2, "General Number")
  End If
End Sub

2. Далі перейдіть у форму та двічі натисніть кнопку «Закрити». Введіть коди:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Потім двічі клацніть на формі, щоб ввести її. Ви можете побачити 2 комбінованих поля вгорі. Переконайтеся, що ви вибрали "UserForm" для лівої та "Initialize" для правої.
4. І вставте туди коди теж.

Private Sub UserForm_Initialize()
    cmbTempUnit1.List = Array("Celsius", "Fahrenheit", "Kelvin", "Rankine", "Delisle", _
                        "Newton", "Réaumur", "Rømer")
    cmbTempUnit2.List = Array("Celsius", "Fahrenheit", "Kelvin", "Rankine", "Delisle", _
                        "Newton", "Réaumur", "Rømer")
End Sub

5. Нарешті, збережіть усі коди.

Вставте модуль

1. Все ще у редакторі VBA, натисніть кнопку «Вставити» під проектом «Звичайний».
2. Але цього разу виберіть «Модуль».
3. Двічі клацніть на ньому, щоб відкрити та вставити коди:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Тепер запустіть макрос “TriggerTemperatureConverter”, і ви зможете запустити перетворювач. Ви можете призначити кнопку для цього макросу. Детальні кроки див. У цій статті: Як видалити форматування вставлених текстів за допомогою макросів та VBA у вашому слові

Ви можете переглянути відео нижче:

Готовий до згортання слів

Незалежно від того, сталася у вас втрата даних чи ні, ви завжди повинні підготуватись, якщо трапиться аварія даних. Серед усіх доступних корисних порад ми настійно рекомендуємо отримати a відновлення docx - - інструмент заздалегідь.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити Excel та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com