Αλλάξτε όλα τα κελιά του ActiveSheet σε τιμές χρησιμοποιώντας VBA στο Microsoft Excel

Anonim

Σε αυτό το κεφάλαιο θα μάθετε πώς μπορείτε να αλλάξετε όλα τα κελιά του ενεργού φύλλου σε τιμές χρησιμοποιώντας VBA στο Microsoft Excel.

Ας πάρουμε ένα παράδειγμα και καταλάβουμε πώς γράφουμε τον κώδικα VBA για την αλλαγή της τιμής των κελιών στο ενεργό φύλλο.

Πώς να αλλάξετε όλες τις τιμές κελιών στο ενεργό φύλλο;

Έχουμε δεδομένα στο Excel, στα οποία θέλουμε να αντικαταστήσουμε όλες τις τιμές κελιών με μόνο μια τιμή κελιού.

Ακολουθήστε τα παρακάτω βήματα:-

  • Πατήστε το πλήκτρο Alt+F11 για να ανοίξετε την εφαρμογή Visual Basic

  • Στο VBAProject Κάντε διπλό κλικ στο Φύλλο 1
  • Εισαγάγετε τον παρακάτω κωδικό VBA
 Sub Values_1 () Με ActiveSheet.UsedRange Range ("A1: I7"). Value = Range ("A2"). Value End with End Sub

  • Για να εκτελέσετε τον κωδικό, πατήστε το πλήκτρο F5
  • Η τιμή του κελιού A2 θα ενημερωθεί στο εύρος καθορισμού

Πώς αλλάζει η τιμή από τον πρώτο πίνακα στον δεύτερο πίνακα;

Έχουμε 2 τραπέζια, 1st Το εύρος του πίνακα είναι A3: I5 και 2nd Το εύρος του πίνακα είναι A8: I10. Θέλουμε να αντικαταστήσουμε την τιμή του 1st πίνακα με την τιμή 2 πίνακα στο ενεργό φύλλο.

Για να αλλάξετε την τιμή ακολουθήστε τα παρακάτω βήματα και κωδικό:-

  • Ανοίξτε την εφαρμογή Visual Basic
  • Εισαγάγετε τον παρακάτω κωδικό:-
Sub Values_1 () Με ActiveSheet.UsedRange Range ("A3: I5"). Value = Range ("A8: I10"). Value End with End Sub

  • Εκτελέστε τον κωδικό πατώντας F5
  • Οι τιμές θα ενημερωθούν

Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.

Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email