Cara Mudah Menukar di antara Pelbagai Unit Suhu, seperti Celsius, Fahrenheit, Kelvin, dalam Firman Anda

Dalam artikel ini, kami akan menunjukkan kepada anda cara menukar antara unit suhu dengan mudah, seperti Celsius, Fahrenheit, Kelvin, dalam Firman anda.

Gunakan Word VBA dengan baik, anda boleh membuat banyak alat kecil tetapi berguna. Sebagai contoh, anda boleh membuat penukar suhu di Word untuk melakukan penukaran yang membosankan untuk anda. Oleh itu, baca terus untuk mengikuti maklumat lebih lanjut.

Masukkan Borang Pengguna

Untuk membuat penukar, anda mesti membuat borang pengguna terlebih dahulu.

1. Pertama sekali, tekan "Alt + F11" untuk membuka editor VBA.
2. Klik seterusnya "Normal" di lajur kiri.
3. Kemudian klik "Insert" dan pilih "UserForm".
4. Klik pada pegangan di sekitar borang untuk menyesuaikan ukurannya.
5. Seterusnya tekan "F4" untuk mencetuskan "Properties Window".
6. Di tingkap, namakan borang pengguna sebagai "frmTemperatureConverter" dan tetapkan kapsyennya sebagai "Temperature Converter".
7. Sebagai tambahan, tetapkan sifat "ShowModal" dari bentuk sebagai "Salah".
8. Kemudian pada bar menu, klik "Toolbox" untuk mengeluarkannya.
9. Gunakan kawalan pada kotak alat untuk membuat label, dua kotak teks, dua butang arahan, dan dua kotak kombo. Letakkan kawalan ini pada borang mengikut urutan berikut:
10. Seterusnya tetapkan sifat khusus untuk kawalan yang dibuat:

• Klik pertama pada kotak teks 1. Namakan sebagai "txtTempValue1".
• Kemudian klik pada kotak teks 2 dan namakan sebagai "txtTempValue2".
• Klik seterusnya pada label dan tetapkan kapsyennya sebagai “=”.
• Klik pada kotak kombo 1 dan namakan sebagai "cmbTempUnit1".
• Dan klik pada kotak kombo 2 dan namakan sebagai "cmbTempUnit2".
• Seterusnya klik pada butang arahan 1 dan namakan sebagai "btnConvert". Tetapkan kapsyen sebagai "Tukar".
• Klik pada butang arahan 2 dan namakan sebagai "btnClose". Tetapkan kapsyennya sebagai "Tutup".

Selain itu, tetapkan sifat lain jika perlu.

Kod Input untuk Kawalan

1. Klik dua kali pada butang "Convert" untuk memasuki kawasan kod. Tampal kod berikut di sana:

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. Seterusnya pergi ke borang dan klik dua kali butang "Tutup". Masukkan kod:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Kemudian klik dua kali pada borang untuk memasukkannya. Anda dapat melihat 2 kotak kombo di bahagian atas. Pastikan anda memilih "UserForm" di sebelah kiri dan "Inisialisasi" di sebelah kanan.
4. Dan tampal kod di sana juga.

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. Akhir sekali, simpan semua kod.

Masukkan Modul

1. Masih dalam editor VBA, klik "Masukkan" di bawah projek "Normal".
2. Tetapi kali ini pilih "Modul".
3. Klik dua kali padanya untuk membuka dan menampal kod:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Sekarang jalankan makro "TriggerTemperatureConverter" dan anda boleh mencetuskan penukar. Anda boleh menetapkan butang untuk makro ini. Untuk langkah terperinci, rujuk artikel ini: Cara Menghapus Pemformatan Teks Tampal dengan Makro dan VBA di Word Anda

Anda boleh menyemak video di bawah:

Bersedia untuk Keruntuhan Kata

Tidak kira sama ada anda mengalami kehilangan data atau tidak, anda harus selalu membuat persiapan sekiranya bencana data berlaku. Di antara semua petua berguna yang ada, kami sangat mengesyorkan untuk mendapatkan a pemulihan docx alat di muka.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pulih cemerlang dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com