Jeśli chcesz, żeby po zaznaczeniu więcej niż 1 komórki była brana pod uwagę tylko pierwsza z zaznaczonych, to możesz dodać linię: [syntax=vbscript]If Target.CountLarge > 1 Then Set Target = Target(1)[/syntax]przed tą linią, którą masz zaznaczoną na żółto. Całościowa propozycja w załączniku. Zasady są nieco inne. Zasięg działania w arkuszu nie jest ograniczony,...
Proponuję przejrzeć wątek https://www.elektroda.pl/rtvforum/viewto... i spróbować zmodyfikować zamieszczone tam rozwiązanie :idea: Obawiam się jednak, że przy tak wielu liczbach (100 :?: ) oraz ograniczeniu poprzez odchylenie standardowe napotkasz problem wielokrotnych powtórzeń tych samych wartości :cry: Próbowałem już modyfikować...
Hmm tak na szybko wymyśliłem ale działa. Przypuszczam że liczby są w kolumnie A. W dodatkowej kolumnie wstaw funkcje dla wszystkich swoich liczb: =LICZBA.CAŁK(A1) A następnie w kolejnej kolumnie: =+JEŻELI(A1=B1;1;0) W ten sposób w drugiej kolumnie usuwana jest część ułamkowa, w trzeciej jest porównywana. Jeżeli pierwsza z drugą jest taka sama to znaczy...
POSZUKIWANIE KLUCZA KODOWANIA Jeżeli ktoś jest zainteresowany to proszę czytać powoli i dokładnie... bo jest sporo chyba moich skrótów myślowych .. ale osoby mające już jakaś wiedzę w temacie i excel nie jest im obcy - nie będą wymagały rozszerzenia tego opisu. Dla pozostałych będzie trzeba chyba stworzyć film.... bo to ciężko zobrazować tylko opisem....
Witam, Potrzebuje napisać formułę która będzie liczyć średnie liczb w następujący sposób: Są dane liczby w kolumnie przykładowo 1,2,3,4,5 pierwsza średnia ma być obliczona z liczb 1,2,3 druga z 1,3,4 trzecia z 4,3,5 i tak dalej... jedna liczba pozostaje niezmienna dwie się zmieniają. Jest możliwość zrobienia takiej formuły ? ( chodzi tutaj oczywiście...
Czy ktos moze mi napisac jak w Excelu przekonwertowac liczbe w systemie dzisietnym na dwojkowy i odwrotnie? Jak ulozyc funkcje by to dzialalo. Probuje to zrobic, ale moje pomysly sie wyczerpaly :/ PS Acha i co zrobic, by Excel sprawdzal czy liczba jest liczba pierwsza (podzielna przez 1 i sama siebie) Prosze o pomoc
W prostszych przypadkach mogą też wystarczyć funkcje SUMA.JEŻELI i SUMA.WARUNKÓW. A w nowym Excelu 365 również funkcja FILTRUJ w połączeniu z SUMĄ.
[syntax=vbscript]Sub Liczby() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To ow a = Split(Cells(x, 1), ",") b = UBound(a) For y = 0 To b Cells(x, a(y) + 2) = "X" Next Next End Sub [/syntax]
=POTĘGA(2; JEŻELI(MOD(A1;8)=0;7;MOD(A1;8)-1))*1,5
=JEŻELI(Y21>P21;"wzrost o "&ZAOKR((Y21-P21);2)&" w stosunku do ubiegłego tygodnia";ZAOKR((Y21-P21);2)&" w stosunku do ubiegłego tygodnia")
Powiem tak, obliczenia te są potrzebne mi do stworzenia systemu gry na giełdzie. Stworzyłem już formuły wejście i wyjścia z gry, to właśnie pierwsze i ostatnie z cyfr w ciągu. Konkretnie dane te są notowaniami danej spółki. Pierwsza liczba to cena zakupu akcji, środkowe to ich wahania, a ostatnia z ciągu to cena akcji w momencie sprzedaży. Dlatego liczby...
Aha zmień zakres do g50 [syntax=dos]=SUMA.ILOCZYNÓW(SUMY.CZĘŚCIO...
Dzień dobry, Jeśli pytanie było do mnie, to wyjaśniam: W przykładowym pliku w kolumnie A znajdują się daty wraz z godzinami. W kolumnie B znajdują się same daty. Formuła ma postać: [syntax=text]=SUMA((LICZBA.CAŁK($A$1:$A$... lub [syntax=text]=SUMA.ILOCZYNÓW((LICZBA.CAŁ... Pierwsza formuła jest tablicowa (wymaga...
Witaj. Pierwsza rzecz - godziny od minut rozdzielamy dwukropkiem, nie przecinkiem. 16,30 to liczba 16,3, a 16:30 to godzina 16 i pół godziny (czyli dla obliczeń 16,5). Format godzinowy, a nie liczbowy, bardziej nadaje się do wyświetlania czasu. Wynik zsumowanych czasów pracy natomiast można wyświetlić jako liczbę (i wtedy, ze względu na sposób, w jaki...
Rzeczywiste nazwy plików przyjmijmy że będą 1_19, 2_19, 3_19, ... n_19. Jak widać będzie się zmieniała pierwsza liczba , "19" będzie stałą wartością. Przepraszam ale w toku prac gdzieś te nazwy się zmieniały stąd ta niekonsekwencja. Kolego yogi009, dziękuję za uwagę. Jest to literówka związana z tym iż w mojej pracy często używa się nazwy całkiem niezwiązanego...
A gdyby w kolumnie pomocniczej sprawdzić czy pierwsza z prawej to liczba i jeśli nie, to obciąć o jeden znak i dodać 0,5 (jeśli tylko "a"), następnie posortować wg tej kolumny?
Witam Możesz również przemnożyć wszystko przez 1 =A1*1
=WARTOŚĆ.LICZBOWA(PODSTAW(A1;"PLN";"");"...
Cześć wszystkim - jako laik ale szybko się uczący chciałbym prosić forumowiczów o pomoc. Najpierw krótko przedstawię o co mi chodzi. w załączniku jest plik Excela: Formularz ten posiada 2 reguły: - pierwsza dotyczy dwóch tabel po lewej która pokazuje mi liczby które mają takie same wartości i te które się nimi różnią - czyli 1 ma różne wartości a 4...
Witam wszystkich serdecznie Znam podstawy vba jednak moja wiedza nie pozwali mi rozwiązać pewnego problemu. Bardzo proszę o pomoc, ewentualnie udzielenie jakiś rad i wskazówek. W pliku mam dwie zakładki, pierwsza "dane codzienne" i druga "historia". Pierwsza zakładka składa się z trzech kolumn: data, produkt i liczba sztuk. Dane to tego arkusza są kopiowane...
Witam, mam problem z kodem, chce za pomocą makra otworzyć plik o nazwie 13bvt2.csv który znajduje się w tym samym folderze co mój plik z makrem, to akurat nie jest problem bo wystarczy krótka formuła typu: workbook.open filename=thisworkbook.path & "13bvt2.csv" jednak pierwsza liczba w nazwie pliku (tutaj 13) ma być odczytywana z komórki a1 czyli ten...
Wielkie dzięki!!! Na początku próbowałem robić przez adresowanie pośrednie i bezpośrednie, ale źle tworzyłem formułę. Piwko o 100% się należy. Edit: jeszcze bardzo proszę o wyjaśnienie co oznacza w formule [ WIERSZ()*3-4 ] lub [ WIERSZ()*3-3 ] w miejscu formuły 'nr.wiersza' (domyślam się, że pierwsza liczba określa 'skok co ile' ale jeszcze nie kojarzę...
narzędzia->opcje->dokładność jak wyświetlono
Wyszukiwanie na podstawie więcej niż jednego kryterium Funkcja =WYSZUKAJ.PIONOWO() to wyszukiwanie danych na podstawie jednego kryterium. Aby wyszukać dane na podstawie więcej niż jednego kryterium musimy zbudować formułe tablicową. Przykładowa tablela zawiera zestawienie sprzedaży: miesiąc, produkt i kolor to kryteria, my potrzebujemy zwrócić na podstawie...
Chciałabym mieć możliwość sprawdzenia funkcją Nie do końca rozumiem co koleżanka chce sprawdzać ? Jeśli to jest tabela importowana i chodzi o sprawdzenie tylko braku "dubletów" numeracji dla danego typu ? To można to zrealizować funkcją - tak jak na zrzucie ;-) 1202325 Jak widać na zrzucie tą samą funkcje można wykorzystać do oznaczania błędów poprzez...
Dobry wieczór, Oczywiście, że w tak prosty sposób nie da się wyeliminować powtarzających się dni. Obliczenia muszą być bardziej złożone, ale być może jest prostszy sposób od tego, który ja wymyśliłem. Proponuję tak: 1. Ustalamy zakres dat, który nas interesuje od najstarszej (MIN) do najpóźniejszej (MAX) i zapisujemy w komórkach np. P2 i Q2. 2. Tworzymy...
Błąd miałeś w maju i w czerwcu (w dwóch pierwszych tabelach). Nie wiem jak ci to prościej wytłumaczyć. dane które sa pobierane z każdego miesiąca do arkusza test35 zaczynają się od kolumny C a kończą w zależności od miesiąca na AF lub AG (luty jeszcze inaczej) Więc należy sprawdzić w arkuszu test35 przejście między miesiącami czy w formule we wcześniejszym...
Moje rozwiązanie wyglądałoby jakoś tak: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2013-05-12, autor Darek ' ' Const S1 = 8 ' najmniejszy przedział Const S2 = 16 ' sredni przedzial Const S3 = 32 ' najwiekszy przedzial Const D1 = 3 ' tolerancja sredniej najmniejszego przedzialu Const D2 = 5 ' tolerancja sredniej sredniego przedzialu...
Dobry wieczór, Można też tak: 1) wpisać do pustej komórki arkusza to co ma być dodane i skopiować do schowka (np. Ctrl+C) 2) zaznaczyć zakres, do którego chcemy coś dodać 3) wybrać z menu Wklej/Wklej specjalnie/Dodaj - wyniki będą stałymi, a nie formułami. Pozdrowienia
I prawidłowo teraz :)
=JEŻELI(ORAZ(A1>300;A1<=1000);"Nie podwyższamy oprocentowania depozytów dla kwot mniejszych od 300zł";"") Badana komórka ma adres A1, jeśli u Ciebie jest inaczej - to wystarczy zmodyfikować. Pozdrawiam :-)
B1: =0+NIE(CZY.BŁĄD(ZNAJDŹ("... TAK ";" "&LITERY.WIELKIE(A1)&" ";1))) B2: =0+NIE(CZY.BŁĄD(ZNAJDŹ("... TAK ";" "&LITERY.WIELKIE(A2)&" ";1))) B3: =0+NIE(CZY.BŁĄD(ZNAJDŹ("... TAK ";" "&LITERY.WIELKIE(A3)&"...
Moja wersja danych testowych Lista je jedna na wszystko(zakres A1:D24) w poprzedniej wersji po zakończeniu wiersza 1 lista była pusta
Splitem go i policz. Np [syntax=vb]Private Sub CommandButton1_Click() Dim a As Double Dim b As Double Dim dr As Integer a = TextBox1.Value b = TextBox2.Value liczba = Split(UserForm1.ComboBox1.Value, ",") dr = Len(liczba(1)) Me.Label5.Caption = Round(a + b, dr) End Sub[/syntax]
Zdaje się, że to jest jakiś problem z dzieleniem. W zasadzie, w operacjach na czasie, powinno się posługiwać funkcjami czasu. Np Cells(1, 3).Value = zmienna_czas_komorka_B1 + TimeSerial(0, 5, 0)
Może użyj konwersji zmiennych to co masz z okna dialogowego przekształć na wynik=CDbl(twojazmienna z okna dialogowego) Ja kiedyś pisałem trochę w VBA ale programy działają dość różnie w zależnośći co masz czy win95 w98, w2000 wNT, WXp oraz Excel97 Excell2000 w końcu się wnerwiłem i pisze w OpenBasicu w OpenOffice i w zasadzie nie mam poroblemów tylko...
Witaj co na to?
moze tak: =ZŁĄCZ.TEKSTY(A1;" - ";A2)
Chciał bym, aby w 1 tabeli pojawiały sie sumy liczb z danego numeru tyg. z podziałem na dni w danym tyg. Jeśli zrezygnujesz z przygotowywania tabeli na 500 lat :!: :please: , usuniesz nieprawidłowe nazewnictwo (np wieloznaczne Tabelle1) :cunning: , oraz wprowadzisz dodatkową kolumnę (określającą dzień tygodnia :idea: ) to efekt taki jak na zrzucie...
[syntax=vbscript]Dim a, b As String[/syntax] W zapisie tym zmienna 'a' jest typu 'Variant' a nie 'String' ... : ) ... vba to niezupełnie VB - powinno być raczej: [syntax=vbscript]Dim a As String, b As String[/syntax] No ... i niekoniecznie o taką konstrkcję funkcji chodziło - jeśli chciałbyś się do niej odwoływać z poziomu innych pól, to raczej się...
Trochę "dookoła", ale... Może w Excel >2003 zmieścisz w jednej formule ;) Być może da się to jeszcze uprościć... Edit: Och, formuły "uciekły" przy kopiowaniu ;) Nowy
Rzuć okiem na takie coś. Wyszukałem znaki "/", następnie zmieniłem ostatnią część na liczbę i posortowałem zwykłą funkcją A->Z
Np taka tablicowa (zatwierdz. przez Ctrl+Shift+Enter): [syntax=text]=SUMA(JEŻELI(MOD(WIERSZ(D51... nie "widzi" liter. Dla nieparzystych dzielnikiem będzie 1.
Zobacz, tylko popraw funkcję tak jak napisałem wcześniej. I popróbuj ze złotówkami: Zakładając dalej pierwszy wzór z linią 18 formuła wygląda jakoś tak: =ZAOKR.DO.CAŁK( [ilość] *( [złotówki_ceny_jednostkowej] +( [grosze_ceny_jednostkowej] /100)))
Jak widzę występujące w tabeli "liczby" właściwie nie są liczbami bo są przechowywane jako text, wystarczy je przekonwertować na liczbę i wszystko liczy tak jak powinno. opis jak się tego pozbyc: Poszczególne komórki 1. W menu Narzędzia kliknij polecenie Opcje, a następnie kliknij kartę Sprawdzanie błędów. 2. Upewnij się, że pola Włącz sprawdzanie błędów...
Można też pozostawić po liczbie spację, a dopiero potem dodać /A i wtedy przez przeciągnięcie można komórki ponumerować. Później ewentualnie można hurtem te spacje usunąć przez zamianę spacji na tekst pusty. W tym wariancie fragment /A jest częścią zawartości komórki i można w innej komórce zrobić do niego odwołanie. Wariant zaproponowany wcześniej...
Jeśli chodzi o te dwa minusy, to służą one do zamiany wartości pseudotekstowej czasu "6:0" na liczbę (w tym przypadku 0,25). Natomiast co do funkcji MAKS.WARUNKÓW byłem przekonany, że ona już była dostępna w Excelu 2016, ale widzę, że jest dopiero w w wersji 2019. To trzeba poszukać jakiegoś rozwiązania zastępczego. Zamiast MAKS.WARUNKÓW możesz użyć:...
kiedyś trzeba się czegoś nowego nauczyć Powinieneś na początku poczytać trochę i poćwiczyć tzw. Conversion Functions - podstawowe źródło - pomoc VBA :idea: i nauczyć się deklarować na początku swego kodu typy danych dla wszystkich używanych zmiennych :!: Przygotuj swój przykładowy plik, skompresuj do zip lub rar i załącz go do swego postu. Masz wtedy...
Najprostsze funkcje odnośnie dat: [syntax=vbnet] dim data as date = "2016-02-01" month(data) zwraca 02 day(data) zwraca 01 year(data) zwraca 2016 data.adddays(1) -dodaje jeden dzien do daty uwzglednia zmiane miesiaca, czyli gdy dzien jest 31 to zwroci kolejny miesiac i 1 data.adddays(-1) zwraca poprzedni dzien podobnie działa addmonth i addyear dzień...
To co opisujesz właśnie nazywa się zaokrągleniem w dół, czyli masz problem natury psychologicznej - chcesz ale nie chcesz. :D =zaokr.dół(A1;2)
W polskiej wersji daj średnik zamiast przecinka.
Ile cyfr, czy ile liczb? W temacie podajesz cyfry, w treści liczby. Jeżeli liczby, to: [syntax=vbscript]Function IleLiczb(Komorka As String) As Integer IleLiczb = UBound(Split(Komorka, ",")) + 1 End Function [/syntax] Jeżeli cyfry, to: [syntax=vbscript]Function IleCyfr(Komorka As String) As Integer i = Len(Komorka) For x = 1 To i a = Asc(Mid(Komorka,...
Witaj. Moja propozycja w załączniku, żeby nie komplikować to Bx-Ax+1 powinno być rozwiązaniem problemu (plus formatowanie ogólne wyniku).
A czy nie prościej byłoby rozbić ciąg Split'em wg spacji? Powstanie 5-cio elementowa tablica, gdzie druga i czwarta wartość to nasze liczby...
To wtedy raczej dla xlsm, bo xls ma ograniczenie do 255 kolumn... Tu masz makro które możesz sobie dostosować zmieniając tylko parametr ilości liczb (kolumn).
Może tak: =SUMA(Tabela2[(at)[I]... andie
Czy to ma być coś takiego jak w załączniku? Uruchom makro Suma1000. Oczywiście dodatki musisz sobie dopisać. :cry:
Najprościej jednak makrem: Edit 11:22 zmieniłem załącznik (byczek się wkradł)
Mnożenie każdej komórki z kolumny koszty zwraca mi błąd (zapętlanie). Ale co mnożysz? Na pewno nie należy wprowadzać do danej komórki odwołania do tej samej komórki Chcę, aby w tej kolumnie wszystkie wprowadzone liczby były wartościami ujemnymi. To albo wprowadzaj je z minusem "na przedzie" (np. -235) przy zwykłym formatowaniu lub bez minusa (np. 235)...
może przykładowy plik trochę rozjaśni sytuację Z podkreśleniem tego trochę :D Jeśli w arkuszu CT umieścisz makro typu: 1022670 Zwracam uwagę na zmienne l i kol, których wartość została przyjęta dla Twojego xxxx - owego przykładu :cry: i które muszą być dostosowane do wartości rzeczywistych w pliku roboczym.
zrobione :)
Witam. Jeśli dobrze rozumie: (wersja Excel2007 lub wyższy)
Najprościej wykorzystać funkcję ZNAJDŹ. http://obrazki.elektroda.pl/9588186300_1... w B1 =LEWY(A1;ZNAJDŹ("x";A1)-1) w C1 =FRAGMENT.TEKSTU(A1;ZNAJDŹ("x";A1)+1;255... i pomnożyć...
Użyj dodatku Solver.
załóżmy suma dwóch liczb zespolonych i szukanie minimum zmieniając wartość jednej liczby (zmiennej Dla sumy minimum lub maksymum możliwe jeśli zmienna ma pewne granice. Czy masz wszelki prawdziwy funkcja? Dodano po 55 MODUŁ.LICZBY.ZESP - nie wiem, czy bedzie to maksymum(logicznie tak) z tym Solver dziala, poniewaz to ma typ rzeczywisty
Spróbuj przerzucić przez zmienną pomocniczą zadeklarowaną jako liczba.
Dane->sprawdzanie poprawności->kryteria poprawności ->pełna liczba
Jeśli podasz liczbę jako tekst, to nie zmieni jej na inny zapis. Przed liczbą wpisz apostrof.
Dzień dobry, Propozycja rozwiązania w załączniku. Wynik jest w dwóch wariantach: w arkuszu DATY w kol. E tzw. megaformuły (dla tych co nie lubią używać nazw), w kol. P formuła z użyciem nazw (patrz Menedżer formuł). Preferuję ten drugi wariant, jako bardziej czytelny. W proponowanym rozwiązaniu nie uwzględniłem "aktualnego miesiąca", bo to dodatkowa...
Dzień dobry, Jeśli można się włączyć do dyskusji, jeśli dane są takie jak w ostatnim przykładzie, to wydaje mi się, że dodawanie przecinków jest zbędne i cała procedura może się obejść bez kolumn pomocniczych. Funkcja USUŃ.ZBĘDNE.ODSTĘPY potrzebna jeśli mogą się gdzieś pojawić dodatkowe spacje. Formuła końcowa byłaby formułą tablicową (Ctrl+Shift+Enter)....
No to tak: [syntax=vbscript]Sub petla() Dim k&, i& For k = 1 To Cells(Rows.Count, "B").End(xlUp).Row If Cells(k, 2).Value Like "Symb." Then i = i + 1 Cells(k, 2).Offset(0, -1).Value = i End If Next k End Sub[/syntax]
https://obrazki.elektroda.pl/7553720600_... Nie wiem co robisz nie tak ale u mnie zadziałało prawidłowo dla różnych wielkości nawet wielocyfrowych. Ps. Zmieniałem tylko pierwsze cyfry procenty nie ruszałem.
Może najpierw "wydłubać" ten fragment zwykłymi formułami i w następnej kolejności brać się za kopiowanie. A gdzie chcesz je (wartości) kopiować?
Ja też powiem że pierwszy sposób podany przez kolegę leonova jest odpowiedni i wystarczy tylko go lekko zmodyfikować a będzie działać, bez względu na powtarzalność liczb w tabeli. Po pierwsze należy zrozumie jak działa funkcja min.k(A;K) Układa zbiór A od najmniejszej liczby do największej i podaje liczbę która jest na K-tym miejscu w kolejności. Czyli:...
W załączniku masz formułę. Jest to Suma.Jeżeli(). Co do kolorków liczb ujemnych to najprostszym jest formatowanie komórek. Masz do wyboru format w jakim liczby będą wyświetlane.
Jeśli mamy np. liczbę 124 dzielimy ją modulo 10 czyli mamy 124 mod 10 = 4. Następnie uzyskujemy część całkowitą z dzielenia przez 10 czyli 124 div 10 = 12. Teraz dzielimy 12 mod 10 = 2 i uzyskujemy cześć całkowita 12 div 10 = 1. Niestety nie mam excela więc funkcje uzyskiwania części całkowitej i reszty z dzielenia musisz sam znaleźć
1. skopiować wszystkie kolumny w jednym (jeden pod drugim) 2. sortowania tej kolumny 3. obok formula (np =E2-E1) przeciagnij w dol 4. Filter po kolumnie E (=1) Dodano po 12 liepsza formula(począwszy od drugiego wiersza) =LUB(E2-E1=1; E3-E2=1) Filter po PRAWDA
Pobaw się z Solver - em. Powinien dać radę.
Przygotowałem Ci formułę dla dwóch początkowych wariantów, wpisz to do komórki, gdzie obliczana jest suma : =(JEŻELI(G14="X";90;0))+(JEŻELI(I14="X";... Kolejne warianty dodasz dokładnie tak samo.
Można tak na przykład - bardzo sobie utrudniasz życie wprowadzając to rozbite w komórkach, datę i czas rozpoczęcia a także wynik zakończenia można uzyskać w pojedynczej komórce sformatowany jako RRRR-MM-DD HH:MM na przykład.
Nie ma takiej funkcji. Musisz zastosować makro np takie: Sub dodaj() a = 1 'pierwszy wiersz /zmien na 2 jesli od 2 wiersza itd 'liczy ile wierszy w kolumnie b = ActiveSheet.UsedRange.Rows.Count For wiersz = a To b suma = Cells(wiersz, 1) + Cells(wiersz, 2) - Cells(wiersz, 3) Cells(wiersz, 1) = suma Next wiersz...
Na przykładzie kolegi Naxina.
Jednej nie znam, ale kombinacja trzech działa. :D [syntax=vbnet]=JEŻELI(MOD(A1;10)<8;LI... Przetestuj.
Przed sortowania musisz zastąpić formułę na wartość, ponieważ funkcja LOS() zawsze daje nową wartość w obliczeniach
Efekt taki jak na zrzucie: 917258 możesz uzyskać dzięki zastosowaniu funkcji RANDBETWEEN() oraz dodatkowej formuły jak na zrzucie. Musisz jednak mieć świadomość, że wszystkie wartości losowe mają charakter ulotny - zmieniają się po każdym przeliczeniu arkusza :idea: Przykładowy plik w załączeniu 917260
Wyszukujemy, czy w kolumnie A znajdują się wartości zawarte w kolumnie B i w kolumnie C zapisujemy je: [syntax=vb]Sub PorownajAiB() ow = Cells(Rows.Count, "A").End(xlUp).Row owb = Cells(Rows.Count, "B").End(xlUp).Row y = 1 For x = 1 To ow s = Cells(x, 1) If Application.CountIf(Range(Cells(1, 2), Cells(owb, 2)), s) > 0 Then Cells(y, 3) = s y = y + 1...
Odpowiedź pozostaje ta sama. Liczby nie muszą być po kolei, RANDBETWEEN losujesz tylko numer wiersza w kolumnie A. Jeżeli umieścisz w niej te czasy, spośród których chcesz losować, to będziesz de facto "losował" czasy.
A faktycznie. Problem w tym, że w Excelu 1 to niedziela. Może wykorzystać funkcję WYBIERZ? Składnia DZIEŃ.TYG(liczba_kolejna;zwracany_ty... Zwracany_typ Liczba zwracana przez funkcję 1 lub jest pominięty Liczby od 1 (niedziela) do 7 (sobota). Zachowuje się jak poprzednie wersje programu Microsoft Excel. 2 Liczby od 1 (poniedziałek)...
Jedynka za średnikiem oznacza zaokrąglenie do jednego miejsca po przecinku.
No to trzeba było od razu... Najprościej (znooowuuu) zbić string z dwóch (lub więcej - aż do uzyskania unikatów) kolumn. W przykładzie (dostosuj do swoich danych) D, wykrzyknik i C zapisywane w kolumnie K.[syntax=vb]Sub SortE() Dim wrsOst As Long Dim rw As Long Dim lista() As Variant Dim poz As Integer Dim i As Long, j As Long Dim ile As Integer Dim...
Spróbuj w G1 wpisać =COUNTIF(A1:F1,$B$24)+COUNTIF(A1:F1,$C$2... dla 6 liczb i skopiuj (przeciągnij) w dół. Edit: Poprawiłem: w G1 oczywiście, nie w G3.
Jak pisze kolega zimon wylosowanie jednej liczby z wielu jest dosyć proste. Ale jeżeli chcesz "wymieszać", to dla Excela znaczy, że chcesz wylosować 1000 z 1000 bez zdublowania. Musisz podzielić to na etapy, wykorzystać kilka funkcji w tym WYSZUKAJ.PIONOWO i dlatego dane muszą zostać ułożone we właściwy sposób. W moim przykładzie użyjemy trzech kolumn....
[syntax=vbscript]q = Formularz.ComboBox_jako a = Val(Mid(q, InStr(1, q, "=") + 1)) Range("I" & Cells(Rows.Count, "I").End(xlUp).Row + 1) = a [/syntax]
Sposób reakcji Excela i VBA na różne sytuacje nietypowe różni się w szczegółach, wynika to częściowo z innych koncepcji, częściowo z tego, że VBA operuje na wersji angielskiej, a użytkownikowi ma wyświetlać wersję zlokalizowaną (narodową). Niestety to przechodzenie między wersjami nie zawsze jest do końca dopracowane. Poza tym twórcy Excela mają manierę...
Witam W razie gdyby była różna ilość liter i cyfr to w załączniku jest plik z działającymi formułami dokładnie tak jak potrzebujesz. Pozdrawiam [url=http://www.elektroda.pl/rtvforum/fi... Excel do wyodrębniania liczb z ciągów znaków i przestawiania ich kolejności z literami [url=http://office.microsoft.com/pl-pl/e...
Zaznacz wszystko (Ctrl+A ) i zamień (Ctrl+H ) . Jeżeli ten tekst nie jest w komórkach to zaczyna być kłopot. Jeżeli te "okienka" to formant formularza to wyłącznie pisanie makra lub ręczna zmiana. Jeżeli to formant ActiveX to zaznacz wszystkie okienka z tym tekstem (pomocne jest włączenie okienka zaznaczania (na wstążce "znajdź i zaznacz a tam okno...
Ja bym to zrobił prostym makro: [syntax=vbnet]Function LX(co As String, gdzie As String) As Integer Dim x, c As Integer c = 0 If Len(co) > Len(gdzie) Then LX = 0 Exit Function End If For x = 1 To (Len(gdzie) - Len(co) + 1) If (Mid(gdzie, x, Len(co)) = co) Then c = c + 1 Next x LX = c End Function [/syntax] W arkuszu udostępniona jest nowa funkcja LX,...
Funkcja wbudowana =LICZ.JEŻELI() nadaje się do tego idealnie
W excelu jak już to (tak jak wspomniał kolega tzok) tylko za pomoca makra. Poza tym przy 100 zmiennych będzie bodajże 10.000 kombinacji. (Przy 5 jest 25) Poniżej przykład dla szukania sumy dla 5 liczb. W załączeniu arkusz z działajacym makrem. Sub psum() Dim tabela(5) As Double Range("G:G").Clear... For a =...
Załącz plik z przykładowymi danymi i wyjaśnij o co dokładnie chodzi. Excel odróżnia liczby od tekstów i nie można tym tak swobodnie manipulować. Ważne jest też co jest separatorem dziesiętnym w wersji Excela, której używasz (kropka czy przecinek). Wydaje się, że robisz coś dziwnego i pewnie można to zrobić inaczej, tylko trzeba wiedzieć jaki jest ostateczny...
excel liczba liczba pierwsza pascal generator liczba pierwsza
termostat weller pasek pralka spada radio concert
mazda wypadanie zapłonu mazda wypadanie zapłonu
Ciśnienie wstępne w naczyniu przeponowym dla pieca węglowego 10kW Charakterystyka pracy pompy Wita Aqua Delta 2