Kako preprosto pretvoriti med različnimi temperaturnimi enotami, kot so Celzij, Fahrenheit, Kelvin, v svoji besedi

V tem članku vam bomo pokazali, kako preprosto pretvarjati med temperaturnimi enotami, kot so Celzij, Fahrenheit, Kelvin, v Wordu.

Dobro izkoristite Word VBA, ustvarite lahko veliko majhnih, a uporabnih orodij. Na primer, povsem v redu je, če v Wordu ustvarite pretvornik temperature, ki namesto vas opravi dolgočasno pretvorbo. Zato preberite, če želite slediti več podrobnostim.

Vstavite uporabniški obrazec

Če želite ustvariti pretvornik, boste morali najprej ustvariti uporabniški obrazec.

1. Najprej pritisnite »Alt + F11«, da odprete urejevalnik VBA.
2. Nato v levem stolpcu kliknite »Normal«.
3. Nato kliknite »Vstavi« in izberite »Uporabniški obrazec«.
4. Kliknite na ročaje okoli obrazca, da prilagodite njegovo velikost.
5. Nato pritisnite »F4«, da odprete »Okno z lastnostmi«.
6. V oknu, poimenujte uporabniški obrazec kot "frmTemperatureConverter" in nastavite njegov naslov kot "Pretvornik temperature".
7. Poleg tega nastavite lastnost »ShowModal« obrazca na »False«.
8. Nato v menijski vrstici kliknite »Orodjarna«, da jo prikažete.
9. Uporabite kontrolnike v orodjarni, da ustvarite oznako, dve besedilni polji, dva ukazna gumba in dve kombinirani polji. Te kontrolnike postavite na obrazec v naslednjem vrstnem redu:
10. Nato nastavite posebne lastnosti za ustvarjene kontrolnike:

• Najprej kliknite besedilno polje 1. Poimenujte ga kot »txtTempValue1«.
• Nato kliknite besedilno polje 2 in ga poimenujte kot »txtTempValue2«.
• Nato kliknite oznako in nastavite njen napis kot »=«.
• Kliknite kombinirano polje 1 in ga poimenujte »cmbTempUnit1«.
• In kliknite na kombinirano polje 2 in ga poimenujte kot "cmbTempUnit2".
• Nato kliknite ukazni gumb 1 in ga poimenujte kot "btnConvert". Nastavite napis kot »Pretvori«.
• Kliknite ukazni gumb 2 in ga poimenujte »btnClose«. Nastavite njegov naslov kot »Zapri«.

Poleg tega po potrebi nastavite druge lastnosti.

Vnosne kode za kontrole

1. Dvokliknite gumb »Pretvori«, da vnesete območje kode. Tja prilepite naslednje kode:

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. Nato pojdite na obrazec in dvokliknite gumb »Zapri«. Vnesite kode:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Nato dvakrat kliknite obrazec, da ga vnesete. Na vrhu lahko vidite 2 kombinirani polji. Prepričajte se, da ste izbrali »UserForm« za levo in »Initialize« za desno.
4. In tja prilepite tudi kode.

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 koncu shranite vse kode.

Vstavite modul

1. Še vedno v urejevalniku VBA kliknite »Vstavi« pod »Normalni« projekt.
2. Toda tokrat izberite »Modul«.
3. Dvokliknite nanj, da odprete in prilepite kode:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Zdaj zaženite makro »TriggerTemperatureConverter« in lahko sprožite pretvornik. Temu makru lahko dodelite gumb. Za podrobne korake glejte ta članek: Kako odstraniti oblikovanje prilepljenih besedil z makro in VBA v besedi

Spodaj si lahko ogledate videoposnetek:

Pripravljeno na strnitev besed

Ne glede na to, ali ste doživeli izgubo podatkov ali ne, se morate vedno pripraviti, če pride do podatkovne katastrofe. Med vsemi koristnimi nasveti, ki so na voljo, močno priporočamo, da si priskrbite a docx izterjava orodje vnaprej.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z izterjati excel in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com