Kuinka muuntaa helposti eri lämpötilayksiköiden, kuten Celsius, Fahrenheit, Kelvin, välillä sanassasi

Tässä artikkelissa näytämme, kuinka muunnat helposti lämpötilayksiköiden, kuten Celsius, Fahrenheit, Kelvin, välillä Wordissasi.

Hyödynnä Word VBA: ta hyvin, voit luoda paljon pieniä mutta hyödyllisiä työkaluja. Esimerkiksi, olet ehdottomasti hieno luoda lämpötilamuunnin Wordiin tekemään tylsä ​​muunnos puolestasi. Siksi jatka seuraamaan lisätietoja.

Lisää käyttäjän lomake

Muuntimen luomiseksi sinun on ensin luotava käyttäjälomake.

1. Ensinnäkin, paina "Alt + F11" avataksesi VBA-editorin.
2. Napsauta sitten vasemmassa sarakkeessa “Normaali”.
3. Napsauta sitten "Lisää" ja valitse "UserForm".
4. Napsauta lomakkeen ympärillä olevia kahvoja säätääksesi sen kokoa.
5. Paina seuraavaksi “F4” käynnistääksesi “Ominaisuudet-ikkunan”.
6. Ikkunassa nimeä käyttäjälomake nimellä “frmTemperatureConverter” ja aseta otsikoksi "Lämpötilamuunnin".
7. Määritä lisäksi lomakkeen ”ShowModal” -ominaisuudeksi ”False”.
8. Napsauta sitten valikkorivillä "Toolbox" tuodaksesi sen esiin.
9. Luo tarra, kaksi tekstiruutua, kaksi komentopainiketta ja kaksi yhdistelmäruutua työkaluruudun ohjaimilla. Laita nämä ohjausobjektit lomakkeeseen seuraavassa järjestyksessä:
10. Seuraavaksi määritetään luotujen ohjausobjektien tietyt ominaisuudet:

• Napsauta ensin tekstiruutua 1. Nimeä se nimellä “txtTempValue1”.
• Napsauta sitten tekstiruutua 2 ja nimeä se txtTempValue2-nimeksi.
• Napsauta seuraavaksi tarraa ja aseta sen otsikoksi "=".
• Napsauta yhdistelmäruutua 1 ja nimeä se nimellä “cmbTempUnit1”.
• Napsauta sitten yhdistelmäruutua 2 ja nimeä se cmbTempUnit2: ksi.
• Napsauta sitten komentopainiketta 1 ja nimeä se nimellä "btnConvert". Aseta kuvatekstiksi "Muunna".
• Napsauta komentopainiketta 2 ja nimeä se nimellä "btnClose". Aseta sen tekstiksi "Sulje".

Määritä lisäksi muut ominaisuudet tarvittaessa.

Ohjainten syöttökoodit

1. Kaksoisnapsauta "Muunna" -painiketta päästäksesi koodialueelle. Liitä seuraavat koodit sinne:

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. Siirry seuraavaksi lomakkeeseen ja kaksoisnapsauta "Sulje" -painiketta. Syötä koodit:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Kaksoisnapsauta sitten lomaketta syöttääksesi sen. Yläosassa on 2 yhdistelmäruutua. Varmista, että valitset vasemmalle “UserForm” ja oikealle ”Initialize”.
4. Ja liitä koodit sinne myös.

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. Viimeiseksi, tallenna kaikki koodit.

Aseta moduuli

1. Napsauta edelleen VBA-editorissa "Lisää" kohdassa "Normaali".
2. Mutta tällä kertaa valitse "Moduuli".
3. Kaksoisnapsauta sitä avataksesi ja liittääksesi koodit:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Suorita nyt makro ”TriggerTemperatureConverter” ja voit käynnistää muuntimen. Voit määrittää tälle makrolle painikkeen. Katso tarkat ohjeet tästä artikkelista: Kuinka poistaa liitettyjen tekstien muotoilu makrolla ja VBA: lla Wordissasi

Voit tarkistaa videon alla:

Valmiina Word Collapse

Riippumatta siitä, oletko kokenut tietojen menetystä vai ei, sinun tulee aina valmistautua, jos datakatastrofi sattuu. Kaikkien käytettävissä olevien hyödyllisten vinkkien joukossa suosittelemme a docx-palautus työkalu etukäteen.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien palauttaa excel ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com