Cara Mudah Mengonversi antara Berbagai Satuan Suhu, seperti Celcius, Fahrenheit, Kelvin, di Word Anda

Pada artikel ini, kami akan menunjukkan kepada Anda cara mudah mengubah antara satuan suhu, seperti Celsius, Fahrenheit, Kelvin, di Word Anda.

Manfaatkan Word VBA dengan baik, Anda dapat membuat banyak alat kecil namun berguna. Misalnya, Anda baik-baik saja membuat konverter suhu di Word untuk melakukan konversi yang membosankan untuk Anda. Karena itu, baca terus untuk mengetahui detail selengkapnya.

Sisipkan Formulir Pengguna

Untuk membuat konverter, Anda harus membuat formulir pengguna terlebih dahulu.

1. Pertama-tama, tekan "Alt + F11" untuk membuka editor VBA.
2. Selanjutnya klik "Normal" di kolom kiri.
3. Kemudian klik "Sisipkan" dan pilih "UserForm".
4. Klik pada pegangan di sekitar formulir untuk menyesuaikan ukurannya.
5. Selanjutnya tekan "F4" untuk memicu "Jendela Properti".
6. Di jendela, beri nama formulir pengguna sebagai "frmTemperatureConverter" ke setel judulnya sebagai "Pengonversi Suhu".
7. Selain itu, setel properti "ShowModal" dari formulir sebagai "False".
8. Kemudian pada bilah menu, klik "Kotak Alat" untuk menampilkannya.
9. Gunakan kontrol pada kotak alat untuk membuat label, dua kotak teks, dua tombol perintah, dan dua kotak kombo. Letakkan kontrol ini di formulir dalam urutan berikut:
10. Selanjutnya set properti khusus untuk kontrol yang dibuat:

• Klik pertama pada kotak teks 1. Beri nama sebagai "txtTempValue1".
• Kemudian klik pada kotak teks 2 dan beri nama sebagai "txtTempValue2".
• Selanjutnya klik pada label dan atur keterangannya sebagai "=".
• Klik pada combo box 1 dan beri nama "cmbTempUnit1".
• Dan klik pada kotak kombo 2 dan beri nama "cmbTempUnit2".
• Selanjutnya klik pada tombol perintah 1 dan beri nama "btnConvert". Tetapkan teks sebagai "Konversi".
• Klik pada tombol perintah 2 dan beri nama sebagai "btnClose". Tetapkan judulnya sebagai "Tutup".

Selain itu, setel properti lain jika perlu.

Kode Input untuk Kontrol

1. Klik dua kali pada tombol "Ubah" untuk masuk ke area kode. Tempel kode 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. Selanjutnya pergi ke formulir dan klik dua kali tombol "Tutup". Masukkan kode:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Kemudian klik dua kali pada formulir untuk memasukkannya. Anda dapat melihat 2 kotak kombo di atas. Pastikan Anda memilih "UserForm" untuk kiri dan "Inisialisasi" untuk kanan.
4. Dan tempelkan kode 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. Terakhir, simpan semua kode.

Sisipkan Modul

1. Masih di editor VBA, klik "Sisipkan" di bawah proyek "Normal".
2. Tapi kali ini pilih “Module”.
3. Klik dua kali untuk membuka dan menempelkan kode:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Sekarang jalankan makro "TriggerTemperatureConverter" dan Anda dapat memicu konverter. Anda dapat menetapkan tombol untuk makro ini. Untuk langkah-langkah mendetail, lihat artikel ini: Cara Menghapus Pemformatan Teks yang Disisipkan dengan Makro dan VBA di Word Anda

Anda bisa cek videonya di bawah ini:

Siap untuk Word Runtuh

Terlepas dari apakah Anda pernah mengalami kehilangan data atau tidak, Anda harus selalu melakukan persiapan jika terjadi bencana data. Di antara semua tip berguna yang tersedia, kami sangat menyarankan agar Anda memiliki pemulihan docx alat sebelumnya.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan excel ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com