MS Excel

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

) checkboxu, tak ak by sa nohodou niekto nudil

Zaslat odpověď >

misocko(28.4.2011 19:52)#004822

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: zip

4822_scitaj-polia.zip (8kB, staženo 16x)

citovat

Poki(29.4.2011 11:05)#004826

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

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

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

tak uz nic, uz som na to prisiel hlavne vdaka Pokimu

Příloha: zip