သင့်စကားတွင် စင်တီဂရိတ်၊ ဖာရင်ဟိုက်၊ Kelvin ကဲ့သို့သော အမျိုးမျိုးသော အပူချိန်ယူနစ်များကြား အလွယ်တကူ ပြောင်းနည်း

ဤဆောင်းပါးတွင်၊ သင်၏နှုတ်ကပတ်တော်တွင် စင်တီဂရိတ်၊ ဖာရင်ဟိုက်၊ ကယ်ဗင်ကဲ့သို့သော အပူချိန်ယူနစ်များကြားတွင် အလွယ်တကူပြောင်းနည်းကို သင်ပြပါမည်။

Word VBA ကို ကောင်းမွန်စွာအသုံးပြုပါ၊ သေးငယ်သော်လည်း အသုံးဝင်သောကိရိယာများစွာကို သင်ဖန်တီးနိုင်ပါသည်။ ဥပမာအားဖြင့်၊ သင့်အတွက် ငြီးငွေ့စရာကောင်းသော ပြောင်းလဲခြင်းကို လုပ်ဆောင်ရန် Word တွင် အပူချိန်ပြောင်းသည့်ကိရိယာကို ဖန်တီးရန် သင်သည် လုံးဝကောင်းမွန်ပါသည်။ ထို့ကြောင့် နောက်ထပ်အသေးစိတ်အချက်အလက်များကို လိုက်နာရန် ဆက်လက်ဖတ်ရှုပါ။

အသုံးပြုသူပုံစံကို ထည့်သွင်းပါ။

converter ကိုဖန်တီးရန်၊ အသုံးပြုသူပုံစံကို ဦးစွာဖန်တီးရပါမည်။

1. ပထမဦးစွာ VBA တည်းဖြတ်မှုကိုဖွင့်ရန် "Alt+ F11" ကိုနှိပ်ပါ။
2. ထို့နောက် ဘယ်ဘက်ကော်လံရှိ “Normal” ကိုနှိပ်ပါ။
3. ထို့နောက် "Insert" ကိုနှိပ်ပြီး "UserForm" ကိုရွေးချယ်ပါ။
4. ၎င်း၏အရွယ်အစားကို ချိန်ညှိရန် ပုံစံပတ်လည်ရှိ လက်ကိုင်များကို နှိပ်ပါ။
5. ထို့နောက် "Properties Window" ကိုစတင်ရန် "F4" ကိုနှိပ်ပါ။
6. ပြတင်းပေါက်၊ အသုံးပြုသူဖောင်ကို “frmTemperatureConverter” အဖြစ် အမည်ပေးပါ။ နှင့် ၎င်း၏စာတန်းကို "Temperature Converter" အဖြစ် သတ်မှတ်ပါ.
7. ထို့အပြင်၊ ဖောင်၏ "ShowModal" ပိုင်ဆိုင်မှုကို "False" အဖြစ် သတ်မှတ်ပါ။
8. ထို့နောက် မီနူးဘားပေါ်တွင်၊ ၎င်းကိုထုတ်ရန် "Toolbox" ကိုနှိပ်ပါ။
9. အညွှန်းတစ်ခုဖန်တီးရန်၊ စာသားသေတ္တာနှစ်ခု၊ အမိန့်ပေးခလုတ်နှစ်ခုနှင့် ပေါင်းစပ်အကွက်နှစ်ခုကို ဖန်တီးရန် ကိရိယာပုံးရှိ ထိန်းချုပ်မှုများကို အသုံးပြုပါ။ အောက်ပါအစီအစဥ်အတိုင်း ဖောင်ပေါ်တွင် ဤထိန်းချုပ်မှုများကို ထည့်သွင်းပါ-
10. ဖန်တီးထားသော ထိန်းချုပ်မှုများအတွက် သီးသန့်ဂုဏ်သတ္တိများကို နောက်တစ်ခု သတ်မှတ်ပါ-

