Paano Madaling Mag-convert sa pagitan ng Iba't ibang Mga Yunit ng Temperatura, tulad ng Celsius, Fahrenheit, Kelvin, sa Iyong Salita

Sa artikulong ito, ipapakita namin sa iyo kung paano madaling mag-convert sa pagitan ng mga unit ng temperatura, gaya ng Celsius, Fahrenheit, Kelvin, sa iyong Word.

Gamitin nang mabuti ang Word VBA, maaari kang lumikha ng maraming maliliit ngunit kapaki-pakinabang na mga tool. Halimbawa, ayos lang na gumawa ka ng temperature converter sa Word para gawin ang nakakapagod na conversion para sa iyo. Samakatuwid, basahin upang masundan ang higit pang mga detalye.

Magpasok ng isang Form ng Gumagamit

Upang lumikha ng converter, kailangan mo munang lumikha ng isang form ng gumagamit.

1. Una sa lahat, pindutin ang "Alt + F11" upang buksan ang VBA editor.
2. Susunod na pag-click sa "Normal" sa kaliwang haligi.
3. Pagkatapos ay i-click ang "Insert" at piliin ang "UserForm".
4. Mag-click sa mga handle sa paligid ng form upang ayusin ang laki nito.
5. Susunod na pindutin ang "F4" upang ma-trigger ang "Properties Window".
6. Sa bintana, pangalanan ang form ng gumagamit bilang "frmTemperatureConverter" at itakda ang caption nito bilang "Temperature Converter".
7. Bilang karagdagan, itakda ang "ShowModal" property ng form bilang "False".
8. Pagkatapos, sa menu bar, i-click ang “Toolbox” para ilabas ito.
9. Gumamit ng mga kontrol sa toolbox para gumawa ng label, dalawang text box, dalawang command button, at dalawang combo box. Ilagay ang mga kontrol na ito sa form sa sumusunod na pagkakasunud-sunod:
10. Susunod na itakda ang mga partikular na katangian para sa mga kontrol na ginawa:

• Mag-click muna sa text box 1. Pangalanan ito bilang "txtTempValue1".
• Pagkatapos ay mag-click sa text box 2 at pangalanan ito bilang "txtTempValue2".
• Susunod na mag-click sa label at itakda ang caption nito bilang "=".
• Mag-click sa combo box 1 at pangalanan ito bilang "cmbTempUnit1".
• At mag-click sa combo box 2 at pangalanan ito bilang "cmbTempUnit2".
• Susunod na mag-click sa command button 1 at pangalanan ito bilang "btnConvert". Itakda ang caption bilang “Convert”.
• Mag-click sa command button 2 at pangalanan ito bilang "btnClose". Itakda ang caption nito bilang "Isara".

Bukod, magtakda ng iba pang mga katangian kung kinakailangan.

Mga Input Code para sa Mga Kontrol

1. I-double click ang "Convert" na buton upang makapasok sa lugar ng code. Idikit ang mga sumusunod na code doon:

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. Susunod na pumunta sa form at i-double click ang "Isara" na buton. Maglagay ng mga code:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Pagkatapos ay i-double click ang form upang ipasok ito. Makakakita ka ng 2 combo box sa itaas. Tiyaking pipiliin mo ang "UserForm" para sa kaliwa at "Initialize" para sa kanan.
4. At maglagay din ng mga code doon.

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. Panghuli, i-save ang lahat ng mga code.

Magsingit ng isang Modyul

1. Nasa VBA editor pa rin, i-click ang "Insert" sa ilalim ng "Normal" na proyekto.
2. Ngunit sa pagkakataong ito piliin ang "Module".
3. I-double click ito upang buksan at i-paste ang mga code:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Ngayon patakbuhin ang macro "TriggerTemperatureConverter" at maaari mong i-trigger ang converter. Maaari kang magtalaga ng button para sa macro na ito. Para sa mga detalyadong hakbang, sumangguni sa artikulong ito: Paano Tanggalin ang Pag-format ng Mga Na-paste na Mga Teksto gamit ang Macro at VBA sa Iyong Salita

Maaari mong suriin ang video sa ibaba:

Handa na para sa Word Collapse

Hindi mahalaga kung nakaranas ka ng pagkawala ng data o hindi, dapat kang palaging maghanda kung may nangyaring sakuna ng data. Sa lahat ng magagamit na mga kapaki-pakinabang na tip, lubos naming inirerekomenda ang pagkuha ng isang pagbawi ng docx kasangkapan nang maaga.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang bawiin ang excel at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa