วิธีการแปลงหน่วยอุณหภูมิต่างๆเช่นเซลเซียสฟาเรนไฮต์เคลวินใน Word ของคุณได้อย่างง่ายดาย

ในบทความนี้เราจะแสดงวิธีการแปลงระหว่างหน่วยอุณหภูมิเช่นเซลเซียสฟาเรนไฮต์เคลวินใน Word ของคุณได้อย่างง่ายดาย

ใช้ประโยชน์จาก Word VBA คุณสามารถสร้างเครื่องมือขนาดเล็ก แต่มีประโยชน์มากมาย ตัวอย่างเช่นคุณสามารถสร้างตัวแปลงอุณหภูมิใน Word เพื่อทำการแปลงที่น่าเบื่อให้กับคุณได้ ดังนั้นอ่านเพื่อติดตามรายละเอียดเพิ่มเติม

แทรกแบบฟอร์มผู้ใช้

ในการสร้างตัวแปลงคุณจะต้องสร้างแบบฟอร์มผู้ใช้ก่อน

1. ก่อนอื่นให้กด“ Alt + F11” เพื่อเปิดตัวแก้ไข VBA
2. จากนั้นคลิก "ปกติ" ที่คอลัมน์ด้านซ้าย
3. จากนั้นคลิก“ แทรก” และเลือก“ ฟอร์มผู้ใช้”
4. คลิกที่แฮนเดิลรอบ ๆ แบบฟอร์มเพื่อปรับขนาด
5. จากนั้นกด“ F4” เพื่อเรียกใช้“ หน้าต่างคุณสมบัติ”
6. ในหน้าต่าง ตั้งชื่อแบบฟอร์มผู้ใช้ว่า“ frmTemperatureConverter” และ ตั้งคำบรรยายเป็น“ ตัวแปลงอุณหภูมิ”.
7. นอกจากนี้ตั้งค่าคุณสมบัติ“ ShowModal” ของแบบฟอร์มเป็น“ False”
8. จากนั้นบนแถบเมนูคลิก "กล่องเครื่องมือ" เพื่อนำออกมา
9. ใช้ตัวควบคุมบนกล่องเครื่องมือเพื่อสร้างป้ายชื่อกล่องข้อความสองปุ่มปุ่มคำสั่งสองปุ่มและกล่องคำสั่งผสมสองกล่อง วางตัวควบคุมเหล่านี้ในฟอร์มตามลำดับต่อไปนี้:
10. ถัดไปตั้งค่าคุณสมบัติเฉพาะสำหรับการควบคุมที่สร้างขึ้น:

• ขั้นแรกให้คลิกที่กล่องข้อความ 1. ตั้งชื่อเป็น "txtTempValue1"
• จากนั้นคลิกที่ช่องข้อความ 2 และตั้งชื่อว่า "txtTempValue2"
• คลิกถัดไปที่ป้ายกำกับและตั้งคำบรรยายเป็น“ =”
• คลิกที่กล่องคำสั่งผสม 1 และตั้งชื่อเป็น“ cmbTempUnit1”
• แล้วคลิกที่กล่องคำสั่งผสม 2 และตั้งชื่อเป็น“ cmbTempUnit2”
• จากนั้นคลิกที่ปุ่มคำสั่ง 1 และตั้งชื่อว่า“ btnConvert” ตั้งคำบรรยายเป็น "แปลง"
• คลิกที่ปุ่มคำสั่ง 2 และตั้งชื่อเป็น“ btnClose” ตั้งคำบรรยายเป็น“ ปิด”

นอกจากนี้ให้ตั้งค่าคุณสมบัติอื่น ๆ หากจำเป็น

ป้อนรหัสสำหรับการควบคุม

1. ดับเบิลคลิกที่ปุ่ม“ Convert” เพื่อเข้าสู่พื้นที่รหัส วางรหัสต่อไปนี้ที่นั่น:

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” ทางด้านซ้ายและ“ Initialize” ทางด้านขวา
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 ให้คลิก "แทรก" ใต้โครงการ "ปกติ"
2. แต่คราวนี้เลือก "โมดูล"
3. ดับเบิลคลิกเพื่อเปิดและวางรหัส:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

ตอนนี้เรียกใช้แมโคร“ TriggerTemperatureConverter” และคุณสามารถทริกเกอร์ตัวแปลงได้ คุณสามารถกำหนดปุ่มสำหรับมาโครนี้ สำหรับขั้นตอนโดยละเอียดโปรดดูบทความนี้: วิธีลบการจัดรูปแบบของข้อความที่วางด้วยมาโครและ VBA ใน Word ของคุณ

คุณสามารถตรวจสอบวิดีโอด้านล่าง:

พร้อมสำหรับการยุบคำ

ไม่ว่าคุณจะประสบปัญหาข้อมูลสูญหายหรือไม่ก็ตามคุณควรเตรียมความพร้อมเสมอหากเกิดภัยพิบัติขึ้น ในบรรดาเคล็ดลับที่เป็นประโยชน์ทั้งหมดเราขอแนะนำอย่างยิ่งให้คุณใช้ไฟล์ การกู้คืน docx เครื่องมือล่วงหน้า

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ กู้คืน excel และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.