Kako lako pretvoriti različite temperaturne jedinice, kao što su Celzijus, Farenhajt, Kelvin, u vašoj riječi

U ovom članku ćemo vam pokazati kako lako pretvoriti temperaturne jedinice, kao što su Celzijus, Farenhajt, Kelvin, u vašem Wordu.

Dobro iskoristite Word VBA, možete kreirati mnogo malih, ali korisnih alata. Na primjer, sasvim ste u redu da kreirate temperaturni pretvarač u Wordu koji će umjesto vas obaviti dosadnu konverziju. Stoga, čitajte dalje kako biste pratili više detalja.

Umetnite korisnički obrazac

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

1. Prije svega, pritisnite “Alt+ F11” da otvorite VBA editor.
2. Zatim kliknite na “Normalno” na lijevoj koloni.
3. Zatim kliknite na “Insert” i odaberite “UserForm”.
4. Kliknite na ručke oko obrasca da prilagodite njegovu veličinu.
5. Zatim pritisnite “F4” da pokrenete “Prozor svojstava”.
6. U prozoru, nazovite korisnički obrazac kao “frmTemperatureConverter” i postavite njegov naslov kao "Pretvarač temperature".
7. Osim toga, postavite svojstvo “ShowModal” obrasca na “False”.
8. Zatim na traci menija kliknite na "Toolbox" da biste ga prikazali.
9. Koristite kontrole na kutiji sa alatkama da kreirate oznaku, dva okvira za tekst, dva komandna dugmeta i dva kombinovana okvira. Stavite ove kontrole na obrazac sljedećim redoslijedom:
10. Zatim postavite određena svojstva za kreirane kontrole:

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

Osim toga, postavite druga svojstva ako je potrebno.

Ulazni kodovi za kontrole

1. Dvaput kliknite na dugme “Pretvori” da uđete u oblast 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 na dugme „Zatvori“. Unesite kodove:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Zatim dvaput kliknite na obrazac da ga unesete. Možete vidjeti 2 kombinirana okvira na vrhu. Provjerite jeste li odabrali “UserForm” za lijevo i “Initialize” za desno.
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, sačuvajte sve kodove.

Umetnite modul

1. Još uvijek u VBA editoru, kliknite na “Insert” ispod “Normal” projekta.
2. Ali ovaj put odaberite “Module”.
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č. Možete dodijeliti dugme za ovaj makro. Za detaljne korake pogledajte ovaj članak: Kako ukloniti formatiranje zalijepljenih tekstova pomoću makroa i VBA u Wordu

Video možete pogledati u nastavku:

Spremni za kolaps riječi

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

Uvod za autora:

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