Πώς να μετατρέψετε εύκολα μεταξύ διαφόρων μονάδων θερμοκρασίας, όπως Κελσίου, Φαρενάιτ, Κέλβιν, στο Word σας

Σε αυτό το άρθρο, θα σας δείξουμε πώς μπορείτε να μετατρέψετε εύκολα μεταξύ μονάδων θερμοκρασίας, όπως Κελσίου, Φαρενάιτ, Κέλβιν, στο Word σας.

Κάντε καλή χρήση του Word VBA, μπορείτε να δημιουργήσετε πολλά μικρά αλλά χρήσιμα εργαλεία. Για παράδειγμα, μπορείτε να δημιουργήσετε έναν μετατροπέα θερμοκρασίας στο Word για να κάνετε την κουραστική μετατροπή για εσάς. Επομένως, διαβάστε για να ακολουθήσετε περισσότερες λεπτομέρειες.

Εισαγάγετε μια φόρμα χρήστη

Για να δημιουργήσετε τον μετατροπέα, θα πρέπει πρώτα να δημιουργήσετε μια φόρμα χρήστη.

1. Πρώτα απ 'όλα, πατήστε "Alt + F11" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA.
2. Στη συνέχεια κάντε κλικ στο "Normal" στην αριστερή στήλη.
3. Στη συνέχεια, κάντε κλικ στο «Εισαγωγή» και επιλέξτε «UserForm».
4. Κάντε κλικ στις λαβές γύρω από τη φόρμα για να προσαρμόσετε το μέγεθός της.
5. Στη συνέχεια πατήστε "F4" για να ενεργοποιήσετε το "Properties Window".
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. Αλλά αυτή τη φορά επιλέξτε "Module".
3. Κάντε διπλό κλικ σε αυτό για να ανοίξετε και να επικολλήσετε κωδικούς:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Τώρα εκτελέστε τη μακροεντολή "TriggerTemperatureConverter" και μπορείτε να ενεργοποιήσετε τον μετατροπέα. Μπορείτε να αντιστοιχίσετε ένα κουμπί για αυτήν τη μακροεντολή. Για λεπτομερή βήματα, ανατρέξτε σε αυτό το άρθρο: Πώς να αφαιρέσετε τη μορφοποίηση των επικολλημένων κειμένων με μακροεντολή και VBA στο Word σας

Μπορείτε να ελέγξετε το παρακάτω βίντεο:

Έτοιμο για σύμπτυξη του Word

Ανεξάρτητα από το εάν έχετε υποστεί απώλεια δεδομένων ή όχι, θα πρέπει πάντα να προετοιμάζεστε εάν συμβεί καταστροφή δεδομένων. Μεταξύ όλων των διαθέσιμων χρήσιμων συμβουλών, συνιστούμε ανεπιφύλακτα να αποκτήσετε ένα ανάκτηση docx εργαλείο εκ των προτέρων.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανακτήσει το excel pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com