Come convertire facilmente tra varie unità di temperatura, come Celsius, Fahrenheit, Kelvin, in Your Word

In questo articolo, ti mostreremo come convertire facilmente tra unità di temperatura, come Celsius, Fahrenheit, Kelvin, in Word.

Fai buon uso di Word VBA, puoi creare molti strumenti piccoli ma utili. Ad esempio, puoi assolutamente creare un convertitore di temperatura in Word per eseguire la noiosa conversione per te. Pertanto, continua a leggere per seguire maggiori dettagli.

Inserisci un modulo utente

Per creare il convertitore, dovrai prima creare un modulo utente.

1. Prima di tutto, premi "Alt + F11" per aprire l'editor VBA.
2. Quindi fai clic su "Normale" nella colonna di sinistra.
3. Quindi fare clic su "Inserisci" e selezionare "Modulo utente".
4. Fare clic sulle maniglie attorno al modulo per regolarne le dimensioni.
5. Quindi premere "F4" per attivare la "Finestra delle proprietà".
6. Nella finestra, denominare il modulo utente come "frmTemperatureConverter" e impostare la didascalia come "Convertitore di temperatura".
7. Inoltre, impostare la proprietà "ShowModal" del modulo come "False".
8. Quindi, sulla barra dei menu, fai clic su "Casella degli strumenti" per visualizzarlo.
9. Utilizzare i controlli sulla casella degli strumenti per creare un'etichetta, due caselle di testo, due pulsanti di comando e due caselle combinate. Inserisci questi controlli nel modulo nel seguente ordine:
10. Successivamente imposta proprietà specifiche per i controlli creati:

• Per prima cosa fai clic sulla casella di testo 1. Chiamala come "txtTempValue1".
• Quindi fare clic sulla casella di testo 2 e denominarla "txtTempValue2".
• Quindi fai clic sull'etichetta e imposta la didascalia come "=".
• Fare clic sulla casella combinata 1 e denominarla "cmbTempUnit1".
• E fai clic sulla casella combinata 2 e chiamala "cmbTempUnit2".
• Quindi fai clic sul pulsante di comando 1 e chiamalo "btnConvert". Imposta la didascalia come "Converti".
• Fare clic sul pulsante di comando 2 e denominarlo "btnClose". Imposta la sua didascalia come "Chiudi".

Inoltre, imposta altre proprietà se necessario.

Codici di input per i controlli

1. Fare doppio clic sul pulsante "Converti" per accedere all'area del codice. Incolla qui i seguenti codici:

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. Quindi vai al modulo e fai doppio clic sul pulsante "Chiudi". Inserisci i codici:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Quindi fare doppio clic sul modulo per inserirlo. Puoi vedere 2 caselle combinate in alto. Assicurati di scegliere "UserForm" per la sinistra e "Initialize" per la destra.
4. E incolla anche i codici lì.

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. Infine, salva tutti i codici.

Inserisci un modulo

1. Sempre nell'editor VBA, fai clic su "Inserisci" sotto il progetto "Normale".
2. Ma questa volta scegli "Modulo".
3. Fare doppio clic su di esso per aprire e incollare i codici:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Ora esegui la macro "TriggerTemperatureConverter" e puoi attivare il convertitore. È possibile assegnare un pulsante per questa macro. Per i passaggi dettagliati, fare riferimento a questo articolo: Come rimuovere la formattazione dei testi incollati con macro e VBA in Your Word

Puoi controllare il video qui sotto:

Pronto per Word Collapse

Indipendentemente dal fatto che tu abbia subito o meno una perdita di dati, dovresti sempre prepararti se si verifica un disastro dei dati. Tra tutti i consigli utili disponibili, consigliamo vivamente di procurarsi un recupero docx strumento in anticipo.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare eccellere e pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com