Como converter facilmente entre várias unidades de temperatura, como Celsius, Fahrenheit, Kelvin, em sua palavra

Neste artigo, mostraremos como converter facilmente entre unidades de temperatura, como Celsius, Fahrenheit, Kelvin, em seu Word.

Faça bom uso do Word VBA, você pode criar muitas ferramentas pequenas, mas úteis. Por exemplo, você está absolutamente bem em criar um conversor de temperatura no Word para fazer a conversão tediosa para você. Portanto, continue lendo para seguir mais detalhes.

Inserir um formulário de usuário

Para criar o conversor, você terá que criar um formulário de usuário primeiro.

1. Primeiro de tudo, pressione “Alt+F11” para abrir o editor VBA.
2. Em seguida, clique em “Normal” na coluna da esquerda.
3. Em seguida, clique em "Inserir" e selecione "Formulário de usuário".
4. Clique nas alças ao redor do formulário para ajustar seu tamanho.
5. Em seguida, pressione “F4” para acionar a “Janela de propriedades”.
6. Na janela, nomeie o formulário de usuário como “frmTemperatureConverter” e defina sua legenda como “Conversor de temperatura”.
7. Além disso, defina a propriedade “ShowModal” do formulário como “False”.
8. Em seguida, na barra de menu, clique em “Toolbox” para trazê-lo para fora.
9. Use os controles na caixa de ferramentas para criar um rótulo, duas caixas de texto, dois botões de comando e duas caixas de combinação. Coloque esses controles no formulário na seguinte ordem:
10. Em seguida, defina propriedades específicas para os controles criados:

• Primeiro clique na caixa de texto 1. Nomeie-a como “txtTempValue1”.
• Em seguida, clique na caixa de texto 2 e nomeie-a como “txtTempValue2”.
• Em seguida, clique no rótulo e defina sua legenda como “=”.
• Clique na caixa de combinação 1 e nomeie-a como “cmbTempUnit1”.
• E clique na caixa de combinação 2 e nomeie-a como “cmbTempUnit2”.
• Em seguida, clique no botão de comando 1 e nomeie-o como “btnConvert”. Defina a legenda como "Converter".
• Clique no botão de comando 2 e nomeie-o como “btnClose”. Defina sua legenda como "Fechar".

Além disso, defina outras propriedades, se necessário.

Códigos de entrada para controles

1. Clique duas vezes no botão “Converter” para entrar na área de código. Cole os seguintes códigos lá:

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. Em seguida, vá para o formulário e clique duas vezes no botão "Fechar". Insira os códigos:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Em seguida, clique duas vezes no formulário para entrar. Você pode ver 2 caixas de combinação no topo. Certifique-se de escolher “UserForm” para a esquerda e “Inicializar” para a direita.
4. E cole códigos lá também.

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. Por fim, salve todos os códigos.

Inserir um Módulo

1. Ainda no editor VBA, clique em “Inserir” no projeto “Normal”.
2. Mas desta vez escolha “Módulo”.
3. Clique duas vezes nele para abrir e colar os códigos:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Agora execute a macro “TriggerTemperatureConverter” e você pode acionar o conversor. Você pode atribuir um botão para esta macro. Para etapas detalhadas, consulte este artigo: Como remover a formatação de textos colados com macro e VBA no seu Word

Você pode conferir o vídeo abaixo:

Pronto para o colapso do Word

Não importa se você sofreu perda de dados ou não, você deve sempre se preparar se ocorrer um desastre de dados. Entre todas as dicas úteis disponíveis, recomendamos fortemente obter um recuperação docx ferramenta com antecedência.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperar excel e pdf reparar produtos de software. Para mais informações visite www.datanumen.com