Cuestión : VBA routien - ayuda simple del código

Hola, el

I hace que un VBA routien que va número del thourgh “x” de columnas para el número de “X” de filas. el código del
The es mientras que below.
I quieren el cheque si todas las columnas en la fila son vacías aparte de la primera columna. ¿si (verdad) que explotar del loop
Can que por favor me dice el mejor/que limpia la manera de enmendar el código para poder alcanzar eso? el

I sabe que puedo hacerlo mismo pero que puedo no ser la manera más limpia:
de/


Thanks mucho class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
29:
30:
31:
32:
33:
>i = sLineStart notpretty " del class= " del id= " codeSnippet940753 del 
 0
        sColumnTitle = sColumnTitle y “`” y células (i, j) y “`,”
        j = j + 1
    Lazo
    sColumnTitle = mediados de (sColumnTitle, 1, Len (sColumnTitle) - 1)
    iNumColumn = j

    i = i + 1
    j = ColRef2ColNum (sColStart)
    'Lignes de la igualdad de los lignes de los données del DES de la recuperación
    Si iLineNum > 0 entonces
        Para i = i a i + iLineNum - 1
            sSQL = ""
            sql = ""
            La 'recuperación des données de la ligne vierte el colonne del chaque
            Para j = ColRef2ColNum (sColStart) al iNumColumn - 1
                sSQL = sSQL y células (i, j) y ““,” “
            J siguiente
            sSQL = mediados de (sSQL, 1, Len (sSQL) - 3)
            'Explotar de la función si el usuario tiene no incorporar ningún valor
                Si InStr (sSQL, “[especificar por favor] ") entonces
                ExecuteUpdate = verdad
                Salir la función
                Terminar si
            'Tabla del la de los dans de los données del DES de la inserción
            
            sql = “PARTE MOVIBLE EN [” y sTableName y “] (” y sColumnTitle y ") valores (“” y sSQL y “"); “
            oConnection.Execute sql
            Pregunta ACEPTABLE del trazalíneas “: ” y sql
        Después i
class= del

Respuesta : VBA routien - ayuda simple del código

>> error: Esperado “,”
>> Error: El objeto esperó
¿hay línea números mencionados en la consola del error?
Hechar una ojeada su código cuidadosamente. Algo falta…
¡Usted tiene probablemente algunas variables con una y el mismo conocido…?!
Cambio
onChngIntPceAll de la función () {
para (i=0; ionChngIntPce<20> (i);
}
}
a
onChngIntPceAll de la función () {
  para (indx=1; indx <� 22="">}
También colocar esto eliminan errores de los msg:
alertar (“onChngIntPce invocado para: ” + idx); enseguida después de esta línea onChngIntPce de la función (idx) {
su función del onChngIntPce (idx) mirará tan gusto:

onChngIntPce de la función (idx) {
alarma (“onChngIntPce invocado para: ” + idx); // quita este msg más adelante
si (document.getElementById (“intPce " +idx) .value > 1) document.getElementById (“sel " +idx) .selectedIndex = 1;
calcVAT ();
SumExVAT ();
Totales ();
proc ();
}
Otras soluciones  
 
programming4us programming4us