Kako jednostavno pretvoriti različite jedinice temperature, kao što su Celsius, Fahrenheit, Kelvin, u svoju riječ

U ovom ćemo vam članku pokazati kako jednostavno pretvoriti temperaturne jedinice, kao što su Celzijusi, Farenhajti, Kelvini, u Wordu.

Dobro iskoristite Word VBA, možete stvoriti mnogo malih, ali korisnih alata. Na primjer, potpuno ste u redu stvoriti pretvarač temperature u Wordu koji će umjesto vas obaviti zamornu konverziju. Stoga čitajte dalje kako biste pratili više pojedinosti.

Umetnite korisnički obrazac

Da biste kreirali pretvarač, prvo ćete morati izraditi korisnički obrazac.

1. Prije svega, pritisnite “Alt+ F11” da otvorite VBA editor.
2. Zatim kliknite "Normalno" u lijevom stupcu.
3. Zatim kliknite "Insert" i odaberite "UserForm".
4. Kliknite na ručke oko obrasca da prilagodite njegovu veličinu.
5. Zatim pritisnite “F4” za pokretanje “Prozora svojstava”.
6. U prozoru, nazovite korisnički obrazac kao "frmTemperatureConverter" i postavite njegov naslov kao "Pretvarač temperature".
7. Osim toga, svojstvo obrasca “ShowModal” postavite na “False”.
8. Zatim na traci izbornika kliknite "Toolbox" da biste ga prikazali.
9. Upotrijebite kontrole na okviru s alatima za stvaranje oznake, dva tekstualna okvira, dva naredbena gumba i dva kombinirana okvira. Stavite ove kontrole na obrazac sljedećim redoslijedom:
10. Zatim postavite određena svojstva za stvorene kontrole:

• Prvo kliknite na tekstualni okvir 1. Imenujte ga kao “txtTempValue1”.
• Zatim kliknite na tekstni okvir 2 i nazovite ga "txtTempValue2".
• Zatim kliknite na oznaku i postavite njen naslov kao “=”.
• Kliknite kombinirani okvir 1 i nazovite ga "cmbTempUnit1".
• I kliknite na kombinirani okvir 2 i nazovite ga "cmbTempUnit2".
• Zatim kliknite na naredbeni gumb 1 i nazovite ga "btnConvert". Postavite naslov kao "Pretvori".
• Pritisnite naredbeni gumb 2 i nazovite ga "btnClose". Postavite njegov naslov kao "Zatvori".

Osim toga, postavite druga svojstva ako je potrebno.

Ulazni kodovi za kontrole

1. Dvaput kliknite gumb "Pretvori" za unos područja koda. Tamo zalijepite sljedeće kodove:

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. Zatim idite na obrazac i dvaput kliknite gumb "Zatvori". Unesite kodove:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Zatim duplim klikom na obrazac ulazite u njega. Na vrhu možete vidjeti 2 kombinirana okvira. Provjerite jeste li odabrali “UserForm” za lijevu stranu i “Initialize” za desnu.
4. I tamo zalijepite kodove.

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. Na kraju, spremite sve kodove.

Umetnite modul

1. Još uvijek u VBA uređivaču, kliknite "Umetni" ispod "Normalnog" projekta.
2. Ali ovaj put odaberite “Modul”.
3. Dvaput kliknite na njega da otvorite i zalijepite kodove:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Sada pokrenite makro “TriggerTemperatureConverter” i možete pokrenuti pretvarač. Ovom makrou možete dodijeliti gumb. Detaljne korake potražite u ovom članku: Kako ukloniti oblikovanje zalijepljenih tekstova s ​​makronaredbom i VBA u vašem Wordu

Možete provjeriti video ispod:

Spremno za Word Collapse

Bez obzira jeste li doživjeli gubitak podataka ili ne, uvijek se trebate pripremiti ako dođe do podatkovne katastrofe. Među svim dostupnim korisnim savjetima, toplo preporučujemo da se dokopate a docx oporavak alat unaprijed.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti excel i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com