Jak łatwo konwertować różne jednostki temperatury, takie jak stopnie Celsjusza, Fahrenheita, Kelwina, w swoim słowie

W tym artykule pokażemy, jak łatwo przekonwertować jednostki temperatury, takie jak stopnie Celsjusza, Fahrenheita, Kelwina, w programie Word.

Zrób dobry użytek z Word VBA, możesz stworzyć wiele małych, ale przydatnych narzędzi. Na przykład możesz stworzyć konwerter temperatury w programie Word, który wykona za Ciebie żmudną konwersję. Dlatego czytaj dalej, aby śledzić więcej szczegółów.

Wstaw formularz użytkownika

Aby utworzyć konwerter, musisz najpierw utworzyć formularz użytkownika.

1. Przede wszystkim naciśnij „Alt + F11”, aby otworzyć edytor VBA.
2. Następnie kliknij „Normalne” w lewej kolumnie.
3. Następnie kliknij „Wstaw” i wybierz „UserForm”.
4. Kliknij uchwyty wokół formularza, aby dostosować jego rozmiar.
5. Następnie naciśnij „F4”, aby uruchomić „Okno właściwości”.
6. W oknie, nazwij formularz użytkownika jako „frmTemperatureConverter” i ustaw jego podpis jako „Przelicznik temperatury”.
7. Dodatkowo ustaw właściwość „ShowModal” formularza na „False”.
8. Następnie na pasku menu kliknij „Zestaw narzędzi”, aby go wyświetlić.
9. Użyj elementów sterujących w przyborniku, aby utworzyć etykietę, dwa pola tekstowe, dwa przyciski poleceń i dwa pola kombi. Umieść te kontrolki w formularzu w następującej kolejności:
10. Następnie ustaw określone właściwości dla tworzonych kontrolek:

• Najpierw kliknij pole tekstowe 1. Nadaj mu nazwę „txtTempValue1”.
• Następnie kliknij pole tekstowe 2 i nazwij je jako „txtTempValue2”.
• Następnie kliknij etykietę i ustaw jej podpis jako „=”.
• Kliknij pole kombi 1 i nazwij je jako „cmbTempUnit1”.
• I kliknij pole kombi 2 i nazwij je jako „cmbTempUnit2”.
• Następnie kliknij przycisk polecenia 1 i nazwij go jako „btnConvert”. Ustaw podpis jako „Konwertuj”.
• Kliknij przycisk polecenia 2 i nazwij go jako „btnClose”. Ustaw jego podpis jako „Zamknij”.

Poza tym w razie potrzeby ustaw inne właściwości.

Kody wejściowe do sterowania

1. Kliknij dwukrotnie przycisk „Konwertuj”, aby wprowadzić obszar kodu. Wklej tam następujące kody:

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. Następnie przejdź do formularza i kliknij dwukrotnie przycisk „Zamknij”. Wpisz kody:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Następnie kliknij dwukrotnie na formularzu, aby go wprowadzić. Na górze widać 2 pola kombi. Upewnij się, że wybrałeś „UserForm” po lewej stronie i „Inicjalizuj” po prawej stronie.
4. I tam też wklej kody.

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 koniec zapisz wszystkie kody.

Wstaw moduł

1. Nadal w edytorze VBA kliknij „Wstaw” w projekcie „Normalny”.
2. Ale tym razem wybierz „Moduł”.
3. Kliknij go dwukrotnie, aby otworzyć i wkleić kody:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Teraz uruchom makro „TriggerTemperatureConverter” i możesz uruchomić konwerter. Możesz przypisać przycisk do tego makra. Szczegółowe instrukcje znajdziesz w tym artykule: Jak usunąć formatowanie wklejonych tekstów za pomocą makra i VBA w swoim słowie

Możesz sprawdzić wideo poniżej:

Gotowy na upadek programu Word

Bez względu na to, czy doświadczyłeś utraty danych, czy nie, zawsze powinieneś przygotować się na wypadek katastrofy danych. Spośród wszystkich dostępnych przydatnych wskazówek zdecydowanie zalecamy zdobycie a odzyskiwanie docx narzędzie z góry.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskaj Excela i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com