Jeśli plik, który jest otwierany, zawsze w tym samym folderze, np. C:\..\..\DaneCodzienne należy: w pliku makr osobistych w kodzie skoroszytu [syntax=vb] Private WithEvents App As Application Private Sub Workbook_Open() Set App = Application End Sub Private Sub App_WorkbookOpen(ByVal Wb As Workbook) If Wb.Path Like "*\DaneCodzienne" Then Wb.Sheets(1).Name...
Ok, chcesz wymyślać koło na nowo - proszę bardzo ;). Pętlę For Each zamykasz samym Next (bez zmiennej).
Przypisz do każdego z przycisków odpowiednie makro [code][syntax=vbscript] Private Sub CommandButton1_Click() n1 = Range("N1").Value 'napisz formule if '=JEŻELI(N1>8;"STR. 1/5"; (JEŻELI(N1>6;"STR. 1/4";(JEŻELI(N1>4;"STR. 1/3";(JEŻELI(N1>2; "STR. 1/2"; "STR. 1/1"))))))) Dim text As String text = "str.2" & "/" & n1 Range("G3").Select ActiveCell.FormulaR1C1...
[syntax=vbscript]Sheets("2").Range("C1")... = vbRed[/syntax]
Na podstawie samego kodu, to nie jest oczywiste. Powinnaś załączyć plik z tym kodem i napisać w którym dokładnie miejscu kodu występuje błąd. Poza tym kod jest trochę dziwny. Ile masz arkuszy o nazwie "aaaa"? Po co ta pętla? Czy pasek ScrollBar ma faktycznie numer 2?
Sprawdź w załączniku, czy o to chodziło. Dopisałem procedurę Workbook_Open, która tworzy kształt w arkuszu Arkusz1 (nazwa kodowa) przy otwieraniu skoroszytu (jeśli go nie było) lub zmienia kolor na biały (jeśli był). Dopasuj sobie jeśli ma być w innym arkuszu.
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
Jeśli to miałyby być formuły, to tak jak napisałem: Trzeba wpisywać po kolei od lewej z zachowaniem ciągłości numeracji. Jeśli chcesz modyfikować dane losowo, to tylko VBA. A jeśli VBA, to musiałbyś opisać jak dokładnie miałoby to działać. Czy zakres komórek C6:P6 byłby stały? Czy kolejność numerów miałaby być korygowana na bieżąco po każdym wstawionym...
Jeżeli chcesz podawać tylko nr wiersza pozostaje ci formuła Indeks(tablica;nr wiersza;nr kolumny) przykład poniżej Ps. Nie wiem jak masz dane w AKR (jeżeli imię z nazwiskiem jest pierwsze) to może lepiej by było wskazywać nazwisko (np z listy rozwijalnej) i np poprzez wyszukaj.pionowo i indeks wybierałyby się dane. Bo skąd wiesz że cię interesuje 6...
Jeśli w tych plikach ".csv" jest dużo danych, dużo linijek, to nie będzie to najlepsza metoda (ten załączony kod z odczytem linijka po linijce) odczytu tych plików - zbyt długo będą one otwarte. Lepiej by było to odczytywać przy pomocy LOF, np.: [syntax=vba] Open sciezka & plik For Input As #1 zaw_pliku = Input$(LOF(1), #1) Close #1 [/syntax] lub [syntax=vba]...
... W sumie to zamknięcie i ponowne otwarcie pliku też nie wykonało zadania. Bo to dotyczy modułu Change arkusza i jeszcze warunku z "Target". Czyli tak na wprost w mocnym uproszczeniu: wykonaj gdy nastąpiła jakaś zmiana w arkuszu ... gdy (if) się zmieni coś we wskazanym zakresie - czyli zrób podstawienie w momencie zmiany (próby zmiany) komórek w...
post #6, 2 kody - procedura i funkcja dodaj funkcje Dodano po 59 to wszystko w kod modula, nie arkusza
Zmieniłem nieco procedurę napisaną przez ciebie. Wydaje się że zdarzenie Calculate arkusza jest właściwsze niż Change. Wywoływane jest przy przeliczaniu formuł arkusza.
Może spróbuj przez podstawianie formuł. Makro przetestowałem na arkuszu "Zmiana N". Jeśli to jest to, to masz już z górki.[syntax=vb]Sub Proba() For j = 6 To 10 Step 2 zmF = InStr(Cells(3, j).Formula, "KW") zmF = Mid(Cells(3, j).Formula, zmF, 4) zmR = InputBox("W kolumnie " & j & " " & zmF & " zamienić na:", "podaj symbol") If zmR <>...
1. Zmiana koloru nie jest zdarzeniem, więc musisz uruchamiać makro (w ostateczności można wykorzystać 'SelectionChange', ale ma to w tej sytuacji swoje minusy) Następna sprawa, to skąd Excel "ma wiedzieć" jaki kolor był przed zmianą? Potrzebna byłaby tabelka w dodatkowym arkuszu kolor>zakres obszaru wydruku. 2. Myślę, że wystarczy zwykłe JEŻELI(Arkusz1!suma>160;Arkusz1!suma-160...
Ale w którym miejscu sprawdzasz, który tydzień jest w danym miesiącu ostatni i w związku z tym ile arkuszy drukować? Przechowaj tę informację w zmiennej i wykorzystaj.
Ma być tak jak w arkuszu 2?
Witaj, Przyjmij format liczbowy (lub ogólny). Wtedy różnicę początku i końca wyznaczysz zwykłym działaniem odejmowania, ale wynik wyjdzie jako część doby (tzn 12 godzin będzie jako 0,5). Aby uzyskać wynik w godzinach trzeba przemnożyć przez 24. Można używać nie tylko połówek godzin, ale nawet pojedynczych minut. W załączniku Twój przykład po zmianie...
Witam. W arkuszu mam utworzone makro do odznaczania pola wyboru Sub czyszczenie_komórek() Worksheets("wydatki").CheckBoxes.Value = False End Sub Problem pojawia się gdy chcę zmienić nazwę arkusza (lub wykonać jego kopię - co również powoduje zmianę nazwy). Wówczas makro przestaje działać, bo w kodzie makra jest odwołanie do nazwy arkusza, która przecież...
są jakieś przypuszczenia, że od jutra może być zmiana arkusza ?
Oczywiście ;) Zerknij na stronę: http://www.ozgrid.com/VBA/excel-macro-pr...
"=IF([(at)[LICZBA OCZEK]]=" & ComboBox1.Text & "!N:N,""ok""...
Prawdą jest, że powinno się program wykonać w Accessie. Można jednakże dużo wykonać w Excelu i prezentuję mój pomysł na rozwiązanie problemu.W dołączonym pliku zamieściłem przykładowy kod do drukowania etykiet. Na stronie "Wydruk" jest przycisk uruchamiający makro. Wielkość wydruku należy ustawić w zależności od drukarki. Ustawienie obszaru wydruku...
Witam Dziękuję za pomoc. Niestety włączenie tej funkcji nie przynosi oczekiwanego rezultatu. Nadal po zmianie daty systemowej następuje automatyczna zmiana daty w arkuszu. Pozdrawiam. P.S. Office 2007
Na arkuszu lista 2 są poszczególne zmiany np. 1 - praca w dzień, 1/2 - praca w nocy z pierwszego na drugi itd. (zmiana trwa 12 godz.). Chciałbym, aby po wpisaniu symbolu w arkuszach od Szef do zmiana IV (który jest w legendzie pod spodem) np. symbol nr 5 (tak jak jest w arkuszu: zmiana I) w komórce E3 (czyli pracownik 1.1) w arkuszu lista 2 pojawił...
Co prawda to twoja praca domowa, niemniej: Excel działa na danych dynamicznie. Bez makra "zapisywanie" do komórki "stałej" danej z jednej nie da się zrobić * . Ja widzę to tak (dwa sposoby): 1. Tabela. W trzech wersach pierwszej kolumny trzy (czy więcej) urządzeń. W nagłówkach kolumn tej tabeli od razu wpisane kolejne daty z kalendarza. Wpisujesz czas...
Musisz wyłączyć Eventy w tych makrach. Trochę dziwnie to brzmi (wyłączenie zdarzeń w procedurze zdarzeniowej), ale czasem nie ma innego wyjścia. Pamiętaj włączyć na końcu, podobnie jak z odświeżaniem - Application.Enableevents=false/true
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
Jednym z rozwiązań jest zmiana formatu wyświetlanych liczb na niestandardowy z typem: [syntax=text]rrrr-mm-dd;;;[/syntax] albo formuła (przykład dla komórki I6 arkusza "pełne dane"): [syntax=text]=JEŻELI(CZY.PUSTA(wczasy!C5...
księgowa ma taki skoroszyt tylko że wypełniony, zapewne ktoś robił to ręcznie, ja nie chciałem już robić czegoś innego skoro pracowała przez lata w taki sposób, arkusze faktycznie istnieją i można je zrobić szybko przez tabele przestawne juz ogarnołem, kutools rozwiązał wszystko
Musisz jakoś wskazać z którego arkusza chcesz usunąć dane. Excel (makro) to nie jasnowidz. Albo ustawisz stałą nazwę abo jak radził kolega walek wykorzystasz indeks arkusza (lub jego nazwę w VBA) Czyli zastąp Sheets("1").Select Sheets(2).Select (ale wtedy arkusz z którego usuwamy musi być drugi w kolejności) lub Arkusz2.Select (Arkusz2 to nazwa obiektu...
Ponieważ zmiana dzieje się na arkuszu Arkusz1, można umieścić w kodzie aktywacyjnym w kodzie Arkusz2 [syntax=vb]Private Sub Worksheet_Activate() Dim w&, k&, och As Boolean arw = Array(2, 3, 5, 6, 8, 10) With Me .Unprotect For k = 1 To 11 och = UCase(.Cells(1, k)) <> "JEST" For w = LBound(arw) To UBound(arw) .Cells(arw(w), k).Locked = och...
Te pliki które mają być otwierane mają zawsze tą samą strukturę Jeśli tak to wystarczy przygotować w pliku bazowym (rozumiem zbiorczym) odpowiednie arkusze (np. dla raportowanych okresów), które będą połączone z plikami źródłowymi :idea: Każda zmiana w arkuszu źródłowym będzie automatycznie odwzorowana w arkuszu pliku bazowego :D
Jeśli w zakresie są formuły, to zmienia postać rzeczy. Spróbuj wykorzystać inne zdarzenie. [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim kom As Range For Each kom In Range("C13:G13") If kom.Value < 0 Then MsgBox "Błąd w " & kom.Address(False, False) Next End Sub[/syntax]Warto może ograniczyć Target.Range, bo zmiana...
Witam, Mam problem potrzebuje jakiegoś sposobu, aby wypisywał mi sie czas ostatniej zmiany. W kolumnie G dokonuje zmiany i w kolumnie B chcę aby, czas tej zmiany został zapisany. Stosując taką formułe =JEŻELI($G25<>"";TERAZ();$G25) , działa nie do końca jakbym chciał ponieważ data i czas zostaje odświeżana po każdej zmiania w arkuszu. przykładowo...
Zaawansowany arkusz danych w załączeniu
Wielkie dzięki za pomoc.
Zmiana formatu arkusza - to przecież oczywiste. Szkoda, że wcześniej nie chciało mi się szukać tego w opcjach Protela. Dziękuję wszystkim za pomoc.
Teoretycznie można coś tam w zdarzeniu Worksheet_Change pokombinować, ale w praktyce to raczej trudne do zrealizowania - zawsze można wyłączyć makra albo usunąć cały arkusz. Najlepiej w takim wypadku zablokować plik i jego strukturę i przygotować go tak, żeby użytkownik mógł wykonywać tylko dopuszczone akcje, np. wprowadzać dane tylko w wyznaczone pola...
Dobry wieczór, Miał być przykład, ale się nie doczekałem. Można zdefiniować funkcję użytkownika np. taką: [syntax=vb]Function Tło(adr As Range) As Integer Application.Volatile Tło = -CInt(adr.Interior.ColorIndex <> xlColorIndexNone) End Function[/syntax] Funkcja pobiera adres komórki jako argument i zwraca 0 jeśli komórka nie ma zdefiniowanego...
Sprawa jest trochę skomplikowana, bo hiperłącza w Excelu nie lubią sortowania, a sortowanie nie przesuwa odpowiednio hiperłączy. Do tego jeszcze funkcja HIPERŁĄCZE nie obsługuje tablic, tylko pojedyncze komórki. Być może jest to do zrobienia z wykorzystaniem funkcji LAMBDA, nie próbowałem, ale obawiam się, że mogłoby to być dość powolne rozwiązanie....
Pozwolę sobie odpowiedzieć: zmień deklaracje typu zmiennych i będzie ok. Dim Nazwa_1 As Integer Dim Nazwa_2 As Integer Na Dim Nazwa_1 As String Dim Nazwa_2 As String Integer to liczby całkowite a String to ciąg tekstowy do którego też można zaliczyć "wizualnie" liczby (czyli liczby i cyfry jako tekst). I jeszcze jedno jak zmienić aby nazwy arkuszy zmieniały...
Pozwala uzyskać kolejne liczby przy kopiowaniu formuły w dół. Tutaj jako argument funkcji DATA. W tym przypadku zmiana roku (w kolumnie A) zaktualizuje tabelkę. W Twoim arkuszu można jeszcze prościej. W pierwszej komórce wpisujesz datę (wg. ustawień systemowych): 1-1-2011, w drugiej: 1-2-2011, zaznaczasz obydwie i przeciągasz w dół...
Witam, właśnie u mnie w szkolę trwają egzaminy. Ponoć od czwartku jest zmiana arkuszy i niestety ja już się łapię na czwartek na 8 rano. Plotki chodzą w szkole, że w internecie pojawiła się informację, ze trzeba będzie programem PARAGON zrobić kopię i ją przywrócić ( czy coś takiego), nie wiem ile w tym prawdy. Wiecie coś na ten temat? Mam nadzieję,...
chodzi o to żeby plik się otwierał bez hasła, ale jak ktoś będzie chciał "odkryć" tylko jeden z ukrytych arkuszy żeby wtedy był poproszony o hasło Załączony plik otwiera się bez żadnego hasła :D , ale każda zmiana w arkuszu Rob naniesiona w kolumnach D:H zapisywana jest w ukrytym arkusz kop :spoko: 1003204 Hasło zabezpieczające w przykładowym pliku...
aby program VBA zmieniał automatycznie nazwę tabeli A próbowałeś poprzez nagranie makra ? Otrzymasz całą składnię szybko i bezproblemowo, potem tylko dołączyć do właściwości ".Name", tabeli, właściwość ".Name" bieżącego/danego arkusza.
czy w stosunku do arkusza wybranego z ComboBox1 nastąpiła zmiana w arkuszu z ComboBox2 ? Czyli jeden do jeden (nie jeden do każdego)? Bo to znacząca różnica. Tzn: czy komórka1=komórka1; komórka2=komórka2 iif(ark1.kom1=ark2.kom1;"";"zmiana") w pojedynczej pętli? Ilość komórek w obu kolumnach zawsze taka sama? itd/itp Dużo czasu zaoszczędzisz, jeśli...
Tak jak myślałem arkusze stylów znajdują się w osobnym pliku. Dostałeś z tym szablonem jeszcze jakieś pliki np. z rozszerzeniem .css ?
zmiana kropki na przecinek - dlaczego? W jednym z arkuszy miałeś kropki jako separator dziesiętny, Excel traktował wartość jako tekst, a nie liczbę. W moim rozwiązaniu masz różnice i braki widoczne w 1 arkuszu.
Excel- lista zmian w arkuszach
Moim zdaniem wychodzisz z błędnego założenia. Sugeruję kolejność: 1. Kliknięcie przycisku w arkuszu otwiera formularz (i nic więcej). 2. Wypełnienie formularza przez użytkownika. Koniecznie zablokuj kontynuowanie bez wypełnienia kluczowych pól. Po wypełnieniu formularza można pobrać wartości potrzebne do przede wszystkim nadania nazwy wstawianego, nowego...
Np =JEŻELI(MOD(LICZBA.CAŁK(LOS&... Z tym, że funkcja LOS() będzie przeliczana przy każdej zmianie arkusza. Przełącz w opcjach "Obliczanie skoroszytu" na "ręcznie" i używaj [F9]
Chodzi o to że arkusz A1 zasysa dane z accessa nie mogę go dołączyć jako załącznik nie wiem czemu. dane z access są umieszczane w tym arkuszu to jest ok. Jednak jeśli dokonam zmiany rekordzie w access automatycznie zmiana ta powstanie w wierszu arkusza 1 , natomiast w aruszu3 chciałbym mieć wszystkie dane z arkusza1 przed dokonana zmianą + te wiersze...
Zrobiłem inną metodą (podaj.pozycję() z 1 na końcu. Sprawdź czy dobrze przetransponowałem wartości i czy wogóle działa (graniczne pozycje) na moje oko jest ok ale ... Aha: Steny i ich transpozycja z których docelowo korzysta funkcja są w arkuszu steny (Transponowałem ręcznei wiec zmiana w tabeli głównej stenów musi powodować zmianę ręczną w transponowanej...
Witam, mam stare makro na kilka stron a4 napisane jeszcze pod windowsem 2000. W firmie wszystko przeszlo na nowe windowsy poza jednym komputerem. Makro niedziala pod nowym excelem i wykrzacza sie w momencie wklejania. [syntax=vb] Worksheets("Working").Select Range("a1:iv65536").ClearContents Range("a1").Select ActiveSheet.Paste If ActiveCell.Offset(11,...
Tak wiem... tak byłoby najlepiej a jeszcze lepiej nająć firmę, która by to zrobiła... ale na to mnie nie stać. Coś już zrobiłem jak pisałem wcześniej a teraz chcę to "ulepszyć". Może ktoś ma jakieś dobre rozwiązanie/sugestie? Chciałbym obracać się w obszarze tygodnia (7 dni x 3 zmiany pracy = 21 arkuszy). Każda zmiana to ok 250 pozycji do wprowadzenia....
Dziękuję za odpowiedzi. Szczególnie drugie rozwiązanie bardzo mi się podoba. Trochę je zmodyfikowałem dla swoich potrzeb. Chciałbym jeszcze, aby do nowego arkusza zostało skopiowane również formatowanie. Proszę jeszcze raz o podpowiedź. Sub KopiujArkusz() Dim ten_skoroszyt As String, nowy_skoroszyt As String, zapisz_nowy_skoroszyt As Variant ten_skoroszyt...
Kliknij prawym klawiszem myszki na zakładce arkusza, wybierz Wyświetl kod i w Edytorze VBA wklej Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Target.Offset(0, 1) = Application.UserName End If End Sub Co robi to makro? Po każdej zmianie jaka następuje w kolumnie C (Target.Column = 3) wstawia w kolumnę...
Załączam przykładowe rozwiązanie z użyciem makr. Raczej jako ciekawostkę. Koder ze mnie marny, ale działa jak chciałem. Plusy: - sprawdzanie poprawności nazwy pokoju - sprawdzanie, czy przydzielona liczba osób zmieści się w pokoju - można przydzielić dwa nazwiska do jednego pokoju - makro działa na dowolnej liczbie pokoi zdefiniowanej w arkuszu (max...
Przerzuć SUMĘ nie na dół arkusza, a na górę. Wtedy listę można rozbudowywać bez konieczności dodatkowych zmian. Arkusz "Źródłowy" może zawierać choćby i 100 pozycji - sformatuj komórki, dodaj ramki, itd, itp. A w kolejnych arkuszach odwołaj sie do wszystkich komórek tabeli z arkusza źródłowego - tak jak jest obecnie tylko "przeciągnij" niżej formuły.
Zmiana koloru czcionki, czy wypełnienia nie jest zdarzeniem "zauważalnym" przez VB. Pozostaje więc klawisz [f9] lub umieszczenie w kodzie arkusza, przy zdarzeniu SelectionChange, polecenia Me.Calculate (zawsze to nieco lepsze niż nic).
Te błędy są spowodowane sposobem przeliczania arkuszy przez Excel. Mamy ograniczone możliwości sterowania tym. W tym przypadku można wprowadzić 2 uzupełnienia: 1) w formule 'oblicz' dopisać na końcu: [syntax=text]+0*LOS()[/syntax]Ta zmiana nie zmieni wartości wyniku, wymusi tylko przeliczenie formuły przy każdym przeliczeniu arkusza. 2) Ale to jeszcze...
Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change wywoływane zmianą w arkuszu, to jeżeli w tym zdarzeniu...
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
Pozwoliłem sobie trochę przetestować :) Moje wnioski: Przeniesienie kolumny pomocniczej (rozwiązanie marek003) do ark "Baza danych" do kol D i korekta formuł w ark "ABC" =JEŻELI(CZY.BŁĄD(INDEKS('Baz... danych'!A:A;PODAJ.POZYCJĘ($B2;'B... danych'!$D:$D;0);1));&qu... danych'!A:A;PODAJ.POZYCJĘ($B2;'B...
Witam, Moi drodzy, problem jest... To znaczy ja mam, bo dla pozostałych to już problem być nie musi, jak znacie jego rozwiązanie :) Chodzi o tworzenie grafików dla osób pracujących na różnych maszynach (nazwy maszyn: M, M1, M2, D1, D2) z uwzględnieniem dni urlopowych (U), chorobowych (ch) i życzeniowo wolnych od pracy (x) - ten arkusze (zmiana 1 i zimna...
błąd pojawia na komputerze z WIN 10, na WIN 7 działa poprawnie To jest informacja kluczowa. Niestety ja nie mam w tej chwili dostępu do WIN 10, więc nie mogę sprawdzić. Jedyne co mi przychodzi do głowy, to zmiana nazwy arkusza na "bezpieczną" - tylko litery łacińskie, bez cyfr, spacji, znaków specjalnych. Czy to coś zmieni? Jeśli nie, to ja na razie...
Ciekawa zabawa :) edit: podmieniłem załącznik Dodam jeszcze że po jakichkolwiek zmianach w planie godzin kierowców i pasażerów jak i w arkuszu wynikowym (kolejność kierowców czy data) należy skasować nazwiska z tabeli "wynikowej" bo formuły będą juz widziały że jakieś nazwiska są juz uwzglednione przy jakimś kierowcy w związku z tym nie pokażą się dla...
Dziękuję za zainteresowanie tematem. Plik załączyłem. Nie jest skompresowany ale na szybko zrobiłem tabelę bez makr z prostymi formułami. W tym pliku potrzebuje uzyskać automatyczne kopiowanie z arkusza "Tabela zbiorcza" wybranych elementów wiersza gdzie w kolumnie "C" pojawia się słowo żarówka. Chciałbym żeby to działało na arkuszu google i żeby zmiana...
(at)clubs Mógłbyś proszę pomóc :(? Naprawdę nic sam? .................... zmiana
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
Makro zrobiłem poprzez zarejestruj makro. Ale zawsze była jakaś zmiana, Oprócz arkuszy A i B utworzyłem dwa tymczasowe. Sprawdzam czy nazwa A i B są jednakowe, jak tak kopiuję do C, jak nie zostawia puste. Później kopiuję ręcznie pozostałe dane. Wyciągam niepuste wg nazwisk. Kopiuję do arkusza D i nadaję pojedyńcze numery
Po wykonaniu kosmetycznych zmian w arkuszach można użyć formuły bd.pole. Przeanalizuj plik z załącznika.
No teraz cokolwiek rozumiem :D i "najprościej" w arkuszach Google można to zrealizować jak w linkowanym przykładzie [url=https://docs.google.com/spreadsheet... Dobrze by było żebyś przeanalizował jak ten arkusz działa: jaka jest wykorzystana funkcja ("uniwersalna" - można ją...
chcę to zmienić na przycisk To proponuję wykorzystanie kodu typu :spoko: : [syntax=vbscript]Public Sub Powiel() i = 2 Do Until IsEmpty(Cells(i, 7)) If Cells(i, 7).Value > 1 Then a = i + 1 b = a + Cells(i, 7).Value - 2 Range("A" & i & ":K" & i).Select Selection.Copy Range("A" & a & ":A" & b).Select Selection.Insert Shift:=xlDown Range("G" & i & ":G"...
Wykorzystaj zdarzenie Change, ale arkusza. Gdy jest zmiana w komórce wpisuj wartość do TextBoxa.
Makro to ostateczność. Przecież akurat to spokojnie można załatwić formatowaniem warunkowym. dodane po chwili --------------------------------------- A co do przedstawionego makra owszem działa ale jakbym mógł słówko (no dwa) :) : Trochę obciąża komputer bo wykonuje się za każdą zmianą w arkuszu - należało by ograniczyć działanie do zmian występujących...
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...
Kłopot polega na tym że dla excela zmiana kolory nie jest "podstawą" włączenia przeliczenia. Wyjściem jest albo po zmianie koloru wciskać F9 lub w "sekcji" Worksheet_Change(ByVal Target As Range) danego arkusza uzależnić/wymusić przeliczenie ( Calculate ) od zmiany koloru.
Witam, Chcialabym dolaczyc sie do tego tematu. Przygotowuje arkusz kalkulacyjny o czasie pracy ale rowniez mam problem z przeliczeniem czasu na liczbe godzin. Zalaczam moj arkusz i bede wdzieczna za pomoc. Pozdrawiam Proszę nie dołączać się do cudzych tematów ze swoim problemem. Post został wydzielony do osobnego wątku. ---- Wydzielono z tematu: [url=https://www.elektroda.pl/rtvforum/t...
zablokować możliwość wpisywania duplikatów w jednej kolumnie "B" od "b2:b94" we wszystkich arkuszach :!: Żeby warunek ten został zrealizowany rzeczywiście "we wszystkich arkuszach" :D potrzebna jest zmiana w linii If ActiveSheet.Index <> x Then np na If ActiveSheet.Index <= Sheets.Count Then :spoko:
W Excel 2007 [Opcje]-[Zaawansowane]-[Opcje wyświetlania tego arkusza]-[Kolor linii siatki].
Ok ale to nie ma liczyć na dzień otwarcia arkusza tylko na cały rok... niezależnie czy otworzymy go w maju czy listopadzie - wartości mają być policzone, my tylko ewentualnie wprowadzając zmiany na arkuszu symulujemy ile kasy będziemy potrzebować do końca roku...
Piszesz, że dane są kopiowane z faktury do arkusza "Raport zbiorczy" ale z kodu wynika, że operujesz cały czas na jednym arkuszu - odwołujesz się do Range niepoprzedzonego innymi nazwami arkuszy... Najpierw przypisujesz jakieś wartości komórek do zmiennych, a potem te zmienne wypisujesz na inne komórki - nigdzie tu nie widać zmiany arkusza. To jak to...
... W mojej ocenie makro zapisujące powinno na końcu czyścić wpisy poprzedniej zmiany ... Słuszna uwaga ... ale nie za każdym razem, czyli kod w innym miejscu. Czyścić powinno się komórki tak, by wykonała to ostatnia zmiana, która będzie tam coś wpisywać, tak aby przed swoim wpisem miała informację o tym, że poprzednicy w ogóle coś wpisywali (bo może...
Czy nikt nie pisał praktycznego z E.12 w sesji czerwcowej? Wdzięczny będę za arkusz. Każdego dnia jest inny. W tamtym roku w czerwcu było 24 arkuszy, w styczniu 8. Są różne nawet znacznie odbiegające od siebie poziomem trudności, ale i zbieżne tylko inne dane do zainstalowania czy sprawdzenia. Najgorzej ma zmiana 1 bo tego dnia są te same arkusze. nie...
Witam, będę wdzięczny za pomoc w napisaniu formuł lub makra. W pliku wklejane będą dane do arkusza Total dla trzech zmian I zmiana 6:00-13:00 II zmiana 14:00-21:00 III zmiana 22:00-05:00 Teraz chodzi o to, aby dane z tego arkusza automatycznie kopiowało do poszczególnych arkuszy w zależności od przypisanych godzin zmianowych tzn. aby np. do arkusza...
cześć! jeżeli to Tiger firmy Procar, to z tego co pamiętam to czasy są stałe.Chyba że w nowej wersji centrali, ale nie mam teraz wglądu w arkusz programowania.
Przecież to nie jest moja definicja! Nawet nie chciało się tobie kliknąć linku i sprawdzić, kto podał taką defnicję a mnie się czepiasz. Chciało, chciało więc nie pitol. To co podałeś jest nieaktualne od dobrych kilkunastu lat. A ze standardami warto być na bieżąco o czym świadczy chociażby zmiana w arkuszu 4-41 nakazująca objęcia ochroną RCD wszystkich...
Polecam zaprzyjaźnić się z debuugerem. Pomaga na zgryzoty :D Wstawiasz break ("czerwone kółko") na początku obu funkcji, ale nie przy deklaracji zmiennych (klikając na szarym polu po lewej stronie kodu). Potem robisz jakąś akcję w excelu, np. zmieniasz arkusze, i kiedy program zatrzyma wykonywanie w zaznaczonym miejscu, wciskając F8 przechodzisz kolejne...
Moim skromnym zdaniem ostatni dodany arkusz ma najwyższy indeks (nazwę tylko nie tę widoczną w Excelu pod arkuszem) Ustalić go można prosto korzystając z: [syntax=vbscript]OstArk = ActiveWorkbook.Sheets.Count[/syntax] skopiować na koniec: [syntax=vbscript]Sheets(OstArk).Copy After:=Sheets(OstArk)[/syntax] i ostatni krok ze zmianą nazwy: [syntax=vbscript]...
Nie chciało się spytać wujka google o właściwość Font.Color dla obiektu Range i obsłużyć zdarzenie Worksheet_Change(ByVal Target As Excel.Range) arkusza w którym kolory mają być zmieniane? To tylko jedna linijka kodu pisana z palca.
Wierszy by było około 5tys. i są to podobne wartości (raport kasowy) Jeżeli wszystkich 5 tys wierszy to nie ma sprawy. Excel ma w jednym arkuszu 65.635 wierszy w każdej kolumnie. Jeżeli w każdym arkuszu masz po 5 tys to razem 600.000 wierszy więc jeżeli już to trzeba to będzie rozdzielić na parę kolumn. Kolumn jest w 2007 do IV czyli 256. A tak już...
W Excelu takie zadanie można szybko zrealizować np. w oparciu o zdarzenie CheckBox1_Click() :D tzn. zmiana stanu checkboxa z False na True wywołuje wstawienie bieżącej daty :spoko: Jak widać na zrzucie checkbox = False więc pozostaje stara data :D 1091662 1091663 Spróbuj zaimportować ten plik do Google Sheets i być może zaimportuje się również to krótkie...
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
Wstaw arkusz jako załącznik.
(at)buddha47 tak, są 2 grupy to zależy od rozkładu, u mnie są 2 te same z rzędu i potem zmiana
Może jeszcze raz jaśniej opiszę temat. :crazyeyes: Nie wiem czy właściwie odczytałem tą Twoją kombinację warunków :?: ale efekt wielokrotnego kopiowania jednej tabeli jednowierszowej, oraz pojedynczego kopiowania tabeli wielowierszowej - można zrealizować tak jak na zrzucie 959003 poprzez kod VBA (makro) z wykorzystaniem zmiennych tablicowych jak w...
W nazwie arkusza " Zmiany" przed "Z" jest spacja. Musisz to uwzględniać. Dlaczego nie skopiowałeś treści funkcji?
Dlatego napisałem, 'co Autor już ma zrobione'. Może wcale nie chodzi o zalogowanego do systemu użytkownika. a jakieś inne rozwiązanie, chociażby 'Zalogowany = InputBox...'. Tego nie wiemy. Domyślam się, że na komputerze jest konto 'kowalski' i na nim pracuje cała rzesza użytkowników, a przynajmniej 3 (3 zmiany). ;)
zmiana nazwa arkusz makro zmiana arkusz makro zmiana nazwa arkusz
uniwersalne sterowniki karty graficznej prasa siłownik elektryczny samsung ue55f6500
złącze spawarki pralka samsung zawiesza
HCF4053 vs 74HC4053 – porównanie przełączników analogowych, różnice parametrów, zamienność Kosiarka Partner P53 550cm z silnikiem Briggs 550 L-head – spadek mocy po wymianie wału