zadanie VBA pomocy

[Gość: madzi1]

mam takie zadanie i nie moge sie z nim uporac...
napisac program realizujacy polecenie:
z klawiatury wczytywac liczby dopoki ich suma nie przekroczy 100 wstawiajac
wszystkie liczby do listy rozwijanej. policzyc i wyswietlic sume liczb
wiekszych niz 5 na liscie.
zakladam ze: commandbutton1 nazywa sie "wczytaj liczby", a
combobox to moja_lista
z gory dzieki za pomoc :)

[r_ed]

Private Sub wczytaj_liczby_Click()
Dim liczba As Byte
Dim suma As Byte
Dim suma5 As Integer
moja_liczba.Clear
While suma < 100
liczba = InputBox("Podaj liczbe")
suma = suma + liczba
moja_liczba.AddItem liczba
If liczba > 5 Then
suma5 = suma5 + liczba
End If
Wend
MsgBox "Suma licz wiekszych niz 5 wynosi " & suma5, vbOKOnly + vbInformation,
"Wynik"
End Sub

[Gość: madzi1]

nie dziala... :/

[Gość: jr]

Podaj w jakiej aplikacji chcesz to zrobic. Excel, Word czy Access. To co zrobil red nie bedzie dzialac w
Access'ie poniewaz Access stosuje inne kontrolki listbox czy combobox. Metody Clear czy AddItem
beda wywalaly bledy. Aby ten kod dzialal w Excel'u (czy VB6) dodaj przycisk (comman button) nazwa
wczytaj_liczby i listbox nazwa moja_liczba do arkusza (form w VB6):

Private Sub wczytaj_liczby_Click()
Dim liczba As Variant 'Byte
Dim suma As Double 'Byte
Dim suma5 As Double 'Integer

On Error GoTo errTrap
Me.moja_liczba.Clear
While suma < 100
liczba = InputBox("Podaj liczbe")
If IsNumeric(liczba) Then
suma = suma + liczba
Me.moja_liczba.AddItem liczba
If liczba > 5 Then
suma5 = suma5 + liczba
End If
Else
MsgBox "Podana liczba nie jest LICZBA!!!", _
vbOKOnly + vbCritical, "ERROR"

End If
Wend
MsgBox "Suma licz wiekszych niz 5 wynosi " & _
suma5, vbOKOnly + vbInformation, "Wynik"

errTrap:
If Err.Number <> 0 Then
MsgBox Err.Number & " - " & Err.Description
End If
End Sub

[r_ed]

> Podaj w jakiej aplikacji chcesz to zrobic. Excel, Word czy Access. To co zrobil
> red nie bedzie dzialac w Access'ie poniewaz Access stosuje inne kontrolki
> listbox czy combobox. Metody Clear czy AddItem beda wywalaly bledy. Aby ten kod
> dzialal w Excel'u (czy VB6) dodaj przycisk (comman button) nazwa
> wczytaj_liczby i listbox nazwa moja_liczba do arkusza (form w VB6):

Dokladnie - to byl prosty kod dla VBA z Excela (zapomnialem o tym wspomniec).
Niestety w pytaniu nie bylo sprecyzowane w jakiej aplikacji ma to dzialac.

[Gość: madzi1]

mialo byc dla excela ale wlasnie w excelu mi to nie dziala :/

[r_ed]

Ale co konkretnie sie dzieje?? Jakis komunikat sie pokazuje chociaz?