Σε αυτό το άρθρο, θα μάθουμε πώς να αλλάζουμε τον τύπο στα κελιά μιας περιοχής σε τιμές χρησιμοποιώντας VBA στο Microsoft Excel.
Τα ακατέργαστα δεδομένα για αυτό το παράδειγμα αποτελούνται από δεδομένα πωλήσεων. Τα δεδομένα πωλήσεων περιέχουν πληροφορίες σχετικά με τον αριθμό των ειδών που πωλούνται από τους εργαζόμενους σε διαφορετικές πόλεις. Η τελευταία σειρά και στήλη περιέχει τον τύπο αθροίσματος για τον εντοπισμό του συνολικού αριθμού αντικειμένων που πωλούνται σε μια συγκεκριμένη πόλη από έναν συγκεκριμένο υπάλληλο.
Θα θέλαμε να μετατρέψουμε όλους τους τύπους στο ενεργό φύλλο σε τιμές. Για να μετατρέψουμε όλους τους τύπους σε τιμές, δημιουργήσαμε μια μακροεντολή "ChangingFormulasToValue". Αυτή η μακροεντολή μπορεί να εκτελεστεί κάνοντας κλικ στο κουμπί "Μετατροπή τύπων σε τιμές".
Στο στιγμιότυπο, μπορεί κανείς να δει ότι ο τύπος στο κελί H18 μετατρέπεται σε τιμή.
Επεξήγηση κώδικα
Ορίστε SourceRng = Εύρος ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell))
Ο παραπάνω κώδικας χρησιμοποιείται για την εκχώρηση όλων των κελιών ξεκινώντας από το κελί Α1 έως το τελευταίο κελί του βιβλίου εργασίας ως εύρος.
SourceRng.Value = SourceRng.Value
Ο παραπάνω κώδικας χρησιμοποιείται για την εκχώρηση της τιμής κελιού παρακάμπτοντας τον τύπο
Ακολουθήστε παρακάτω για τον κωδικό
Επιλογή Έκφραση υποστροφής τύπος παράλειψης κελιού του κελιού SourceRng.Value = SourceRng.Value End Sub
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email