Fråga : VBA kodifierar hjälp

Jag har fäst min arbetssedel, som denna bör hjälpa bäst explain.

I nu för att ha en befalla att knäppas att en gång pressande kontroller formatera av celler B7: H29

The kodifierar verkar att fungera fint och markerar något i guling, när en fodra inte avslutas fullständigt, eller den oriktiga format.
There är precis en anomali som jag önskar att stryka ut. I cellen D10 som jag har avsiktligt slågit utrymmet, bomma för några tider. Jag skulle något liknande som befalla knäppas också för att markera anföra som exempel av, när ett extra utrymme har varit använt tack för erroneously.

Many för din
för help

Gaz Attachments: för >
<-/div> " title= " för den gaz-project-6-.xls (32 KB)  " javascript för href= " för help <-/div>
för >
<-/div> " klar "

Svar : VBA kodifierar hjälp

Hur om utbytningen efter:

        Om IsDate (celler (I, jj)) Därefter
med
        Om IsDate (celler (I, jj)) Och InStr (celler (I, jj), ””) = 0 därefter

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:

Privat Sub CommandButton1_Click ()

Dunkelt I, j, jj som heltal

'Görar klar det existerande färgar formaterar
Spänna (”B7: H29”). Valt
Selection.Interior.ColorIndex = xlNone

'Formaterar som reqd.
För I = 7 till 29
    Om Application.WorksheetFunction.CountBlank (spänna (”B” & I &”: H " & I)) = 7 därefter
    Annars
    För j = 2 till 3
        Om celler (I, j) = "" därefter
            Celler (I, j). Valt
            Selection.Interior.ColorIndex = 6
        Avsluta om
    Därefter
    För jj = 4 till 8
        Om IsDate (celler (I, jj)) Och InStr (celler (I, jj), ””) = 0 därefter
        Annars
            Celler (I, jj). Valt
            Selection.Interior.ColorIndex = 6
        Avsluta om
    Därefter
    Avsluta om
Därefter
Avsluta suben
Andra lösningar  
 
programming4us programming4us