Sözünüzdə Selsi, Fahrenheit, Kelvin kimi müxtəlif temperatur vahidləri arasında asanlıqla necə çevirmək olar

Bu yazıda sizə Word-də Selsi, Fahrenheit, Kelvin kimi temperatur vahidləri arasında asanlıqla necə çevriləcəyini göstərəcəyik.

Word VBA-dan yaxşı istifadə edin, çox kiçik, lakin faydalı alətlər yarada bilərsiniz. Məsələn, yorucu çevirməni yerinə yetirmək üçün Word-də temperatur çeviricisi yaratmaq tamamilə yaxşıdır. Buna görə də, daha çox təfərrüatları izləmək üçün oxuyun.

İstifadəçi Formasını daxil edin

Dönüştürücü yaratmaq üçün əvvəlcə istifadəçi forması yaratmalısınız.

1. Əvvəlcə VBA redaktorunu açmaq üçün "Alt + F11" düyməsini basın.
2. Sonra sol sütunda "Normal" düyməsini basın.
3. Sonra "Daxil et" düyməsini basın və "UserForm" seçin.
4. Formanın ölçüsünü tənzimləmək üçün onun ətrafındakı tutacaqlara klikləyin.
5. Sonra "Xüsusiyyətlər Pəncərəsini" işə salmaq üçün "F4" düyməsini basın.
6. Pəncərədə, istifadəçi formasını “frmTemperatureConverter” adlandırın və başlığını "Temperatur çeviricisi" olaraq təyin edin.
7. Bundan əlavə, formanın “ShowModal” xüsusiyyətini “Yanlış” olaraq təyin edin.
8. Sonra menyu çubuğunda onu çıxarmaq üçün "Alətlər qutusu" üzərinə klikləyin.
9. Etiket, iki mətn qutusu, iki əmr düyməsi və iki kombinasiya qutusu yaratmaq üçün alətlər qutusunda idarəetmə elementlərindən istifadə edin. Bu nəzarətləri formada aşağıdakı ardıcıllıqla yerləşdirin:
10. Sonra yaradılan nəzarətlər üçün xüsusi xassələri təyin edin:

• Əvvəlcə mətn qutusuna klikləyin 1. Onu “txtTempValue1” kimi adlandırın.
• Sonra 2 mətn qutusuna klikləyin və onu “txtTempValue2” adlandırın.
• Sonra etiketə klikləyin və başlığını “=” olaraq təyin edin.
• Kombo xana 1 üzərinə klikləyin və onu “cmbTempUnit1” adlandırın.
• Və birləşdirilmiş qutu 2 üzərinə klikləyin və onu “cmbTempUnit2” adlandırın.
• Sonra 1 əmr düyməsini vurun və onu "btnConvert" adlandırın. Başlığı "Dönüştür" olaraq təyin edin.
• Komanda düyməsini 2 üzərinə klikləyin və onu “btnClose” adlandırın. Başlığını "Bağla" olaraq təyin edin.

Bundan əlavə, zəruri hallarda digər xüsusiyyətləri təyin edin.

Nəzarət üçün giriş kodları

1. Kod sahəsinə daxil olmaq üçün "Convert" düyməsini iki dəfə vurun. Aşağıdakı kodları oraya yapışdırın:

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. Sonra forma gedin və "Bağla" düyməsini iki dəfə vurun. Kodları daxil edin:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Sonra formanı daxil etmək üçün üzərinə iki dəfə klikləyin. Üst tərəfdə 2 kombi qutusu görə bilərsiniz. Sol üçün “UserForm” və sağ üçün “İnsiallaşdır” seçdiyinizə əmin olun.
4. Və kodları da oraya yapışdırın.

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əhayət, bütün kodları yadda saxlayın.

Modul daxil edin

1. Hələ VBA redaktorunda "Normal" layihəsinin altındakı "Daxil et" düyməsini basın.
2. Ancaq bu dəfə "Modul" seçin.
3. Kodları açmaq və yapışdırmaq üçün üzərinə iki dəfə klikləyin:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

İndi “TriggerTemperatureConverter” makrosunu işə salın və siz çevirici işə sala bilərsiniz. Bu makro üçün düymə təyin edə bilərsiniz. Ətraflı addımlar üçün bu məqaləyə baxın: Word-də Makro və VBA ilə yapışdırılmış mətnlərin formatını necə çıxarmaq olar

Aşağıdakı videoya baxa bilərsiniz:

Word Collapse üçün hazırdır

Məlumat itkisi ilə qarşılaşmağınızdan asılı olmayaraq, məlumat fəlakəti baş verərsə, həmişə hazırlıq görməlisiniz. Mövcud olan bütün faydalı məsləhətlər arasında a docx bərpası əvvəlcədən alət.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc excel bərpa edin və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com