Kā viegli pārvērst savā starpā dažādas temperatūras vienības, piemēram, Celsija, Fārenheita, Kelvina

Šajā rakstā mēs jums parādīsim, kā savā Word viegli konvertēt starp temperatūras vienībām, piemēram, Celsija, Fārenheita, Kelvina.

Labi izmantojiet Word VBA, varat izveidot daudz mazu, bet noderīgu rīku. Piemēram, jums ir pilnīgi labi izveidot temperatūras pārveidotāju programmā Word, lai jūsu vietā veiktu garlaicīgu pārveidošanu. Tāpēc lasiet tālāk, lai sekotu sīkākai informācijai.

Ievietojiet lietotāja veidlapu

Lai izveidotu pārveidotāju, vispirms būs jāizveido lietotāja veidlapa.

1. Vispirms nospiediet “Alt + F11”, lai atvērtu VBA redaktoru.
2. Pēc tam kreisajā kolonnā noklikšķiniet uz “Normal”.
3. Pēc tam noklikšķiniet uz “Ievietot” un atlasiet “UserForm”.
4. Noklikšķiniet uz rokturiem ap veidlapu, lai pielāgotu tās lielumu.
5. Pēc tam nospiediet “F4”, lai aktivizētu “Properties Window”.
6. Logā nosauciet lietotāja veidlapu kā “frmTemperatureConverter” un iestatiet parakstu kā “Temperatūras pārveidotājs”.
7. Turklāt veidlapas rekvizītu “ShowModal” iestatiet kā “False”.
8. Pēc tam izvēlnes joslā noklikšķiniet uz “Toolbox”, lai to parādītu.
9. Izmantojiet rīkjoslas vadīklas, lai izveidotu iezīmi, divus tekstlodziņus, divas komandu pogas un divas kombinētās rūtiņas. Veidlapā ievietojiet šīs vadīklas šādā secībā:
10. Nākamais iestatīto īpašību iestatījums vadīklām:

• Vispirms noklikšķiniet uz tekstlodziņa 1. Nosauciet to kā “txtTempValue1”.
• Pēc tam noklikšķiniet uz 2. tekstlodziņa un nosauciet to kā “txtTempValue2”.
• Pēc tam noklikšķiniet uz etiķetes un iestatiet tās parakstu kā “=”.
• Noklikšķiniet uz 1. kombinācijas lodziņa un nosauciet to kā “cmbTempUnit1”.
• Noklikšķiniet uz 2. kombinācijas lodziņa un nosauciet to kā “cmbTempUnit2”.
• Pēc tam noklikšķiniet uz komandas 1. pogas un nosauciet to kā “btnConvert”. Iestatiet parakstu kā “Konvertēt”.
• Noklikšķiniet uz komandas 2. pogas un nosauciet to kā “btnClose”. Iestatiet tā parakstu kā “Aizvērt”.

Turklāt, ja nepieciešams, iestatiet citas īpašības.

Vadības ievades kodi

1. Veiciet dubultklikšķi uz pogas “Konvertēt”, lai ievadītu koda apgabalu. Ielīmējiet tur šādus kodus:

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. Pēc tam dodieties uz veidlapu un veiciet dubultklikšķi uz pogas Aizvērt. Ievadiet kodus:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Pēc tam veiciet dubultklikšķi uz veidlapas, lai to ievadītu. Augšpusē var redzēt 2 kombinētās rūtiņas. Kreisajā pusē noteikti izvēlieties “UserForm” un labajā pusē - “Initialize”.
4. Un tur ielīmē arī kodus.

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. Visbeidzot, saglabājiet visus kodus.

Ievietojiet moduli

1. Joprojām atrodoties VBA redaktorā, sadaļā “Normāls” noklikšķiniet uz “Ievietot”.
2. Bet šoreiz izvēlieties “Modulis”.
3. Veiciet dubultklikšķi uz tā, lai atvērtu un ielīmētu kodus:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Tagad palaidiet makro “TriggerTemperatureConverter”, un jūs varat aktivizēt pārveidotāju. Šim makro varat piešķirt pogu. Detalizētas darbības skatiet šajā rakstā: Kā noņemt ielīmēto tekstu formatēšanu ar makro un VBA

Tālāk redzamo videoklipu varat pārbaudīt:

Gatavs Word sabrukšanai

Neatkarīgi no tā, vai esat piedzīvojis datu zudumu vai nē, vienmēr jāveic sagatavošanās, ja notiek datu katastrofa. Starp visiem pieejamajiem noderīgajiem padomiem mēs ļoti iesakām iegūt a docx atgūšana rīks iepriekš.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt excel un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar