Question : Aide de code de VBA

J'ai attaché ma feuille de travail pendant que ceci devrait aider le meilleur explain.

I maintenant pour avoir un bouton de commande qui a par le passé pressé des contrôles le format des cellules B7 : Le code de H29

The semble fonctionner très bien et accentue n'importe quoi en jaune quand une ligne n'est pas entièrement accomplie ou le format.

There est juste une anomalie que je souhaite repasser dehors. En cellule D10 j'ai exprès frappé la barre d'espacement plusieurs fois. Je voudrais que le bouton de commande accentue également des exemples de quand un espace additionnel a été des mercis utilisés d'erroneously.

Many de votre
du help

Gaz class= " lastRow de
>Attachments de " nom " de class= de
class= " valeur " de
>
class= " fileInfo " de
le title= " de " nom de fichier de class= " de gaz-project-6-.xls le class= (32 KBS)  Javascript de href= " de " attachmentDetails de class= " de (type de dossier détails)  
class= " description " de
help
le class= de
de >
class= de

Réponse : Aide de code de VBA

Que diriez-vous du remplacement suivant :

        S'IsDate (cellules (I, jj)) Puis
avec
        S'IsDate (cellules (I, jj)) Et InStr (cellules (I, jj), « ") = 0 puis

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 :

Sous-marin privé CommandButton1_Click ()

Obscurcir I, j, jj comme nombre entier

'Dégage le format existant de couleur
Gamme (« B7 : H29 »). Choisi
Selection.Interior.ColorIndex = xlNone

'Formats comme reqd.
Pour I = 7 à 29
    Si Application.WorksheetFunction.CountBlank (gamme (« B » et I et » : H " et i)) = 7 puis
    Autrement
    Pour j = 2 à 3
        Si cellules (I, j) = puis ""
            Cellules (I, j). Choisi
            Selection.Interior.ColorIndex = 6
        Finir si
    Après
    Pour le jj = 4 à 8
        S'IsDate (cellules (I, jj)) Et InStr (cellules (I, jj), « ") = 0 puis
        Autrement
            Cellules (I, jj). Choisi
            Selection.Interior.ColorIndex = 6
        Finir si
    Après
    Finir si
Après
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us