[ jmix23 @ 12.02.2009. 13:11 ] @
Ovako narode, treba mi mala pomoc ali ne znam koliko cu moci ovako da objasnim...imam dve tabele u excelu (Visaul basic) i sad posto nazivi u te dve tabele se razlikuju a predstavljaju istu stvar, treba da iz jedne tabele naziv komponennte npr. "V metarski prekidac" (koji u stavri predstavlja i stu stvar kao "tropolni prekidac 16A") poredi sa nazivima iz druge tabele i da kad nadje odgovarajuci naziv ("tropolni prekidac 16A"), i da iz kolone kolicina (koja se nalazi u prvoj tabeli, gde i naziv "V metarski prekidac") pokupi vrednost (kolicinu) i upise u kolonu kolicina (ali sad je kolicina u drugoj tabeli, gde se nalzai naziv 'tropolni prekidac")...
Ja sam mislio da ovo resim preko dva niza, ali cu morati da napunim niz vrednostima (nazivima) komponenti iz obe tabele i da pomocu sledece petlje:

CODE:

FOR (i=1, i<100,i++)
Begin
FOR( j=1,j<100,j++)
begin
IF(J == C[j])
then
D(i)=I(j);
end
end

ne znam bas kako se pise u Visaul basicu, ali to cu lako resiti...C,J,D i I su kolone iz tabele...e sad mislim da ovo nece raditi jer nazivi nizu jednaki ('V metarska preklopka' != 'tropolni prekidac 16A') iako predstavljau istu stvar...pa ne znam kako da resim....ako neko zna laksi, tezi ili dopunjeni nacin ove petlje i ako je shvatio sta mi treba bio bih mu zahvalan na bilo kakvoj pomoci :) !!!!

p.s. uz J bi trebalo da stoji J, ali mi se to iz nekog razloga ne vidi

Unapred hvala!

[Ovu poruku je menjao jmix23 dana 12.02.2009. u 14:24 GMT+1]

[Ovu poruku je menjao jmix23 dana 12.02.2009. u 14:25 GMT+1]
[ jmix23 @ 12.02.2009. 15:05 ] @
Kako da pozovem polje iz excela unutar funkcije i moze li to uopste???

Napravio sam ovu funkciju :

CODE

Function Kolicina(id As Integer)
Dim k As Integer
Dim m As Integer

For k = 5 To i < 150 Step 1
For m = 1 To j < 150 Step 1
If i(k) = C(m) Then
E(m) = j(k)
End If
Next m
Next k

End Function

p.s. ovo I(k),C(m),E(m),J(k) bi trebalo da su polja u excel tabeli, ali ne znam d li moze ovo ovako da se napravi jer mi prijavljuje gresku.... kaze kao da ocekuje niz...sto bi i bilo logicno, ali ne znam kako to da resim
[ Jpeca @ 14.02.2009. 20:37 ] @
Ima puno primera i na ovom forumu i na netu pa si dosad verovatno već nešto video, ali evo u ovoj temi http://www.elitesecurity.org/t...atizacija-kopiranje-tabeleovde možeš naći objašnjenje osnovnih načina pristupanju ćeliji iz koda.
U funkciji možeš kao parametar zadati Range (to je uobičajeno u Excelu) i onda pristupati ćeliji po ćeliji iz opsega koristeći For each ... Next petlju ili svojstvo Cells opsega.
Code:

 Function Primer(r As Range, sifra As String) As Boolean
'
' Primer funkcije u Excel VBA
' Ispituje da li u opsegu ima ćelija sa tekstom sifra
'
Dim cl
Primer = False
For Each cl In r
    If cl.Value = sifra Then
         Primer = True
         Exit For
    End If
Next cl
End Function


Inace tvoju funkciju uopste nisam razumeo - funkcija obično vraća neku vrednost, a i parametar id nigde ne koristiš u funkciji.