Frage : VBA routien - einfache Codehilfe

Hallo, lassen

I ein VBA routien, das thourgh „x“ Spaltenanzahl für „x-“ Zahl von Reihen geht.
The Code ist, während below.
I Überprüfung wünschen, wenn alle Spalten in der Reihe abgesehen von erster Spalte leer sind. wenn (zutreffend) als vom loop
Can ausbrechen, das irgendein mir das beste bitte/erklären, Weise säubern, den Code zu ändern, um in der Lage zu sein, das zu erzielen?

I wissen, dass ich es tun kann, selbst aber möglicherweise nicht die sauberste Weise sein kann: /


Thanks viel 
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
    J = ColRef2ColNum (sColStart)
    sColumnTitle = ""
    Tun während Len (Strecke (ColNum2ColRef (j) u. i). Formel) > 0
        sColumnTitle = sColumnTitle u. „`“ u. Zellen (i, j) u. „`,“
        J = J + 1
    Schleife
    sColumnTitle = mittler (sColumnTitle, 1, Len (sColumnTitle) - 1)
    iNumColumn = J

    I = i + 1
    J = ColRef2ColNum (sColStart)
    'Wiederherstellung-DES données lignes Gleichheit lignes
    Wenn iLineNum > 0 dann
        Für i = i bis i + iLineNum - 1
            sSQL = ""
            sql = ""
            'Wiederherstellung des Données de la Ligne gießen chaque colonne
            Für J = ColRef2ColNum (sColStart) zu iNumColumn - 1
                sSQL = sSQL u. Zellen (i, j) u. „„,“ „
            Folgendes J
            sSQL = mittler (sSQL, 1, Len (sSQL) - 3)
            'Von der Funktion ausbrechen, wenn Benutzer keinen, hat Wert einzutragen
                Wenn InStr (sSQL, „[bitte spezifizieren], ") dann
                ExecuteUpdate = ausrichten en
                Funktion herausnehmen
                Beenden wenn
            'Einfügung-DES données dans Latabelle
            
            sql = „EINSATZ IN [“ u. sTableName u. „] (“ u. sColumnTitle u. ") Werte („“ u. sSQL u. „"); „
            oConnection.Execute sql
            Indikator-„OKAYfrage: “ u. sql
        Zunächst I

Antwort : VBA routien - einfache Codehilfe

>> Störung: Erwartet „,“
>> Störung: Gegenstand erwartete
gibt es irgendeine Linie die Zahlen, die in der Störungskonsole erwähnt werden?
Einen Blick an Ihrem Code sorgfältig nehmen. Etwas fehlt…
Vermutlich haben Sie einige Variablen mit einer und das gleiche Namens…?!
Änderung
Funktion onChngIntPceAll () {
für (i=0; ionChngIntPce<20> (i);
}
}
zu
Funktion onChngIntPceAll () {
  für (indx=1; indx <� 22="">}
Dieses auch setzen ausprüfen Msg:
alarmieren („onChngIntPce hervorgerufen für: “ + idx); gleich nach dieser Linie Funktion onChngIntPce (idx) {
so schaut Ihre onChngIntPce (idx) Funktion Gleiches:

Funktion onChngIntPce (idx) {
Alarm („onChngIntPce hervorgerufen für: “ + idx); // entfernen diesen Msg später
wenn (document.getElementById („intPce " +idx) .value > 1) document.getElementById („sel " +idx) .selectedIndex = 1;
calcVAT ();
SumExVAT ();
Gesamtmengen ();
proc ();
}
Weitere Lösungen  
 
programming4us programming4us