1 Ανοίξτε ένα υπολογιστικό φύλλο του Excel 2010 . Κάντε κλικ στην καρτέλα "Προγραμματιστής " στην κορυφή της οθόνης , στη συνέχεια, κάντε κλικ στο κουμπί " Visual Basic" στο αριστερό άκρο της ταινίας . 2
Κάντε δεξί κλικ στο " Φύλλο1 " στην αριστερή στήλη στην κονσόλα VBA . Μετακινήστε το ποντίκι σας πάνω "Εισαγωγή" και επιλέξτε " Ενότητα ". Κάντε κλικ στη μονάδα που εμφανίζεται κάτω από τα φύλλα εργασίας στη στήλη .
Εικόνων 3
Κάντε κλικ στη δεξιά πλευρά της οθόνης για να αρχίσουμε να κάνουμε κώδικα VBA σας . Enter " Sub xxxx ( ) , " όπου " xxxx " είναι το όνομα που θέλετε να δώσετε τη μακροεντολή σας . Πατήστε το πλήκτρο " Enter" και την εντολή " End Sub" θα προστεθεί αυτόματα .
Η 4
Enter " Dim x ως διπλό " για να δημιουργήσετε μια μεταβλητή . Η συνάρτηση COUNTIF θα πρέπει να επιστρέψει μια τιμή σε κάτι , έτσι θα πρέπει να συσταθεί τουλάχιστον μία μεταβλητή στον κώδικά σας . COUNTIF θα επιστρέψει μια τιμή , φυσικά , με τη μορφή "Double" , έτσι ώστε να είναι η μορφή που θα πρέπει να δώσει τη μεταβλητή . Πατήστε το πλήκτρο " Enter" για να μεταβείτε στον επόμενο γραμμή
5
Πληκτρολογήστε την ακόλουθη γραμμή στον κώδικα σας : .
X = Application.WorksheetFunction.CountIf ( κύτταρα , 1 )
Η "κύτταρα" εύρος θα ψάξει μέσω όλων των χρησιμοποιούμενων κυττάρων στο φύλλο εργασίας σας . Αν χρειάζεστε ένα συγκεκριμένο εύρος , μπορείτε να αλλάξετε το " κύτταρα " για να " Range ( " A : A " ) " , όπου " Α: " είναι η περιοχή που θέλετε να αναζητήσετε . Το " 1 " σε αυτόν τον κώδικα θα ψάξει για τον αριθμό 1 . Μπορείτε να το αλλάξετε σε οποιονδήποτε αριθμό που θέλετε , ή οποιαδήποτε συμβολοσειρά , εφ 'όσον ενθυλακώσει το string σε εισαγωγικά . Επιπλέον , μπορείτε να χρησιμοποιήσετε μεγαλύτερο ή μικρότερο από τα σημάδια , " <" ή " > " , με έναν αριθμό , αλλά τότε θα πρέπει να επισυνάψουν τον αριθμό και το σύμβολο σε εισαγωγικά .
Εικόνων
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα