Εκκίνηση του Microsoft Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο κουμπί Visual Basic για να ξεκινήσει το παράθυρο επεξεργασίας VBA . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να προσθέσετε μια νέα λειτουργική μονάδα κώδικα . Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε μια νέα διαδικασία ρουτίνας και δύο " Ακέραιος " μεταβλητές :
Private highlightRows Sub ( )
Dim X As Integer
Dim Y As Integer
2
Συμπλήρωση τις πρώτες δέκα σειρές στήλη Α1 με " Ακέραιος " ταυτότητες χρησιμοποιώντας «Για ... Loop : "
Για Χ = 1 μέχρι 10
Κατηγορίας ( "A" & X) . Επιλέξτε
Range ( "A" & X) . Value = X
Επόμενο X εικόνων
3
Επισημάνετε κάθε άλλες ID χρησιμοποιώντας το ακόλουθο «Για ... Loop : "
Για y = 1 μέχρι 10
Γραμμές ( y & " : " & y ) . Επιλέξτε
με Selection.Interior
. Pattern = xlSolid
. PatternColorIndex = xlAutomatic
. Χρώμα = 65535
. TintAndShade = 0
. PatternTintAndShade = 0
End With
y = y + 1
Επόμενη y
Η 4
Τύπος " End Sub " για να τερματίσετε τη διαδικασία σας , και κάντε κλικ στο "F5 " για να το τρέξει . Μεταβείτε στο Microsoft Excel για να δείτε τα αποτελέσματα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα