Vraag : VBA routien - eenvoudige codehulp

Hallo, heeft

I een VBA routien die thourgh „x“ aantal kolommen voor het aantal van „X“ rijen gaat. de code
The is aangezien below.
I controle willen als alle kolommen in de rij behalve eerste kolom leeg zijn. als (breek waar uit) dan van loop
Can om het even wie me de beste/schone manier gelieve te vertellen om de code te wijzigen dat kunnen bereiken?

I weet ik het zelf kan doen maar niet de schoonste manier kan zijn: /


hartelijk dank
" codeBody "
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:
" notpretty "
i = sLineStart
    j = ColRef2ColNum (sColStart)
    sColumnTitle = ""
    Doe terwijl Len (Waaier (ColNum2ColRef (j) & I). Formule) > 0
        sColumnTitle = sColumnTitle & „`“ & Cellen (I, j) & „`,“
        j = j + 1
    Lijn
    sColumnTitle = Medio (sColumnTitle, 1, Len (sColumnTitle) - 1)
    iNumColumn = j

    i = I + 1
    j = ColRef2ColNum (sColStart)
    Het 'pari van het herstel des données lignes lignes
    Als iLineNum > 0 toen
        Voor I = I aan I + iLineNum - 1
            sSQL = ""
            sql = ""
            'La van het herstel des données DE ligne giet chaque colonne
            Voor j = ColRef2ColNum (sColStart) Aan iNumColumn - 1
                sSQL = sSQL & Cellen (I, j) & „„,“ „
            Volgende j
            sSQL = Medio (sSQL, 1, Len (sSQL) - 3)
            'Breek van functie uit als de gebruiker heeft om het even welke waarde niet ingaan
                Als InStr (sSQL, „[gelieve te specificeren]“) toen
                ExecuteUpdate = Waar
                De Functie van de uitgang
                Eind als
            'Van de toevoeging des données dans La- lijst
            
            sql = „NEEM IN [“ & sTableName & „] op (“ & sColumnTitle & „) waarden („“ & sSQL & „“); „
            oConnection.Execute sql
            O.K. Vraag van de traceur de „: “ & sql
        Volgende I

Antwoord : VBA routien - eenvoudige codehulp

>> fout: Verwacht „,“
>> Fout: Verwacht voorwerp
zijn er om het even welke die lijnaantallen in de foutenconsole worden vermeld?
Neem een blik zorgvuldig bij uw code. Iets mist…
Waarschijnlijk hebt u sommige variabelen met één en zelfde naam…?!
Verandering
functie onChngIntPceAll () {
voor (i=0; ionChngIntPce<20> (I);
}
}
aan
functie onChngIntPceAll () {
  voor (indx=1; indx <� 22="">}
Plaats ook dit zuiveren msg:
alarmeer („onChngIntPce aangehaald voor: “ + idx); vlak na deze lijnfunctie onChngIntPce (idx) {
zo zal uw onChngIntPce (idx) functie als kijken:

functie onChngIntPce (idx) {
alarm („onChngIntPce aangehaald voor: “ + idx); // verwijdert later dit msg
als (document.getElementById („intPce " +idx) .value > 1) document.getElementById („sel " +idx) .selectedIndex = 1;
calcVAT ();
SumExVAT ();
Totalen ();
proc ();
}
Andere oplossingen  
 
programming4us programming4us