Word'ünüzde Celsius, Fahrenheit, Kelvin gibi Çeşitli Sıcaklık Birimlerini Nasıl Kolayca Dönüştürürsünüz?

Bu yazıda, Word'ünüzde Celsius, Fahrenheit, Kelvin gibi sıcaklık birimleri arasında nasıl kolayca dönüşüm yapabileceğinizi göstereceğiz.

Word VBA'yı iyi kullanın, çok sayıda küçük ama kullanışlı araç oluşturabilirsiniz. Örneğin, zahmetli dönüştürmeyi sizin yerinize yapması için Word'de bir sıcaklık dönüştürücü oluşturmanız kesinlikle iyidir. Bu nedenle, daha fazla ayrıntıyı takip etmek için okumaya devam edin.

Kullanıcı Formu Ekle

Dönüştürücüyü oluşturmak için önce bir kullanıcı formu oluşturmanız gerekir.

1. Her şeyden önce, VBA editörünü açmak için “Alt + F11” tuşlarına basın.
2. Ardından sol sütundaki “Normal”e tıklayın.
3. Ardından “Ekle”ye tıklayın ve “UserForm”u seçin.
4. Boyutunu ayarlamak için formun etrafındaki tutamaçlara tıklayın.
5. Daha sonra “Özellikler Penceresi”ni tetiklemek için “F4”e basın.
6. Pencerede, kullanıcı formunu "frmTemperatureConverter" olarak adlandırın ve başlığını "Sıcaklık Dönüştürücü" olarak ayarlayın.
7. Ayrıca formun “ShowModal” özelliğini de “False” olarak ayarlayın.
8. Ardından menü çubuğunda, onu ortaya çıkarmak için "Araç Kutusu"nu tıklayın.
9. Bir etiket, iki metin kutusu, iki komut düğmesi ve iki birleşik giriş kutusu oluşturmak için araç kutusundaki kontrolleri kullanın. Bu denetimleri forma aşağıdaki sırayla yerleştirin:
10. Ardından, oluşturulan kontroller için belirli özellikleri ayarlayın:

• Önce metin kutusu 1'e tıklayın. Bunu “txtTempValue1” olarak adlandırın.
• Ardından metin kutusu 2'ye tıklayın ve "txtTempValue2" olarak adlandırın.
• Daha sonra etikete tıklayın ve başlığını “=” olarak ayarlayın.
• Açılan kutu 1'e tıklayın ve "cmbTempUnit1" olarak adlandırın.
• Açılan kutu 2'ye tıklayın ve "cmbTempUnit2" olarak adlandırın.
• Ardından komut düğmesi 1'e tıklayın ve "btnConvert" olarak adlandırın. Altyazıyı “Dönüştür” olarak ayarlayın.
• Komut düğmesi 2'ye tıklayın ve "btnClose" olarak adlandırın. Başlığını “Kapat” olarak ayarlayın.

Ayrıca gerekirse diğer özellikleri ayarlayın.

Kontroller için Giriş Kodları

1. Kod alanına girmek için “Dönüştür” düğmesine çift tıklayın. Aşağıdaki kodları oraya yapıştırın:

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. Ardından forma gidin ve “Kapat” düğmesine çift tıklayın. Kodları girin:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Ardından, girmek için forma çift tıklayın. Üstte 2 açılan kutu görebilirsiniz. Sol için “UserForm” ve sağ için “Initialize” seçtiğinizden emin olun.
4. Ve kodları oraya da yapıştırın.

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. Son olarak, tüm kodları kaydedin.

Bir Modül Ekle

1. Hala VBA editöründe, “Normal” proje altındaki “Ekle” ye tıklayın.
2. Ancak bu sefer “Modül”ü seçin.
3. Kodları açmak ve yapıştırmak için üzerine çift tıklayın:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Şimdi "TriggerTemperatureConverter" makrosunu çalıştırın ve dönüştürücüyü tetikleyebilirsiniz. Bu makro için bir düğme atayabilirsiniz. Ayrıntılı adımlar için şu makaleye bakın: Word'ünüzdeki Makro ve VBA ile Yapıştırılan Metinlerin Biçimlendirmesini Kaldırma

Aşağıdaki videoyu kontrol edebilirsiniz:

Kelime Çöküşü için Hazır

Veri kaybı yaşasanız da yaşamasanız da, veri felaketi olursa her zaman hazırlık yapmalısınız. Mevcut tüm yararlı ipuçları arasında, bir tane bulmanızı şiddetle tavsiye ederiz. docx kurtarma aracı önceden.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. iyileşmek ve pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com