excel και msgbox

[torq]

έχω ένα βιβλίο excel με ένα φύλλο (sheet1) όπου έχω μια στήλη που πληκτρολογώ αριθμούς.

 

όταν λοιπόν ανοίγω το βιβλίο θέλω να μου πετάγεται ένα msgbox όπου θα γράφει τους αριθμούς αυτής της στήλης οι οποίοι είναι πχ αρνητικοί. 

 

τώρα αρχίζω και μελετάω vb.

 

αυτό που έχω καταφέρει μέχρι στιγμής είναι :

αν έχω πχ 10 αρνητικούς αριθμούς στη στήλη, να μου εμφανίζονται 10 msgbox, το οποίο είναι κουραστικό.

 

θέλω σε ένα msgbox να αναφέρονται όλοι οι αριθμοί.

να λέει πχ το box

Αρνητικοί:

-5

-3

-2

 

 

τι μπορεί να γίνει;

[dancer_69]

Dim cel As Range
    For Each cel In Range("A1:A10")

        If cel.Value < 0 Then MsgBox cel.Value
        Exit For

Δεν εχω ασχοληθει καθολου με vba, αλλα με μια αναζητηση στο google προεκυψε ο παραπανω κωδικας. Πιθανοτατα να κανει αυτο που θελεις. Μεχρι να υπαρξει καποια καλυτερη απαντηση, δε χανεις τιποτα να δοκιμασεις.

 

πηγή:

http://stackoverflow.com/questions/12426870/display-excel-vba-message-box-when-a-cell-within-a-range-changes-and-meets-a-giv