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:)
Program w VBA dotyczący formularzy.
-
- Użytkownik
- Posty: 6
- Rejestracja: 22 maja 2009, o 23:41
- Płeć: Mężczyzna
- Lokalizacja: Kraków
- Pomógł: 4 razy
Program w VBA dotyczący formularzy.
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 )
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 )
-
- Użytkownik
- Posty: 35
- Rejestracja: 18 lis 2008, o 21:45
- Płeć: Mężczyzna
- Lokalizacja: net
- Podziękował: 12 razy
Program w VBA dotyczący formularzy.
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!!
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!!