1 Κάντε κλικ στο κουμπί " Επιλογές" του μενού "Αρχείο" , τότε κάντε κλικ στο σύνδεσμο " Τύποι " . Κάντε κλικ στο "Manual" επιλογή , στη συνέχεια, στο "OK " για να κλείσετε το παράθυρο διαλόγου "Επιλογές" . Αυτό το βήμα απενεργοποιεί τον αυτόματο υπολογισμό , η οποία θα αποκαταστήσει τη μακροεντολή σας 2
Πληκτρολογήστε τα ακόλουθα σε κελιά A1 έως C1 του τρέχοντος φύλλου εργασίας : . " . = A1 * a2 " 5 , 10 , Παρατηρήστε ότι ο τύπος του C1 είναι λανθασμένη , λόγω της επιλογής σας για την χειροκίνητη επιλογή στο βήμα ένα . Macro σας θα αποκαταστήσει αυτόματο υπολογισμό .
Εικόνων 3
Κάντε κλικ στο κουμπί "Προγραμματιστής " καρτέλας " Visual Basic" για να μπείτε στο περιβάλλον προγραμματισμού Visual Basic προγραμματισμού . Επικολλήστε τον ακόλουθο πρόγραμμα στο παράθυρο που εμφανίζεται . Αυτό το πρόγραμμα χρησιμοποιεί την " Range" αντικείμενο για να εισαγάγετε τιμές σε δύο διαφορετικά κελιά του φύλλου εργασίας , και έναν τύπο σε άλλο κελί . Το πρόγραμμα έχει δύο καταστάσεις που αναγκάζουν το τρέχον φύλλο εργασίας για να ενημερώσετε τον υπολογισμό του . Το πρώτο είναι η « Application.Calculation = xlCalculationAutomatic . " Η παρούσα δήλωση καθορίζει το " Υπολογισμός " ιδιοκτησίας της ίδιας της εφαρμογής Excel . Το δεύτερο είναι το ένα καλώντας το " Υπολογισμός" λειτουργία του " ActiveSheet " αντικείμενο . Αυτή η δήλωση λέει μόνο το ενεργό φύλλο να υπολογίσει , όχι ολόκληρο το βιβλίο εργασίας .
Public Sub recalc ( )
« Εισαγωγή αριθμών σε ένα κελί
' Εισάγετε ένα calulation που εξαρτάται Δύναμη για επανυπολογισμό των συγκεκριμένων αριθμών
»
Application.Calculation = xlCalculationAutomatic
Range ( " a1 " ) = 5
Range ( " A2 " ) = 10
Range ( " A3" ) . Formula = " = a1 * a2 "
ActiveSheet.Calculate
Sub End
Η 4
τύπου " F5 " για να εκτελέσετε το πρόγραμμα .
5
Κάντε κλικ στο εικονίδιο " Excel " στη γραμμή εργασιών των Windows για να επιστρέψετε στο Excel . Παρατηρήστε ότι το κελί A3 έχει μια λειτουργία που απαιτεί ενημέρωση υπολογισμού , και ότι το αποτέλεσμα του υπολογισμού , το προϊόν των δύο κορυφαίων κελιά του φύλλου εργασίας , είναι ακριβείς .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα