< návrat zpět

MS Excel

Téma: prienik viacerich poli rss

Zaslal/a misocko 25.4.2011 23:09

ahojte
v subore pod userformom 1 je zopar checkboxov ktore by som potreboval oznacit podla prienikov (popis v subore)

v kode pre userform 2 je spraveny nejaky vzorovy prienik (intersect pre polia vraj nefunguje ani sa mi ho nepodarilo rozbehat) ale iba pre dve polia a este k tomu nezavisle od hodnoty (TRUE, FALSE - in CZ PRAVDA, NEPRAVDA - uz som sa tu nad tym raz rozplyval ale nemozem - co za profika prelozilo do cestiny este aj funkcie? ja ked mam napisat KDYŽ namiesto IF tak mam chut prejst na anglicky office 2 ) checkboxu, tak ak by sa nohodou niekto nudil

2

Příloha: zip4799_123zk.zip (50kB, staženo 16x)
Zaslat odpověď >
misocko(28.4.2011 19:52)#004822
avatar
trochu (2 dni) sa s tym natahujem , prisiel som na to ako vytvorit funkciu na prienik aj scitanie ale neviem ako dostať vystup z mojej funkcie. funkcia spocita dve polia do pole3 - ako mam vytiahnut z funkcie toto pole aby som ho opet mohol pouzit v dalsom cykle pre funkciu spocitaj_polia s inym polom
1. prvy cyklus spocitam pole1 + pole2 = pole3
2. druhy cyklus chcem spocitat pole3 (vysledok prveho scitania) + pole4 = pole5

dik
Příloha: zip4822_scitaj-polia.zip (8kB, staženo 16x)
citovat
icon Poki(29.4.2011 11:05)#004826
Poki
Zkusil jsem napsat prunik poli do funkce.
Pokud budete mit potom v nejake procedure definovana nejaka pole, staci pouzit funkci: PrunikPoli(array1(),array2()).

Moc jsem to netestoval, tak to snad bude fungovat 2

Tady je ta funkce:
Public Function PrunikPoli(Jedna(), Dva())

Dim Prunik()
Dim u As Long
Dim P As Long

u = 0
P = 0

'--Pole pruniku
For i = 0 To UBound(Jedna())
For x = 0 To UBound(Dva())
If Jedna(i) = Dva(x) Then
ReDim Preserve Prunik(0 To P)
Prunik(u) = Jedna(i)
u = u + 1
P = P + 1
End If
Next x
Next i

If u = 0 Then
PrunikPoli = "Nothing"
Else
PrunikPoli = Prunik()
End If

End Functioncitovat
misocko(30.4.2011 15:06)#004836
avatar
to Poki
ahoj
ako som pisal hore funkciu som vytvoril, len z nej neviem dostať (teda dostať už vdaka Tebe viem) len ho (to scitane pole) neviem dalej pouzit (ak chcem z vysledneho pola urobit dalsi sucet alebo prienik s inym polom)
- da sa nejako vysledok funkcie zapisat do noveho pola?
dikcitovat
misocko(30.4.2011 16:33)#004837
avatar
tak uz nic, uz som na to prisiel hlavne vdaka Pokimu 2
Příloha: zip4837_prienikascitanie.zip (10kB, staženo 17x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje