Excel - Επισημάνετε την ενεργή σειρά

Αυτή η μικρή λειτουργία υπογραμμίζει τη σειρά στην οποία βρίσκεται ο δρομέας.

Προσθήκη σε φύλλο λειτουργικής μονάδας:

 Προσωπικό φύλλο εργασίας Sub_SelectionChange (στόχος ByVal ως εύρος)
Static Ancress As Long
'Αν ενεργοποιηθεί / απενεργοποιηθεί η λειτουργία, προσθέστε την παρακάτω γραμμή
αν ενεργοποιείται η γραμμή ενεργοποίησης και στη συνέχεια το δευτερεύον
Εάν το Target.Count> 1 Έπειτα το Exit Sub
Αν AncAdress 0 Στη συνέχεια 'επαναφορά σε κανονική
Γραμμές (AncAdress) .Interior.ColorIndex = xlNone
Γραμμές (AncAdress) .Font.ColorIndex = 0
Τέλος εαν
Target.EntireRow.Font.ColorIndex = 6
Target.EntireRow.Interior.ColorIndex = 3
Target.EntireRow.Interior.Pattern = xlSolid
AncAdress = Target.Row
End Sub

Προσθέστε σε μια γενική ενότητα (π.χ. Module1)

Αν θέλετε να ενεργοποιήσετε / απενεργοποιήσετε τη λειτουργία:

• Ή βάλτε ένα κουμπί στη μακροεντολή
• Ή κάντε μια συντόμευση

Η τρέχουσα σειρά θα επισημανθεί από προεπιλογή, κάντε κλικ στο κουμπί ή τη συντόμευση για να αλλάξετε την κατάστασή της:

 Public ActivationLigne ως boolean
Sub Activate ()
ActivationLigne = δεν ενεργοποιείταιLigne
end sub