Sådan konverteres let mellem forskellige temperaturenheder, såsom Celsius, Fahrenheit, Kelvin, i dit ord

I denne artikel vil vi vise dig, hvordan du nemt konverterer mellem temperaturenheder, såsom Celsius, Fahrenheit, Kelvin, i dit Word.

Gør god brug af Word VBA, du kan lave en masse små, men nyttige værktøjer. For eksempel er du helt i orden at oprette en temperaturkonverter i Word for at udføre den kedelige konvertering for dig. Læs derfor videre for at følge flere detaljer.

Indsæt en brugerformular

For at oprette konverteren skal du først oprette en brugerformular.

1. Først og fremmest skal du trykke på "Alt + F11" for at åbne VBA-editor.
2. Klik derefter på “Normal” i venstre kolonne.
3. Klik derefter på "Indsæt", og vælg "UserForm".
4. Klik på håndtagene omkring formularen for at justere dens størrelse.
5. Tryk derefter på "F4" for at udløse "Egenskabsvinduet".
6. I vinduet, navngiv brugerformularen som "frmTemperatureConverter" og indstil dens billedtekst som "Temperature Converter".
7. Indstil desuden "ShowModal"-egenskaben for formularen som "False".
8. Klik derefter på "Værktøjskasse" på menulinjen for at få den frem.
9. Brug kontrolelementerne på værktøjskassen til at oprette en etiket, to tekstbokse, to kommandoknapper og to kombinationsbokse. Sæt disse kontroller på formularen i følgende rækkefølge:
10. Indstil derefter specifikke egenskaber for oprettede kontroller:

• Klik først på tekstboks 1. Navngiv den som "txtTempValue1".
• Klik derefter på tekstboks 2 og navngiv den som "txtTempValue2".
• Klik derefter på etiketten og indstil dens billedtekst som "=".
• Klik på kombinationsboks 1 og navngiv den som "cmbTempUnit1".
• Og klik på kombinationsboks 2 og navngiv den som "cmbTempUnit2".
• Klik derefter på kommandoknap 1 og navngiv den som "btnConvert". Indstil billedtekst som "Konverter".
• Klik på kommandoknap 2 og navngiv den som "btnClose". Indstil dens billedtekst som "Luk".

Indstil desuden andre egenskaber, hvis det er nødvendigt.

Inputkoder til kontrolelementer

1. Dobbeltklik på knappen "Konverter" for at indtaste kodeområdet. Indsæt følgende koder der:

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å derefter til formularen og dobbeltklik på knappen "Luk". Indtast koder:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Dobbeltklik derefter på formularen for at indtaste den. Du kan se 2 kombinationsbokse på toppen. Sørg for at vælge "UserForm" til venstre og "Initialiser" til højre.
4. Og indsæt også koder der.

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. Gem til sidst alle koder.

Indsæt et modul

1. Stadig i VBA editor, klik på "Indsæt" under "Normal" projekt.
2. Men denne gang skal du vælge "Modul".
3. Dobbeltklik på det for at åbne og indsætte koder:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Kør nu makroen "TriggerTemperatureConverter", og du kan udløse konverteren. Du kan tildele en knap til denne makro. For detaljerede trin henvises til denne artikel: Sådan fjernes formateringen af ​​indsatte tekster med makro og VBA i dit ord

Du kan tjekke videoen nedenfor:

Klar til Word Collapse

Uanset om du har oplevet tab af data eller ej, bør du altid forberede dig, hvis der opstår en datakatastrofe. Blandt alle tilgængelige nyttige tips anbefaler vi på det kraftigste at få fat i en docx opsving værktøj på forhånd.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder genvinde excel og pdf produkter til reparation af software. For mere information besøg www.datanumen.com