Word에서 섭씨, 화씨, 켈빈과 같은 다양한 온도 단위를 쉽게 변환하는 방법

워드 솔루션 2025 년 9 월 28 일

이 기사에서는 Word에서 섭씨, 화씨, 켈빈과 같은 온도 단위를 쉽게 변환하는 방법을 보여줍니다.

Word VBA를 잘 활용하면 작지만 유용한 도구를 많이 만들 수 있습니다. 예를 들어, 지루한 변환을 수행하기 위해 Word에서 온도 변환기를 만드는 것은 절대적으로 좋습니다. 따라서 자세한 내용을 따르려면 계속 읽으십시오.

사용자 양식 삽입

변환기를 만들려면 먼저 사용자 양식을 만들어야합니다.

먼저 "Alt + F11"을 눌러 VBA 편집기를 엽니 다.
다음으로 왼쪽 열에서 "일반"을 클릭합니다.
그런 다음 "삽입"을 클릭하고 "사용자 양식"을 선택합니다.
크기를 조정하려면 양식 주위의 핸들을 클릭하십시오.
그런 다음 "F4"를 눌러 "속성 창"을 트리거합니다.
창문에서 사용자 양식의 이름을 "frmTemperatureConverter"로 지정합니다. 캡션을 "온도 변환기"로 설정.
또한 폼의 "ShowModal"속성을 "False"로 설정합니다.
그런 다음 메뉴 표시 줄에서 "도구 상자"를 클릭하여 꺼냅니다.
도구 상자의 컨트롤을 사용하여 레이블, 두 개의 텍스트 상자, 두 개의 명령 단추 및 두 개의 콤보 상자를 만듭니다. 이러한 컨트롤을 다음 순서로 양식에 배치합니다.
다음으로 생성 된 컨트롤에 대한 특정 속성을 설정합니다.

먼저 텍스트 상자 1을 클릭합니다. 이름을 "txtTempValue1"로 지정합니다.
그런 다음 텍스트 상자 2를 클릭하고 이름을 "txtTempValue2"로 지정합니다.
다음으로 레이블을 클릭하고 캡션을 "="로 설정합니다.
콤보 상자 1을 클릭하고 이름을 "cmbTempUnit1"로 지정합니다.
콤보 상자 2를 클릭하고 이름을 "cmbTempUnit2"로 지정합니다.
다음으로 명령 버튼 1을 클릭하고 이름을 "btnConvert"로 지정합니다. 캡션을 "변환"으로 설정합니다.
명령 버튼 2를 클릭하고 이름을 "btnClose"로 지정합니다. 캡션을 "닫기"로 설정합니다.

또한 필요한 경우 다른 속성을 설정하십시오.

컨트롤에 대한 입력 코드

"변환"버튼을 더블 클릭하여 코드 영역으로 들어갑니다. 여기에 다음 코드를 붙여 넣으십시오.

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

그런 다음 양식으로 이동하여 "닫기"버튼을 두 번 클릭합니다. 코드 입력 :

Private Sub btnClose_Click()
  Unload Me
End Sub

그런 다음 양식을 두 번 클릭하여 입력하십시오. 상단에 2 개의 콤보 상자가 있습니다. 왼쪽에는 "UserForm"을 선택하고 오른쪽에는 "Initialize"를 선택해야합니다.
거기에 코드도 붙여 넣으세요.

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

마지막으로 모든 코드를 저장하십시오.

모듈 삽입

VBA 편집기에서 "일반"프로젝트에서 "삽입"을 클릭합니다.
그러나 이번에는 "모듈"을 선택합니다.
두 번 클릭하여 코드를 열고 붙여 넣으십시오.

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

이제 "TriggerTemperatureConverter"매크로를 실행하고 변환기를 트리거 할 수 있습니다. 이 매크로에 단추를 할당 할 수 있습니다. 자세한 단계는 다음 문서를 참조하십시오. Word에서 매크로 및 VBA를 사용하여 붙여 넣은 텍스트의 서식을 제거하는 방법

아래 비디오를 확인할 수 있습니다.

Word Collapse 준비

데이터 손실 여부에 관계없이 데이터 재해가 발생하면 항상 대비해야합니다. 사용 가능한 모든 유용한 팁 중에서 docx 복구 미리 도구.

저자 소개 :

Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 엑셀 복구 pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM