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
pilot zmiennym kodem zapłon radio wyłącza router talktalk
philips senseo sterownik ładowarki akumulatora
Kosiarka akumulatorowa Bosch 36V nie działa - diagnostyka Zacinanie się TVP1 i TVP2 przez internet - przyczyny