Vraag : Het controleren Negatieve Aantallen die werken niet

Dit probeert om een om het even welk negatief aantal in een waaier te vinden en een een berichtvakje en uitgang te tonen.  Tot dusver doet het om het even wat voor de negatieve aantallen niet het enkel op met code.
I heeft geprobeerd een paar variaties van verdergaat:
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Dim myShapes2 als Vorm
Schemerige lrow5 zoals lang
    lrow5 = Cellen (Cells.Rows.Count, „F“). Eind (xlUp). Rij
    
Schemerige rng5 als Waaier, cell5 als Waaier
        Reeks rng5 = Waaier („F2: F“ & lrow5)
        Voor Elke cell5 in rng5
cell5.NumberFormat = „0“
        Als cell5.Value < 0 toen
        
            Voor Elke myShapes2 in ActiveSheet.Shapes
                Debug.Print myShapes2.Name
                myShapes2.Visible = msoTrue
            Volgende myShapes2
            MsgBox „Geen Negatieve Aantallen“
            
            Sub van de uitgang
            
        Uitgang voor
        Volgende cell5

Antwoord : Het controleren Negatieve Aantallen die werken niet

Hallo.

Probeer zonodig deze Subroutine - controles een gespecificeerde waaier voor negatieve waarden en vertoningen een messagebox.

Mat
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Openbare SubCheckNegative ()

Schemerige rng als Waaier
Schemerige cll

Reeks rng = Waaier („C: C“) de 'waaier van de Verandering aan wat u wilt

Voor Elke cll in rng
    Als cll. Waarde  < 0="" Then="" MsgBox="">
Andere oplossingen  
 
programming4us programming4us