Kuidas hõlpsasti teisendada erinevate temperatuuriühikute, näiteks Celsiuse, Fahrenheiti, Kelvini, vahel teie sõnas

Selles artiklis näitame teile, kuidas Wordis hõlpsasti teisendada temperatuuriühikuid (nt Celsiuse, Fahrenheiti, Kelvini) vahel.

Kasutage Wordi VBA-d hästi, saate luua palju väikeseid, kuid kasulikke tööriistu. Näiteks on täiesti hea luua Wordis temperatuurimuundur, mis teeb teie eest tüütu teisenduse. Seetõttu lugege lisateabe saamiseks edasi.

Sisestage kasutajavorm

Konverteri loomiseks peate esmalt looma kasutajavormi.

1. Kõigepealt vajutage VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
2. Järgmisena klõpsake vasakpoolses veerus "Tavaline".
3. Seejärel klõpsake nuppu "Lisa" ja valige "Kasutajavorm".
4. Klõpsake vormi ümber olevatel käepidemetel selle suuruse reguleerimiseks.
5. Järgmisena vajutage "Atribuutide akna" käivitamiseks "F4".
6. Aknas nimetage kasutajavorm "frmTemperatureConverter" ja määrake selle pealkiri "Temperatuurimuundur".
7. Lisaks määrake vormi atribuudi "ShowModal" väärtuseks "False".
8. Seejärel klõpsake menüüribal selle väljatoomiseks nuppu "Tööriistakast".
9. Kasutage tööriistakasti juhtnuppe, et luua silt, kaks tekstikasti, kaks käsunuppu ja kaks liitkasti. Pange need juhtelemendid vormile järgmises järjekorras:
10. Järgmisena määrake loodud juhtelementide spetsiifilised atribuudid:

• Esmalt klõpsake tekstikastil 1. Nimetage see kui "txtTempValue1".
• Seejärel klõpsake tekstikasti 2 ja pange see nimeks "txtTempValue2".
• Järgmisena klõpsake sildil ja määrake selle pealkirjaks "=".
• Klõpsake liitkasti 1 ja nimetage see "cmbTempUnit1".
• Ja klõpsake liitkastil 2 ja nimetage see "cmbTempUnit2".
• Järgmisena klõpsake käsunuppu 1 ja nimetage see "btnConvert". Määrake pealkirjaks "Teisenda".
• Klõpsake käsunuppu 2 ja nimetage see "btnClose". Määrake selle pealkirjaks "Sule".

Lisaks määrake vajadusel muud omadused.

Juhtelementide sisestuskoodid

1. Koodiala sisenemiseks topeltklõpsake nuppu "Teisenda". Kleepige sinna järgmised koodid:

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. Järgmisena minge vormile ja topeltklõpsake nuppu "Sule". Sisestage koodid:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Seejärel topeltklõpsake vormi sisestamiseks. Üleval näete 2 liitkasti. Veenduge, et valite vasakul jaoks "UserForm" ja paremale "Initsialiseeri".
4. Ja kleebi koodid ka sinna.

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. Lõpuks salvestage kõik koodid.

Sisestage moodul

1. VBA redaktoris klõpsake projekti "Tavaline" all nuppu "Lisa".
2. Kuid seekord valige "Moodul".
3. Topeltklõpsake seda koodide avamiseks ja kleepimiseks:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Nüüd käivitage makro "TriggerTemperatureConverter" ja saate konverteri käivitada. Sellele makrole saate määrata nupu. Üksikasjalikud sammud leiate sellest artiklist: Kuidas eemaldada Wordis makro ja VBA abil kleebitud tekstide vorming

Saate vaadata allolevat videot:

Word Collapse jaoks valmis

Olenemata sellest, kas teil on esinenud andmete kadumist või mitte, peaksite andmete katastroofi korral alati valmistuma. Kõigi saadaolevate kasulike näpunäidete hulgas soovitame tungivalt hankida a docx taastamine tööriist ette.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas taasta excel ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom