aaa.. Formuła nie może działać w tej samej komórce Można podzielić 1 kolumne na inne dwie - przed 'w' i po 'w' zmienić jednu kolumnu tylko makrem [syntax=vb]Sub kokos() Dim c As Range Set c = Cells(1, 1) While c <> "" p = Application.WorksheetFunction.Search("w"... c) c.Offset(, 1) = Mid(c, p) c = Left(c, p - 1) Set c = c.Offset(1) Wend End Sub...
Użyj funkcji [url=http://office.microsoft.com/pl-pl/e... i wytnij z jej wyniku nazwę arkusza.
Otwórz w Access tabele do której chcesz wkleić dane, ctrl +a, ctrl+c, otwórz excel nowy arkusz ctrl+v, wytnij wszystkie wiersze oprócz nagłówków kolumn (pierwszy wiersz) , edytuj dane dodawaj, zmieniaj co chcesz, kolumnę id pozostaw pusta. Gdy skończysz zaznacz i skopiuj arkusz, w Access zaznacz ostatni wiersz w tabeli i ctrl+v, jeśli typy danych itd...
Da się to zrobić w ten sposób: 1. wpisać dane kwota netto w kilka wierszy np od 2 do 5, 2. przeciągnąć formułę przeliczenia euro od wiersza 2 poza wiersz 5 o kilka (np 5) wierszy w dół. w miejscach gdzie nie było w wierszach danych kwot netto w kolumnie przeliczników pojawi się 0. 3. zaznaczyć obszar komórek z zerami i nacisnąć "del", nie poprzez usuń...
Cóż, być może w ten sposób Edit: nowy plik
Drodzy koledzy, bardzo proszę o pomoc. Mam w jednej komórce (A1) tekst ciągiem: Data urodzenia: 1980-01-01; Płeć: MĘŻCZYZNA ; Imię matki: KARINA; Nazwisko rodowe matki: BUK; Imię ojca: SEBASTIAN; Nazwisko: NOWAK; Miejsce urodzenia: KRAKÓW; PESEL: 80010112345 ; Potrzebuję z tego wyciągnąć: Do komórki B1: MĘZCZYZNA Do komórki C1: KARINA Do komórki D1:...
Wtedy [syntax=vbnet]Sub doZera() ow = Cells(Rows.Count, "E").End(xlUp).Row For r = 2 To ow If Cells(r, "E") <> Empty Then If Application.CountIf(Range("E:E"), Cells(r, "E")) = 2 Then rd = Application.Match(Cells(r, "E"), Range("E" & r + 1 & ":E" & ow), 0) + r If Application.Sum(Cells(r, "D"), Cells(rd, "D")) = 0 Then rz = Sheets("zero").Cells(Rows.Count,...
Wszystko masz podane. Z tym, że Excel liczy kąty w radianach i trzeba przeliczyć na stopnie. Liczysz to Np =SIN(liczba * PI()/180). Dalej już z górki. Dzielisz trójkąt na połowę i masz dwa trójkąty prostokątne o kątach 90, 54 i 180-(90+54). Przeciwprostokątne znasz. Wybieramy sobie jeden Np 54st. Cytat z wiki w trójkącie prostokątnym przyprostokątna...
Chyba wiem o co chodzi... Zaznacz B3 i wytnij ją przez (ctrl+x), następnie wklej ją (ctrl+v) w miejsce gdzie masz swój jakiś programik (najlepiej w sąsiednim Arkuszu) i tam będzie wpisywana twoja kwota cyframi. Teraz K10 lub K11 - najlepiej kopiuj (ctrl+c) lub wytnij i wklej w miejsce, gdzie chcesz mieć kwotę słownie. Powinno działać. Problem polegał,...
Świadomej złośliwości i wyłączenia opcji nie zakładam jeśli działanie po zmianach nie wpłynie bardzo na utrudnienie użytkowania pliku. Dlatego najlepszym w moim mniemaniu rozwiązaniem było by stałe przypisanie zamiast opcji wklej funki wklej jako wartości, a opcji wytnij jako kopiuj... - tylko nie wiem czy jest to realne i żeby wszystkie elementy miały...
Wytnij kod od If do End If (resztę usuń) i wklej do modułu standardowego między znaczniki Sub/End Sub. Możesz wykorzystać skrót klawiaturowy, lub podpiąć do przycisku umieszczonego w arkuszu.
tak dobrze? Tak dobrze. :arrow: alexw200 Wytnij makro, wklej do nowego pliku, ew. dopisz wł/wył odświeżania - będzie ciut szybciej W innych wersjach językowych nie są wyświetlane nazwy kodowe arkuszy (cyrylica w oryginale, krzaczki m.in. w polskim). Stąd problemy.
Dzień dobry, Mam duży problem. W kolumnie A mam około 2000 nazw pełnych w kolumnie B mam nazwy skrócone około 1500 (przykładowa nazwa pełna: S.C. Bitpol Jerzy Kowalski nazwa skrócona: Bitpol). Potrzebne mi makro które by przyporządkowało w kolumnie C nazwę skróconą z kolumny B do nazwy pełnej z kolumny A. Czy jest takie makro, które pomogło by mi to...
Jestem pod wrażeniem pięknej symulacji, którą zrobiłeś w Excelu. A tak na marginesie dodam, że jesteś chyba moim jedynym ratunkiem. Liczę na Twoją cierpliwość i wyrozumiałość. W załączniku przygotowałem plik, który będzie tym ostatecznym. Zmieniły się tylko miejsca komórek, w których pojawiać się będą liczby (F5:F30 oraz H5:H30). Po namyśle doszedłem...
No mogę to zrobić na zasadzie "kopiuj wklej wytnij" Czy to wystarczy?
możesz użyć sheets(25) w komórce ta nazwa jest dane(spacja)październik(spacja)2014 bo to jest ważne by wyciąć tekst
Właśnie wróciłem z ogrodu (burza), przyjrzałem się formułom i usunąłem mój załącznik. Najlepiej zostać jednak przy polach wyboru. Możesz zrobić tabelkę od nowa w nowym arkuszu lub próbować usunąć nadmiar checkbox'ów makrem Sub wywal() On Error Resume Next For i = Sheets("Arkusz1").Shap... To 100 Step -1 Shapes(i).Delete...
Bo nie ma takiej formuły. Do konkatenacji ciągów tekstowych jest odpowiednia funkcja, której nazwy nie pamiętam - poszukaj jej w pomocy. Podobnie konieczna może się zmiana wartości liczbowych (z tej inkrementowanej komórki) na tekst. W pozostałych przechowuj jako tekst (inaczej wiodące zera zostaną wycięte).
GetOpenFilename zwraca całego 'patha' musisz wyciąć samą nazwę.
Przebieg trójkątny rozkłada się na harmoniczne f(t) = \frac{8*A}{\Pi^2}*(sin \omega t - \frac{1}{9} sin 3\omega t + \frac{1}{25} sin 5\omega t - \frac{1}{49} sin 7 \omega t ... A - amplituda przebiegu sumujesz nieparzyste harmoniczne (1,3,5 .... amplitudy są na przemian dodatnia, ujemna, dodatnia ,.... amplitudy maleją z kwadratem numeru harmonicznej...
Z braku znaku nowej linii ostatnia linia się nie poprawiła. Reszta jest jak powinna. Jesteś pewien, że zaznaczyłeś "Regular expression" na dole ? Poza tym excel 2007 nie powinien mieć z tym problemów (chyba, że o czymś nie wiem), nawet jak wkleisz swój plik do akusza google (ctrl+c/v) to jak klikniesz na tą ikonkę co się po wklejaniu pojawia i dasz...
Excel zapis 1/1 może zrozumieć jako: styczeń 2001. Wydaje mi się, że tu należy szukać problemu. Możliwe, że zaplątała się gdzieś spacja lub tym podobne. Najlepiej wrzuć załącznik na forum (wytnij tylko ten interesujący nas fragment, zapisz w nowym pliku i podaj jako załącznik bez prowizji).
Wie ktoś może z czym problem ? Wysiadła mi bateria w magicznej kuli :cry: - więc na podstawie tak wyciętego obrazka i bez pliku trudno zgadnąć :cunning:
Nie, nie. Nie wszystko jest tak jak myślisz. Z datą Dżyszla podpowiedział Ci zgodnie z Twoim założeniem: jeśli wpiszę w określoną komórkę cyfrę "2" to chciałbym aby następnego dnia pokazała sie cyfra "3" Dokładasz tylko na końcu formułki liczącej ilość dni "+ 2" i liczy jak wyżej. Problem jest z: A w innym arkuszu zrobisz funkcję warunkową... i polega...
Czyli jednak współczesne procesory mocno odbiegają, nawet te 4-rdzeniowe, już nie mówię o tych co mają po 6 i więcej. No ale pytanie czy to się przekłada na biuro/internet? Czy taki Ryzen 3600 się nudzi jak jest odpalone ileś zakładek, programy itd? Np jak robię prezentacje Power Point to mam 2 dokumenty otwarte bo też inną prezentację, żeby porównywać...
Kurka ale fake - dopiero teraz dotarło do mnie, że piszesz o Office 2000 a nie 2010:) hahaha Wieczorem zerknę na to co mi podesłałeś. Może coś mi przyjdzie do głowy. Ale szczerze muszę powiedzieć, że DALEKO mi do biegłej znajomości VBA. Stąd być może problem który pojawił się u Ciebie. Niestety nie mam jak tego sprawdzić, bo jedyną znaną mi kopię 2000...
Witam, Posiadam w pracy pewien program zakładowy do którego muszę wklepywać numery zamówień. Jest to trochę męczące zajęcie, ponieważ na dzień mam 150 pozycji do wpisania a właściwie przepisania z arkusza w excelu. Każdy numer muszę przepisac lub wkleić osobno. Każdy numer zamówienia mam w osobnym wierszu, dlatego po kolei kopiuje sobie komórkę i wklejam...
Bardziej wycięte komórki, kodów generalnie jest 99999. :) Naprzemiennych zakresów ok 4000, dla około 30 różnych wyników.
Witaj, Pojedyncza prosta funkcja nie zadziała, ale można złożyć kilka funkcji, aby osiągnąć cel. i tak na przykład jeśli z alamakota*wp.pl chcesz zostawic samo *wp.pl - musisz poszukać pozycji interesującego Cię znaku (w tym przypadku *, funkcja SZUKAJ.TEKST), poznać długość całego tekstu (funkcja DŁ) oraz wyciąć sobie kawałek z prawej strony (funkcja...
Witaj. Może być. Nie do końca zobrazowałem sobie, jak Kolega dokładnie chce to robić, ale wydaje mi się, że odpowiednie makro powinno załatwić sprawę. Za pomocą makro możliwe jest śledzenie zmian w arkuszu, możliwe jest też wykonywanie dowolnych czynności (jak choćby kopiuj/wytnij/wklej/usuń) na wierszach.
Witam Tak dobrze? Potencjalnie może być tutaj błąd. Jeśli numer będzie zawierał zera, zostaną one również wycięte. Przykładowo: *110001+0000000000000105 da wynik 15 zamiast prawidłowego 105.
Przenoszenie danych może zniszczyć wzajemne zależności. Jeśli jednak "wytniesz" zakres komórek i "wkleisz" je w inne miejsce, to formuły powinny się automatycznie zaktualizować. Jeśli w arkuszu działają makra, to trzeba uważać, bo one działają według wcześniej określonych reguł i odwołują się do konkretnych komórek - operacje kopiuj/wklej/wytnij nie...
Ja bez problemu na 2003 otwieram z wyłączeniem makr. Ale przyznam, że nie wiem o co chodzi - kod wygląda ok. :| Masz w zał. z wyciętymi makrami. Którykolwiek moduł sie pozostawiło, to wieszał.
Użyj SUMA.WARUNKÓW natomiast co do różnych wariantów produktów to musisz je sprowadzić do wspólnego mianownika np. poprzez kolumnę pomocniczą, która na przykład wytnie wszystko z nazwy produktu za drugą spacją i to właśnie po tej kolumnie używasz warunku
Co do twojego kodu, .Range/.Cells - odwołuje się do aktywnego arkusza? Chodzi mi o te kropki na początku. Nie, odwołuje się do obiektu - w tym wypadku arkusza - użytego w otaczającej klauzuli With... To taki skrótowiec, którzy przed kropką wstawia to, co jest w With, czyli zamiast powtarzać: Przy próbie tworzenia kolejnego arkusza wywala błąd 1004...
Jest możliwe. Do znalezienia spacji poczytaj o poleceniu InStr, do wycięcia części tekstu z lewej polecenie Left, z prawej Right, ze środka Mid w VBA.
Voila! Wyciąłem dane (RODO), formatowanie ustawiłem na komórce E1, następnie skopiowałem malarzem formatów. Dla przypomnienia - cel: jeżeli komórka Ex < Dx to Ex ma zmienić kolor fontów na czerwony. Z góry dziękuję.
Przyznam że miło się pobawić tym co zrobiłem. :) takie samouwielnie :). Może tylko dla wyjaśnienia jak działa: ustawia cięcia od największego do najmniejszego. "Bieże pierwszy profil "tnie" najdłuższy i szuka dalej od kolejnych największych do najmniejszych. Jeżeli znajdzie taki który się jeszcze zmieści to tnie i szuka dalej jak nie to pozostaje odpad....
Już mi raz moderator to wyciął, ale zaryzykuję: NIE MA programu o nazwie Exel. Używanie niepoprawnej nazwy programu z dużym prawdopodobieństwem wskazuje na intensywność samodzielnego poznawania jego możliwości.
Zaproponuję taki kod: [syntax=vb]Sub Wytnij() Sheets("Arkusz1").Select For x = 1 To Sheets("Arkusz1").Cells(Rows.Count, "C").End(xlUp).Row jest = Application.CountIf(Sheets("Arkusz2").Ra... Cells(x, 3)) If jest > 0 Then Rows(x).Delete: x = x - 1 Next End Sub [/syntax] Pomyliłem się. Autor chce, żeby kasował, gdy nie znajdzie, a więc: [syntax=vb]Sub...
Chciałbym usunąć przecinek ze spacją na końcu No to musisz je wyciąć :D Np po Loop wstaw [syntax=vbscript]b = Left(b, Len(b) - 2)[/syntax] :spoko:
Witam Robię właśnie coś podobnego i zastanawia mnie pewna nieścisłość, kolega który założył ten temat pisze że steruje wartością skuteczną napięcia, w obliczeniach jednak uzależnił liniowo wartośc średnią od czasu(korzysta ze wzoru na watośc średnią półokresową) ale znowu pod całką wstawia nie wiem skąd ale watość 361V jako amplitude zamiast 230*1,41(chyba...
Przesyłam w załączeniu plik. Dane na czerwono powinny zostać skopiowane lub nawet wycięte i skopiowane z kolumny A do C i tak do końca wiersza. Oczywiście trzeba pamiętać o tym, że niektóre wiersze są całkowicie puste.
Może ktoś z was ma pomysł jak to ugryźć. W przesłanym pliku widać wyraźną strukturę danych: numer rekordu, imię i nazwisko, zatrudnienie, edukacja itd. Jeśli ta modyfikacja jest potrzebna jednorazowo dla kilkunastu rekordów danych to najszybciej można ją zrobić metodą wytnij-wklej :D Dla kilkuset rekordów czy przy stałej potrzebie modyfikacji takich...
Dylus1 Coś w ten deseń tylko ja nie do końca to rozumiem:/ Niżej jest mój plik, wyciąłem niepotrzebne dane żeby ,mnie ważył, pierwsze 337 wierszy jest już wypełnione. Ah nie zauważyłem, że nie dodało, spakowałem rarem *.xlsx jest nie dozwolone
wartości, ale chodzi mi oto że tekst w A1 żeby skopiowało do C1 a później żeby A1 było czyste, czyli tak jak w wordzie zaznaczam teksty daje wytnij, wybieram nowe miejsce i daje wklej. Ale gdybyś opisał oba przykłady na pewno by nie zaszkodziło, bo może ktoś kiedyś będzie chciał skopiować komórkę wraz z formatem i tu by miał rozwiązanie i żeby to jeszcze...
Dzień dobry potrzebuje takiego makra (3 pliki załączone) pewnie jakieś pętle będą potrzebne 1. kliknij w START w pliku Start.xlsm 2. Otwórz pliki Raport skrócony.xlsx i raport_roznic_vat_i_pogrupowan.xlsx 3. w pliku raport_roznic_vat_i_pogrupowan.xlsx od arkusza 3 w tym wypadku Immomok Sp. z o. o. do ostatniego arkusza (co miesiąc może być inna liczba)...
Witam, Stworzyłem spory arkusz w google excel do zarządzania produkcją. Utknąłem jednak w jednym miejscu i chyba bez VBA się nie obejdzie. Nie znam się na VBA, więc szukam pomocy nawet odpłatnej, aby problem jak najszybciej rozwiązać. Pokrótce powiem o co chodzi. Jest pierwszy arkusz, w którym wpisywane są zamówienia od klientów (dane typu, kto zamawia,...
50 razy otwieram ten sam plik i non stop mam komunikaty o naprawie czegoś. Boję się że za którymś razem nie otworzę i stracę pracę. Pytanie 1: jak temu zaradzić ? Pytanie 2: jak samemu naprawić ? Nie wiem w którym miejscu mam coś wyciąć lub naprawić. Być może jedna drobna rzecz mi szwankuje ktorą mogę wyciąć lub zamienić na zwykły tekst – tylko nie...
No więc tak: 1. Są 3 wartości w tabelce: - B1 - pusta - B2 - data - B3 - wartość Makro miałoby wyciąć B2 i wkleić do B1, wyciąć B3 i wkleić do B2, i wtedy komórka B3 zostaje pusta, więc ją można usunąć. 2. Tam gdzie są 2 wartości makro nie ma nic do roboty, bo nie ma pustej komórki która mi przeszkadza 3. Analogicznie do 1 przykładu 4. Makro musi przewidzieć...
usuń wytnij blokada wytnij makro wytnij
zawór grzejnika dolny cieknie sterować wtryskiwacz tester regulacja barwy dźwięku schemat
samsung le32s81 podświetlenie samsung le32s81 podświetlenie
SEAT Cordoba Aura Alana Lena – ręczne strojenie radia FM/AM, zapis stacji, ustawienia regionu Kombinacje kodu PIN z dwoma identycznymi cyframi