Cách dễ dàng chuyển đổi giữa các đơn vị nhiệt độ khác nhau, chẳng hạn như độ C, độ F, độ Kelvin trong Word của bạn

Lời giải Tháng Chín 28, 2025
Chia sẻ ngay bây giờ:

Trong bài viết này, chúng tôi sẽ hướng dẫn bạn cách dễ dàng chuyển đổi giữa các đơn vị nhiệt độ, chẳng hạn như độ C, độ F, độ Kelvin trong Word của bạn.

Tận dụng tốt Word VBA, bạn có thể tạo ra rất nhiều công cụ nhỏ nhưng hữu ích. Ví dụ: bạn hoàn toàn có thể tạo một công cụ chuyển đổi nhiệt độ trong Word để thực hiện công việc chuyển đổi tẻ nhạt cho mình. Vì vậy, hãy đọc tiếp để biết thêm chi tiết. Chuyển đổi giữa các đơn vị nhiệt độ khác nhau

Chèn một biểu mẫu người dùng

Để tạo trình chuyển đổi, trước tiên bạn sẽ phải tạo biểu mẫu người dùng.

  1. Trước hết, nhấn “Alt + F11” để mở trình soạn thảo VBA.
  2. Tiếp theo, nhấp vào “Bình thường” ở cột bên trái.
  3. Sau đó nhấp vào “Chèn” và chọn “UserForm”.Nhấp vào "Bình thường"->Nhấp vào "Chèn"->Nhấp vào "Biểu mẫu người dùng"
  4. Bấm vào các tay cầm xung quanh biểu mẫu để điều chỉnh kích thước của nó.
  5. Tiếp theo nhấn “F4” để kích hoạt “Cửa sổ thuộc tính”.
  6. Trong cửa sổ, đặt tên cho biểu mẫu người dùng là “frmTemperatureConverter” và đặt chú thích của nó là "Bộ chuyển đổi nhiệt độ".
  7. Ngoài ra, hãy đặt thuộc tính “ShowModal” của biểu mẫu là “False”.
  8. Sau đó trên thanh menu, nhấp vào “Hộp công cụ” để đưa nó ra.
  9. Sử dụng các điều khiển trên hộp công cụ để tạo nhãn, hai hộp văn bản, hai nút lệnh và hai hộp tổ hợp. Đặt các điều khiển này trên biểu mẫu theo thứ tự sau:Tạo hai hộp văn bản, hai nút lệnh, hai hộp tổ hợp và một nhãn
  10. Tiếp theo đặt các thuộc tính cụ thể cho các điều khiển đã tạo:
  • Đầu tiên bấm vào hộp văn bản 1. Đặt tên là “txtTempValue1”.
  • Sau đó bấm vào hộp văn bản 2 và đặt tên là “txtTempValue2”.
  • Tiếp theo, nhấp vào nhãn và đặt chú thích của nó là “=”.
  • Click vào combo box 1 và đặt tên là “cmbTempUnit1”.
  • Và click vào combo box 2 và đặt tên là “cmbTempUnit2”.
  • Tiếp theo bấm vào nút lệnh 1 và đặt tên là “btnConvert”. Đặt chú thích là “Chuyển đổi”.
  • Bấm vào nút lệnh 2 và đặt tên là “btnClose”. Đặt chú thích của nó là “Đóng”.

Ngoài ra, đặt các thuộc tính khác nếu cần thiết.

Mã đầu vào cho điều khiển

  1. Nhấp đúp chuột vào nút “Chuyển đổi” để nhập vùng mã. Dán các mã sau vào đó:
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
  1. Tiếp theo, đi tới biểu mẫu và nhấp đúp vào nút “Đóng”. Nhập mã:
Private Sub btnClose_Click()
  Unload Me
End Sub
  1. Sau đó nhấp đúp chuột vào biểu mẫu để nhập nó. Bạn có thể thấy 2 hộp combo ở trên cùng. Đảm bảo bạn chọn “UserForm” ở bên trái và “Khởi tạo” ở bên phải.Chọn "UserForm" cho Hộp tổ hợp bên trái và "Khởi tạo" cho bên phải
  2. Và dán mã vào đó nữa.
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
  1. Cuối cùng, lưu tất cả các mã.

Chèn một mô-đun

  1. Vẫn trong trình soạn thảo VBA, nhấp vào “Chèn” trong dự án “Bình thường”.
  2. Nhưng lần này hãy chọn “Mô-đun”.Nhấp vào "Bình thường" -> Nhấp vào "Chèn" -> Nhấp vào "Mô-đun"
  3. Nhấp đúp chuột vào nó để mở và dán mã:
Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Bây giờ hãy chạy macro “TriggerTem Nhiệt độConverter” và bạn có thể kích hoạt trình chuyển đổi. Bạn có thể chỉ định một nút cho macro này. Để biết các bước chi tiết, hãy tham khảo bài viết này: Cách xóa định dạng của văn bản đã dán bằng Macro và VBA trong Word của bạn

Bạn có thể kiểm tra video dưới đây:

 

Sẵn sàng cho việc thu gọn từ

Cho dù bạn có bị mất dữ liệu hay không, bạn nên luôn chuẩn bị nếu thảm họa dữ liệu xảy ra. Trong số tất cả các mẹo hữu ích hiện có, chúng tôi thực sự khuyên bạn nên nắm giữ một phục hồi docx công cụ trước.

Giới thiệu tác giả:

Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi excel và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm

Chia sẻ ngay bây giờ:

Được đóng lại.