Jak ve svém slově snadno převádět mezi různými teplotními jednotkami, jako jsou Celsius, Fahrenheit, Kelvin

V tomto článku vám ukážeme, jak ve vašem Wordu snadno převádět mezi teplotními jednotkami, například Celsius, Fahrenheit, Kelvin.

Využijte Word VBA dobře, můžete vytvořit spoustu malých, ale užitečných nástrojů. Například jste naprosto v pořádku, když vytvoříte převodník teploty v aplikaci Word, který za vás provede zdlouhavý převod. Proto čtěte dále a postupujte podle dalších podrobností.

Vložte uživatelský formulář

Chcete-li vytvořit převaděč, musíte nejprve vytvořit uživatelský formulář.

1. Nejprve stisknutím klávesy „Alt + F11“ otevřete editor VBA.
2. Dále klikněte na „Normální“ v levém sloupci.
3. Poté klikněte na „Vložit“ a vyberte „UserForm“.
4. Kliknutím na úchyty kolem formuláře upravte jeho velikost.
5. Poté stiskněte „F4“ pro spuštění „okna vlastností“.
6. V okně pojmenujte uživatelský formulář jako „frmTemperatureConverter“ a nastavit jeho titulek jako „Převaděč teploty“.
7. Dále nastavte vlastnost „ShowModal“ formuláře na „False“.
8. Poté na liště nabídek klikněte na „Toolbox“, čímž ji otevřete.
9. Pomocí ovládacích prvků na panelu nástrojů můžete vytvořit štítek, dvě textová pole, dvě příkazová tlačítka a dvě pole se seznamem. Umístěte tyto ovládací prvky do formuláře v následujícím pořadí:
10. Dále nastavte specifické vlastnosti pro vytvořené ovládací prvky:

• Nejprve klikněte na textové pole 1. Pojmenujte jej jako „txtTempValue1“.
• Poté klikněte na textové pole 2 a pojmenujte jej jako „txtTempValue2“.
• Poté klikněte na štítek a nastavte jeho titulek jako „=“.
• Klikněte na rozbalovací seznam 1 a pojmenujte jej jako „cmbTempUnit1“.
• A klikněte na rozbalovací seznam 2 a pojmenujte jej jako „cmbTempUnit2“.
• Dále klikněte na příkazové tlačítko 1 a pojmenujte jej jako „btnConvert“. Nastavit titulek jako „Převést“.
• Klikněte na příkazové tlačítko 2 a pojmenujte jej jako „btnClose“. Nastavit jeho titulek jako „Zavřít“.

Kromě toho v případě potřeby nastavte další vlastnosti.

Vstupní kódy pro ovládací prvky

1. Dvojitým kliknutím na tlačítko „Převést“ vstoupíte do oblasti kódu. Vložte následující 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. Dále přejděte do formuláře a dvakrát klikněte na tlačítko „Zavřít“. Zadejte kódy:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Poté poklepejte na formulář a zadejte jej. Nahoře můžete vidět 2 pole se seznamem. Ujistěte se, že jste vybrali „UserForm“ pro levou a „Initialize“ pro pravou.
4. A také tam vložte 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. Nakonec uložte všechny kódy.

Vložte modul

1. Stále v editoru VBA klikněte na „Vložit“ pod projektem „Normální“.
2. Tentokrát ale zvolte „Modul“.
3. Poklepáním na něj otevřete a vložte kódy:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Nyní spusťte makro „TriggerTemperatureConverter“ a můžete spustit převodník. K tomuto makru můžete přiřadit tlačítko. Podrobné kroky najdete v tomto článku: Jak odebrat formátování vložených textů pomocí maker a VBA ve vašem Wordu

Video si můžete prohlédnout níže:

Připraveno pro Word Collapse

Bez ohledu na to, zda došlo ke ztrátě dat nebo ne, měli byste se vždy připravit, pokud dojde ke katastrofě dat. Mezi všemi dostupnými užitečnými tipy důrazně doporučujeme sehnat a obnovení docx nástroj předem.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com