Hvordan enkelt konvertere mellom forskjellige temperaturenheter, for eksempel Celsius, Fahrenheit, Kelvin, i ditt ord

I denne artikkelen vil vi vise deg hvordan du enkelt konverterer mellom temperaturenheter, for eksempel Celsius, Fahrenheit, Kelvin, i Word.

Gjør god bruk av Word VBA, du kan lage mange små, men nyttige verktøy. For eksempel er det helt greit å lage en temperaturomformer i Word for å gjøre den kjedelige konverteringen for deg. Les derfor videre for å følge flere detaljer.

Sett inn et brukerskjema

For å opprette omformeren må du først opprette et brukerskjema.

1. Først av alt, trykk "Alt + F11" for å åpne VBA-editor.
2. Klikk deretter på "Normal" i venstre kolonne.
3. Klikk deretter "Sett inn" og velg "UserForm".
4. Klikk på håndtakene rundt skjemaet for å justere størrelsen.
5. Trykk deretter "F4" for å utløse "Egenskapsvinduet".
6. I vinduet, navngi brukerskjemaet som "frmTemperatureConverter" og angi bildeteksten som "Temperature Converter".
7. I tillegg setter du "ShowModal"-egenskapen til skjemaet som "False".
8. Klikk deretter på "Verktøykasse" på menylinjen for å få den ut.
9. Bruk kontrollene på verktøykassen til å lage en etikett, to tekstbokser, to kommandoknapper og to kombinasjonsbokser. Sett disse kontrollene på skjemaet i følgende rekkefølge:
10. Sett deretter spesifikke egenskaper for kontroller som er opprettet:

• Klikk først på tekstboks 1. Navngi den som "txtTempValue1".
• Klikk deretter på tekstboks 2 og navngi den som "txtTempValue2".
• Klikk deretter på etiketten og sett dens bildetekst som "=".
• Klikk på kombinasjonsboks 1 og navngi den som "cmbTempUnit1".
• Og klikk på kombinasjonsboks 2 og navngi den som "cmbTempUnit2".
• Klikk deretter på kommandoknapp 1 og navngi den som "btnConvert". Sett bildetekst som "Konverter".
• Klikk på kommandoknapp 2 og navngi den som "btnClose". Sett bildeteksten som "Lukk".

Dessuten, angi andre egenskaper om nødvendig.

Inndatakoder for kontroller

1. Dobbeltklikk på "Konverter"-knappen for å angi kodeområdet. Lim inn 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å deretter til skjemaet og dobbeltklikk på "Lukk" -knappen. Skriv inn koder:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Dobbeltklikk deretter på skjemaet for å skrive det inn. Du kan se 2 kombinasjonsbokser på toppen. Pass på at du velger "UserForm" til venstre og "Initialiser" for høyre.
4. Og lim inn koder der også.

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. Til slutt, lagre alle koder.

Sett inn en modul

1. Fortsatt i VBA-redigering, klikk "Sett inn" under "Normal" prosjekt.
2. Men denne gangen velger du "Modul".
3. Dobbeltklikk på den for å åpne og lime inn koder:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Kjør nå makro "TriggerTemperatureConverter", og du kan utløse omformeren. Du kan tilordne en knapp for denne makroen. For detaljerte trinn, se denne artikkelen: Slik fjerner du formateringen av limte tekster med makro og VBA i Word

Du kan sjekke videoen nedenfor:

Klar for Word Collapse

Uansett om du har opplevd tap av data eller ikke, bør du alltid forberede deg hvis datakatastrofen oppstår. Blant alle nyttige tips som finnes, anbefaler vi på det sterkeste å få tak i en docx gjenoppretting verktøy på forhånd.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette Excel og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med