Cum să convertiți cu ușurință între diferite unități de temperatură, cum ar fi Celsius, Fahrenheit, Kelvin, în cuvântul dvs.

În acest articol, vă vom arăta cum să convertiți cu ușurință între unitățile de temperatură, cum ar fi Celsius, Fahrenheit, Kelvin, în Cuvântul dvs.

Folosiți bine Word VBA, puteți crea o mulțime de instrumente mici, dar utile. De exemplu, ești absolut bine să creezi un convertor de temperatură în Word pentru a face conversia plictisitoare pentru tine. Prin urmare, citiți mai departe pentru a urmări mai multe detalii.

Introduceți un formular de utilizator

Pentru a crea convertorul, va trebui mai întâi să creați un formular de utilizator.

1. În primul rând, apăsați „Alt+ F11” pentru a deschide editorul VBA.
2. Apoi faceți clic pe „Normal” în coloana din stânga.
3. Apoi faceți clic pe „Insert” și selectați „UserForm”.
4. Faceți clic pe mânerele din jurul formularului pentru a-i ajusta dimensiunea.
5. Apoi apăsați „F4” pentru a declanșa „Fereastra de proprietăți”.
6. La fereastră, denumește formularul utilizator ca „frmTemperatureConverter” și setați titlul ca „Convertor de temperatură”.
7. În plus, setați proprietatea „ShowModal” a formularului ca „False”.
8. Apoi, pe bara de meniu, faceți clic pe „Toolbox” pentru a o scoate.
9. Utilizați comenzile din caseta de instrumente pentru a crea o etichetă, două casete de text, două butoane de comandă și două casete combinate. Pune aceste controale pe formular în următoarea ordine:
10. Următorul setați proprietăți specifice pentru controalele create:

• Mai întâi faceți clic pe caseta de text 1. Numiți-o ca „txtTempValue1”.
• Apoi faceți clic pe caseta de text 2 și denumiți-o ca „txtTempValue2”.
• Apoi faceți clic pe etichetă și setați legenda acesteia ca „=”.
• Faceți clic pe caseta combinată 1 și denumiți-o ca „cmbTempUnit1”.
• Și faceți clic pe caseta combinată 2 și denumiți-o ca „cmbTempUnit2”.
• Apoi faceți clic pe butonul de comandă 1 și denumiți-l ca „btnConvert”. Setați legenda ca „Convertire”.
• Faceți clic pe butonul de comandă 2 și denumiți-l ca „btnClose”. Setați-i titlul ca „Închidere”.

În plus, setați alte proprietăți dacă este necesar.

Coduri de intrare pentru comenzi

1. Faceți dublu clic pe butonul „Convertire” pentru a intra în zona de cod. Lipiți următoarele coduri acolo:

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. Apoi accesați formularul și faceți dublu clic pe butonul „Închidere”. Introdu codurile:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Apoi faceți dublu clic pe formular pentru a-l introduce. Puteți vedea 2 casete combinate în partea de sus. Asigurați-vă că alegeți „UserForm” pentru stânga și „Initialize” pentru dreapta.
4. Și lipiți coduri acolo, de asemenea.

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. În cele din urmă, salvați toate codurile.

Introduceți un modul

1. Încă în editorul VBA, faceți clic pe „Inserați” sub proiectul „Normal”.
2. Dar de data aceasta alegeți „Modul”.
3. Faceți dublu clic pe el pentru a deschide și a lipi codurile:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Acum rulați macro „TriggerTemperatureConverter” și puteți declanșa convertorul. Puteți aloca un buton pentru această macrocomandă. Pentru pași detaliați, consultați acest articol: Cum să eliminați formatarea textelor lipite cu macro și VBA în Word

Puteți verifica videoclipul de mai jos:

Gata pentru colapsul cuvintelor

Indiferent dacă ați suferit sau nu pierderi de date, ar trebui să vă pregătiți întotdeauna dacă are loc un dezastru de date. Printre toate sfaturile utile disponibile, vă recomandăm insistent să obțineți un recuperare docx instrument în avans.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com