Πώς να αντικαταστήσει όλα στο Excel VBA

Όταν χρειάζεστε για την αυτοματοποίηση εργασιών στο Microsoft Excel 2010 , μπορείτε να απευθυνθείτε σε Visual Basic for Applications , μια γλώσσα προγραμματισμού που περιλαμβάνεται με όλες τις σύγχρονες εκδόσεις των προγραμμάτων του Microsoft Office για Windows ( υποστήριξη VBA απομακρύνθηκε για Mac Office στην έκδοση του 2008 , αλλά αντικαταστάθηκε στην έκδοση 2011 ) . VBA σας επιτρέπει να εκτελέσετε ένα μικρό πρόγραμμα πάνω από ένα αριθμό των κυττάρων του Excel , σε αντίθεση με τους τύπους του Excel , οι οποίες λειτουργούν μόνο στο κελί που βρίσκονται ήδη μέσα Αν και το πρόγραμμα Excel έρχεται με μια εύρεση και αντικατάσταση του οδηγού , μπορείτε να χρησιμοποιήσετε τη VBA για να βρείτε και να αντικαταστήσετε κυττάρων περιεχόμενο χωρίς να απαιτείται παρέμβαση του χρήστη , και μπορείτε να το κάνετε σε όλα τα φύλλα εργασίας στο βιβλίο εργασίας . Οδηγίες
Η

1 Ανοίξτε το βιβλίο εργασίας του Excel όπου θέλετε να εισαγάγετε τον κωδικό σας VBA . Πατήστε το πλήκτρο " Alt " και " F11 " για να ανοίξετε την κονσόλα VBA . 2

Κάντε διπλό κλικ στη μονάδα όπου θέλετε να εισαγάγετε τον κωδικό σας . Αν δεν υπάρχει ενότητα μπορείτε να κάνετε δεξί κλικ σε ένα φύλλο εργασίας , μετακινήστε το ποντίκι σας πάνω από "Εισαγωγή" και επιλέξτε " Ενότητα ". Στη συνέχεια, κάντε διπλό κλικ στη μονάδα για να το φέρει επάνω
εικόνων 3

Αντιγράψτε τον ακόλουθο τύπο στη μονάδα : .

Sub AReplace ( )

Dim sb Όπως Φύλλο

Για κάθε sb Σε Φύλλα

sb.Cells.Replace Τι : = " XXX" , αντικατάσταση : = " YYY " , lookat : = xlPart , _

SearchOrder : = xlByRows , MatchCase : = False

Επόμενο

End Sub

Αλλαγή " XXX " για την τιμή που αναζητάτε και " YYY " για την τιμή που θέλετε να το αντικαταστήσετε. Μπορείτε επίσης να αλλάξετε το " MatchCase " τιμή " True" αν κεφαλαιοποίηση είναι σημαντική . Αυτή η μακροεντολή θα βρείτε και να αντικαταστήσετε όλες τις επιθυμητές τιμές σε κάθε φύλλο εργασίας στο βιβλίο εργασίας σας
Η 4

Χρησιμοποιήστε τον παρακάτω κώδικα εάν θέλετε να αντικαταστήσετε όλες τις τιμές σε μια συγκεκριμένη επιλογή : .

Selection.Replace Τι : = " XXX" , αντικατάσταση : = " YYY " , lookat : = xlPart , _

SearchOrder : = xlByRows , MatchCase : = False

Μπορείτε να χρησιμοποιήσετε αυτόν τον κώδικα μέσα οποιαδήποτε άλλη μακροεντολή VBA για όσο διάστημα εισάγετε τον κωδικό αυτό , ενώ έχετε καθορίσει μια περιοχή επιλογής στη μακροεντολή σας .
5

Κάντε κλικ στο "Χ " στην επάνω δεξιά γωνία του παραθύρου VBA για να κλείσει αυτό . Όλες οι αλλαγές σας αποθηκεύονται αυτόματα .
Η

6 Κάντε κλικ στην καρτέλα "Προγραμματιστής " και πατήστε το κουμπί "Macro " . Επιλέξτε τη μακροεντολή σας από τη λίστα και κάντε κλικ στο "Run " για να αντικαταστήσει όλες τις στοχοθετημένες τιμές στο φύλλο εργασίας ή βιβλίο εργασίας σας .
Η
εικόνων