Таны үгээр Цельсий, Фаренгейт, Кельвин гэх мэт янз бүрийн температурын нэгжүүдийг хэрхэн амархан хөрвүүлэх вэ?

Энэ нийтлэлд бид Цельсийн, Фаренгейт, Кельвин гэх мэт температурын нэгжүүдийн хооронд хэрхэн амархан хөрвүүлэхийг үгэндээ харуулах болно.

Word VBA-г сайн ашиглаарай, гэхдээ та маш олон жижиг боловч хэрэгтэй хэрэгслүүдийг бий болгож чадна. Жишээлбэл, та Word дээр температур хөрвүүлэгчийг бүтээх нь туйлын сайн бөгөөд танд тохирсон хөрвүүлэлтийг хийх болно. Тиймээс илүү дэлгэрэнгүйг үргэлжлүүлэн уншина уу.

Хэрэглэгчийн маягт оруулах

Хөрвүүлэгчийг үүсгэхийн тулд эхлээд хэрэглэгчийн маягт үүсгэх шаардлагатай болно.

1. Юуны өмнө VBA редакторыг нээхийн тулд “Alt + F11” товчийг дарна уу.
2. Дараа нь зүүн баганад "Normal" дээр дарна уу.
3. Дараа нь "Insert" дээр дарж "UserForm" -г сонгоно уу.
4. Хэмжээг нь тохируулахын тулд маягтыг тойрсон бариул дээр дарна уу.
5. Дараа нь “Properties Window” -ийг идэвхжүүлэхийн тулд “F4” товчийг дарна уу.
6. Цонхонд, хэрэглэгчийн маягтыг “frmTemperatureConverter” гэж нэрлэх болон гарчгийг нь "Температурын хөрвүүлэгч" гэж тохируулсан.
7. Нэмж дурдахад маягтын “ShowModal” шинж чанарыг “Худал” гэж тохируулна уу.
8. Дараа нь цэсийн мөрөнд "Хэрэгслийн хайрцаг" дээр дарж гаргаж ирнэ үү.
9. Хэрэгслийн хайрцган дээрх удирдлагыг ашиглан шошго, хоёр текст хайрцаг, хоёр тушаалын товчлуур, хоёр хосолсон хайрцаг үүсгээрэй. Эдгээр хяналтыг маягтанд дараах дарааллаар байрлуул.
10. Дараагийнх нь үүсгэсэн хяналтын онцлог шинж чанаруудыг тохируулна уу.

• Эхлээд текст хайрцаг дээр дарна уу. Үүнийг "txtTempValue1" гэж нэрлэ.
• Дараа нь текст хайрцаг 2 дээр дараад “txtTempValue2” гэж нэрлэ.
• Дараа нь шошгон дээр дарж, гарчгийг нь "=" гэж тохируулна уу.
• Combo box 1 дээр дарж “cmbTempUnit1” гэж нэрлэ.
• Combo box 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", баруун талд нь "эхлүүлэх" -ийг сонгосон эсэхээ шалгаарай.
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 редактор хэвээр байгаа бөгөөд "Normal" төслийн хүрээнд "Insert" дээр дарна уу.
2. Гэхдээ энэ удаад “Модуль” -ыг сонгоорой.
3. Кодыг нээгээд буулгахын тулд үүн дээр давхар товшино уу.

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Одоо "TriggerTemperatureConverter" макро ажиллуулснаар хөрвүүлэгчийг ажиллуулах боломжтой. Та энэ макро дээр товчлуурыг оноож болно. Дэлгэрэнгүй алхамуудыг энэ нийтлэлээс авна уу. Макро, VBA ашиглан наасан текстийн форматыг хэрхэн яаж устгах вэ?

Та доорх видеог шалгаж болно:

Үг нурахад бэлэн байна

Та өгөгдлийн алдагдалд орсон эсэхээс үл хамааран мэдээллийн гамшиг тохиолдвол бэлтгэлээ үргэлж базааж байх хэрэгтэй. Бүх ашигтай зөвлөмжүүдээс бид а-г барьж авахыг зөвлөж байна docx сэргээх урьдчилан хэрэгсэл.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. excel-ийг сэргээх болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com