VBA segítség? ..........

Sub hazi()

'Deklarálunk három, öt elemű tömböt

Dim a(5) As Byte 'byte típusú értéke 0 - 255 között lehet

Dim aa(5) As String 'string típusú, tehát szöveg

Dim aaa(5) As String 'string típusú, tehát szöveg

'Egy ciklussal végig megyünk a táblázaton

For i = 1 To 5

'A második oszlop, első öt elemét az a tömbbe töltjük - ezek számok

a(i) = Cells(i, 2)

'Az első oszlop, első öt elemét az aa tömbbe töltjük - ezek szövegek

aa(i) = Cells(i, 1)

'Az aaa tömb minden elemére "üresre" állítjuk

aaa(i) = ""

Next

'összeadjuk az a tömb elemeit - az s értéke lesz az

s = 0

For i = 1 To 5

s = s + a(i)

Next

'Megszámoljuk hányszor bányásztak 100 kg-nál többet - az f értéke lesz az

f = 0

For i = 1 To 5

If a(i) > 100 Then f = f + 1

Next

'Az aaa tömbbe beírjuk azon napok nevét amikor 100 kg-nál többet bányásztak

g = 1

For i = 1 To 5

If a(i) > 100 Then aaa(i) = Cells(i, 1) & "; "

g = g + 1

Next

'Maximum keresés, ha a ciklusváltozó szerinti tömbelem nagyobb, akkor az Index változó megkapja a ciklusváltozó aktuális értékét

Index = 1

For i = 2 To 5

If a(Index) < a(i) Then Index = i

Next

'Ez pedig értelem szerűen :)

MsgBox ("Az öt nap alatt kibányászott arany összege: " & s & " kg")

MsgBox (f & " nap bányásztak ki 100 kg-nál több aranyat. " & aaa(1) & aaa(2) & aaa(3) & aaa(4) & aaa(5))

MsgBox ("A(z) " & Index & ". nap bányászták ki a legtöbb aranyat. (" & aa(Index) & ")")

'MsgBox ("Az öt nap alatt kibányászott arany összege: " & s & " kg" & vbNewLine & f & " nap bányásztak ki 100 kg-nál több aranyat." & vbNewLine & "A(z) " & Index & ". nap bányászták ki a legtöbb aranyat. (" & aa(Index) & ")")

End Sub

SimkoL: Igazából olvasási szinten sztem bármelyik programozó megérti a basicet, és kb minden magasabb szintű programozási nyelvet. Max nem tudja pontosan a szintaxist.

Ebben sincs más, mint más nyelvekben, függvény (hívjuk akár eljárásnak, szubrutinnak), for ciklus, if, változó deklarálás...