1 Ανοίξτε το Microsoft Excel 2007 , κάντε κλικ στην καρτέλα "Προγραμματιστής " και επιλέξτε " Visual Basic ".
Τύπος " Sub goToLastRow ( ) " και πατήστε "Enter " για να δημιουργήσετε ένα . νέα sub 2
Πληκτρολογήστε το ακόλουθο κείμενο για να δημιουργήσετε μεταβλητές :
"Dim LastRow As Integer
Dim X As Integer "
Η
3
Τύπος " για Χ = 1 για 25
Range ( " A " . & X ) Επιλέξτε
ActiveCell.Value = " Προσθήκη στοιχείων με τη σειρά αριθμός : " & ? . . X
Επόμενο X
Range ( " A26 " ) Επιλέξτε
ActiveCell.Value = " "
Range ( " A27 " ) Επιλέξτε
ActiveCell.Value = " " " για να δημιουργήσετε ένα βρόχο που θα προσθέσει δεδομένα στις πρώτες 25 σειρές . Προσθέστε ένα « χώρο» στις δύο τελευταίες σειρές .
Η 4
Τύπος " LastRow = ActiveSheet.UsedRange.Rows.Count " για να πάρει την τελευταία σειρά .
Τύπος " MsgBox ". Η τελευταία σειρά σε αυτό το φύλλο εργασίας είναι : " & LastRow " για να εμφανίσετε την τελευταία σειρά μέσα από ένα κουτί μήνυμα
5
Τύπος " End Sub" εάν είναι απαραίτητο . . Εκτελέστε νέο sub σας και θα εμφανιστεί ένα πλαίσιο μηνύματος με το "The τελευταία σειρά σε αυτό το φύλλο εργασίας είναι : 27 " .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα