Ako ľahko prevádzať vo vašom slove rôzne teplotné jednotky, napríklad Celzia, Fahrenheita, Kelvina

V tomto článku si ukážeme, ako ľahko prevádzať vo svojom slove jednotky teploty, napríklad Celzia, Fahrenheita, Kelvina.

Využite Word VBA dobre, môžete vytvárať veľa malých, ale užitočných nástrojov. Napríklad ste úplne v pohode, keď v aplikácii Word vytvoríte prevodník teploty, ktorý za vás vykoná namáhavý prevod. Preto čítajte ďalej a sledujte ďalšie podrobnosti.

Vložte užívateľský formulár

Ak chcete vytvoriť prevádzač, musíte najskôr vytvoriť užívateľský formulár.

1. Najskôr stlačte „Alt + F11“, aby ste otvorili editor VBA.
2. Ďalej kliknite na „Normálny“ v ľavom stĺpci.
3. Potom kliknite na „Vložiť“ a vyberte „UserForm“.
4. Kliknutím na rukoväte okolo formulára upravíte jeho veľkosť.
5. Ďalej stlačte „F4“, aby sa spustilo „Okno vlastností“.
6. V okne pomenujte používateľský formulár ako „frmTemperatureConverter“ a nastaviť jeho titulok ako „Prevodník teploty“.
7. Ďalej nastavte vlastnosť „ShowModal“ formulára na „False“.
8. Potom na paneli ponuky kliknite na položku „Panel nástrojov“ a otvorte ju.
9. Pomocou ovládacích prvkov na paneli nástrojov môžete vytvoriť štítok, dve textové polia, dve príkazové tlačidlá a dve rozbaľovacie polia. Umiestnite tieto ovládacie prvky do formulára v tomto poradí:
10. Ďalej nastavte špecifické vlastnosti pre vytvorené ovládacie prvky:

• Prvé kliknutie na textové pole 1. Pomenujte ho ako „txtTempValue1“.
• Potom kliknite na textové pole 2 a pomenujte ho ako „txtTempValue2“.
• Ďalej kliknite na štítok a nastavte jeho titulok ako „=“.
• Kliknite na rozbaľovaciu ponuku 1 a pomenujte ju ako „cmbTempUnit1“.
• A kliknite na kombinované pole 2 a pomenujte ho ako „cmbTempUnit2“.
• Ďalej kliknite na príkazové tlačidlo 1 a pomenujte ho ako „btnConvert“. Nastaviť titulok ako „Konvertovať“.
• Kliknite na príkazové tlačidlo 2 a pomenujte ho ako „btnClose“. Nastaviť jeho titulok ako „Zavrieť“.

Okrem toho v prípade potreby nastavte ďalšie vlastnosti.

Vstupné kódy pre ovládacie prvky

1. Dvakrát kliknite na tlačidlo „Previesť“ a vstúpte do oblasti kódu. Vložte tam nasledujúce kódy:

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. Ďalej prejdite do formulára a dvakrát kliknite na tlačidlo „Zavrieť“. Zadajte kódy:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Potom dvakrát kliknite na formulár a zadajte ho. V hornej časti sú zobrazené 2 rozbaľovacie polia. Uistite sa, že ste vybrali možnosť „UserForm“ pre ľavú stranu a „Initialize“ pre pravú.
4. A tiež tam prilepte kódy.

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. Nakoniec uložte všetky kódy.

Vložte modul

1. Stále v editore VBA kliknite na „Vložiť“ pod „Normálnym“ projektom.
2. Tentokrát však zvoľte „Modul“.
3. Dvojitým kliknutím otvoríte a prilepíte kódy:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Teraz spustite makro „TriggerTemperatureConverter“ a môžete spustiť prevodník. Tomuto makru môžete priradiť tlačidlo. Podrobné kroky nájdete v tomto článku: Ako odstrániť formátovanie vložených textov pomocou makra a VBA vo vašom slove

Video si môžete pozrieť nižšie:

Pripravené na Word Collapse

Bez ohľadu na to, či ste stratu údajov zaznamenali alebo nie, mali by ste sa vždy pripraviť na to, či dôjde k katastrofe údajov. Medzi všetkými užitočnými tipmi, ktoré sú k dispozícii, dôrazne odporúčame zohnať a obnovenie docx nástroj vopred.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotaviť excelovať a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S