[es] - Kako povezati dve tabele [Excel]

jmix23
Jankovic Miljan
Database - Programer
Priboj

Član broj: 175500
Poruke: 69
82.117.198.*

Profil

^{12.02.2009. u 13:11 - pre 184 meseci}

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]}
jmix

Odgovor na temu

jmix23
Jankovic Miljan
Database - Programer
Priboj

Član broj: 175500
Poruke: 69
82.117.198.*

Profil

Re: Kako povezati dve tabele [Excel]

^{12.02.2009. u 15:05 - pre 184 meseci}

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

jmix

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
194.106.167.*

Sajt: www.gowi.rs

+109 Profil

Re: Kako povezati dve tabele [Excel]

^{14.02.2009. u 20:37 - pre 184 meseci}

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.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu