Сіздің сөзіңіз бойынша Цельсий, Фаренгейт, Кельвин сияқты әртүрлі температуралық бірліктерді қалай оңай ауыстыруға болады

Бұл мақалада біз Word бағдарламасында Цельсий, Фаренгейт, Кельвин сияқты температура бірліктерін қалай оңай түрлендіру керектігін көрсетеміз.

Word VBA бағдарламасын жақсы пайдаланыңыз, сіз көптеген шағын, бірақ пайдалы құралдарды жасай аласыз. Мысалы, сіз үшін жалықтыратын түрлендіруді орындау үшін Word бағдарламасында температура түрлендіргішін жасау өте жақсы. Сондықтан, толығырақ ақпарат алу үшін оқыңыз.

Пайдаланушы формасын салыңыз

Түрлендіргішті жасау үшін алдымен пайдаланушы пішінін жасау керек.

1. Біріншіден, VBA редакторын ашу үшін «Alt + F11» пернелерін басыңыз.
2. Содан кейін сол жақ бағандағы «Қалыпты» батырмасын басыңыз.
3. Содан кейін «Кірістіру» батырмасын басыңыз және «UserForm» таңдаңыз.
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» және оң жақта «Initialize» опциясын таңдағаныңызға көз жеткізіңіз.
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 Collapse үшін дайын

Деректердің жоғалуын бастан өткергеніңізге қарамастан, деректер апаты орын алса, әрқашан дайындалу керек. Қолжетімді барлық пайдалы кеңестердің ішінде біз мынаны ұстануды ұсынамыз docx қалпына келтіру алдын ала құрал.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. excel қалпына келтіру және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com