როგორ მარტივად გადავიტანოთ სხვადასხვა ტემპერატურის ერთეულებს შორის, როგორიცაა ცელსიუსი, ფარენჰაიტი, კელვინი, თქვენს სიტყვაში

ამ სტატიაში ჩვენ გაჩვენებთ, თუ როგორ მარტივად გადაიყვანოთ ტემპერატურის ერთეულებს შორის, როგორიცაა ცელსიუსი, ფარენჰაიტი, კელვინი, თქვენს Word-ში.

კარგად გამოიყენეთ Word VBA, შეგიძლიათ შექმნათ ბევრი პატარა, მაგრამ სასარგებლო ინსტრუმენტი. მაგალითად, თქვენ აბსოლუტურად კარგად შექმნით ტემპერატურის გადამყვანს Word-ში, რათა გააკეთოთ დამღლელი კონვერტაცია თქვენთვის. ამიტომ, წაიკითხეთ მეტი დეტალების გასაცნობად.

ჩადეთ მომხმარებლის ფორმა

კონვერტორის შესაქმნელად, ჯერ უნდა შექმნათ მომხმარებლის ფორმა.

1. უპირველეს ყოვლისა, დააჭირეთ "Alt+ F11" VBA რედაქტორის გასახსნელად.
2. შემდეგ დააჭირეთ ღილაკს "ნორმალური" მარცხენა სვეტში.
3. შემდეგ დააჭირეთ "ჩასმა" და აირჩიეთ "მომხმარებლის ფორმა".
4. დააწკაპუნეთ სახელურებზე ფორმის გარშემო, რათა შეცვალოთ მისი ზომა.
5. შემდეგ დააჭირეთ "F4"-ს "თვისებების ფანჯრის" გასააქტიურებლად.
6. ფანჯარაში, დაასახელეთ მომხმარებლის ფორმა, როგორც "frmTemperatureConverter" მდე დააყენეთ მისი წარწერა, როგორც "ტემპერატურის გადამყვანი".
7. გარდა ამისა, დააყენეთ ფორმის "ShowModal" თვისება როგორც "False".
8. შემდეგ მენიუს ზოლზე დააწკაპუნეთ „ინსტრუმენტთა ყუთში“, რომ გამოაშკარავოთ იგი.
9. გამოიყენეთ ინსტრუმენტების კოლოფზე კონტროლი ლეიბლის, ორი ტექსტური ველის, ორი ბრძანების ღილაკის და ორი კომბინირებული ველის შესაქმნელად. განათავსეთ ეს კონტროლი ფორმაზე შემდეგი თანმიმდევრობით:
10. შემდეგი დააყენეთ კონკრეტული თვისებები შექმნილი კონტროლისთვის:

• ჯერ დააწკაპუნეთ ტექსტურ ველზე 1. დაარქვით მას "txtTempValue1".
• შემდეგ დააჭირეთ ტექსტურ ყუთს 2 და დაარქვით "txtTempValue2".
• შემდეგ დააწკაპუნეთ ეტიკეტზე და დააყენეთ მისი წარწერა, როგორც "=".
• დააწკაპუნეთ კომბინირებულ ველზე 1 და დაარქვით "cmbTempUnit1".
• და დააწკაპუნეთ კომბინირებულ ველზე 2 და დაარქვით "cmbTempUnit2".
• შემდეგ დააჭირეთ ბრძანების ღილაკს 1 და დაარქვით "btnConvert". დააყენეთ წარწერა, როგორც "კონვერტირება".
• დააჭირეთ ბრძანების ღილაკს 2 და დაარქვით "btnClose". დააყენეთ მისი წარწერა, როგორც "დახურვა".

გარდა ამისა, საჭიროების შემთხვევაში დააყენეთ სხვა თვისებები.

შეყვანის კოდები კონტროლისთვის

1. ორჯერ დააწკაპუნეთ ღილაკზე „კონვერტირება“ კოდის არეალის შესაყვანად. ჩასვით იქ შემდეგი კოდები:

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. და ბოლოს, შეინახეთ ყველა კოდი.

მოდულის ჩასმა

1. ჯერ კიდევ VBA რედაქტორში, დააწკაპუნეთ "ჩასმა" "ნორმალური" პროექტის ქვეშ.
2. მაგრამ ამჯერად აირჩიეთ "მოდული".
3. ორჯერ დააწკაპუნეთ მასზე, რომ გახსნათ და ჩასვათ კოდები:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

ახლა გაუშვით მაკრო "TriggerTemperatureConverter" და შეგიძლიათ ჩართოთ კონვერტორი. ამ მაკროსთვის შეგიძლიათ მინიჭოთ ღილაკი. დეტალური ნაბიჯებისთვის იხილეთ ეს სტატია: როგორ ამოიღოთ ჩასმული ტექსტების ფორმატირება მაკროთი და VBA-ით თქვენს Word-ში

შეგიძლიათ შეამოწმოთ ვიდეო ქვემოთ:

მზადაა სიტყვების კოლაფსისთვის

არ აქვს მნიშვნელობა, გაქვთ თუ არა მონაცემთა დაკარგვა, ყოველთვის უნდა მოემზადოთ, თუ მონაცემთა კატასტროფა მოხდება. ყველა სასარგებლო რჩევას შორის, ჩვენ დაჟინებით გირჩევთ მიიღოთ ა docx აღდგენა ინსტრუმენტი წინასწარ.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის Excel-ის აღდგენა მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად