Nie wiem co miałeś na myśli Po następnym wpisaniu daty w I4 powinno kopiować zakres dat z I4 do R4 itd. Ale pozostałe funkcje działają. [syntax=vb] Public Blokada As Boolean Sub Przesun(Wiersz As Integer) Dim a As Integer For a = 7 To 0 Step -1 ActiveSheet.Cells(Wiersz, a + 9 + 1).Value = ActiveSheet.Cells(Wiersz, a + 9).Value Next a ActiveSheet.Cells(Wiersz,...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 And Target = "Pranie" Then Range("E" & Target.Row) = Date End Sub[/syntax] Ale czy czasami nie potrzebujesz funkcji?
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.
Daj to w kodzie danego arkusza ("adres twojej komórki" musisz podać adres tej komórki co odbiera co min. te dane) [syntax=vbscript]Private Sub Worksheet_Calculate() Application.EnableEvents = False Cells(Rows.Count, 5).End(xlUp).Offset(1) = "adres twojej komórki" Application.EnableEvents = True End Sub[/syntax] lub pod [syntax=vbscript]Private Sub Worksheet_Change(ByVal...
Można tak:[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Row > 1 Then For Each c In Target If c.Value = "" Then Cells(c.Row, "B").Value = "" Else Cells(c.Row, "B").Value = Date End If Next c End If End Sub [/syntax]
Może najpierw funkcja, która zaznaczy komórki żółte, a potem je zabezpieczy przed zmianą. Plik z możliwością działania makr (xlsm, xls) :idea: w arkuszu roboczym wprowadź taki kod makra :spoko: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Unprotect "a" Target.Interior.ColorIndex = 6 Target.Locked = True Protect "a" End Sub[/syntax]...
Jest tam kilka funkcji. Między innymi Calculate, change, Dectivate ale nie widać ich w tych kilku skopiowanych od Ciebie linijkach. Musisz Kolego pocztrać sobie trochę o VBA w Excelu. Proponuję wygooglać kurs VBA - jest tego mnóstwo. Te 'kilka funkcji', to zdarzenia arkusza. Działa to tak, że jak np. w kodzie którym napisałem, jeżeli nastąpi podwójne...
Do pierwszego możesz użyć funkcji RIGHT (zakładając że tydzień jest dwucyfrowy i zawsze na końcu) tydzien = Right(wartosc_komorki, 2) Do drugiego: albo użyć przycisku którego kliknięcie wywołuje makro dodające nową osobę do zakłądki "status" i "zasoby", albo spróbować obsłużyć zdarzenie Worksheet_Change zawężone do kolumny gdzie jest nazwisko....
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...
Private Sub TextBox1_Change() Dim tekst As String, wynik As String, i As Integer tekst = TextBox1.Value For i = 1 To ThisWorkbook.Worksheets.Count ' "i" w tej pętli to indeks arkusza If Left(LCase(Sheets(i).Nam... 2) = "m-" Then 'przypisanie wyniku zwróconego przez funkcję. Drugi parametr funkcji...
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...
Kod który Ci podawałem ostatnio działa tylko dla jednej kolumny, takiej samej jak Target.Column. U Ciebie nie działa bo funkcja Intersect() [zwracająca wspólną część dwóch zakresów] poza 15-tą kolumną jest teraz wywoływane na nie takich zakresach jak trzeba. Zmień początek tego makra na taki: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range)...
Witam, Możesz to zrobić prościej - przekazując referencję do kontrolki jako argument funkcji. Przykład: [syntax=vb]Private Sub TextBox1_Change() Call Wiadomosc(TextBox1) End Sub Private Sub TextBox2_Change() Call Wiadomosc(TextBox2) End Sub Private Sub TextBox3_Change() Call Wiadomosc(TextBox3) End Sub Private Sub Wiadomosc(ByRef sender As MSForms.TextBox)...
Witam, mam w skoroszycie zestawienia moich godzin pracy. Co pewien czas (miesiąc) eksportuję jeden skoroszyt danego miesiąca do pliku *.xls, który jest pozbawiony kodów VBA oraz funkcji i formatów komórek, czyli jest w postaci "strawnej" dla Androida. W związku z tym mam pytanie: Czy można jednorazowo wyłączyć (lub ominąć jednorazowo) w momencie wykonywania...
Musisz trochę poczytać n/t VBA szczególnie o procedurach zdarzeniowych Przy zdarzeniach typu Change wywoływana jest automatycznie procedura w momencie zmiany stanu (tj. wartości) Bardziej chodzi tu, przez co te zmiany się dokonały niż o samą zmianę, bo u (at)jahol zmiana wartości się dokonała przez funkcję. https://docs.microsoft.com/en-us/office/...
Jeżeli w komórce ma się "pojawić" napis "Nie dotyczy" a w innym przypadku masz wprowadzać datę to tak jak sam napisałeś w pierwszym poście: tylko proste makro to załatwi. Niestety funkcja jeżeli w tym przypadku to za mało. Kłopot polega że nie masz pojęcia o makrach (jak sam mówisz), a makro trzeba ustawić w "modułach zdarzeniowych" arkusza. Np. takie:...
Można pokombinować z funkcją WYBIERZ a godzinę wstawiać kombinacją Ctrl+Shift+":" Prościej (wygodniej) jednak będzie wykorzystać VBA. Wklej w kod arkusza, wypróbuj i dostosuj do własnych potrzeb Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Target.Offset(0, 2) = Format(Time(),...
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....
Witam. Mam szereg danych i zależnie od wyniku i warunku ma zmieniać komórkę i warunek. Wszystkie wyniki działań czyli różnicy poszczególnych komórek maja być w kolumnie C. A1 B1 A1-B1>5 A2 B2 A1-B2>5 A3 B3 A1-B3>5 ( jeśli warunek spełniony zmienia A1 na A3 i zmienia znak >na <) A4 B4 A3-B4<5 A5 B5 A3-B5<5 A6 B6 A3-B6<5( jeśli...
Witam. Chcę w Excelu użyć funkcji JEŻELI aby sprawdzić czy liczba w komórce jest 1. < 20 2. <50 3. <100 I zmienić jej kolor Przykładową formłuę zrobiłem: =JEŻELI( A6>=20;"PORAMRAŃCZOWY" ; JEŻELI(A6>=50;"ZIELONY"... Wyświetla mi odpowiedni tekst w zależności od wielkości liczby. Problem w tym że ja potrzebuje...
Hej, postaram się wyjaśnić ten dość zawiły temat. Potrzebuję aby excel w zależności od wartości liczbowej jaka jest wpisana w komórce sumował odpowiednie zakresy komórek a wynik podawał oczywiście w wybranej komórce. Co zrobiłem: Załóżmy że jeżeli w komórce B1 wpiszemy wartość 14 to w komórce B3 ma być wynik sumujący komórki z zakresu C15:C28 - czyli...
czy istnieje możliwość żeby taką funkcję przerobić tak żeby przy kopiowaniu zmieniała datę na kolejne miesiące i tak samo tyczy się to pkt na końcu =LICZ.WARUNKI( arkusz1!B9:B28; ">=2016-01-01"; arkusz1!B9:B28; "<=2016-01-31"; arkusz1!G9:G28; "pkt1) Wiadomo muszę zrobić to do końca roku ale pkt jest ponad 40 i ręczne wpisywanie zajmie mi naprawdę...
Witam. Może brzmi dziwnie, ale wytłumaczę: - jest w pierwszym wierszu funkcja typu: =ILE.NIEPUSTYCH(C9:C188) - ktoś mi wkleja wiersz z danymi przed wierszem C9 - funkcja automagicznie zmienia się na =ILE.NIEPUSTYCH(C10:C189) i diabli biorą obliczenia Potrzebuję to wykryć albo zablokować taką autodestrukcyjną reakcję w konkretnym arkuszu (nie całym pakiecie...
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...
Mała poprawka: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 11 Then Dim ar() As String q = 0 a = Split(Target, " ") For aa = 0 To UBound(a) For x = 5 To 13 If Cells(x, 4) = a(aa) Then For Z = 5 To 9 If Cells(x, Z) = "X" Then c = Cells(4, Z) If InStr(1, b, c) = 0 Then ReDim Preserve ar(q)...
Dzień Dobry, Czy ktoś mógłby poradzić w jaki sposób za pomocą funkcji, moge dynamicznie zmienić wartość danej komórki w zależności od zawartości innej komórki ? https://obrazki.elektroda.pl/4979597200_... mam daną komórkę o nazwie 30 i w zależności od tego czy w innej komórce, wybiore opcje tak: https://obrazki.elektroda.pl/1424746300_...
Znalazłem "błąd". Ponieważ przykład z funduszem robiłem na liczbie całkowitej (555) zapomniałem/nie zwróciłem uwagi że liczba z przecinkiem dla VB jest z kropką. Później kod próbuje to dalej konwertować i występuje różnica typu. Wystarczy pobrać z funduszu remontowego tekst wartości Text .TextBox5.Visible = True .TextBox5.Enabled = False .Label6.Caption...
Na przykład pod Worksheet_Change? Tutaj tylko do pomocy funkcji API Cudów tutaj nie jest, że wierzą w słowo. Więc myślę, że po prostu chcesz zobaczyć przykład.
Witam, Jestem tu nowy i chciałbym zapytać czy istnieje funkcja lub jest możliwość stworzenia makra(jezeli ktoś ma stworzone proszę o wysłanie na maila ak.komputery(at)gmail.com) które będzie sprawdzało datę dzisiejszą( dziś()) z datą podpisania umowy na n-nieograniczonej liczbie arkuszy (np umowy na zbyt) arkuszach, a następnie dane z arkusza w której...
Witam, stworzyłem arkusz do gry cashflow, wszystko ładnie działa, ale chciałbym wprowadzić jeszcze jedną funkcję, niestety nie wiem jak. Chodzi dokładnie o to, że jak wprowadzam z listy rozwijalnej nieruchomość, to pojawia mi się jej nazwa we wszystkich potrzebnych miejscach, wystarczy, że wpiszę cenę zakupu, wkład własny itp. i wszystko jest ok. Natomiast...
http://obrazki.elektroda.pl/6129276800_1... Witam. Potrzebna funkcja do bocznych przykładów. Najlepiej tymi funkcjami które są w poleceniu ;)
Witam, Używam MS Excel 2007. W danym arkuszu istnieją kolumny gdzie wpisane są daty. Istnieje taka możliwość, aby po przekroczeniu danej daty określona komórka lub ich zbiór zmienił kolor na inny dając sygnał, że nadchodzi jakiś termin dla wybranego wiersza? Excel posiada powiązanie z zegarem systemowym?
Dzień dobry, mam arkusz z danymi z poprzedniego miesiąca w kolorze czcionki czarnym. Nie chcę ich wykasowywać, ale potrzebuję, aby excel po wpisaniu nowej wartości (po każdej dowolnej zmianie wartości) zmienił kolor czcionki. Chodzi o to, aby było wiadomo które dane zmienione, a które stare. Trochę by mi to ułatwiło życie. Z góry wyrażam wdzięczność...
Witam, mam problem otóż tak jak w pliku mam np 3 grupy (każda z grup posiada ileś tam osób np. po 4 osoby). Są 4 sale i w każdej z sal mogą odbywać się 3 czynność Pisanie Malowanie i Ćwiczenia. W tabeli 1 jest prowadzona lista, która osoba jaką czynność wykonywała w jakiej sali, osoba ma wybrać swoje imię, czynność oraz salę, a także wpisać czas. I...
Chciałbym utworzyć funkcję wyszukaj pionowo z parametrami w VBA Mam 2 arkusze. Baza -zawiera numery kont przypisane do numerów oddziałów Arkusz -zawiera numery kont oraz kwoty ale, brakuje numeru oddziału. Samo wstawienie funkcji wyszukaj pionowo mi nic nie daje. Potrzebuję to samo ale w języku VBA. Próbowałem tworzyć makro ale w marko jest kod VLOOKUP...
Hej Elektrodki! :) Mam problem z Excelem. Mam tabelę danych, gdzie w A2 jest kod państwa, natomiast wszystkie pozostałe dane są w kolejnych kolumnach: przykładowo: PL B pełne C pełne D puste E puste F puste G puste DE B puste C puste D pełne E pełne F puste G puste NL B puste C puste D puste E puste F pełne G pełne Chciałbym zrobić w innym arkuszu syntezę...
Hej. Proszę o podpowiedź czy jest taka funkcja która w zależności od tego jaka cyfra pojawi się w komórce to cyfrę z komórki sąsiedniej przepisze do innej komórki. Np. jeśli w komórce C1 zostanie wpisana cyfra 8 to, cyfrę z komórki B1 skopuj do komórki D1. Dalej, jeśli w komórce C1 zostanie wpisana cyfra 10 to, cyfrę z komórki B1 skopuj do komórki E1....
Witam Proszę o pomoc szanownych użytkowników "excel'owców" Mam komórkę (formatowanie komórki jest ustawione na data), w którą wpisuję datę następnego badania okresowego bhp pracownika, np. 2016-02-11, jak napisać formułę, która zmieni kolor czcionki tej daty i/lub wypełnienie komórki jeśli data systemowa będzie miesiąc wcześniej (do 2016-01-10 ma być...
Witam, otóż mam problem i niestety nie znalazłem rozwiązania na google ani youtubie. Chciałbym użyć funkcji częstotliwości i dominanty ale mogąc zmienić w dowolnym czasie zakres danych dla np 20 czy 40 ostatnich dni. Rozwijaną listę z datami już dawno zrobiłem, ale niestety wpisując odpowiednią formułę liczę stałe dane (tj, że dla nowego zakresu muszę...
Mam tabele z danymi i chcę, żeby pod pewnymi warunkami wyświetlały się inne wartości. Tych warunków może być 10 lub więcej, ale zacznijmy od 3 warunków: Jeżeli w komórce jest 3 to ma wyświetlać 5 jeżeli 8 to ma być 13 Jeżeli 12 to 17 itd. w kolumnie 1 jest wtedy 3 12 8 3 12 a w 2 będzie 5 17 13 5 17 czyli wyświetlą się dane zgodnie z moimi wytycznymi....
Witajcie, Mam tabele z wartościami w przedziel od 108.36 do 325.08. Czy ktoś z was wie, jak zamienić wszystkie wartości > niż 151 na 150. Oczywiście można to zrobić ręcznie, ale w tabeli jest dosyć dużo pomieszanych wartości. ł Dlatego czy można podmienić wszystkie wartości > 151 na 150 jednym kliknięciem?? Aha... próbowałem przez 'Formatowanie warunkowe',...
Witam, Może to i śmieszne pytanie, zwłaszcza dla specjalistów, od których aż się roi na forum, ale...Jestem początkująca w Excelu i nigdzie nie mogę znaleźć odpowiedzi na pytanie jak: wyszukać i zamienić następującą frazę w excelu : "umowawarunki prad" - na "umowa warunki prąd" korzystając z :Znajdż i zamień Przy próbach wykonania tego pojawia mi się...
No niestety, tak już jest z funkcjami tego typu. Pozostaje klawisz [F9] lub procedura zdarzeniowa (przy zmianie) przeliczania w kodzie arkusza. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Me.Calculate End Sub[/syntax]
Tak. W procedurze zdarzeniowej worksheet_change, w pętli For Each porównuj komórki zakresu wyłączając Target z wartością Target... Funkcją Replace "podstaw" pusty znak pod wszystkie cyfry i znak minusa.
Może offsetem go. Np Sheets("Arkusz2").Rang... 1) = Target +1 Wpisuje wartość aktywnej komórki powiększoną o 1 do "Arkusz2" w komórkę o jeden wiersz w dół i jedną kolumnę w lewo... Private Sub Worksheet_Change(ByVal Target As Excel.Range) Sheets("Arkusz2").Range(Target.Address).... 1)...
Użyj funkcji Private Sub Worksheet_Change(ByVal Target As Range) End Sub Gdzie target to komórka którą zmieniłeś Napisz loopa który sprawdzi czy cały wiersz jest wypełniony i skopiuj go do opis faktury w kolejne nie puste miejsce
Jaka masz wersje Excel ? Widze ' Worksheet_Change' listu nie :( https://obrazki.elektroda.pl/4485316100_...
Np. w arkuszu 3 w C3 jest tekst "paliwo", w D3 jest funkcja suma.warunków zliczająca odpowiednie dane z arkusza 1 (zwroty kosztów paliwa), w E3 jest funkcja suma.warunków zliczająca odpowiednie dane z arkusza 2 (koszty poniesione). W kolumnie C prócz paliwa jest jeszcze 100 innych rzeczy do rozliczania, i komórki w kolumnach D i E posiadają funkcje...
Nie wiem jak masz ułożone dane a w szczególności w jakim arkuszu jest umiejscowione "OperacjeSorted" ale u mnie działa z takim kodem: Private Sub Worksheet_Change(ByVal Target As Range) Sheets(2).Cells.ClearContents Range("Operacje").Adva... Action:=xlFilterCopy, CopyToRange:=Sheets(2).Range...
Kod: Private Sub Worksheet_Change(ByVal Target As Range) Dim CelkaZValid As Range If Target.Cells.Count = 1 Then On Error Resume Next 'sprawdzenie czy komórka zawiera sprawdzanie poprawności Set CelkaZValid = Target.SpecialCells(xlCellTypeSameValida... On Error GoTo 0 If CelkaZValid Is Nothing Then 'nie zawiera ElseIf CelkaZValid.Validation.Value...
takie tstr = Str(Target.Value) jest równoważne z Target. Jeśli używasz angielskiej wersji Excela, to prawie tak, jeśli polskiej - jak ja na ogół i jak pytający - to już zdecydowanie nie! Proponuję wykonać takie makro po wprowadzeniu do komórki liczby dziesiętnej. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) MsgBox Target & "...
Zdaje się, że rozwiązanie "obejścia" kolegi marcinj12 z drobną przeróbką jest tym, czego szukasz... Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 Then If Target.HasFormula Then adres = Mid(Target.Formula, 2, Len(Target.Formula) - 1) Application.EnableEvents = False 'potrzebna wartosc a nie odwolanie...
Dobry wieczór, Nie bardzo rozumiem, co to znaczy "inne rozwiązanie"? Co miałoby być inne? Jeśli chodzi o formułę, to może być inna. Generalnie tego typu zadania można rozwiązywać formułami z funkcją INDEKS lub funkcją PRZESUNIĘCIE. Przykład innej formuły dodałem w nowym załączniku. Można to też rozwiązać w VBA pisząc makro obsługujące zdarzenie Change...
Aby ochronić komórki przed przypadkowym nadpisaniem ich zawartości trzeba wykorzystać mechanizm ochrony arkusza oraz przedefiniować czasowo funkcję klawisza F2 . Najpierw musimy zdecydować, które komórki mają być objęte ochroną. Domyślnie blokowane są wszystkie komórki, ale blokada jest nieaktywna dopóki nie włączymy ochrony arkusza. Blokowanie i odblokowywanie...
Procedura Private Sub Worksheet_Change(ByVal Target As Range) jest procedurą już zdefiniowaną, która wywołuje się przy każdej zmianie w arkuszu, i jako taka może być tylko jedna, podobnie jak inne funkcje wbudowane w pojedynczy arkusz: Activate, Calculate etc. czy cały Workbook: Open, Acivate etc. Jeżeli chcesz, żeby ta procedura wywoływała Twoje własne,...
Mój kod zamyka i zapisuje pliki bez pytania bo tak sobie życzyłem. Nie pytałem o to jak skorzystać z funkcji Select Case bo to akurat wiem, chodzi mi o to, że są na przykład: Private Sub Worksheet_SelectionChange(ByVal Target As Range) -zareaguje gdy zmienimy położenie kursora; Private Sub Workbook_BeforeClose(Cancel As Boolean) -zareaguje w momencie...
Ewentualnie można zastosować makro zdarzeniowe, np. takie: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim cel As Range If Intersect(Target, Range("C3:C15")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Set cel = Target.Offset(, 1) Select Case Target.Value Case "Inne", "Konto klienta" cel.Value = Application.InputBox("Podaj...
Przed sortowania musisz zastąpić formułę na wartość, ponieważ funkcja LOS() zawsze daje nową wartość w obliczeniach No właśnie, makro, które testowałem działało tylko po wpisaniu konkretnych wartości. Private Sub Worksheet_Change(ByVal Target As Range) Range("AC65:AF65").Select ActiveWorkbook.Worksheets("EW").Sort.Sor... ActiveWorkbook.Worksheets("EW").Sort.Sor...
Witam, Mam problem z napisaniem kodu VBA w excelu, chodzi o dodanie czasu, gdy pracownik wpisze się w dane pole (w A2 wypisane są klucze, w B2 chciałbym, aby automatycznie wpisała się godzina, jak w C2 ktoś się wpisze, a gdy komórka będzie pusta, żeby się skasowała godzina), kolumna D będzie miała funkcje WYSZUKAJ.PIONOWO Problem z tym kodem polega...
Nie przesadzajmy, wszystko da się powoli zrobić. Zacznijmy od tego przenoszenia z komórki do komórki. Najłatwiej będzie to zrobić jeżeli masz gdzieś stan ogółem, czyli sumę obu komórek. Wygląda to jakoś tak: 10100 20155 17107 Wtedy na poziomie tego arkusza (ważne!) wklej makro: [syntax=vbscript] Private Sub Worksheet_Change(ByVal Target As Range) If...
Pierwszy link z googla: https://msdn.microsoft.com/en-us/library... Marks a user-defined function as volatile. A volatile function must be recalculated whenever calculation occurs in any cells on the worksheet. A nonvolatile function is recalculated only when the input variables change. This method has no effect if it's not inside...
Niestety JRV - Twoje rozwiązanie nie zadziałało. Poniżej zamieszczam skrypt z innym działaniem (funkcja Copy). Może uda się połączyć warunek "jeżeli" z warunkiem "copy" i "paste". Przypomnę tylko, że w komórce "C2" jest wyświetlany czas. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F5"))...
Proponuję rozwiązanie oparte na funkcjach UDF, które jest dość elastyczne. Nie wiem jak to ma działać - czy dane są wprowadzane i przeliczane jednorazowo, czy są potem zmieniane. Tu jest możliwość zmiany danych (z pewnymi ograniczeniami). Plik podstawowy (BAZA) musi zawierać makra, więc musi być zapisany w formacie wspierającym makra np. xlsm. Załącznik...
Kliknij prawym przyciskiem myszy na odpowiedni arkusz w excelu, następnie wybierz "wyświetl kod", w oknie, które się pojawi wpisz: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo BadChange Application.EnableEvents = False If Target.Address Like "$A$#*" Then If (Target And Range("a2").Value =...
Problem dotyczy Excel Starter 2010 pracującym pod Windows 7 64bit. Po dwukrotnym kliknięciu na plik .xls uruchamia się Excel i wyskakuje komunikat: "wystąpiły problemy z przesłaniem polecenia do programu". Excel zostaje uruchomiony, ale nie ma w nim otwartego żadnego pliku. Można otwierać pliki z poziomu aplikacji Excel, jednak nie jest to rozwiązaniem...
Potrzebuję pomocy w napisaniu zdarzenia działającego następująco: Użytkownik wybiera z listy wartość w kolumnach od I do FK, w wierszach NIEPARZYSTYCH (lista już zdefiniowana). I teraz: jeśli wartość zostanie wybrana, to pod nią automatycznie pojawi się dzisiejsza data. Czyli np. jeśli pojawi się wartość z listy w komórce I3, to zdarzenia ma działać...
Wklej w kod arkusza Kolego jesteś wieli jednak zapytam czy ten kod można przypisać pod pewną część komórek arkusza czy tylko pod cały arkusz? Bo cały arkusz korzysta z różnych funkcji: dzielenia, dodawania, odejmowania, procentów itp. A ten kod chciałbym wykorzystać tylko w pewnej części komórek
Przy tak rozbudowanym arkuszu Excel nie będzie działać błyskawicznie. Excel jest programem uniwersalnym, ma różne "wodotryski", które zabierają czas. W tym przypadku pole tekstowe trochę spowalnia, bo ono "jest gotowe" po naciśnięciu każdego klawisza. Gdyby dane wprowadzać do komórki, filtr zaczynałby działać dopiero po 'Enter', więc byłoby szybciej...
Nie wiem w końcu co chcesz osiągnąć i na którym "zestawie" warunków operujesz. Ten kod który przedstawiłeś jest dla mnie nieczytelny (pomieszanie funkcji excela z VBA - jak dla mnie straszne błędy). Załącz twój przykład - będzie prościej. Jeszcze raz opisz co chcesz by filtr robił, bo już się pogubiłem. Najlepiej stwórz na forum nowy wątek dotyczący...
Przy odwołaniach, po kropce, powinna wyświetlić się lista właściwości i metod. Nie bardzo... Jeśli masz dodane referencje to obiektu to dla niektórych obiektów wyświetlane są właściwości i metody, ale nie dla "createobject(COS.Appliaction)" (pod warunkiem, że przekazujemy obiekt do zmiennej typu "Object" o czym później) gdzie COS to nazwa programu....
funkcje excel excel funkcje funkcja change excel
automatyczny regulator oscam ustawienia modem simlock orange
agregat inwerterowy freelander schemat
Lokalizacja filtra wody w piecykach Junkers Ostrza metalowe STALCO do robotów koszących – wymiary, kompatybilność, modele RMP650/RMP950
