Pergunta : Ajuda do código de VBA

Eu uni minha folha enquanto esta deve ajudar o melhor explain.

I agora a ter uma tecla de comando que pressionasse uma vez verificações o formato das pilhas B7: O código de H29

The parece trabalhar muito bem e destaca qualquer coisa no amarelo quando uma linha não é terminada inteiramente ou o format.

There é apenas uma anomalia que eu desejo passar para fora. Na pilha D10 eu bati propositadamente a barra de espaço algumas vezes. Eu gostaria da tecla de comando de destacar igualmente exemplos de quando um espaço adicional foi agradecimentos usados de erroneously.

Many para seu
do help

Gaz class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
class= " fileInfo " do
o title= " do " nome de arquivo do class= " do gaz-project-6-.xls o class= (32 KB)  Javascript " do href= " dos " attachmentDetails do class= do (tipo de lima detalhes)  
class= " descrição " do
help
o class= de
do >
class= do

Resposta : Ajuda do código de VBA

Como sobre a seguinte substituição:

        Se IsDate (pilhas (i, jj)) Então
com
        Se IsDate (pilhas (i, jj)) E InStr (pilhas (i, jj), “") = 0 então

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:

Submarino confidencial CommandButton1_Click ()

Escurecer i, j, jj como o inteiro

'Cancela o formato existente da cor
Escala (“B7: H29”). Seleto
Selection.Interior.ColorIndex = xlNone

'Formatos como o reqd.
Para i = 7 a 29
    Se Application.WorksheetFunction.CountBlank (escala (“B” & i &”: H " & i)) = 7 então
    Mais
    Para j = 2 a 3
        Se pilhas (i, j) = "" então
            Pilhas (i, j). Seleto
            Selection.Interior.ColorIndex = 6
        Terminar se
    Em seguida
    Para o jj = 4 a 8
        Se IsDate (pilhas (i, jj)) E InStr (pilhas (i, jj), “") = 0 então
        Mais
            Pilhas (i, jj). Seleto
            Selection.Interior.ColorIndex = 6
        Terminar se
    Em seguida
    Terminar se
Em seguida
Submarino da extremidade
Outras soluções  
 
programming4us programming4us