摂氏、華氏、ケルビンなど、さまざまな温度単位を簡単に変換する方法

ワードソリューション 2025 年 9 月 28 日

この記事では、摂氏、華氏、ケルビンなどの温度単位をWordで簡単に変換する方法を紹介します。

Word VBAをうまく利用すると、小さいながらも便利なツールをたくさん作成できます。たとえば、面倒な変換を行うためにWordで温度コンバーターを作成することはまったく問題ありません。したがって、詳細を読むために読んでください。

ユーザーフォームを挿入する

コンバーターを作成するには、最初にユーザーフォームを作成する必要があります。

まず、「Alt + F11」を押してVBAエディタを開きます。
次に、左側の列の「通常」をクリックします。
次に、「挿入」をクリックして「ユーザーフォーム」を選択します。
フォームの周りのハンドルをクリックして、サイズを調整します。
次に「F4」を押して「プロパティウィンドウ」をトリガーします。
ウィンドウで、 ユーザーフォームに「frmTemperatureConverter」という名前を付けます and キャプションを「TemperatureConverter」に設定します.
さらに、フォームの「ShowModal」プロパティを「False」に設定します。
次に、メニューバーで[ツールボックス]をクリックして表示します。
ツールボックスのコントロールを使用して、ラベル、XNUMXつのテキストボックス、XNUMXつのコマンドボタン、およびXNUMXつのコンボボックスを作成します。これらのコントロールを次の順序でフォームに配置します。
次に、作成したコントロールに特定のプロパティを設定します。

最初にテキストボックス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の折りたたみの準備ができました

データの損失が発生したかどうかに関係なく、データ災害が発生した場合は常に準備を行う必要があります。利用可能なすべての役立つヒントの中で、 docxリカバリ事前にツール。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。回復する and pdf ソフトウェア製品を修理します。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com