Εκκίνηση του Microsoft Excel . 2
Κρατήστε πατημένο το πλήκτρο "Alt " και πατήστε το πλήκτρο " F11 ". Αυτό θα ανοίξει το Visual Basic Editor .
Εικόνων 3
Κάντε κλικ στο " Εισαγωγή" και κάντε κλικ στο " Προσθήκη νέου module . " Επικολλήστε τον ακόλουθο κώδικα στη λειτουργική μονάδα στα δεξιά και πατήστε το πλήκτρο "Enter : "
Sub UnSelectActiveCell ( )
Dim Rng Όπως Σειρά
Dim Fullrange Όπως Σειρά
Αν Selection.Cells.Count > 1 τότε
For Each Rng Σε Selection.Cells
Αν Rng.Address <> ActiveCell.Address τότε
Αν fullrange δεν είναι τίποτα τότε
Set fullrange = Rng
Else
Set fullrange = Application.Union ( fullrange , Rng )
End If
End If
Επόμενο Rng
Αν FullRange.Cells.Count > 0 τότε
FullRange.Select
End If
End If
End Sub
Η 4
Έξοδος από το Visual Basic για να πάρει πίσω στο Excel .
5
Κάντε κλικ στο " Εργαλεία" >> "Macro " >> " Μακροεντολές " και στη συνέχεια κάντε διπλό κλικ στο " UnSelectActiveCell . "
Η 6
Κρατήστε πατημένο το πλήκτρο "Ctrl" και επιλέξτε τα κελιά που θέλετε να καταργήσετε .
7
Επαναλάβετε τη βαθμίδα 5 .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα