Cuestión : Ayuda del código de VBA

He atado mi hoja de trabajo mientras que ésta debe ahora ayudar al mejor explain.

I para tener un botón de comando que presionó una vez cheques el formato de las células B7: El código de H29

The aparece trabajar muy bien y destaca cualquier cosa en amarillo cuando una línea no se termina completamente o el format.

There es apenas una anomalía que deseo planchar hacia fuera. En la célula D10 he golpeado adrede la barra de espacio algunas veces. Quisiera que el botón de comando también destacara casos de cuando un espacio adicional ha sido gracias usadas de erroneously.

Many por su
del help

Gaz class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del gaz-project-6-.xls el class= (32 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
help
el class= de
del >
class= del

Respuesta : Ayuda del código de VBA

Cómo sobre el reemplazo siguiente:

        Si IsDate (células (i, jj)) Entonces
con
        Si IsDate (células (i, jj)) E InStr (células (i, jj), “") = 0 entonces

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 privado CommandButton1_Click ()

Amortiguar i, j, jj como número entero

'Despeja el formato existente del color
Gama (“B7: H29”). Selecto
Selection.Interior.ColorIndex = xlNone

'Formatos como reqd.
Para i = 7 a 29
    Si Application.WorksheetFunction.CountBlank (gama (“B” y i y”: H " y i)) = 7 entonces
    
    Para j = 2 a 3
        Si células (i, j) = "" después
            Células (i, j). Selecto
            Selection.Interior.ColorIndex = 6
        Terminar si
    Después
    Para el jj = 4 a 8
        Si IsDate (células (i, jj)) E InStr (células (i, jj), “") = 0 entonces
        
            Células (i, jj). Selecto
            Selection.Interior.ColorIndex = 6
        Terminar si
    Después
    Terminar si
Después
Submarino del extremo
Otras soluciones  
 
programming4us programming4us