Как лесно да конвертирате между различни температурни единици, като Целзий, Фаренхайт, Келвин, във вашата дума

В тази статия ще ви покажем как лесно да конвертирате между температурни единици, като Целзий, Фаренхайт, Келвин, във вашата дума.

Използвайте добре Word VBA, можете да създадете много малки, но полезни инструменти. Например, вие сте напълно добре да създадете преобразувател на температура в Word, за да извършите досадното преобразуване вместо вас. Затова прочетете, за да следвате повече подробности.

Поставете потребителски формуляр

За да създадете конвертора, първо ще трябва да създадете потребителска форма.

1. На първо място, натиснете „Alt + F11“, за да отворите редактора на VBA.
2. След това щракнете върху „Нормално“ в лявата колона.
3. След това щракнете върху „Insert“ и изберете „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 във вашата дума

Можете да проверите видеоклипа по-долу:

Готови за Word Collapse

Без значение дали сте претърпели загуба на данни или не, винаги трябва да се подготвяте, ако възникне бедствие с данните. Сред всички налични полезни съвети силно препоръчваме да се сдобиете с a възстановяване на docx инструмент предварително.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително възстанови Excel и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com