Hogyan lehet könnyen átváltani a különböző hőmérsékleti mértékegységek között, például Celsius, Fahrenheit, Kelvin

Ebben a cikkben megmutatjuk, hogyan konvertálhat egyszerűen a hőmérsékleti mértékegységek, például Celsius, Fahrenheit, Kelvin között a Wordben.

Használja jól a Word VBA-t, sok kicsi, de hasznos eszközt hozhat létre. Például teljesen rendben van, ha létrehoz egy hőmérséklet-átalakítót a Wordben, hogy elvégezze az unalmas átalakítást az Ön helyett. Ezért olvassa el a további részleteket.

Felhasználói űrlap beszúrása

A konverter létrehozásához először létre kell hoznia egy felhasználói űrlapot.

1. Először nyomja meg az „Alt+F11” gombot a VBA-szerkesztő megnyitásához.
2. Ezután kattintson a „Normál” gombra a bal oldali oszlopban.
3. Ezután kattintson a „Beszúrás” gombra, és válassza a „Felhasználói űrlap” lehetőséget.
4. Kattintson az űrlap körüli fogantyúkra a méret beállításához.
5. Ezután nyomja meg az „F4” gombot a „Tulajdonságok ablak” elindításához.
6. Az ablakban nevezze el a felhasználói űrlapot „frmTemperatureConverter”-nek és a állítsa be a feliratot „Hőmérséklet-átalakító”.
7. Ezenkívül állítsa be az űrlap „ShowModal” tulajdonságát „False”-ra.
8. Ezután a menüsorban kattintson az „Eszköztár” elemre a megjelenítéséhez.
9. Az eszköztár vezérlőivel címkét, két szövegmezőt, két parancsgombot és két kombinált mezőt hozhat létre. Helyezze ezeket a vezérlőket az űrlapra a következő sorrendben:
10. A következő speciális tulajdonságok beállítása a létrehozott vezérlőkhöz:

• Először kattintson az 1. szövegmezőre. Nevezze el „txtTempValue1”-nek.
• Ezután kattintson a 2. szövegmezőre, és nevezze el „txtTempValue2”-nek.
• Ezután kattintson a címkére, és állítsa be a feliratot „=”-ként.
• Kattintson az 1. kombinált mezőre, és nevezze el „cmbTempUnit1”-nek.
• Kattintson a 2. kombinált mezőre, és nevezze el „cmbTempUnit2”-nek.
• Ezután kattintson az 1-es parancsgombra, és nevezze el „btnConvert”-nek. Állítsa be a feliratot „Konvertálás”-ra.
• Kattintson a 2. parancsgombra, és nevezze el „btnClose”-nak. Állítsa be a feliratot „Bezárás”-ra.

Ezenkívül, ha szükséges, állítson be más tulajdonságokat is.

Bemeneti kódok a vezérlőelemekhez

1. Kattintson duplán a „Konvertálás” gombra a kódterület belépéséhez. Illessze be a következő kódokat:

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. Ezután lépjen az űrlapra, és kattintson duplán a „Bezárás” gombra. Írja be a kódokat:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Ezután kattintson duplán az űrlapra a belépéshez. A tetején 2 kombinált doboz látható. Győződjön meg róla, hogy a „Felhasználói űrlap” lehetőséget választotta a bal oldalon, és az „Inicializálás” lehetőséget a jobb oldalon.
4. És illessze be a kódokat is.

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. Végül mentse el az összes kódot.

Helyezzen be egy modult

1. Még mindig a VBA-szerkesztőben kattintson a „Normál” projekt alatti „Beszúrás” gombra.
2. De ezúttal válassza a „Modul” lehetőséget.
3. Kattintson duplán a kódok megnyitásához és beillesztéséhez:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Most futtassa a „TriggerTemperatureConverter” makrót, és elindíthatja a konvertert. Ehhez a makróhoz hozzárendelhet egy gombot. A részletes lépésekért tekintse meg ezt a cikket: Hogyan lehet eltávolítani a beillesztett szövegek formázását makróval és VBA-val a Wordben

Az alábbi videót ellenőrizheti:

Készen áll a Word összecsukására

Függetlenül attól, hogy előfordult-e adatvesztés vagy sem, mindig készüljön fel, ha adatkatasztrófa történik. A rendelkezésre álló hasznos tippek közül erősen javasoljuk, hogy a docx helyreállítás eszközt előre.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve helyreállíthatja az Excel-t és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com