Sizning so'zingizda Tselsiy, Farengeyt, Kelvin kabi turli xil harorat birliklari o'rtasida qanday qilib osongina o'zgartirish mumkin

Ushbu maqolada biz sizning Wordingizda Selsiy, Farengeyt, Kelvin kabi harorat birliklari o'rtasida qanday qilib osongina o'zgartirishni ko'rsatamiz.

Word VBA-dan unumli foydalaning, siz juda ko'p kichik, ammo foydali vositalarni yaratishingiz mumkin. Masalan, siz uchun zerikarli konvertatsiya qilish uchun Word-da harorat o'zgartirgichni yaratish juda yaxshi. Shuning uchun, batafsilroq ma'lumot olish uchun o'qing.

Foydalanuvchi formasini kiriting

Konverterni yaratish uchun avval foydalanuvchi formasini yaratishingiz kerak bo'ladi.

1. VBA muharririni ochish uchun birinchi navbatda “Alt+ F11” tugmasini bosing.
2. Keyin chap ustundagi "Oddiy" ni bosing.
3. Keyin "Qo'shish" tugmasini bosing va "UserForm" ni tanlang.
4. Shaklning o'lchamini sozlash uchun uning atrofidagi tutqichlarni bosing.
5. Keyin "Xususiyatlar oynasi" ni ishga tushirish uchun "F4" tugmasini bosing.
6. Derazada, foydalanuvchi formasini "frmTemperatureConverter" deb nomlang va uning sarlavhasini "harorat konvertori" sifatida o'rnating.
7. Bundan tashqari, formaning "ShowModal" xususiyatini "False" deb belgilang.
8. Keyin menyu satrida uni chiqarish uchun "Asboblar qutisi" ni bosing.
9. Yorliq, ikkita matn qutisi, ikkita buyruq tugmasi va ikkita kombinatsiyalangan quti yaratish uchun asboblar panelidagi boshqaruv elementlaridan foydalaning. Ushbu boshqaruv elementlarini formaga quyidagi tartibda joylashtiring:
10. Keyinchalik yaratilgan boshqaruv elementlari uchun maxsus xususiyatlarni o'rnating:

• Avval matn maydonini bosing 1. Uni “txtTempValue1” deb nomlang.
• Keyin 2-matn maydonini bosing va uni "txtTempValue2" deb nomlang.
• Keyin yorliqni bosing va uning sarlavhasini "=" sifatida o'rnating.
• 1-kombo oynani bosing va uni "cmbTempUnit1" deb nomlang.
• Va 2-kombo qutini bosing va uni "cmbTempUnit2" deb nomlang.
• Keyin 1-buyruq tugmachasini bosing va uni "btnConvert" deb nomlang. Sarlavhani "Konvertatsiya qilish" sifatida o'rnating.
• Buyruqning 2 tugmachasini bosing va uni "btnClose" deb nomlang. Uning sarlavhasini "Yopish" deb belgilang.

Bundan tashqari, agar kerak bo'lsa, boshqa xususiyatlarni o'rnating.

Boshqaruv uchun kirish kodlari

1. Kod maydonini kiritish uchun "Konvertatsiya" tugmasini ikki marta bosing. U erda quyidagi kodlarni joylashtiring:

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. Keyin shaklga o'ting va "Yopish" tugmasini ikki marta bosing. Kodlarni kiriting:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Keyin uni kiritish uchun shaklni ikki marta bosing. Yuqorida 2 ta kombinatsiyalangan qutini ko'rishingiz mumkin. Chap uchun "UserForm" va o'ng uchun "Initialize" ni tanlaganingizga ishonch hosil qiling.
4. Va u erda kodlarni ham joylashtiring.

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. Nihoyat, barcha kodlarni saqlang.

Modulni kiriting

1. Hali ham VBA muharririda "Oddiy" loyihasi ostida "Qo'shish" tugmasini bosing.
2. Ammo bu safar "Modul" ni tanlang.
3. Kodlarni ochish va joylashtirish uchun ustiga ikki marta bosing:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Endi “TriggerTemperatureConverter” makrosini ishga tushiring va siz konvertorni ishga tushirishingiz mumkin. Ushbu makros uchun tugma belgilashingiz mumkin. Batafsil qadamlar uchun ushbu maqolaga qarang: Word-da makro va VBA yordamida qo'yilgan matnlarni formatlashni qanday olib tashlash mumkin

Quyidagi videoni tekshirishingiz mumkin:

So'zni yig'ish uchun tayyor

Ma'lumotlar yo'qolganmi yoki yo'qligidan qat'i nazar, ma'lumotlar halokati sodir bo'lganda doimo tayyorgarlik ko'rishingiz kerak. Mavjud bo'lgan barcha foydali maslahatlar orasida a ni qo'lga kiritishni qat'iy tavsiya qilamiz docx-ni tiklash oldindan vosita.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc excelni tiklang va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com