Zaslal/a karlherbert 19.3.2010 15:06
zdravim snazim se pomoci VBA trochu experimentovat s haldou mam, v prvnim kroku bych ji spise potreboval vytvorit kompilace mi sice chybu nenahlasila ale vysledek taky neni z toho, jakej bych chtel tu je kod...popostrcte me prosim jak to udelat abych napriklad na libovolnem liste napriklad od bunky A1 po bunku A8 to tak nejak vytvoril dekuju, halda by se mela spustit pomoci command buttonu zde je kod diky
Dim a(1 To 8) As Integer
Dim cislo As Integer
cislo = 1
i = 1
j = 2 * i
x = a(i)
Do Until (j <= r)
If (j < r) Then
If a(j) < a(j + 1) Then
j = j + cislo
If x >= a(j) Then
End
a(i) = a(j)
i = j
j = 2 * i
End If
a(j) = x
End If
End If
Loop
End Sub
Private Sub CommandButton1_Click()
Call Halda(15, 16) /-sem presne nevim co ulozit tak sem napsal libovlne cislice asi by tem melo bejt pole
End Sub
Nebyly zaslány žádné odpovědi.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.