=WARTOŚĆ.LICZBOWA(PODSTAW(A1;"PLN";"");"...
A jak wpiszesz =F3*24 i dasz format liczbowy komórki to nie działa?
Twórcy Excela mają obsesję zamieniania wszystkiego, co może przypominać datę, na tę datę właśnie. I niestety nie znam sposobu jak to wyłączyć. Kluczem jest tu format daty ustawiony w systemie operacyjnym w ustawieniach regionalnych, bo z niego Excel odczytuje domyślny format daty. W Windows 10 PL przyjęto jako domyślny, format daty z kropkami dd.mm.rrrr...
[syntax=text]=JEŻELI(CZY.BŁĄD(INDEKS($A$... WIERSZ(A2)-WIERSZ($A$1)+1)));"";INDEKS($... WIERSZ(A2)-WIERSZ($A$1)+1)))[/syntax]
Dla Twojego konkretnego przypadku[syntax=vb]Sub podzial() Dim bs As Worksheet, bd As Worksheet Dim r&, c&, p%, k% Set bs = ActiveSheet Set bd = Sheets.Add(after:=bs) For r = 1 To Application.CountA(bs.Columns(1)) x = bs.Cells(r, 1) k = 0 For c = 1 To 7 p = k + 1 k = InStr(p, x, " ") bd.Cells(r, c) = Mid(x, p, k - p) Next p = InStr(k, x, ",") + 3 bd.Cells(r,...
ad 1. Można wykorzystać następujący kod dla zdarzenia Worksheet_Change arkusza: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 12 And (Cells(Target.Row, Target.Column).Offset(, -1).Value + Cells(Target.Row, Target.Column).Offset(, -2).Value = 0) Then Target.Value = 0 End If End Sub[/syntax] ad 2. Wystarczy poprawność...
[syntax=vb] Sub Link() Dim x As Long, Adres As String x = 1 While Cells(x, 1) <> "" Adres = Cells(x, 1) Cells(x, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "http://www." & Adres, TextToDisplay:=Adres x = x + 1 Wend End Sub [/syntax]
Ad.2. =InnyPlik.xls!$A$1 Pobaw się w/w, bo jakoś nie do końca zrozumiałem.;)
Proszę bardzo prosty kod w makro. Zmodyfikowałem troszkę nagrane makro - Zamień (Ctrl+H) z uwzględnieniem wielkości liter. Sub Makro1() For x = 1 To 18 Selection.Replace What:=Cells(x + 1, 1).Value, Replacement:=Cells(x + 1, 2).Value, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False,...
Jedyne co przychodzi mi do głowy to makro z wykorzystaniem kolumny z prawidłowymi nazwami. W przykładzie zamiana polskich liter, porównanie, podstawienie. Trochę długo trwa, należałoby pewnie dopracować, ale działa (w arkuszu autora). Sub zamien() Dim i As Long, kom As Range, tekst As String For i = 2 To Range("B65536").End...
Zakładam, że ta tabela TCOne będzie się rozrastała i zmieniała :D , więc proponuję ewentualnie się od niej uniezależnić i poprzez "nazwane funkcje" uprościć tą formułę przeciąganą w kolumnie A :idea: - tak jak na zrzucie :spoko: 1045128 Zmiana oznaczeń (XXX - AAA itd.) można zrealizować poprzez zagnieżdżenie formuły JEŻELI() - 1045149
W VB używamy przecinka. Np Range("A1:A1200,B5:B10&...
[syntax=vb]Sub q() Application.ScreenUpdating = False Application.Calculation = xlManual Sheets("1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row For X = 2 To ow i = Cells(X, 2) y = 0 While Cells(X + y, 2) = i y = y + 1 Wend y = y - 1 k = 5 Cells(X, 4) = Cells(X, 2) For Z = X To X + y Cells(X, k) = Cells(Z, 3) k = k + 1 Next X = X + y Next Application.Calculation...
Funkcją replace usuwasz najpierw "spację" na końcu. Potem usuwasz przecinki. Masz liczby całkowite. Formułą dzielisz je przez 100 i w sąsiedniej komórce masz to, co chcesz.
To ten plik.
Skąd mamy wiedzieć w jakim formacie są dane przed wykonaniem makra !? Naprawdę tak trudno dołączyć plik Excela ? W makrze zamieniasz zaznaczone dane na format liczbowy z separatorem tysięcy i dwoma znakami po przecinku, próbowałaś to wyłączyć ? Na zrzucie widać, że kolumna "Data zamówienia" zawiera wartości daty ale w formacie liczbowym, nie wystarczy...
Excel umie importować takie rzeczy. Potem obliczenia to pikuś :wink:
Witam. Nie potrafię sobie poradzić z zamianą wartości w komórce, jeżeli ta wartość jest wynikiem formuły. Nie pomaga nawet przekopiowanie tejże wartości do innej komórki i wklejenie samej wartości. Dokonując zmany popzez ctr+f "zamień" nic się nie dzieje poza pogrubieniem trzcionki. Dodam, że próbuję wspomnianą wartość zamienić na pustą komórkę. ( Nie...
Kilka pytań: Czy zamiana będzie tylko w kolumnie A? Czy zawsze wszystkie znaczniki kwartału w jednym pliku są takie same? W pozostałych plikach przetwarzanych równocześnie też? Co dokładnie ma się stać w sytuacji nowego roku? to będzie tylko jeśli cyfra po ukośniku będzie 8? Rok ma się też wtedy zwiększyć o jeden? andie
Pewnie CP-1250 otwarte jako CP-1252. Polecam zacząć od instrukcji obsługi programu, którego używasz.
Trzeba dołożyć kolumnę z datami kolejnych dni. W załączniku modyfikacja poprzedniej propozycji w dwóch wariantach. W kolumnie E wzór wymagający kolumny pomocniczej J, w kolumnie F wzór niewymagający kolumny J. Kolumna H (z kolejnymi datami) będzie zawsze potrzebna.
Przeanalizuj sobie jakich formuł zastosowałem, możesz je sobie połączyć. Kolumna z datą dodatkowo jest w Excelu ustawiona jako format wyświetlania daty. Również dodałem ostatni wiersz, aby zademonstrować, że Excel jest na tyle mądry, że potrafi wygenerować datę cofając się o miesiąc, jeżeli ma przejście z 1 na 31. PS Ale nie kopiuj jak małpa, tylko...
Funkcja ADR.POŚR może służyć do odczytania danych z pliku otwartego w tej samej instancji Excela. W tym przypadku to się nie przyda. Bez VBA czy innych dodatkowych narzędzi nie da się tego zrobić w sposób trywialny. Istnieją sposoby "drogą okrężną". Najpierw trzeba przygotować teksty odwołań, potem zamienić formuły na wartości i wreszcie aktywować uzyskane...
Witam dane do tabeli b i odwrotne powinny być na innym arkuszu, lub na tym samym ? pozycja dane wynikowe jest określona przez umieszczenie nagłówka na tym samym arkuszu w pierwszym wierszu
Nie wiem czy o to chodzi ale można by pewnie za pomocą wyszukaj pionowo
Mi wychodzi coś takiego (załącznik), sprawdź.
Wszystko zależy czy zamiana ma być stała (zawsze ten sam tekst na inny też stały tekst) czy dynamiczna i czy tylko jedna kombinacja zamiany czy dużo więcej różnych kombinacji. No i dodatkowo czy tekst ma być wyszukiwany i zamieniany w ciągu tekstu w komórce czy zamieniamy całą zawartość komórki. Najprościej =JEŻELI(B6="zima";"Lato";B6)
Cierpliwości kolego, wszystko wymaga czasu. Więc tak, doszedłem do wniosku ze caly problem nalezy rozwiazac od poczatku. Ruszyc baniakiem, wypic pare piw ( o papieroskach nie wspomne ), jak w kartach, dym piwo i przekleństwo:D. Efekt tej walki przedstawiam ponizej, a w zalaczniku przykladzik. Sposob edycji wynikow moze sie wydawac troche dziwny, ale...
Proponuję takie makro: [syntax=vbscript]Sub Moduł_Kliknięcie() Dim kom As Range, form As String For Each kom In Selection If kom.HasFormula Then form = Application.Replace(kom.Formula, 2, 0, "ABS(") On Error Resume Next kom.Formula = Replace(form, "*", ")*", 1, 1) On Error GoTo 0 End If Next kom End Sub[/syntax]Przed użyciem makra należy zaznaczyć zakres...
Mam mały problem, posiadam kilka kodów liczbowych w takiej formie 1661, 1662, 1663 ... itd. Chciałbym aby Excel zmienił mi liczbę 1661 na zdefiniowane słowo. Nie chcę tego robić za pomocą wyszukaj zmień, chciałbym aby sam program zmieniał mi to. Jak to zrobić, wykorzystać funkcje?
Najpierw "scaliłbym" to wszystko do jednego programu, skoro masz coś szukać, zamieniać to najlepiej do Excela. Nie powinno być większego problemu z tabelkami w Wordzie, plik tekstowy też można wgrać do Excela.
Albo tak: [syntax=vb] Sub FunkcjaNaWartosc() rw = Cells(Rows.Count, "A").End(xlUp).Row +1 ActiveSheet.Unprotect Cells(rw, 1) = Now() Rows(rw).Copy Rows(rw).PasteSpecial xlValues ActiveSheet.Protect End Sub [/syntax]
dałem radę sam po kilku miesiącach
Witam! Przepraszam jeśli zły dział i proszę o przeniesienie w takim wypadku ale nie wiedziałem gdzie napisać. Otóż mam taki problem: standardowo w Excel 2010 w wykresie liniowym oś pianowa y jest osią wartości, natomiast os pozioma x jest osia kategorii czyli otrzymujemy funkcję y = f(x) Ja potrzebuje wykres gdzie os x jest osia wartości a os y osia...
VBA wyszukiwanie wartości komórek i ich zamiana
Zamiana kolumn z wierszami. http://www.pcworld.pl/news/149583/Zamian...
ChatGPT już skutecznie zastępuje pomocnika-juniora Ciekawe, że modele językowe potrafią używać narzędzi, ale potrafią to taż naczelne, niektóre ptaki... Ale to nadal wygląda jakby chcieć do pomocy zawołać średnio ogarniętego ucznia z podstawówki. Czego nie umie, to wygoogla. Jedyna korzyść, że odpowiedź jest szybciej. Liczenie prostej przechodzącej...
do drugiej osobnej kolumny.. np. do kol. D[syntax=vb] Private Sub Worksheet_Calculate() Application.EnableEvents = False Range("D10:D200") = Range("B10:B200").Value Application.EnableEvents = True End Sub[/syntax]
Spróbuj przerzucić przez zmienną pomocniczą zadeklarowaną jako liczba.
1. plik to 34 MB 2. zamiana z xlsx na xls przy włączonych fitrach - spowodowała ucięcie rekordów spoza filtra - jeszcze bede próbował. 3. czy komunikat że coś sie dzieje zakładką 6 i 15 oznacza że to jest 6 i 15 zakładka od lewej ? obecne nazwy arkuszy mam zupelnie inne. Po za tym o ile przesunąłem jakąś zakladkę na początek to numeracja się posypała...
Działa też w Openoffice. Temat powinien brzmieć zamiana liter na liczby. Zamiana słów to byłoby jeden - 1. Funkcja kod zwraca różną wartość dla takiej samej wielkiej i małej litery.
funkcja lewy funkcja prawy i zamiana na liczbę - wartość wszystkie w kategorii Tekstowe
Jeżeli produkty nie są unikalne i występują w przypadkowej kolejności to jak chcesz zidentyfikować konkretny produkt, który ma być skopiowany do innego arkusza? Trzeba albo posortować albo porównywać kolejne wiersze w plikach, albo też wyszukiwać na podstawie ID jednego produktu innych. Excel nie myśli, tylko wykonuje działania logiczne.
Nie zmienia to faktu, że aktualizacja bazy w taki sposób będzie czasochłonna :( Ta zmiana zajmie ok 1 minuty czasu rzeczywistego. To jest plik w formacie CSV, więc każdy Excel czy inna Libera otworzy to bez problemu. A zamiana kolejności kolumn, to już tylko kilka kliknięć. Oryginalny plik (gpsdb.txt) posiada dane w tej samej kolejności i żadna zmiana...
czy można w Excelu, nie korzystając z makr i programowania w VBA, sprawić, by przy użyciu np. funkcji jeżeli Excel zamieniał kolor na wartość liczbową, np. gdy komórka A1 jest koloru czerwonego, to w A2 otrzymujemy wartość 1, a gdy jest innego, to 0. Byłbym wdzięczny za pomoc w rozwiązaniu tego problemu
Witam, Próbuję stworzyć plik xls, do którego inni będą wpisywali różne liczby (stany magazynowe). Plik musi być odporny na 'pomysły' użytkowników. Mam ustawione sprawdzanie poprawności, które pozwala wprowadzić, w wyznaczone pola, tylko liczby dziesiętne większe od zera. Wszystko fajnie z wyjątkiem dwóch sytuacji... 1. wpisując np. 2/4 format komórki...
Też nie działą, dziwne, bo w Open Writerze taka zamiana odbywa się bez problemu...
Przetestuj makro z załącznika.
Zrobiłem ci ten wykres bo chciałem ci pokazać niedoskonałość excela. Odległość masz co 1 ze stałym krokiem więc na osi liczbowej musi być stała odległość miedzy punktami. Napięcia są "jakieś tam" zależne od odległości wiec excel powinien to rozłożyć na osi tak jak jet w rzeczywistości ale on dalej daje stałe odległości na osi choć wcale tak nie jest....
A zamiana kropki z przecinkiem w ustawieniach regionalnych nie pomoże?
excel zamiana tekstu excel zamiana znaków excel zamiana tekst
kotłownia gazowy podłogówka wybuchający palnik acs712 pomiar prąd
schemat źródło prądowe zapytaj sztucznej inteligencji
Peugeot Citroën P1337 – kasowanie kodu, wypadanie zapłonów, czujnik wału Volvo XC90 – polaryzacja gniazda 12V, zapalniczka, złącza, schematy