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
Tu znajdziesz rozwiazanie http://blog.actuary.pl/2010/01/zegarek-n...
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...
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
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...
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...
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...
Jeśli jest dopuszczalne skorzystanie z makr, to można napisać taką prostą funkcję w VBA: [syntax=vbnet]Function los2(e1 As Integer, e2 As Integer) As Integer Do los2 = Int(5 * Rnd + 1) Loop Until (los2 <> e1) And (los2 <> e2) End Function[/syntax] Przyjmuje ona dwa parametry (wartości z sąsiednich dwóch komórek, które należy wykluczyć w...
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...
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...
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...
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...
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...
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...
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...
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...
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
makro losować losować liczba przedział losować liczba zbiór
mikrotik podział pasma wymiana świece kosiarki odgromowa instalacja
obliczenia pętli zwarcia bateria parkside
Gigabyte GA-970A-UD3 v1.2 – wymuszenie startu z zapasowego BIOS, DualBIOS, recovery Parkside PABSW 10.8 – wiertarko-wkrętarka kątowa 10,8 V, parametry, akumulator, rewizje
