Εκκίνηση του Microsoft Office Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής " και πληκτρολογήστε "undo " σε " B1". Κάντε κλικ στο " Visual Basic" για να ξεκινήσει η VBA Παράθυρο του Επεξεργαστή .
Η 2
Δημιουργήστε μια νέα διαδικασία εισάγοντας το ακόλουθο κείμενο :
Private Sub undoBOneText ( )
εικόνων 3
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να αναιρέσετε το κείμενο που γράψατε σε «B1» και να την αντικαταστήσει με το " Εισαγωγή κειμένου ", ως εξής : . .
με Application.EnableEvents = False.Undo.EnableEvents = TrueEnd WithRange ( " B1 " ) SelectRange ( " B1 " ) Αξία = " Εισαγωγή κειμένου : " End Sub
Η
4 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία σας
Η
εικόνων .
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα