Frage : Prüfung auf negativen nicht arbeitenden Zahlen

Dieses versucht, eine jede negative Zahl in einer Strecke zu finden und einen Mitteilungkasten und -ausgang anzuzeigen.  Bis jetzt tut es nichts für die negativen Zahlen, die es gerade an mit dem code.
I versucht einige Veränderungen von fortsetzt: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Dim myShapes2 als Form
Schwaches lrow5 als lang
    lrow5 = Zellen (Cells.Rows.Count, „F“). Ende (xlUp). Reihe
    
Schwaches rng5 als Strecke, cell5 als Strecke
        Einstellen rng5 = Strecke („F2: F“ u. lrow5)
        Für jedes cell5 in rng5
cell5.NumberFormat = „0“
        Wenn cell5.Value < 0 dann
        
            Für jedes myShapes2 in ActiveSheet.Shapes
                Debug.Print myShapes2.Name
                myShapes2.Visible = msoTrue
            Folgendes myShapes2
            MsgBox „keine negativen Zahlen“
            
            Unterseeboot herausnehmen
            
        Für herausnehmen
        Folgendes cell5

Antwort : Prüfung auf negativen nicht arbeitenden Zahlen

Hallo.

Diese Subroutine wie erforderlich versuchen - Überprüfungen eine spezifizierte Strecke für negative Werte und Anzeigen ein messagebox.

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

Allgemeines VorCheckNegative ()

Schwaches rng als Strecke
Schwaches cll

Rng = Strecke einstellen („C: C“) 'Änderungsstrecke zu, was Sie wünschen

Für jedes cll im rng
    Wenn cll. Wert  < 0="" Then="" MsgBox="">
Weitere Lösungen  
 
programming4us programming4us