Kaip lengvai konvertuoti tarp įvairių temperatūros vienetų, tokių kaip Celsijaus, Farenheito, Kelvino, jūsų žodžiu

Šiame straipsnyje parodysime, kaip „Word“ lengvai konvertuoti temperatūros vienetus, pvz., Celsijaus, Farenheito, Kelvino laipsnius.

Tinkamai naudokite Word VBA, galite sukurti daug mažų, bet naudingų įrankių. Pavyzdžiui, jūs visiškai gerai sukursite temperatūros keitiklį programoje „Word“, kad atliktumėte varginantį konvertavimą už jus. Todėl skaitykite toliau, kad gautumėte daugiau informacijos.

Įdėkite vartotojo formą

Norėdami sukurti keitiklį, pirmiausia turėsite sukurti vartotojo formą.

1. Pirmiausia paspauskite „Alt + F11“, kad atidarytumėte VBA redaktorių.
2. Tada kairiajame stulpelyje spustelėkite „Normalus“.
3. Tada spustelėkite „Įterpti“ ir pasirinkite „Vartotojo forma“.
4. Spustelėkite aplink formą esančias rankenas, kad sureguliuotumėte jos dydį.
5. Tada paspauskite „F4“, kad paleistumėte „Ypatybių langą“.
6. Lange, pavadinkite vartotojo formą kaip „frmTemperatureConverter“ bei nustatykite jo antraštę kaip „Temperatūros keitiklis“.
7. Be to, formos ypatybę „ShowModal“ nustatykite kaip „False“.
8. Tada meniu juostoje spustelėkite „Įrankių dėžė“, kad ją parodytumėte.
9. Naudokite įrankių rinkinio valdiklius, kad sukurtumėte etiketę, du teksto laukelius, du komandų mygtukus ir du kombinuotus langelius. Įdėkite šiuos valdiklius į formą tokia tvarka:
10. Toliau nustatykite konkrečias sukurtų valdiklių ypatybes:

• Pirmiausia spustelėkite 1 teksto laukelį. Pavadinkite jį kaip „txtTempValue1“.
• Tada spustelėkite 2 teksto laukelį ir pavadinkite jį „txtTempValue2“.
• Tada spustelėkite etiketę ir nustatykite jos antraštę kaip „=“.
• Spustelėkite 1 kombinuotąjį laukelį ir pavadinkite jį „cmbTempUnit1“.
• Spustelėkite 2 kombinuotąjį laukelį ir pavadinkite jį „cmbTempUnit2“.
• Tada spustelėkite 1 komandos mygtuką ir pavadinkite jį „btnConvert“. Antraštę nustatykite kaip „Konvertuoti“.
• Spustelėkite 2 komandos mygtuką ir pavadinkite jį „btnClose“. Nustatykite jo antraštę kaip „Uždaryti“.

Be to, jei reikia, nustatykite kitas savybes.

Valdiklių įvesties kodai

1. Dukart spustelėkite mygtuką „Konvertuoti“, kad įvestumėte kodo sritį. Įklijuokite šiuos kodus:

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. Tada eikite į formą ir dukart spustelėkite mygtuką „Uždaryti“. Įveskite kodus:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Tada dukart spustelėkite formą, kad ją įeitumėte. Viršuje galite pamatyti 2 kombinuotus langelius. Įsitikinkite, kad kairėje pusėje pasirinkote „UserForm“, o dešinėje – „Inicijuoti“.
4. Taip pat įklijuokite kodus.

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. Galiausiai išsaugokite visus kodus.

Įdėkite modulį

1. Vis dar VBA redaktoriuje spustelėkite „Įterpti“ skiltyje „Įprastas“ projektas.
2. Tačiau šį kartą pasirinkite „Modulis“.
3. Dukart spustelėkite jį, kad atidarytumėte ir įklijuotumėte kodus:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Dabar paleiskite makrokomandą „TriggerTemperatureConverter“ ir galėsite suaktyvinti keitiklį. Šiai makrokomandai galite priskirti mygtuką. Išsamius veiksmus rasite šiame straipsnyje: Kaip pašalinti įklijuotų tekstų formatavimą naudojant makrokomandas ir VBA programoje „Word“.

Galite patikrinti žemiau esantį vaizdo įrašą:

Paruošta Word Collapse

Nesvarbu, ar praradote duomenis, ar ne, visada turėtumėte pasiruošti, jei įvyktų duomenų nelaimė. Tarp visų naudingų patarimų primygtinai rekomenduojame gauti a docx atkūrimas įrankį iš anksto.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant susigrąžinti Excel bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com