Πώς να πολλαπλασιάσετε όλα τα κελιά σε μια περιοχή με μια σταθερά
Θα θέλατε να διασφαλίσετε ότι όλες οι σταθερές σε ένα εύρος πολλαπλασιάζονται με έναν συντελεστή; Μπορείτε να το επιτύχετε χρησιμοποιώντας έξυπνα τη λειτουργία EDIT - INSERT CONTENT.
Είναι πιο εύκολο αν χρησιμοποιήσετε την ακόλουθη μακροεντολή:
Χρήση δευτερεύοντος παράγοντα ()
Dim Cell As Range
Απώλεια τιμής εισόδου Όσο καιρό
Τιμή εισόδου = InputBox ("Εισαγάγετε τον συντελεστή (π.χ. 100)")
Για κάθε κελί σε επιλογή
Εάν όχι (Cell.HasFormula) Τότε
Cell.Formula = "=" & Cell.Value & "*" & Val (τιμή εισόδου)
Τέλος εαν
Επόμενο κελί
Τέλος υπο
Στο πρώτο βήμα, επιλέξτε μια περιοχή κελιών σε έναν πίνακα. Το παρακάτω σχήμα δείχνει ένα παράδειγμα επισημασμένης περιοχής.
Στη συνέχεια, καλέστε τη μακροεντολή. Το Excel ζητά τώρα σε ένα παράθυρο τον παράγοντα που θέλετε να χρησιμοποιήσετε. Το παρακάτω σχήμα δείχνει αυτό το παράθυρο:
Επιβεβαιώστε τον ορισμό του συντελεστή με το κουμπί OK.
Το Excel κάνει τώρα κύκλο σε όλα τα κελιά της επιλογής. Αλλάζουν μόνο τα κελιά στα οποία δεν υπάρχει τύπος. Πολλαπλασιάζονται με τον συντελεστή που έχει εισαχθεί. Το Excel εισάγει τη νέα τιμή ως τύπο στο κελί. Το παρακάτω σχήμα δείχνει πώς μπορεί να είναι το αποτέλεσμα:
Αν θέλετε να εισαγάγετε τους αριθμούς ως σταθερές, αντικαταστήστε τη γραμμή "Cell.Formula" με την ακόλουθη έκφραση:
Cell.Value = Cell.Value * Val (τιμή εισόδου)
Εισάγοντας έναν συντελεστή μικρότερο από έναν, μπορείτε επίσης να διαιρέσετε τα κύτταρα με μια σταθερά.
Μετατροπή ενός τύπου σε σταθερά χρησιμοποιώντας μακροεντολή: Πώς να μετατρέψετε έναν υπολογισμό χρησιμοποιώντας VBA σε απόλυτη τιμή
Θέλετε να μετατρέψετε τα κελιά ενός εύρους σε απόλυτες τιμές. Μπορείτε να το κάνετε αυτό διαδραστικά αντιγράφοντας την περιοχή και στη συνέχεια επικολλώντας την ως τιμές. Η κατάλληλη εντολή ονομάζεται "Επεξεργασία - Επικόλληση Ειδικού" στο Excel έως την έκδοση 2003 και "Έναρξη - Επικόλληση - Επικόλληση Ειδικού" στο Excel από την έκδοση 2007.
Εάν θέλετε να μετατρέψετε μεμονωμένα κελιά σε μακροεντολή, ο ακόλουθος κώδικας προγράμματος θα σας βοηθήσει:
SubValueConvert ()
Με το ActiveSheet.Range ("a1")
.Φόρμουλα = .Αξία
Τέλος με
Τέλος υπο
Η μακροεντολή μετατρέπει το τρέχον περιεχόμενο του κελιού Α1 στον ενεργό πίνακα σε απόλυτη τιμή.
