Eenvoudig omzetten tussen verschillende temperatuureenheden, zoals Celsius, Fahrenheit, Kelvin, in uw woord

In dit artikel laten we u zien hoe u gemakkelijk tussen temperatuureenheden kunt omrekenen, zoals Celsius, Fahrenheit, Kelvin, in uw Word.

Maak goed gebruik van Word VBA, je kunt veel kleine maar handige tools maken. Het is bijvoorbeeld prima om een ​​temperatuuromzetter in Word te maken om de vervelende conversie voor je uit te voeren. Lees daarom verder om meer details te volgen.

Voeg een gebruikersformulier in

Om de converter te maken, moet u eerst een gebruikersformulier maken.

1. Druk allereerst op "Alt + F11" om de VBA-editor te openen.
2. Klik vervolgens op "Normaal" in de linkerkolom.
3. Klik vervolgens op "Invoegen" en selecteer "UserForm".
4. Klik op de handvatten rond het formulier om de grootte aan te passen.
5. Druk vervolgens op "F4" om het "Eigenschappenvenster" te openen.
6. In het raam, noem het gebruikersformulier "frmTemperatureConverter" en stel het bijschrift in als 'Temperatuurconverter'.
7. Stel bovendien de eigenschap "ShowModal" van het formulier in op "False".
8. Klik vervolgens op de menubalk op "Toolbox" om het te openen.
9. Gebruik de besturingselementen op de toolbox om een ​​label, twee tekstvakken, twee opdrachtknoppen en twee keuzelijsten met invoervak ​​te maken. Zet deze bedieningselementen in de volgende volgorde op het formulier:
10. Stel vervolgens specifieke eigenschappen in voor gemaakte besturingselementen:

• Klik eerst op tekstvak 1. Noem het als “txtTempValue1”.
• Klik vervolgens op tekstvak 2 en noem het "txtTempValue2".
• Klik vervolgens op het label en stel het bijschrift in als "=".
• Klik op combobox 1 en noem deze "cmbTempUnit1".
• En klik op combo box 2 en noem het als "cmbTempUnit2".
• Klik vervolgens op commandoknop 1 en noem deze als "btnConvert". Stel het bijschrift in als "Converteren".
• Klik op commandoknop 2 en noem deze "btnClose". Stel het bijschrift in als "Sluiten".

Stel bovendien indien nodig andere eigenschappen in.

Invoercodes voor bedieningselementen

1. Dubbelklik op de knop "Converteren" om het codegebied in te voeren. Plak daar de volgende codes:

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. Ga vervolgens naar het formulier en dubbelklik op de knop "Sluiten". Voer codes in:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Dubbelklik vervolgens op het formulier om het in te voeren. Bovenaan zie je 2 keuzelijsten met invoervak. Zorg ervoor dat u “UserForm” voor links en “Initialize” voor rechts kiest.
4. En plak daar ook codes.

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. Sla ten slotte alle codes op.

Plaats een module

1. Klik nog steeds in de VBA-editor op "Invoegen" onder "Normaal" project.
2. Maar kies deze keer voor "Module".
3. Dubbelklik erop om codes te openen en te plakken:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Draai nu de macro “TriggerTemperatureConverter” en je kunt de converter triggeren. U kunt een knop aan deze macro toewijzen. Raadpleeg dit artikel voor gedetailleerde stappen: Hoe u de opmaak van geplakte teksten met macro en VBA in uw Word kunt verwijderen

Je kunt de onderstaande video bekijken:

Klaar voor het samenvouwen van Word

Ongeacht of u gegevensverlies heeft ondervonden of niet, u moet altijd voorbereidingen treffen als zich een gegevensramp voordoet. Van alle nuttige tips die beschikbaar zijn, raden we u ten zeerste aan om een docx herstel tool vooraf.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel excel en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com