So konvertieren Sie einfach zwischen verschiedenen Temperatureinheiten wie Celsius, Fahrenheit, Kelvin in Ihrem Wort

In diesem Artikel zeigen wir Ihnen, wie Sie in Ihrem Wort auf einfache Weise zwischen Temperatureinheiten wie Celsius, Fahrenheit und Kelvin umrechnen können.

Nutzen Sie Word VBA gut, Sie können viele kleine, aber nützliche Tools erstellen. Zum Beispiel ist es absolut in Ordnung, einen Temperaturkonverter in Word zu erstellen, um die mühsame Konvertierung für Sie durchzuführen. Lesen Sie daher weiter, um weitere Details zu verfolgen.

Fügen Sie ein Benutzerformular ein

Um den Konverter zu erstellen, müssen Sie zuerst ein Benutzerformular erstellen.

1. Drücken Sie zunächst „Alt + F11“, um den VBA-Editor zu öffnen.
2. Klicken Sie anschließend in der linken Spalte auf "Normal".
3. Klicken Sie dann auf "Einfügen" und wählen Sie "UserForm".
4. Klicken Sie auf die Ziehpunkte um das Formular, um dessen Größe anzupassen.
5. Drücken Sie anschließend "F4", um das "Eigenschaftenfenster" auszulösen.
6. Im Fenster, Nennen Sie das Benutzerformular "frmTemperatureConverter". , Stellen Sie die Beschriftung als "Temperaturwandler" ein..
7. Setzen Sie außerdem die Eigenschaft "ShowModal" des Formulars auf "False".
8. Klicken Sie dann in der Menüleiste auf "Toolbox", um sie anzuzeigen.
9. Verwenden Sie Steuerelemente in der Toolbox, um eine Beschriftung, zwei Textfelder, zwei Befehlsschaltflächen und zwei Kombinationsfelder zu erstellen. Fügen Sie diese Steuerelemente in der folgenden Reihenfolge in das Formular ein:
10. Legen Sie als Nächstes bestimmte Eigenschaften für die erstellten Steuerelemente fest:

• Klicken Sie zuerst auf das Textfeld 1. Benennen Sie es als "txtTempValue1".
• Klicken Sie dann auf Textfeld 2 und nennen Sie es "txtTempValue2".
• Klicken Sie anschließend auf das Etikett und setzen Sie die Beschriftung auf "=".
• Klicken Sie auf Kombinationsfeld 1 und nennen Sie es "cmbTempUnit1".
• Klicken Sie auf Kombinationsfeld 2 und nennen Sie es "cmbTempUnit2".
• Klicken Sie anschließend auf die Befehlsschaltfläche 1 und nennen Sie sie "btnConvert". Stellen Sie die Beschriftung auf "Konvertieren".
• Klicken Sie auf die Befehlsschaltfläche 2 und nennen Sie sie "btnClose". Stellen Sie die Beschriftung auf "Schließen".

Stellen Sie außerdem bei Bedarf andere Eigenschaften ein.

Eingabecodes für Steuerelemente

1. Doppelklicken Sie auf die Schaltfläche "Konvertieren", um den Codebereich einzugeben. Fügen Sie dort folgende Codes ein:

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. Gehen Sie als nächstes zum Formular und doppelklicken Sie auf die Schaltfläche "Schließen". Codes eingeben:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Doppelklicken Sie dann auf das Formular, um es einzugeben. Oben sehen Sie 2 Kombinationsfelder. Stellen Sie sicher, dass Sie links "UserForm" und rechts "Initialize" wählen.
4. Und dort auch Codes einfügen.

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. Zuletzt speichern Sie alle Codes.

Fügen Sie ein Modul ein

1. Klicken Sie im VBA-Editor unter "Normal" auf "Einfügen".
2. Aber diesmal wählen Sie "Modul".
3. Doppelklicken Sie darauf, um Codes zu öffnen und einzufügen:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Führen Sie nun das Makro „TriggerTemperatureConverter“ aus und Sie können den Konverter auslösen. Sie können diesem Makro eine Schaltfläche zuweisen. Ausführliche Informationen zu diesem Schritt finden Sie in diesem Artikel: So entfernen Sie die Formatierung eingefügter Texte mit Makro und VBA in Ihrem Wort

Sie können das Video unten überprüfen:

Bereit für Word Collapse

Unabhängig davon, ob bei Ihnen ein Datenverlust aufgetreten ist oder nicht, sollten Sie sich immer auf Datenkatastrophen vorbereiten. Unter allen nützlichen Tipps empfehlen wir dringend, sich a zu besorgen docx-Wiederherstellung Werkzeug im Voraus.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Excel wiederherstellen , pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX