Ինչպե՞ս հեշտությամբ փոխարկել տարբեր ջերմաստիճանի միավորների, ինչպիսիք են elsելսիուսը, Ֆարենհայթը, Կելվինը, ձեր խոսքով:

Այս հոդվածում մենք ձեզ ցույց կտանք, թե ինչպես ձեր Word- ում հեշտությամբ փոխակերպել ջերմաստիճանի միավորների, ինչպիսիք են elsելսիուսը, Ֆարենհայթը, Կելվինը:

Լավ օգտագործեք Word VBA- ն, կարող եք ստեղծել շատ փոքր, բայց օգտակար գործիքներ: Օրինակ, ձեզ բացարձակապես լավ է ստեղծել Word- ում ջերմաստիճանի փոխարկիչ `ձեզ համար հոգնեցուցիչ փոխարկում կատարելու համար: Հետևաբար, կարդացեք հետագա մանրամասներին հետևելու համար:

Տեղադրեք օգտվողի ձև

Փոխարկիչը ստեղծելու համար նախ պետք է ստեղծեք օգտվողի ձև:

1. Առաջին հերթին, սեղմեք «Alt + F11» ՝ VBA խմբագիր բացելու համար:
2. Հաջորդը կտտացրեք «Սովորական» ձախ սյունակի վրա:
3. Դրանից հետո կտտացրեք «Տեղադրել» կետին և ընտրել «Օգտագործողի ձևը»:
4. Կտտացրեք ձևի շուրջ բռնակներին ՝ դրա չափը կարգավորելու համար:
5. Հաջորդը սեղմեք «F4» ՝ «Հատկությունների պատուհանը» գործարկելու համար:
6. Պատուհանում անվանեք օգտագործողի ձևը որպես «frmTemperatureConverter» և իր վերնագիրը դնել որպես «երմաստիճանի փոխարկիչ».
7. Բացի այդ, ձևի «ShowModal» հատկությունը սահմանեք «False»:
8. Այնուհետև ընտրացանկի տողի վրա կտտացրեք «Գործիքատուփ» ՝ այն դուրս բերելու համար:
9. Օգտագործեք գործիքակազմի գործիքները ՝ պիտակ ստեղծելու համար, երկու տեքստային տուփ, երկու հրամանի կոճակ և երկու զուգակցված տուփ: Տեղադրեք այս հսկիչները ձևի վրա `հետևյալ հերթականությամբ.
10. Հաջորդը սահմանեց հատուկ հատկություններ ստեղծված կառավարման համար.

• Նախ կտտացրեք տեքստի տուփի վրա 1. Անվանեք այն որպես «txtTempValue1»:
• Դրանից հետո կտտացրեք տեքստի տուփ 2-ին և անվանեք այն որպես «txtTempValue2»:
• Հաջորդը կտտացրեք պիտակի վրա և դրեք դրա վերնագիրը որպես «=»:
• Կտտացրեք համակցված տուփ 1-ին և անվանեք այն որպես «cmbTempUnit1»:
• Եվ կտտացրեք համակցված տուփ 2-ին և անվանեք այն որպես «cmbTempUnit2»:
• Հաջորդը կտտացրեք հրամանի կոճակին 1 և անվանեք այն որպես «btnConvert»: Վերնագիրը սահմանեք որպես «Փոխարկել»:
• Կտտացրեք հրամանի կոճակին 2 և անվանեք այն որպես «btnClose»: Դրա վերնագիրը սահմանեք որպես «Փակել»:

Բացի այդ, անհրաժեշտության դեպքում սահմանեք այլ հատկություններ:

Հսկողության համար մուտքագրման կոդերը

1. Կրկնակի սեղմեք «Փոխարկել» կոճակի վրա `կոդի տարածք մուտքագրելու համար: Տեղադրեք հետևյալ ծածկագրերը.

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. Հաջորդը անցեք ձևաթղթին և կրկնակի կտտացրեք «Փակել» կոճակին: Մուտքագրեք կոդեր.

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Դրանից հետո կրկնակի կտտացրեք այն ձևաթղթին ՝ այն մուտքագրելու համար: Վերևում կարող եք տեսնել 2 զուգակցված տուփ: Համոզվեք, որ ձախ կողմում ընտրել եք «UserForm», աջի համար ՝ «Նախաձեռնել»:
4. Եվ այնտեղ նույնպես տեղադրեք կոդեր:

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. Վերջապես, պահպանեք բոլոր կոդերը:

Տեղադրեք մոդուլ

1. Դեռ VBA խմբագրում սեղմեք «Տեղադրել» «Նորմալ» նախագծի տակ:
2. Բայց այս անգամ ընտրեք «Մոդուլը»:
3. Կրկնակի կտտացրեք այն ՝ կոդերը բացելու և տեղադրելու համար.

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Այժմ գործարկեք «TriggerTemperatureConverter» մակրոտնտեսակը և կարող եք գործարկել փոխարկիչը: Այս մակրոի համար կարող եք կոճակ նշանակել: Մանրամասն քայլերի համար տե՛ս այս հոդվածը. Ինչպես հեռացնել տեղադրված տեքստերի ձևաչափումը մակրո և VBA- ի միջոցով ձեր Word- ում

Տեսանյութը կարող եք ստուգել ստորև ՝

Պատրաստ է բառի փլուզմանը

Անկախ նրանից ՝ դուք տվյալների կորուստ եք ունեցել, թե ոչ, դուք միշտ պետք է պատրաստվեք, եթե տվյալների աղետ է տեղի ունենում: Բոլոր առկա օգտակար խորհուրդների շարքում, մենք խստորեն խորհուրդ ենք տալիս բռնել ա docx վերականգնում գործիք նախապես:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել գերազանցել և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com