Sporo niewiadomych. Nie wiadomo gdzie jest 'Activecell', a w związku z tym 'C[-1]' oraz wszystkie "offsetowane". Jedyna wskazówka, że wynik *5% zapisujesz w B3. Trzeba policzyć :) W przykładzie losowanie 5% unikatowych liczb z kolumny "C". Oczywiście wartość 'ile' możesz zapisać w B3 ;) itd
Autorka powinna wtedy albo usunąć istniejące katalogi razem z ich zawartością - ręcznie, albo dopisać stosowne zabezpieczenie... Masz słuszność, chociaż można było zrobić goto i wyświetlić komunikat, ale chyba za dużo programuję w VB.NET i później zapominam, że w VB to było mniej przyjemne :) 1. Zamknij oczy 2. Odpal makro He he... to sobie własnie...
Dzień dobry, Czy uda się stworzyć w excellu takie makro, które wylosuje bez powtórzeń określoną liczbę wierszy (z komórki O17) z bazy danych i wrzuci je do arkusza nazwanego PRÓBA? Chciałabym, żeby losowanie oparte było na funkcji MUS, czyli losowało wiersze, których wartość przekracza dany próg, wpisany w komórkę B11, ale jeśli takich wartości jest...
Arkusz "Keno" losuje 15 z 40; makro pod przyciskiem powtarza losowanie 100 razy. Arkusz "Jak to działa" losuje 10 z 10, przeanalizuj jego formuły. Miłej zabawy.
Witam, mam następujący problem: wrzuciłem do excella proste makro które losuje liczby z określonego przedziału. Zalezy mi na tym aby ustawic je tak żeby losowanie odbywało się automatyczne co np 10 sekund a wynik pojawiał się ciagle w jednej komórce. Niestety nie wiem jak to zrobić. Poniżej moje makro. Sub LosowanieCalk() a = 4 b = 8 Range("A1").Select...
Wiele egzaminów na studiach ma formę testową. Czy istnieje możliwość stworzenia makra w Excelu które umożliwiałoby sprawdzenie wiedzy z pytań umieszczonych w arkuszu kalkulacyjnym (ew. w bazie danych MS Access,, program taki mógłby losować np. sto pytań). pytania byłyby podzielone na działy. Makro takie mogłoby mieć funkcje: -losowanie kilku pytań z...
ten plik Excela podpięty jest do innego programu, który wrzuca w komórki H5:H30 i F5:F30 wartości liczbowe (co 0,2 sekundy). Tak więc w naszym arkuszu musimy sobie "wyobrazić" (monitorować), że w kolumnach H i F pojawią się wartości liczbowe i jeśli spełnią warunek to pojawią się w kolumnie AR i AQ. Nie rozumiem, czego nie rozumiesz ;) Zamiast kwerendy...
To tak na wstęp do Twojego projektu. Czas mi nie bardzo pozwala na poważniejsze zagłębienie się w zabawę. Losowanie odbywa się na Arkusz1 dla Pracownik_1. Makro w Moduł1. Nie jest to całkowite rozwiązanie problemu a tylko początek. Trzeba trochę pokombinować ze sprawdzaniem zmian. Później trzeba też będzie dorobić warunek sprawdzający wystąpienie zmiany...
Słuchajcie mam cos takiego: Szanowni koledzy juz sie trudze i trudze i ni hu hu nie umiem dobrnąć do konca :( otóż robię makro symulujące losowanie multilotka z tym ze potrzebuję jeszcze takiego myku który bedzie wskazywał ilość trafień. Zrobiłem juz user forma i skrypt mniej wiecej taki: Option Explicit Private Sub CommandButton1_Click() Dim Ilosc_liczb...
Problem losowego pobierania próbek z jakiś populacji często występuje przy badaniach statystycznych czy metrologii technicznej. Pamiętam sprzed epoki komputerów :D , że były stosowane specjalne tablice liczb losowych (podobne do powszechniej znanych tablic logarytmicznych) do ustalenia numerów próbek do badania. Teraz w Excelu wartości funkcji losowej...
Bardziej chodziło mi, że makro jest przygotowane na sortowanie nawet stu wartości w wierszu, Ty masz to do lotto, specyficznie do 6 liczb, więc Const MaxX możesz zmienić na 6 spokojnie, wtedy będzie brało pod uwagę tylko kolumny od A do F. Jeśli będziesz chciał sortować losowania z innych gier, gdzie załóżmy jest losowane 20 liczb, to wtedy można to...
To chyba najlepiej było by zrobić za pomocą makra tylko że wtedy będzie pewnie trzeba wciskać przycisk aby to aktywować
Witam, Implementacja tego, o czym pisałem jest w załączniku. Jak ktoś się uprze, to może tego użyć do losowania lotto, tasowania talii kart i innych podobnych problemów - ogólnie chodzi o wygenerowanie permutacji danych wejściowych bez użycia makr. Pozdrawiam, Dr.Vee
Skopiuj tę funkcję (los() ) w dół do 500 komórek. Następnie wciskając klawisz F9 będziesz miał nowe losy w tych 500 komórkach. Możesz później po przez funkcję indeks powiązać nazwisko uczestnika z wylosowaną wartością Przy czym wtedy funkcję los () należało by zaokrąglić np do 4 miejsc po przecinku a potem pomnożyć przez 10.000 Z tym że każde obliczenie...
Jak napisał stasiekm ten guzik to ruletka (losujesz czy idziesz na osobistą) w Makro w Krakowie (Real i Makro to tak naprawde ta sama firma i rozwiązania napewno mają takie same) jest coś podobnego. Jak by to coś emitowało promieniowanie to pierwszy by świecił ten twój "ulubiony" ochroniarz
Witam. Uczę się dla siebie samego pisania makr i mam prośbę odnośnie czy, ktoś z was zna jakiś dobry link do strony gdzie wytłumaczono by jak zrobić pętle w excel'u? Chce zrobić coś takiego, że w UserForm'ie wpiszę 10 liczb z zakresu od 1 do 100. Makro będzie zawsze losowało 10 liczb z tego zakresu. Gdy wylosuje 5 takich samych cyfr jak te z 10, które...
Wracając do tematu: Jest jakiś sposób na zablokowanie funkcji RANDBETWEEN ? Mając je wpisane w całym skoroszycie gdziekolwiek kliknę losuje mi na nowo wartość. Da się to zmienić aby losowało tylko na wyraźną komendę ? I zatrzymywało się po wylosowaniu ? I czy da się to zrobić bez makra ? Bo stosowanie makra na wstawienia jako wartość po każdym losie...
Tworzysz obiekt FileSystemObject Dim fs as object Set fs = CreateObject("Scripting.FileSystemObject... Z powyższego pobierasz obiekt folder Dim f as object Set f = fs.GetFolder(folderspec) Z powyższego pobierasz kolekcję plików Dim files as object set files = f.Files Z kolekcji pobierasz ilość pozycji (czyli plikow) num = files.count funkcją Rnd losujesz...
Kontynuacja mojego postu, który zamknąłem przez pomyłkę. dt1 - napisałeś "Jeśli pytanie jest długie i zostanie przeniesione do kolejnej/kolejnych linii, nie będzie to miało wpływu na działanie makra. " Niestety jest inaczej, gdy pytanie przechodzi do kolejnej linii ( w wyniku pisania długiego zdania, nie przez naciśnięcie enter) to maszynka losująca...
I to są liczby pseudolosowe ? Z Wikipedii: Liczby pochodzące z generatora programowego zwane są liczbami pseudolosowymi, ponieważ faktycznie nie są dziełem przypadku, lecz wynikiem obliczeń matematycznych. Jak wypróbujesz ten kod - to znajdziesz jeszcze jedną jego wadę :cry: wynikającą z zastosowanego algorytmu - tzn. powtórzenia losowanych liczb :-o...
dzięki Wszystkim teraz muszę to rozgryźć ,jeżeli ktoś ma jeszcze jakieś propozycje chętnie przyjmę Dodano po 42 Do adamas_nt niestety może źle opisałem o co mi chodzi ale twoja myśl jest dobra z tym że porównuje pierwsze losowanie z pozostałymi a mnie chodzi by te porównanie było między wszystkimi wybranymi losowaniami czyli porównanie drugiego z trzecim...
Witam poniżej zamieszczam odpowiedź skonstruowaną przez właściciela serwisu: http://office.info.pl/ Przetestowałem wszystko działa jak należy, jeśli ktoś nie zna VBA jest to idealny sposób i bardzo prosty w wykonaniu. (...)"można to zrobić na dwa sposoby: 1) zawsze za pomocą VBA - czyli oprogramować Makro; 2) "sposobem/sztuczką" :) i ten przedstawię...
Do generowania napisałem taki programik w Tcl-u: Dodano po 2 Wersja z losowaniem (o ile jest odpowiednia biblioteka): Dodano po 54 Przypuszczam, że w Polsce rodziło się dziennie około 1400 dzieci - mniej więcej tyle trzeba, by było nas 35-40 milionów. Czyli w czterech cyfrach (po tych sześciu, które zawierają datę urodzenia) powinna być liczba w zakresie...
Jeśli chcesz stworzyć funkcje wewnątrz tablicy, powinieneś raczej użyć klasy, mniej więcej tak: w jakimś headerku: np: array.h class Array { public: Array(); Array( int initSize ); ~Array(); int Random( void ); //podaj losową liczbę z tablicy int Multiply( int num1, int num2 ); //pomnóż 2 liczby o indeksach...
Z licznby 86 (jest to suma) programik ma wygenerować 26 cyfr w przedziale od 1-10. Z tym że w tych 26 cyfrach 6 ma być zerami. Jak dla mnie to było by to coś takiego: [syntax=vb]Function sumArr(ByRef arr() As Integer) As Integer Dim i As Integer For i = LBound(arr) To UBound(arr) sumArr = arr(i) + sumArr Next i End Function Sub randnum() On Error GoTo...
Asus F3SSeries Duo T7250 2,0 GHz 1Gb RAM Vista32 Dodano po 5 Dim start As Integer, finish As Integer start = Timer Debug.Print Timer wynik 50609,88
losowanie powtórzeń losowanie próby losowanie lotto
hulajnoga elektryczna kugoo porównanie arkuszy instrukcja obsługa lodówka indesit
smartfon aplikacje wskaźnik prędkości samochodu
Cewka zapłonowa VW AG 036905715 - podłączenie i iskra Tworzenie numerboxa w BeamNG.drive - poradnik