Program w VBA dotyczący formularzy.

[czarnys69]

Witam! Mam do zrobienia taki program, który pyta ile liczb chcemy wprowadzić. Wpisujemy np. że 4 liczby i wtedy wyskakują 4 formularze w których należy wpisać liczbę. Po wpisaniu tych liczb program pyta czy ma policzyć średnią arytmetyczną czy geometryczną. Wybieramy i liczy.

Te okienka UserForm umiem robić tylko nie potrafię zaprogramować tego żeby pokazywało tyle formularzy ile wpiszemy i poźniej formuły żeby liczył średnią. Jeśli ktoś ma jakiś pomysł byłbym bardzo wdzięczny:)

[raxilion]

No to tak... Na początku tworzysz tablicę zawierającą n elementów (n wpisane przez uzytkownika) czyli np

n = inputbox("Podaj ilość liczb)

dim tablica(1 to n) as double

i teraz pora na pętlę for:

for i=1 to n
tablica(i) = inputbox("Podaj liczbę nr" & i & ".")
next i

wiec mamy już tablice pełną elementów wpisanych przez użytkownika.

teraz wystarczy żeby użytkownik wybrał opcję np inputboxem 1=arytmetyczna 2=geometryczna
i wybór możesz załatwić przez

select case
case 1
instrukcje liczące średnią arytmetyczną
case 2
instrukcje liczące średnią geometryczną
case else
msgbox("Błędna liczba!")
end select

zawsze możesz dodać więcej opcji

(To taki ogólny przykład możesz go zastosować właśnie z użyciem formularzy jeżeli to konieczne )

[czarnys69]

Nadal nie bardzo wiem jak to zrobić;/ Pomógłby ktoś? tak krok po kroku.

Szate graficzną już mam:)

1. Pierwsze wyskakujące okienko to tytul programu i po kliknięciu w OK uruchamia się program.
2. Program pyta ile ma liczb wprowadzić ( wpisujemy liczbę, kliamy OK, anuluj lub wyczyść)
3. Wyskakują formularze w które wprowadzamy liczby (tyle formularzy ile wybralismy lisb w punkcie 2)
4. Wyskuje okienko jaka ma być liczona średnia ( arytmetyczna, geometryczna lub jakaś inna)
5 pokazuje się wynik.

Pomoże ktoś napisać do każdego z tych punktów kod aby program działał. Z góry dziękuje za pomoc!!