Hur man enkelt konverterar mellan olika temperaturenheter, som Celsius, Fahrenheit, Kelvin, i ditt ord

I den här artikeln visar vi hur du enkelt kan konvertera mellan temperaturenheter, som Celsius, Fahrenheit, Kelvin, i ditt ord.

Använd Word VBA bra, du kan skapa många små men användbara verktyg. Till exempel går det bra med dig att skapa en temperaturomvandlare i Word för att göra den tråkiga konverteringen åt dig. Läs därför vidare för att följa mer information.

Infoga ett användarformulär

För att skapa omvandlaren måste du skapa ett användarformulär först.

1. Tryck först på “Alt + F11” för att öppna VBA-redigeraren.
2. Klicka sedan på “Normal” i den vänstra kolumnen.
3. Klicka sedan på "Infoga" och välj "UserForm".
4. Klicka på handtagen runt formuläret för att justera storleken.
5. Tryck sedan på "F4" för att utlösa "Properties Window".
6. I fönstret, namnge användarformuläret som “frmTemperatureConverter” och ställa in dess bildtext som "Temperaturomvandlare".
7. Ange dessutom "ShowModal" -egenskapen i formuläret som "False".
8. Klicka sedan på "Verktygslåda" i menyraden för att ta fram den.
9. Använd kontrollerna i verktygslådan för att skapa en etikett, två textrutor, två kommandoknappar och två kombinationsrutor. Sätt dessa kontroller på formuläret i följande ordning:
10. Nästa ange specifika egenskaper för skapade kontroller:

• Klicka först på textrutan 1. Namnge den som “txtTempValue1”.
• Klicka sedan på textruta 2 och namnge den som “txtTempValue2”.
• Klicka sedan på etiketten och ställ in texten ”=”.
• Klicka på kombinationsruta 1 och namnge den som “cmbTempUnit1”.
• Och klicka på kombinationsruta 2 och namnge den som “cmbTempUnit2”.
• Klicka sedan på kommandoknappen 1 och namnge den som “btnConvert”. Ställ in bildtexten som "Konvertera".
• Klicka på kommandoknapp 2 och namnge den som “btnClose”. Ställ in texten som "Stäng".

Ställ dessutom in andra egenskaper om det behövs.

Ingångskoder för kontroller

1. Dubbelklicka på "Konvertera" -knappen för att komma in i kodområdet. Klistra in följande koder där:

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. Gå sedan till formuläret och dubbelklicka på knappen "Stäng". Ange koder:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Dubbelklicka sedan på formuläret för att ange det. Du kan se två kombinationsrutor överst. Se till att du väljer "UserForm" till vänster och "Initialisera" till höger.
4. Och klistra in koder där också.

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. Slutligen spara alla koder.

Sätt i en modul

1. Fortfarande i VBA-redigeraren, klicka på "Infoga" under "Normal" -projektet.
2. Men den här gången väljer du "Modul".
3. Dubbelklicka på den för att öppna och klistra in koder:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Kör nu makrot “TriggerTemperatureConverter” och du kan utlösa omvandlaren. Du kan tilldela en knapp för detta makro. För detaljerade steg, se den här artikeln: Hur man tar bort formateringen av inklistrade texter med makro och VBA i ditt ord

Du kan kolla videon nedan:

Redo för Word Collapse

Oavsett om du har upplevt dataförlust eller inte, bör du alltid förbereda dig om datakatastrof inträffar. Bland alla användbara tips som finns tillgängliga rekommenderar vi starkt att du får tag på en docx-återhämtning verktyg i förväg.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive återhämta sig excel och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com