Questione : Aiuto di codice di VBA

Ho attaccato il mio manuale mentre questo dovrebbe ora aiutare migliore explain.

I per avere un pulsante di comando che ha premuto una volta i controlli la disposizione delle cellule B7: Il codice di H29

The sembra funzionare benissimo ed evidenzia qualche cosa nel colore giallo quando una linea completamente non è completata o il format.

There è appena un'anomalia che desidero rivestire di ferro fuori. In cellula D10 ho colpito espressamente il tasto per la spaziatura alcune volte. Vorrei il pulsante di comando anche per evidenziare i casi di quando uno spazio supplementare è stato ringraziamenti usati di erroneously.

Many per il vostro
del help

Gaz class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

class= " fileInfo " del
il title= " " di nome di schedario del class= " di gaz-project-6-.xls il class= (32 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
help
il class= di
del >
class= del

Risposta : Aiuto di codice di VBA

Come circa la seguente sostituzione:

        Se IsDate (cellule (i, jj)) Allora
con
        Se IsDate (cellule (i, jj)) E InStr (cellule (i, jj), “") = 0 allora

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:

Sommergibile riservato CommandButton1_Click ()

Oscurare la i, J, jj come numero intero

'Elimina la disposizione attuale di colore
Gamma (“B7: H29„). Prescelto
Selection.Interior.ColorIndex = xlNone

'Disposizioni come reqd.
Per i = 7 - 29
    Se Application.WorksheetFunction.CountBlank (gamma (“B„ & i &„: H " & i)) = 7 allora
    Altrimenti
    Per J = 2 - 3
        Se cellule (i, j) = "" allora
            Cellule (i, j). Prescelto
            Selection.Interior.ColorIndex = 6
        Concluder se
    Dopo
    Per jj = 4 - 8
        Se IsDate (cellule (i, jj)) E InStr (cellule (i, jj), “") = 0 allora
        Altrimenti
            Cellule (i, jj). Prescelto
            Selection.Interior.ColorIndex = 6
        Concluder se
    Dopo
    Concluder se
Dopo
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us