A kopiowanie formatowania nie wystarczy? Pytanie jest bardzo nieprecyzyjne. Kiedy to kopiowanie miałoby nastąpić - na życzenie, po zaznaczeniu komórek do skopiowania, czy automatycznie - gdy zmienia się coś w komórce (to jest trudniejsze)? Poza tym, czy komórka zawiera coś oprócz tego koloru, co ma być pominięte przy kopiowaniu? Czy chodzi tylko o kolor...
Dzień dobry, Specyficzną cechą Excela, która na ogół jest uważana za zaletę jest to, że formuły w arkuszu są automatycznie przeliczane po każdej zmianie. Na poziomie arkusza można wyłączyć przeliczanie (tryb ręczny), ale w odniesieniu do całego arkusza, a nie poszczególnych komórek. Więcej można osiągnąć posługując się Visual Basiciem, ale Pan go nie...
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Cells(Target.Row + 1, 1).Select End Sub [/syntax]
To chyba masz rację ;). Zacznij od podstaw. End Sub kończy całe makro, więc powinno być ostatnim wierszem. [syntax=vb] Sub Przenies() Dim Wzorzec, Przebieg Wzorzec = " " Przebieg = 2 Do While Wzorzec <> "" Wzorzec = Cells(Przebieg, 5).Value If Wzorzec = "Wstrzymany" Then (tu działanie) End If Przebieg = Przebieg + 1 Loop End Sub [/syntax] Z grubsza...
Utwórz sobie arkusz o nazwie C gdzie pojawią się różnice. [syntax=vbscript]Sub elka() For x = 1 To Sheets("B").Cells(Rows.Count, 1).End(xlUp).Row If IsError(Application.Match(Sheets("B").Ce... 1), Sheets("A").Columns(1), 0)) Then y = y + 1 Sheets("C").Cells(y, 1) = Sheets("B").Cells(x, 1) End If Next End Sub[/syntax] ps. Musisz mieć nazwane te arkusze...
ActiveSheet.Replace ",", ""
W kolumnę C wpisuj kody.
='C:\PlikiExcela\[Pracownicy.xlsx]Pracow...
Wklej w kod arkusza[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim test As Integer If Target.Count > 1 Then Exit Sub test = InStr(1, Target.Value, "+") If test = 0 Then Exit Sub Application.EnableEvents = False On Error Resume Next Target.Value = "=" & Target.Value Application.EnableEvents = True End Sub[/syntax]Procedura reaguje...
Na samych JEŻELI byłoby coś takiego (kolumna V).
Dzień dobry, Jest kilka sposobów rozwiązania, w pliku podałem 3 warianty do wyboru z wykorzystaniem funkcji INDEKS, PRZESUNIĘCIE i ADR.POŚR. Składnia jest następująca: =PRZESUNIĘCIE(początek_zakresu;skok*(WIE... =INDEKS(zakres;skok*(WIERSZ()-nr_pierwsz... =ADR.POŚR(litera_kolumny&skok*(WIERSZ()-...
Sposob #1 =SUMA(ADR.POŚR("Arkusz1!"&ZNAK(WIERSZ()+... Dodano po 5 Sposob #2 =SUMA(PRZESUNIĘCIE(Arkusz1!C3;0;WIERSZ()...
Dzień dobry, To jest formuła tablicowa i aby poprawnie działała należy: 1) zaznaczyć zakres do którego ma być wprowadzona, 2) wprowadzić formułę, a jeśli została już wcześniej wprowadzona przejść do trybu edycji klawiszem F2 lub kliknięciem na pasku formuły, 3) zatwierdzić kombinacją klawiszy Ctrl+Shift+Enter. Pozdrowienia.
Lub bez kolumny pomocniczej: w B1 wpisz =ADR.POŚR("A"&WIERSZ(&... i przeciągnij w dół.
Możesz wypróbować taki kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim WorkRng As Range, Rng As Range Application.EnableEvents = False Set WorkRng = Intersect(Range("B:I"), Target) If Not WorkRng Is Nothing Then If WorkRng.Rows.Count > 1 Then Application.Undo Application.EnableEvents = True Exit Sub End If For Each Rng...
Bo do takich rzeczy lepsze są specjalizowane programy ja np. polski świetny Graph, lub bardziej zaawansowany - MatLab. Lub typowo dla elektroenergetycznych - PSpice (choć tu raczej sprawa ma się od strony symulacyjnej, niż matematycznej) Pewnie, że Excel sprosta, jednak jego przeznaczeniem nie były takie zastosowania, stąd trudności i dość pokrętna...
Przed sortowania musisz zastąpić formułę na wartość, ponieważ funkcja LOS() zawsze daje nową wartość w obliczeniach
Cześć. Sprawdź, czy takie coś Ci pasuje: [syntax=vbscript]Sub Rep() Const RFrom = "A1" Const RTo = "H1" Const Src = 3138 Dim x As Long For x = Range(RFrom).Column To Range(RTo).Column Columns(x).Replace what:="#", replacement:=Cells(Src, x).Value, _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False...
Uzyj "*" w nazwie jako nazwe podaj "Tabele*.xlsx"
Jak automatycznie - podczas wpisywania również? Załóżmy, że masz liczby 1, 4,5 i 50. Wpisujesz 20 - wciskasz "2" i w tym momencie jest wywoływane (automatycznie jak chciałeś) sortowanie i "hans klops". Chyba nie przemyślałeś trochę koncepcji. Nie lepiej umieścić gdzieś przycisk którym będziesz sobie sortował na żądanie?
Jak cala kolumna G jest wolna, to zamiast If Target.Address = "$G$1" Then wpisz If Target.Column = 7 Then wtedy wpisywalby litery w dowolnej komorce w kolumnie G
Przy wieczornej herbatce naskrobałem mały przykład tego, co miałem na myśli.
Przechowywanie plików magazynu i faktury w jednym folderze
[syntax=vb]Sub zz() Application.ScreenUpdating = False Dim lLstRw& Dim rngTmp As Excel.Range Columns(6).EntireColumn.Insert lLstRw = Cells(Rows.Count, 5).End(xlUp).Row Set rngTmp = Range(Cells(1, 5), Cells(lLstRw, 5)) rngTmp.Offset(, 1).FormulaR1C1 = "=RIGHT(RC[-1],6)" rngTmp.Offset(, 1).Value = rngTmp.Offset(, 1).Value Application.ScreenUpdating =...
Witam. Owszem, że można: ThisWorkbook.Saved = True Application.Quit Application.ActiveWindow.Close SaveChanges:=False ActiveWorkbook.Close SaveChanges:=False Powodzenia.
Może chodzi Ci o WyszukajPionowo()
Rzeczywiście F9 nie powoduje przeliczenia a w związku z tym druga porada też mija się z celem. Trzeba znaleźć inne wyjście. Na chwile obecną ja nie mam koncepcji. Może inni koledzy z forum na coś "wpadną"
Najprostsze rozwiązanie :D jak na zrzucie: 1010478
Spróbuj formatować całe wiersze np tak jak na zrzucie :idea: 959419 to będziesz mógł wykorzystać filtrowanie wg kolorów :spoko: 959426
To zobacz jak to działa w poprawnym pliku 990211
Zerknij na to:
jeśli stworze tabelkę z poszczególnym towarem to wyskakuje bląd Nowe tabelki muszą mieć skorygowane formuły - zwłaszcza te w "drugiej linii" :D 967206 a może być żeby sumowało ? Owszem :cunning: , może - ale wymaga zmiany formuł i zmiany tabeli "wyszukującej" :sm9: 967244 967247
...tak to wygląda tu akurat przykład 3 pozycji ... 'obrazek usunięty' ... W ostatniej linii powinno być '/pozycja' - jest '/Pozycja' Coś jest nie tak w '<ContactEmail confirm=True></ContactEmail>' z tym 'True' - powinno być z "" Poza tym adres e-mail jest w 'ContactName', a nie w linii powyżej 'ContactEmail' Dodano po 3 Proszę sobie zerknąć...
Wykorzystaj zdarzenie Worksheet_Activate . Najprościej[syntax=vb]Private Sub Worksheet_Activate() Call CommandButton1_Click End Sub[/syntax]
Należy oprogramować zdarzenie SheetChange skoroszytu. Wykrywa ono równocześnie, w którym arkuszu i w której komórce nastąpiła zmiana. Kod: [syntax=text]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address <> "$F$6" Then Exit Sub If IsNumeric(Target) And Target > 0 Then Sh.Tab.Color = vbRed Else Sh.Tab.Color...
Załączam plik który wykorzystuje kwerendę (połączenie z bazą poprzez import) z przyciskiem aktualizującym (makro aktualizujące kwerendę). Podobnie jak to zrobił kolegę adamas_nt z tym że w moim przypadku makro tylko wymusza odświeżenie kwerendy. Przy tym rozwiązaniu dane zawsze będą pobierane i aktualizowane na podstawie bazy więc jeżeli zmienią się...
Może coś takiego? Excel w załączniku, a tu masz podgląd: http://obrazki.elektroda.net/74_12636630... Jak to będzie za mało pomocne to odezwij się na priv, ew. zapraszam na korepetycje z Excela :)
To, co pokazałeś niewiele pomaga. Po pierwsze to są obrazki, a nie dane na których można pracować. Po drugie te dwa obrazki odnoszą się do różnych danych. Jak dane zostaną już wprowadzone do Excela i Excel je przekształci, to odtworzyć je do pierwotnej postaci jest trudno. A to co pokazałeś, to są dane w Excelu. Potrzebne są dane zanim trafią do Excela....
po wpisaniu piątej wartości pokazuję złe kolory punktów Był zmieniony zakres dla wykresu? Dla Excel 2007
Mimo wszystko jeżeli oczekujesz na gotowe rozwiązania to się nie nauczysz. A szkoda by było bo excel potrafi prawie wszystko :) A z drugiej strony jak zobaczysz wynik (formułę) to się możesz zniechęcić a to dość proste. Poniżej masz załącznik z dwoma rozwiązaniami (bo dalej nie wiem dokładnie jak masz ułożone dane). Funkcje w excelu najlepiej czytać....
Trzy przykłady w załączniku, ale zawsze trzeba sobie wyliczyć to przesunięcie, automatycznie się nie da.
EXCEL automatycznie dopasował krótką nazwę do długiej W Twoim (uszkodzonym :cry: ) pliku jest 9 nazw długich i 19 nazw krótkich :D Do czego więc EXCEL ma dopasować 10 krótkich nazw :please: Gdyby liczba nazw była równa w obu kolumnach to moim zdaniem wystarczyło by posortować osobno kolumny :idea: Jeśli jednak z jakiś dziwnych powodów :D chcesz wyszukiwać...
Proszę sprawdzić załącznik. Plik po dekompresji "waży" ponad 2,6 MB i zawiesza Excela przy próbie otwarcia. Może zapisać plik w formacie .xls i załączyć bez kompresji. Po odzyskaniu zawartości pliku brak wykresów. Dodano po 1 Jeśli chodzi o wykres, to zastosowany sposób jest trochę udziwniony. Polega on na zastosowaniu różnych formatów daty, aby wymusić...
czyli np.: =arkusz1!A1 jak przeciągnę tą formułę w bok (poziomo), to excel automatycznie w następnej komórce skopiuje dane z komórki B1, czyli =arkusz1!B1, a chciałbym żeby w następnej komórce była wartość z komórki A2, czyli =arkusz1!A2 Hmm, to jeszcze byłoby wykonalne. Jeśli kolumny po kolei w jednym wierszu, to skąd wiadomo gdzie ostatnia komórka...
Dokładnie tak. Natomiast co do zawijania: prawym na komórkę, formatuj komórki, zakładka wyrównanie i tam masz: zawijaj tekst. Jeśli to odhaczysz to nie będzie ci "łamał" automatycznie
Ja myślałem że po prosty jest taka opcja, że wlkepie równanie prostej i że już mi sam automatycznie zrobi Ale jak excel ma zrobić "automatycznie" wykres funkcji liniowej. Przecież on wykonuje wykresy na podstawie danych zawartych w komórkach. Sam sobie tych danych nie wymyśli. 2.40E-02 to oznacza, że dana liczba jest postaci 2.40*10 do potęgi "-2"...
Zerknij do załącznika. Bez VBA bardziej automatycznie już się nie da ;)
Najprościej byłoby [syntax=vbscript]Sub BlaBla() Dim katalog As String, plik As String Dim sWkb As Workbook katalog = "c:\gr3krk\" 'katalog = "c:\xxx\" 'usuń pierwszą linię i wstaw po swojemu. musi być "\" na końcu. plik = Dir(katalog & "*.xls*") Do While plik <> "" Set sWkb = Workbooks.Open(katalog & plik) MsgBox sWkb.Sheets(1).Name 'spr...
Można postąpić tak: Odblokować wszystkie komórki w arkuszu (a przynajmniej te, które mogą podlegać edycji). Włączyć ochronę arkusza. Do kodu arkusza wpisać procedurę obsługi zdarzenia Change: [syntax=text]Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End Sub [/syntax] Jeśli arkusz...
excel dodaj numer automatycznie automatycznie przewija manta automatycznie
orange konfiguracja internetem nagrywanie plików zamiennik baterii alkalicznych
Wymiary gałek potencjometrów i przełączników Radmor 5100, 5102, 54xx – szczegółowe dane Ariete 1588 – dostęp do czujnika Halla, demontaż i diagnostyka robota planetarnego