• ပထမဦးစွာ စာသားအကွက်ကို နှိပ်ပါ။ 1. ၎င်းကို “txtTempValue1” ဟု အမည်ပေးပါ။
• ပြီးရင် text box 2 ကို နှိပ်ပြီး “txtTempValue2” ဆိုပြီး နာမည်ပေးလိုက်ပါ။
• ထို့နောက် အညွှန်းကို နှိပ်ပြီး ၎င်း၏စာတန်းကို “=” အဖြစ် သတ်မှတ်ပါ။
• combo box 1 ကို နှိပ်ပြီး "cmbTempUnit1" ဟု အမည်ပေးလိုက်ပါ။
• combo box 2 ကို နှိပ်ပြီး "cmbTempUnit2" ဟု အမည်ပေးလိုက်ပါ။
• ထို့နောက် command button 1 ကိုနှိပ်ပြီး "btnConvert" ဟု အမည်ပေးလိုက်ပါ။ စာတန်းကို "ပြောင်းရန်" အဖြစ် သတ်မှတ်ပါ။
• command button 2 ကို နှိပ်ပြီး "btnClose" ဟု အမည်ပေးလိုက်ပါ။ ၎င်း၏စာတန်းကို "ပိတ်" အဖြစ် သတ်မှတ်ပါ။

ထို့အပြင် လိုအပ်ပါက အခြားသော ဂုဏ်သတ္တိများကို သတ်မှတ်ပါ။

ထိန်းချုပ်မှုများအတွက် ကုဒ်များ ထည့်သွင်းပါ။

1. ကုဒ်ဧရိယာသို့ဝင်ရောက်ရန် "Convert" ခလုတ်ကိုနှစ်ချက်နှိပ်ပါ။ အောက်ပါကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ပါ-

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. ထို့နောက် ဖောင်သို့သွား၍ “ပိတ်” ခလုတ်ကို နှစ်ချက်နှိပ်ပါ။ ကုဒ်များထည့်ပါ

Private Sub btnClose_Click()
  Unload Me
End Sub

3. ထို့နောက် ဖောင်ပေါ်တွင် ကလစ်နှစ်ချက်နှိပ်ပါ။ အပေါ်ဘက်တွင် ပေါင်းစပ်သေတ္တာ 2 ခုကို တွေ့နိုင်သည်။ ဘယ်ဘက်အတွက် "UserForm" ကိုရွေးချယ်ပြီး ညာဘက်အတွက် "Initialize" ကိုသေချာပါစေ။
4. ပြီးတော့ အဲဒီမှာ ကုဒ်တွေကို ကူးထည့်လိုက်ပါ။

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. နောက်ဆုံးအနေနဲ့၊ ကုဒ်အားလုံးကိုသိမ်းဆည်းပါ။

Module တစ်ခုထည့်ပါ။

1. VBA တည်းဖြတ်သူတွင်ရှိနေပါက၊ "ပုံမှန်" ပရောဂျက်အောက်ရှိ "Insert" ကိုနှိပ်ပါ။
2. ဒါပေမယ့် ဒီတစ်ခါတော့ "Module" ကိုရွေးပါ။
3. ကုဒ်များကိုဖွင့်ပြီး ကူးထည့်ရန် ၎င်းကို နှစ်ချက်နှိပ်ပါ။

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

ယခု macro "TriggerTemperatureConverter" ကိုဖွင့်ပြီး converter ကိုသင်စတင်နိုင်သည်။ ဤမက်ခရိုအတွက် ခလုတ်တစ်ခုကို သင်သတ်မှတ်နိုင်သည်။ အသေးစိတ်အဆင့်များအတွက် ဤဆောင်းပါးကို ကိုးကားပါ- သင့် Word တွင် Macro နှင့် VBA ဖြင့် Pasted Text ၏ Formatting ကိုမည်သို့ဖယ်ရှားနည်း

အောက်ပါ ဗီဒီယိုကို ကြည့်ရှုနိုင်ပါသည်။

Word ခေါက်သိမ်းရန် အဆင်သင့်ဖြစ်ပါပြီ။

ဒေတာ ဆုံးရှုံးမှု ကြုံသည်ဖြစ်စေ မကြုံသည်ဖြစ်စေ ဒေတာဘေးအန္တရာယ် ဖြစ်ပေါ်လာပါက အမြဲတမ်း ကြိုတင်ပြင်ဆင်ထားသင့်ပါသည်။ ရရှိနိုင်သော အသုံးဝင်သော အကြံပြုချက်များအားလုံးတွင်၊ ကိုင်ဆောင်ထားရန် အလေးအနက် အကြံပြုအပ်ပါသည်။ docx ပြန်လည်ရယူခြင်း။ tool ကိုကြိုတင်ပြောပါ။

စာရေးသူနိဒါန်း:

Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ Excel ကိုပြန်လည်ရယူပါ။ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com