Vraag : De hulp van de Code VBA

Ik heb mijn aantekenvel vastgemaakt aangezien dit beste explain.

I nu zou moeten helpen een bevelknoop hebben dat eens gedrukte controles het formaat van cellen B7: De code/>The van H29


There enkel één anomalie is die ik heb gewenst om glad te strijken. In cel D10 ik heb met opzet de ruimtebar een paar keer geraakt. Ik zou de bevelknoop instanties van willen ook benadrukken wanneer een extra ruimte gebruikte dank erroneously.

Many voor uw help

Gaz
is geweest
Attachments:
van
gaz-project-6-.xls (32 KB)  (de Details van het Type van Dossier)  
help

Antwoord : De hulp van de Code VBA

Hoe over het volgende vervangen:

        Als IsDate (Cellen (I, jj)) Dan
met
        Als IsDate (Cellen (I, jj)) En InStr (Cellen (I, jj), „„) = 0 toen

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:

Privé SubCommandButton1_Click ()

Schemerige I, j, jj als Geheel

'Ontruimt het bestaande kleurenformaat
Waaier („B7: H29“). Selecteer
Selection.Interior.ColorIndex = xlNone

'Formaten als reqd.
Voor I = 7 tot 29
    Als Application.WorksheetFunction.CountBlank (Waaier („B“ & I &“: H " & I)) = 7 toen
    Anders
    Voor j = 2 tot 3
        Als Cellen (I, j) = "" toen
            Cellen (I, j). Selecteer
            Selection.Interior.ColorIndex = 6
        Eind als
    Daarna
    Voor jj = 4 tot 8
        Als IsDate (Cellen (I, jj)) En InStr (Cellen (I, jj), „„) = 0 toen
        Anders
            Cellen (I, jj). Selecteer
            Selection.Interior.ColorIndex = 6
        Eind als
    Daarna
    Eind als
Daarna
Sub van het eind
Andere oplossingen  
 
programming4us programming4us