Ależ właśnie o to chodzi, że w komórce obok "dni do terminu" (G1) wpisujesz ilość dni, poniżej której komórka zaświeci się na czerwono. Specjalnie rozbiłem to na kilka komórek żeby było czytelniej ;)
Przecież możesz wpisywać kolejne daty np po przecinku lub po "alt + enter". "Kłopot" nie jest z możliwością wpisu tylko z wynikiem w komórce M2. Ale jeżeli o to ci chodzi to troszeczkę zmieniłem w tej komórce funkcję. Jednak jest zasada by datę zawsze wpisywać w tym samym formacie (zgodnym z formatem daty w excelu). Na marginesie bez sensu jest dodawać...
https://obrazki.elektroda.pl/4586766500_... Widzę, że się udało. W załączniku przykład tabeli Excela. Jeśli tabela ma wiersz podsumowania, to wstawianie nowych wierszy odbywa się tabulatorem w ostatniej kolumnie tabeli. Można też wstawiać wiersze w środku tabeli z menu podręcznego (PPM) lub ze wstążki. Filtry z tabeli można usunąć...
Prawy-> czcionka-> efekty -> indeks górny
a jak zrobić aby w kolumnie I excel wpisał pozostałe teksty Proponuję wykorzystać formułę :spoko: : [syntax=vbscript]=JEŻELI(DŁ(F2)=DŁ(G2);"... FRAGMENT.TEKSTU(F2;DŁ(G2)+1;DŁ(F2)-DŁ(G2...
Przetestuj takie rozwiązanie. Ochrona arkusza jest włączana automatycznie podczas otwarcia skoroszytu (hasło: "123" zdefiniowane jest w module VBA 'ten_skoroszyt'). Komórki, które mają być edytowane przez użytkowników muszą mieć odblokowaną ochronę (formatuj komórki->ochrona->zablokuj /odznaczone/). andie
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And Target.Value = 3 Then Target.Offset(0, -1) = Date - 1 End Sub [/syntax] lub [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then If Target.Value = 3 Then Target.Offset(0, -1) = Date - 1 Else Target.Offset(0, -1) = Date End If End...
niestety nie działa mi powyższy kod, nie wpisuje nic No to wpisz w gdzieś w kolumnie A słowo "auto" :wink:
Coś takiego?
Czy to ma działać jak w załączniku?
Cześć. Sprawdź takie makro wykonywane w zdarzeniu "Change" arkusza: [syntax=vbnet]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If (Target.Column = 1 And Target.Offset(0, 2).Value = "") Then Target.Offset(0, 2).Value = Date End If End Sub[/syntax]
Zmieniłeś kolumnę gdzie jest wyrażenie :) =JEŻELI(NR.KOLUMNY(J$10)=$Q14+1;"NOK";JE... Teraz powinno być: =JEŻELI(NR.KOLUMNY(J$10)=$Q14+9;"NOK";JE... Liczba +1 (+9) "dopasowuje" wynik funkcji NR.KOLUMNY() do wartości w NOK. NR.KOLUMNY() dla kolumny...
Zaznaczasz cały obszar w którym są też komórki do których chcesz wpisać zera. Następnie kombinacja klawiszy: - CTRL+G - ALT+S - U - ENTER Masz zaznaczone puste komórki w Twoim zakresie - wpisujesz 0 - zatwierdzasz CTRL+ENTER Masz wpisane 0 do komórek, które były uprzednio puste.
Ogólnie to konieczne by było makro z wyrażeniami regularnymi Nie koniecznie, przy tak prostym układzie, może być proste makro. [syntax=vbscript]Sub elka() For x = 3 To Cells(Rows.Count, 5).End(xlUp).Row Cells(x, 6) = Mid(Cells(x, 5), InStr(Cells(x, 5), ".") - 2, 10) Next End Sub[/syntax]
Samo się wpisze...
z tego co się orientuje, poprzez wbudowaną funkcję excela się nie da. Możnaby napisać makro. W załączniku przedstawiam proste makro, które zmienia tło na czerwień jeżeli wpiszesz cokolwiek w zakresie A1:C3. W razie pytań... pytaj:)
[syntax=vbscript]Cells(n, "B")[/syntax] [url=http://vb.amc24.pl/iso2/zmienne/typ...
Wpisz ORAZ i powinno działać.
Musisz otworzyć edytor VBA i wejść w edycję kodu dla arkusza w którym przechowujesz dane. Następnie wklejasz to: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:E10")... Is Nothing Then Target.Interior.ColorIndex = 6 End If End Sub Element Range("A1:E10") musisz dostosować do...
Jeśli zmiana nieparzystego wiersza ma wywoływać "timestamp" to proponuję raczej :D kod typu: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Set Zak = Intersect(Target, Range("I1:FK100")) If Not Zak Is Nothing Then Application.EnableEvents = False If Target.Row Mod 2 = 1 Then Target.Offset(1, 0) = Date End If End If Target.Columns.EntireColumn.AutoFit...
Mocny w wykresach nie jestem, ale... Czy chodzi Ci o coś takiego? http://obrazki.elektroda.net/56_12356485...
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...
StarQuery.RunTable ActiveWorkbook.Path & "\Addone-parametres.sqx" spróbuj zmienić na StarQuery.RunTable "z:\moje\Addone-parametres.sqx" Albo na jakąkolwiek inną ścieżkę, którą powinieneś wpisać.
w pliku z Programem zamówień jest tysiące detali Jeśli tylko zachowasz porządek w tabeli Plan produkcji (bez dubletów i posortowane kody :!: ) to możesz i w takim przypadku wykorzystać formułę :D [syntax=vbscript]=JEŻELI.BŁĄD(JEŻELI(WYS... Produkcji (1).xlsx]Arkusz1'!$A$2:$F$100;3;FAŁSZ)>0... "&JEŻELI(WYSZUKAJ.PIONOWO(G3;'[Plan...
Panowie, czas wziąć się za naukę, skoro nikt w klasie nie ma pojęcia, jak to zrobić. Przykładowe rozwiązanie. Wartość rezystora można sobie wpisać dowolną.
Wpisz :"=2+2"
Witam! Tak wiem, że excel nie chce dodawać ujemnych wartości czasu w rekordzie, ale... Sytuacja wygląda tak: Pracownik A w miesiącu styczniu ma normę pracy 160 godzin, a wg zapisów (RCP) wypracował np. 157 godzin i 15 minut (sumaryczna wartość za dni przepracowane). W miesiącu lutym norma to również 160 godzin, a pracownik przepracował 162:10 W marcu...
Sorry, nie to okno. Wpisz: =$M10="N"
Jeśli podasz liczbę jako tekst, to nie zmieni jej na inny zapis. Przed liczbą wpisz apostrof.
Oczywiście jest taka możliwość, Np wykorzystując zdarzenie arkusza 'Worksheet_Change'. Za to "mail'ować" z Excela można na kilka sposobów (łącznie z wykorzystaniem Excela jako programu/klienta pocztowego). I tu potrzebna informacja który sposób wykorzystujesz (albo masz zamiar).
W edytorze makro w danym arkuszu (worksheets) w sekcji Change wpisz: Private Sub Worksheet_Change(ByVal Target As Range) If Range("c11").Value <> "" And Range("b11").Value = "" Then Range("d11").Value = Now() Else Range("d11").Value = ""...
A formatowanie komórek?
Rozumiem, że chodzi o Excel. [syntax=text]Opcje programu Excel > Sprawdzanie > Opcje autokorekty > Zamień: kk Na: kosowski[/syntax]
Makro może odblokowac i blokowac z powrotem [syntax=vb] Sheets("Dane").Unprotect haslo 'dzialanie Sheets("Dane").Protect haslo [/syntax]
Jak sprawić aby excel sam po wpisaniu odczytu licznika z datą nowego miesiąca liczył sumę Całą prostą zabawę można zrealizować w jednym arkuszu (oczywiście można to rozpisać na kilka arkuszy z odpowiednimi odwołaniami ;-) ) np. tak jak na zrzucie 1232639 Musisz jednak wprowadzić odpowiednie formatowanie wszystkich danych i wykorzystać kilka formuł...
Ale nie ma nic niemożliwego. Pan Maciej Gonet prawdopodobnie można utworzył by formułę. Lub można użyć makra. W każdym przypadku powinniśmy myśleć. Ale wtedy będzie trudny do planowania w przyszłości
Witam. Proszę o pomoc przy rozwiązaniu zadania: Studenci podchodzili do egzaminu w trzech terminach.Uzupełnij kolumnę WYNIK wpisując najwyższą ocenę jaką uzyskał każdy ze studentów.Jeżeli któryś ze studentów nie podszedł ani razu do egzaminu powinien otrzymać ocenę niedostateczną. Z góry dziękuję za regułę.
Spróbuj poprawność danych>lista (pobierana z zakresu lub wpisana ręcznie).
Bez makra, wpisz numer do F1 - Druk
walek33 świetne rozwiązane zagadnienia, dziękuję uprzejmie. może zerkniesz jeszcze tutaj http://www.elektroda.pl/rtvforum/topic22... i będziesz w stanie jakoś zaradzić pozdrawiam
Hmm, jedyne co mi przychodzi do głowy to http://obrazki.elektroda.net/96_12869857... for próba = 1 to Doskutku drukuj wymierz poprawka     If mamDosyć = True Then Exit For next Jeśli w końcu uzyskasz ideał :) to na innej drukarce/komputerze na 90% czeka Cię to samo...
no Więc dobrze postanowiłem zrobić to sposobem, który zaleciłeś Markoz. Wyliczyłem, że bede potrzebowal około 3000 kombinacji czyli 3000 kolumn pomocniczych. Cos strasznie kombinujesz. W excelu nie wskazane jest rozbudowywanie arkusza na szerokość, bo to go strasznie spowalnia. Z tego co widzę bardzo mało znasz excela, a to sprawia, ze niewłaściwie...
A o dzieleniu całkowitym i reszcie z dzielenia w szkole nie było? można np tak: =ZŁĄCZ.TEKSTY(ZAOKR.DO.CAŁK(A7/6... gdzie komórka A7 zawiera wpisane minuty
możesz trochę rozwinąć bo nie jestem specem w excel:( Użyj google lub wpisz w youtube podane słowa a znajdziesz wyczerpującą odpowiedz jak ich użyć.
A działa inny rocznik Excel niż 2016? Zamieść logi FRST: https://www.programosy.pl/program,farbar... Zamieść SMART dysku. Czy w dzienniku zdarzeń pojawia się wpis po crasch'u?
Umieść ten kod w zdarzeniu arkusza. Dodaj na początek jakieś sprawdzanie, żeby cały kod nie wykonywał się, jak nie musi i to wszystko. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) [/syntax] P.S. Kod nie jest dobrze napisany. Zmienna 'k' powinna być przed pętlą, a nie w niej. Pętlę: [syntax=vbscript]For l = 1 To 20 For k = 2 To...
Sprawdź czy o coś takiego Ci chodziło.
Problem z tym kodem polega na tym, że gdy A2 jest zapisane to po wpisaniu C2 nic sie nie dzieje Powinno być. [syntax=vbscript]If Intersect(Target, Range("C:C")) Is Nothing Or Cells(Target.Row, 1) = "" Then Exit Sub[/syntax]
Jeśli w tabeli masz liczby dodatnie i puste komórki, a chcesz formatować obszar od C4:M101, to zastosuj taką formułę: [syntax=text]=ORAZ(C4>0;C4=MIN($C4:$M... Nie będzie zaznaczał pustych na zielono. Oczywiście obszar formatowania trzeba wcześniej zaznaczyć albo później wpisać do tabelki formatowania.
Tak na marginesie: :) Kolego, po napisaniu odpowiedzi zanim ją wyślesz, przeczytaj to co napisałeś, byś był pewien że odpowiadasz na pytanie. Twoje pierwsze zdanie: ... jeżeli w A1 wpiszę wartość to ... w A2 należy ... To wynikało z Twojego pierwszego postu, ale excel tego nie zrozumie :) Całe szczęście że dodałeś drugie zdanie :) Z komunikatem jako...
mogło by być komunikat że nieaktualna wersja Zamiast ThisWorkbook.Close False Wpisz MsgBox "Nieaktualna wersja"
To musiało być automatycznie zrobione - klawiatura bez szans. Udało mi się uruchomić skrypty VBA:! Już temat działa jak trzeba:)
No, widocznie nie w formacie akceptowanym przez Excel... Wpisz w dowolną komórkę =Dziś() i przyjrzyj się separatorom.
wykorzystaj formułę wyszukaj.pionowo() w komórce B2 w drugim arkuszu wpisz: [syntax=excel]=WYSZUKAJ.PIONOWO(A2;Arkus... Arkusz1 w formule to nazwa pierwszego arkusza.) Daj enter a potem przeciągnij formułę w dół i już. Ewentualnie możesz wpisać warunej jeżeli gdy nie będzie danej z kolumny A drugiego arkusza w arkuszy pierwszym:...
Poniżej rozwiązanie z wykorzystaniem VBA Kliknij prawym przyciskiem na nazwie arkusza, z menu kontekstowego wybierz "wyświetl kod". W edytorze VBA wpisz: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value = "x" Then Range("C1") = Range("B1") Else Range("C1") = "" End If End If End Sub Zapisz plik w formacie...
w angielskiej wersji data -> validation wybrać "List" i określić listę komórek z których ma wybierać (wpisane gdzieś na boku)
Jaki excel?
http://www.excelblog.pl/excel-timestamp-...
Najprościej z kolumną pomocniczą (suma dat). W B9 wpisałem 2 (pożądany wynik 11).
Tobie nie potrzebne jest sortowanie ale funkcja wyszukaj.pionowo. Funkcja ta ma argumenty 1. Szukana 2. Tabela zawierające dane do przeszukania - w pierwszej kolumnie mają być argumenty które mają być porównywane z szukaną. 3. Dane z której kolumny mają zostać zwrócone 4. Funkcja może dopasowywać najbardziej podobne dane do szukanej. Jeśli chcesz to...
Wpisz w Google vb net create Excel worksheet, jest sporo gotowych przykładów.
Jak zrobić aby excel pokazywał (kazał) nam wpisywać odpowiednie dane w odpowiednią komórkę, czyli mam jakieś dane i jeśli gdzieś zapomnę wpisać daty, wartości liczbowych lub nie dodam opisu to poinformuje mnie o tym i automatycznie będę musiał coś dopisać, lub pokaże mi to zaznaczając innym kolorem
jak znaleść palete kolorów - kody, wiem ze jest ich 56... ale :( [url=http://dmcritchie.mvps.org/excel/co... Albo zrobić sobie for i = 1 To 56 i w kolejne wiersze wstawić [syntax=vb]...ColorIndex = i[/syntax]
W moim pliku masz obsługę po wpisaniu nazwiska z prawej strony daty.
A średniej nie wiesz jak obliczyć? Średnia z nieumyślnych i umyślnych to wystarczy: =ŚREDNIA() tych dwóch liczb. O to chodzi? Czyli w polu I4 pokaże się liczba 4,5 po wpisaniu: =ŚREDNIA(G4:H4)
$B$1:$2000 z arkusza 1 czyli Arkusz1!B$1:$2000 Excel nie rozumie Twojego błędnego zapisu :cry: Jak wpiszesz =Arkusz1!$B$2:$B$2000 to będzie wiedział o co chodzi :please:
Istnieje możliwość utworzenia skoroszytu udostępnionego i umieszczenia go w lokalizacji w sieci, gdzie kilka osób może równocześnie edytować jego zawartość. Jeśli na przykład każda osoba w grupie roboczej zajmuje się kilkoma projektami i musi znać stan projektów innych osób, stany projektów można śledzić przy użyciu skoroszytu udostępnionego. Wszystkie...
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...
A jak wpiszesz =F3*24 i dasz format liczbowy komórki to nie działa?
Może chodzi Ci o WyszukajPionowo()
Zapisz daty w takiej postaci: A1: 1997-4-5 A2: 2008-12-22 Domyślnie Excel powinien sformatować te komórki jako 'data', jeżeli tak się nie stanie to we właściwościach komórki zmień na 'data'. W komórce A3 wpisz =A2-A1 i gotowe.
Chyba najprościej zastosować formatowanie warunkowe i jako regułę wpisać =suma(A:C) a jako warunek: "nierówne"
✅ Sprawdź ustawienia Excela: Plik > Opcje > Zaawansowane, włącz „Użyj separatorów systemowych” lub ręcznie ustaw spację jako separator tysięcy. ✅ Sprawdź ustawienia systemowe: Ustawienia > Czas i język > Region > Zmień formaty danych, upewnij się, że spacja jest separatorem. Zrestartuj komputer. ✅ Uruchom Excel w trybie awaryjnym: Naciśnij...
Czy jest to możliwe aby to makro wpisywało w komórkę wcześnij zaznaczoną/odznaczoną (zanim się je uruchomi)?byłoby super jeśli jest taka możliwość. Tak. Zamiast: Range("A1") = lst Wpisz: Acivecell = lst
A co jak ktoś się pomyli? Czy dopuszczasz skasowanie danych? Czy dane mają być pamiętane trwale, tzn. coś w rodzaju arkusza jednorazowego użytku? Oczywiście Excel nie jest programem, w którym można wprowadzić absolutne zabezpieczenia. Wszystko to są zabezpieczenia działające przy założeniu dobrej woli użytkownika, żeby zabezpieczyć przed przypadkowym...
np. w A1 jest 1, w A2 jest 5, itd. w J1 wpisz =ZNAK(A1+64) iPrzeciągnij w dół
Zdaje się, że dla każdego powiatu musisz mieć osobne procedury dla przycisków. W przykładzie makro "orientuje się" po nazwie miasta wpisanej w komórce zakrytej przyciskiem.
Wpisz dwa kolejne wyrazy ciągu (np. 10.0.0.1, 10.0.0.2) zaznacz i przeciągni. Excel sam wpisze kolejne.
nie wiem gdzie wpisać drukarkę Masz tam tylko jednu linije z 'PrintOut'
Trzeba było od razu... Przerobiłem wstawianie daty (przy zmianie) i formuły w "Szablon" Jeśli z formatowaniem warunkowym to Copy-Paste. Edit: W "Szablon" w D3 i G3 wpisz =B10 (załącznik podmieniłem na poprawiony)
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...
Jeżeli te true/false to wartości logiczne (wersja anglojęzyczna excela) to wpisz TRUE w formule zamiast "A", ale bez cydzysłowu.
Wpisz : [syntax=text]If obszar.Value <> "" And ...[/syntax]
Jeśli dobrze zrozumiałem w A1 wpisz: [syntax=text]=2000-SUMA(A2:A21)+MIN(C1;0...
Czyli problem jest tylko z otwieraniem pliku z dwukliku. Miałam tak kiedyś, było to jakieś zabezpieczenie przed wirusami (bodajże). Problem jest powszechny w Excelu 2007. Wypróbuj załączonego fixa (nie mogę tutaj zamieszczać linków). Ewentualnie 1. zamknąć Excela. 2. Windows Start -> Uruchom 3. wpisać "excel /unregserver" (bez cudzysłowów) 4. Windows...
A 'Workbook_Open' w Thisworkbook jest? Wpisz tam 'Run ("Arkusz1. comandbutton1_click")' (jedno "m"?) i powinno działać...
W polu dzisiejszej daty wstawiasz funkcję DZIŚ(), potem funkcja JEŻELI() z napisem ostrzegawczym (ustaw formatowanie znaków na czerwony bold), a jeśli warunek nie jest spełniony (po średniku) wpisz podwójny znak cudzysłowu. Pozdrawiam.
Witam. Wpisanie daty (pełny rok np. 1-1-2000) powoduje sformatowanie komórki do daty, ale wpisanie dat starszych (np. 1-1-1800) Excel traktuje jak łańcuch, nie jak datę. Jak spowodować, by Excel każdą wpisaną datę w formacie d-M-rrrr traktował jak datę?
Wyskakuje błąd: #NAZWA? Czyli masz literówkę w nazwie funkcji lub, jeśli wciskasz formułę w makro to musisz użyć angielskich nazw funkcji. Najlepiej użyj nagrywania makr i wpisz formułę, którą Ci podałem. W ten sposób w makro wpiszą Ci się angielskie odpowiedniki.
No to w jakąś inną - jeżeli(b25=a61;"np";b5) i wtedy w b5 wpisujesz to, co chcesz z ręki wpisać.
Skoro formuła zwraca Ci "" to w F20 wpisz [syntax=v]=PODAJ.POZYCJĘ("";E5:E16;0)-1[...
Witam, mam takie pytanie jak zrobić aby wpisując dane wartości do rubryki + i - byly one odejmowane od stanu początkowego, tylko chodzi o to ze po wpisanu danej wartości do rubryki + i - aby ona znikała a zmieniał sie tylko wynik stanu początkowego, tak aby za chwilę można było dodać lub odjąć kolejna liczbę. Bardzo proszę o pomoc, Pozdrawiam, Paweł
Mogłbyś jakoś nakierować bliżej ? gdzie mam formułe wpisać ?
Zerknij. Chyba wszytsko dobrze wpisałem
Napisałem... Edycja nazwanego zakresu w zakładce Formuły>Menedżer nazw. Możesz też równie dobrze zamiast nazywać zakres, wpisać jego adres w polu "źródło" okna poprawności danych.
Proszę o pomoc w napisaniu formuły. Pracownik w firmie ma do zrobienia zadanie są na to dwa terminy kontrolne pierwszy podświetlenie żółte , kolejny czerwone. Jak uzyskać brak aktywności tych dwóch kolumn jak wpiszę datę zakończenia.
Witaj To "zero" oznacza zaokrąglenie do miejsc po przecinku. Jak wpiszesz 2 to zaokrągli do dwóch miejsc po przecinku. Pozdrawiam
A jak porównywać daty żeby do dobrej komórki mi wpisało??
Prawdopodobnie jest scalone komorki Dodano po 5 Te komorki blokowac recznie. W petli jeszcze jeden warunek [syntax=vb]If Not cell.MergeCells Then If Not IsEmpty(cell) Then cell.Locked = True Else cell.Locked = False End If End If [/syntax]
W LibreOffice działa bez zarzutu. Excela nie mam by coś wymyślić
wpisać parametry wpisać parametr wpisać komórka
zerwana plomba kabel ethernet przerywa dioda selenowa
zarówka punto archiwizacja danych dysku
Tranzystor B22 – zamienniki AC125, AC128, AC151, AC153 do układów audio vintage Iveco Daily immobilizer – żądanie kodu po włożeniu klucza, awaria transpondera, synchronizacja