Příspěvky uživatele


< návrat zpět

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


Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Ověření datumu TextBox1.Text

elninoslov • 18.10. 20:15

Auto mazanie emailov

elninoslov • 18.10. 20:01

Ověření datumu TextBox1.Text

Scraper • 18.10. 18:25

Auto mazanie emailov

Pavol1 • 18.10. 17:10

zdroj dat ve VBA

elninoslov • 18.10. 17:08

zdroj dat ve VBA

lubo • 18.10. 15:40

EXCEL VBA vyhledání buňky

lubo • 18.10. 15:39