Questione : VBA routien - l'aiuto semplice di codice

Ciao, il

I fa routien un VBA che va numero del thourgh “x„ delle colonne per il numero “di X„ delle file. il codice del
The è mentre below.
I vogliono il controllo se tutte le colonne nella fila sono vuote oltre alla prima colonna. se (allineare) che scoppiare di loop
Can che qualunque prego mi dice il la cosa migliore/che pulire il senso emendare il codice per potere realizzare quello? il

I sa che posso farlo io stesso ma non posso essere il senso più pulito:
di/


Thanks mólto class= > " libero " 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 & “`„ & cellule (i, j) & “`,„
        J = J + 1
    Ciclo
    sColumnTitle = metà di (sColumnTitle, 1, Len (sColumnTitle) - 1)
    iNumColumn = J

    i = i + 1
    J = ColRef2ColNum (sColStart)
    'Lignes par dei lignes dei données del DES di ricupero
    Se iLineNum > 0 allora
        Per i = i - i + iLineNum - 1
            sSQL = ""
            sql = ""
            'Il ricupero des données de la ligne versa il colonne del chaque
            Per J = ColRef2ColNum (sColStart) a iNumColumn - 1
                sSQL = sSQL & cellule (i, j) & ““,„ “
            J seguente
            sSQL = metà di (sSQL, 1, Len (sSQL) - 3)
            'Scoppiare della funzione se l'utente ha non entrare in alcun valore
                Se InStr (sSQL, “[specificare per favore] ") allora
                ExecuteUpdate = allinea
                Uscire la funzione
                Concluder se
            'Tabella della La dei dans dei données del DES di inserzione
            
            sql = “INSERTO [„ & sTableName & “] (" & sColumnTitle & ") nei valori ("„ & sSQL & “"); “
            oConnection.Execute sql
            Domanda GIUSTA dell'elemento tracciante “: „ & sql
        Dopo i
class= del

Risposta : VBA routien - l'aiuto semplice di codice

>> errore: Preveduto “,„
>> Errore: L'oggetto ha preveduto
è ci della linea numeri accennati nella sezione comandi di errori?
Dare con attenzione un'occhiata al vostro codice. Qualcosa manca…
Probabilmente avete alcune variabili con una e lo stesso nome…?!
Cambiamento
onChngIntPceAll di funzione () {
per (i=0; ionChngIntPce<20> (i);
}
}
a
onChngIntPceAll di funzione () {
  per (indx=1; indx <� 22="">}
Inoltre disporre questo mettono a punto i msg:
avvisare (“onChngIntPce invocato per: „ + idx); subito dopo questa linea onChngIntPce di funzione (idx) {
così la vostra funzione del onChngIntPce (idx) osserverà il simile:

onChngIntPce di funzione (idx) {
allarme (“onChngIntPce invocato per: „ + idx); // rimuove più successivamente questo msg
se (document.getElementById (“intPce " +idx) .value > 1) document.getElementById (“sel " +idx) .selectedIndex = 1;
calcVAT ();
SumExVAT ();
Totali ();
proc ();
}
Altre soluzioni  
 
programming4us programming4us