Excel - Μια μακροεντολή για την εισαγωγή κενών γραμμών
- Θέμα
- Λύση
Θέμα
Προσπαθείτε να δημιουργήσετε μια μακροεντολή που θα εισάγει ένα σύνολο κενών γραμμών σε ένα υπάρχον υπολογιστικό φύλλο μετά από κάθε καταχώρηση. Το ποσό των απαιτούμενων σειρών θα είναι το ίδιο για κάθε είσοδο του υπολογιστικού φύλλου, αλλά θα πρέπει να αλλάζει κάθε φορά που χρησιμοποιείται.Ακολουθεί ένα δείγμα ...
Επί του παρόντος:
Τίτλος1Τίτλος2
Τίτλος3
Τίτλος4
Αφού χρησιμοποιήσετε τη μακροεντολή:
Τίτλος1Τίτλος2
Τίτλος3
Τίτλος4
Το ποσό της κενής σειράς μπορεί να μεταβεί από 20 έως 40.
Λύση
Το Α1 έχει επικεφαλίδες.Στη συνέχεια δοκιμάστε αυτήν τη μακροεντολή
κρατήστε το αρχικό σας αρχείο με ασφάλεια κάπου
κάντε πρώτα την εξέταση της μακροεντολής στα πειραματικά δεδομένα που έχετε στείλει
Sub test ()Dim j Για όσο καιρό, r As Range
j = InputBox ("πληκτρολογήστε τον αριθμό των γραμμών που θα ενοποιηθούν")
Ρύθμιση r = Εύρος ("A2")
Κάνω
Εύρος (r.Offset (1, 0), r.Offset (j, 0)) EntireRow.Insert
Ορίστε r = Κύτταρα (r.Row + j + 1, 1)
MsgBox r.Address
Αν r.Offset (1, 0) = "" Στη συνέχεια, κλείστε το Do
Βρόχος
End Sub
Χάρη στο venkat1926 για αυτό το άκρη.