Frage : VBA Codehilfe

Ich angebracht mein Arbeitsblatt h, während dieses bestem explain.

I jetzt helfen, sollte einen Befehlsknopf zu haben, der einmal Überprüfungen das Format der Zellen B7 betätigte: H29

The Code scheint, adaequat zu sein und hervorhebt alles im Gelb alles, wenn eine Linie nicht völlig abgeschlossen, oder das falsche format.

There gerade eine Abweichung ist, die ich heraus bügeln möchte. In der Zelle D10 geschlagen ich vorsätzlich die Leertaste einige Male. Ich möchte, dass der Befehlsknopf auch Fälle von hervorhebt, wenn ein zusätzlicher Raum verwendeter erroneously.

Many Dank für Ihr help

Gaz
gewesen
Attachments:

Antwort : VBA Codehilfe

Wie über das folgende Ersetzen:

        Wenn IsDate (Zellen (i, jj)) Dann
mit
        Wenn IsDate (Zellen (i, jj)) Und InStr (Zellen (i, jj), „") = 0 dann

Chris
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

Privates Unterseeboot CommandButton1_Click ()

I, J, jj verdunkeln als ganze Zahl

'Löscht das vorhandene Farbenformat
Strecke („B7: H29“). Auserwählt
Selection.Interior.ColorIndex = xlNone

'Formate als reqd.
Für i = 7 bis 29
    Wenn Application.WorksheetFunction.CountBlank (Strecke („B“ u. i u.“: H " u. i)) = 7 dann
    Sonst
    Für J = 2 bis 3
        Wenn Zellen (i, j) = "" dann
            Zellen (i, j). Auserwählt
            Selection.Interior.ColorIndex = 6
        Beenden wenn
    Zunächst
    Für jj = 4 bis 8
        Wenn IsDate (Zellen (i, jj)) Und InStr (Zellen (i, jj), „") = 0 dann
        Sonst
            Zellen (i, jj). Auserwählt
            Selection.Interior.ColorIndex = 6
        Beenden wenn
    Zunächst
    Beenden wenn
Zunächst
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us