W załączniku przykładowo formatowanie od trzeciego wiersza.
Dane - Filter nie dziala ?
także wszystko powinno działać No właśnie nie. Co do twojego kodu to jak chcesz to [syntax=vbscript]Sub Makro_K() On Error Resume Next Range("I20:O119").SpecialCells(xlCellTyp... = "=IF(R9C4=R18C,""X"","""")" End Sub[/syntax]
Witam ! Arduino IDE, zapis /odczyt do wewnętrznego EEPROMU. Jak spowodować aby PIERWSZY odczyt np. komórki "0" nie wyświetlał 255 ? Nie jestem pewny czy zrozumiałem twoje pytanie. Widocznie, czytana komórka jest 'pusta' (nic nie zostało do niej wpisane) ..... Zauważ że zawartość pustej komórki EEPROM jest czytana "0xFF" (hex), czyli 255 (dec) a nie...
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
nie potrafię sobie poradzić aby odpowiednio przekształcić zaproponowane rozwiązania na potrzeby mojego pliku To nie kwestia "nie potrafienia", to kwestia Microsoft'u. Chodzi o nazewnictwo zakładek. Nazwy zakładek do hiperłącza poprzez funkcję "HIPERŁĄCZE" nie mogą posiadać odstępów, ich nazwa musi być "jednociągowa", tzn. taka zakładka nie może się...
Ustaw sobie format komórek M1 i M2 na liczbowy. Zobaczysz wtedy, że godzina to tak naprawdę liczba z przedziału <0;1>. Przykładowo w komórce K10 sprawdzasz JEŻELI((B10)<$M$1;$M$1-B10;0), zatem w B10 masz pustą wartość czyli w tym wypadku 0. Warunek jest spełniony zatem po odjęciu wychodzi Ci godzina 7:00, bo odejmujesz 0. Ja bym po prostu najprościej...
do Arkusz2 C10 wpisz =""
Z tego co wiem nie ma możliwości aby w normalnej tabeli nie wyświetlało pustych komórek. lecz istnieje parę opcji które mogą ci to umożliwić między innymi: Kwerendy, Raporty i tym podobne. Polecam żebyś obejrzał poradnik na YT i w zależności od potrzeb wybrał ten który najbardziej ci odpowiada.
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.
[syntax=vbscript]Sub zapisz_dane() XPath = ActiveWorkbook.Path Dim xlApp As New Excel.Application Set wb = xlApp.Workbooks.Open(XPath & "\zestawienie\zestawienie2.xlsx") nw = wb.Worksheets("Arkusz1").Cells(Rows.Coun... "A").End(xlUp).Row + 1 wb.Worksheets("Arkusz1").Cells(nw, 1) = "testtest" wb.Save wb.Close Set wb = Nothing Set xlApp = Nothing End Sub...
Może być coś takiego wklej to ThisWorkbook [syntax=vbscript]Private Sub Workbook_BeforePrint(Cancel As Boolean) If Range("B6") = "" Then MsgBox "Blokada wypełnij B6" Cancel = True Else Cancel = False End If End Sub[/syntax]
[syntax=vbscript]Sub ZSO() Application.ScreenUpdating = False Set a = ActiveWorkbook.Sheets(1) Set b = Workbooks.Open(ActiveWorkbook.Path & "\ZSO.xlsx") l = b.Sheets(1).Cells(Rows.Count, "AP").End(xlUp).Row + 1 b.Sheets(1).Cells(l, "AP") = a.Range("C15"): l = l + 1 a.Range("B23:B52").Copy b.Sheets(1).Range("AP" & l) Application.ScreenUpdating = True...
:) Jeżeli już się zwracasz do mnie w trzeciej osobie Dziękuję wam bardzo ... ... na was liczyć ... to jednak powinieneś to wyrazić z wielkiej litery lub do słowa was dodawać słowo obywatelu lub kolego, bo tak to jakoś niepewnie się czuje komu dziękujesz :) A dodatkowo (nie żebym się upominał ale na przyszłość może ktoś inny będzie ci pomagał) jak jesteś...
To bylo tylko fragment makro Wstaw jak w Ciebie - 'On Error Resume Next' - gdy nie ma pustych komorek(xlCellTypeBlanks)
Procedura w kilku krokach: 1) wpisz w pierwszej wolnej komórce odpowiednie odwołanie, np. W A2 wpisz =A1 2) skopiuj komórkę z formułą do pamięci podręcznej, np. Ctrl+C 3) zaznacz cały zakres 4) wybierz Znajdź i zaznacz/ Przejdź do - Specjalnie / Puste komórki (np. F5/Specjalnie/puste) 5) Wklej np. Ctrl+V
Najpierw wyznacz pierwszą wolną komórkę [syntax=vbscript] lastRow = Range("BZ" & Rows.Count).End(xlUp).Row + 1 If lastRow < 3 Then lastRow = 3 End If [/syntax] nastęnie wkopiuj: [syntax=vbscript] Sheets("Dane").Range("BZ" & lastRow) [/syntax]
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
Dla Excela 2007 i powyżej: Formatowanie warunkowe -> Nowa reguła-> Użyj formuły do określenia komórek, które należy sformatować. W okienku formuły wpisujesz warunek "=ORAZ($A$2=1;$B$2="") i dalej ustawiasz format komórki Dla pozostałych komórek ustawiasz warunki format podobnie.
Wg podanych informacji, najprościej którąś z Do. Coś w tym rodzaju: [syntax=vb]wrs = 2 Do While Cells(wrs, 6) <> "" Cells(wrs, 4) = "ble ble ble" wrs = wrs + 1 Loop[/syntax]
Oczywiście, ale poprzednio pytałeś o wszystkie komórki w kolumnie C. Zamiast LICZ.PUSTE należy zastosować funkcję LICZ.WARUNKI. [syntax=text]=LET(puste;LICZ.WARUNKI(B6:... do uzupełnienia " & puste & " pól/pola"; ""))[/syntax] Jako drugie kryterium zastosuj "", jeśli chcesz zliczać razem puste komórki i puste teksty,...
Dzień dobry, Proszę spróbować z taką formułą w formatowaniu warunkowym: [syntax=text]=JEŻELI(MOD(WIERSZ(A1);2);A... Puste komórki w zakresie są traktowane jak zera. Teksty są "większe" od liczb, więc zawsze będą zaznaczane, gdy wystąpią w parze z liczbą. Gdyby miało być inaczej, trzeba zmienić formułę....
Po pierwsze, nie sprawdzaj czy jest aktywna komórka w kolumnie "C" - jeśli ma być tam aktywna to ją uaktywnij bez sprawdzania, np. Application.WorksheetFunction.CountA(Col... , o ile kolumna jest ciągłą i nie zawiera przerw, to pierwszym wierszem z wolną komórką będzie o 1 większy niż zwróci to funkcja tzn. [syntax=vb]wiersz=Application.WorksheetF...
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.
Ano nie działa, bo pusta komórka jest traktowana, jako zero.
Odnośnie mojej formuły, to zakładałem, że dane są ważne. Komórka pusta w operacjach arytmetycznych jest traktowana jak zero. Sprawdzenie czy komórka nie jest pusta jest dość trywialne, bo trzeba tylko dopisać warunki i jedną instrukcję JEŻELI. Gdyby ktoś chciał się jeszcze zabezpieczyć przed danymi nieliczbowymi, to trzeba dodać JEŻELI.BŁĄD. Co do drugiego...
podaj jaki bład wywala bo nie kompilowałem tego tylko z glowy, oraz powiedz co zwraca Cell w przypadku gdy jest pusta komorka
Nie wiem co Ci potrzeba, ale to może wystarczy: do E3 wpisz =JEŻELI(LICZ.JEŻELI(C3;">0");1;"") Wyprowadzi albo 1 albo nic, w przypadku pustej komórki C3.
Dobry wieczór, Można też tak: 1) wpisać do pustej komórki arkusza to co ma być dodane i skopiować do schowka (np. Ctrl+C) 2) zaznaczyć zakres, do którego chcemy coś dodać 3) wybrać z menu Wklej/Wklej specjalnie/Dodaj - wyniki będą stałymi, a nie formułami. Pozdrowienia
Może takie makro: [syntax=vbscript]Sub Jedynki() If IsEmpty(Range("A2")) Then Range("A2").Value = 1 ElseIf IsEmpty(Range("B2")) Then Range("B2").Value = 1 Else Range("A2").End(xlToRight).Next.Value = 1 End If End Sub[/syntax] To makro wypełnia po kliknięciu kolejne puste komórki w wierszu 2. zaczynając od A2 (po jednej). Jeśli któraś komórka jest niepusta...
Formatowanie warunkowe - reguły wyróżniania komórek
Cześć Wam. Mam problem z arkuszem kalkulacyjnym. Szukałem na forum i nawet znalazłem odpowiedź, ale wychodzą mi bzdury... Dokładnie nie chodzi o Excela, ale o LibreOffice Calc. Niby to samo, ale nie do końca, bo w Excelu, w ustawieniach arkusza można "zlikwidować zera", a tu nie. Skorzystałem z przedostatniej podpowiedzi w tym wątku: https://www.elektroda.pl/rtvforum/topic3...
Szukam kodu VBA do kolorowania unikalnego pierwszego wiersza Jeśli dobrze zrozumiałem Twoją niechęć do formatowania warunkowego :D To efekt taki jak na zrzucie (nie koloruje również puste komórki :!: ) 990210 można uzyskać poprzez kod :spoko: [syntax=vbscript]Sub FormatUnik() Range(Cells(2, 2), Cells(17, 9)).Select With Selection.Interior .Pattern...
Nie wiem czy zdążył się zrobić TRIM, czy kontroler tego dysku "wspaniałomyślnie" podstawił w żądane miejsce puste komórki NAND - tak właśnie się odbyło. Kontroler dostał informację, że użytkownik uznał swoje dane za nieważne i obszar w adresacji LBA został zwolniony na poziomie struktur logicznych. To pierwszy etap procesu. I już na tym etapie kontroler...
Użyj funkcji CZY.PUSTA(adres komórki) w połączeniu z funkcją JEŻELI (), w ten sposób aby gdy wykryje pusta komórkę nie brał jej pod uwagę np. =JEŻELI(CZY.PUSTA(C1);1;0)
Na formułach można spróbować to zrobić tak Zakładając, że mamy zajęte kolumny A oraz B - wstawić pusty wiersz pustą kolumnę między nie (w ten sposób kolumna B przejdzie do C). Zakładam, że dane są od pierwszego wiersza. kolumna B1 będzie zawierać formułę =C1 Kolumna B2 będzie zawierać formułę =JEŻELI(CZY.PUSTA(C2);B1;C2) od B2 można wszystko rozciągnąć...
Pewnie będzie jakaś prosta, tablicowa. U mnie wyszło trochę przydługawo, ale formuła "kopiowalna" i... działa (tylko wyszukiwanie liczb, w tym zero). Jeśli "zero", po myśli autora, to pusta komórka (jak w przykładzie) - będzie OK. Jeśli nie, potrzebne będzie jeszcze kilka "JEŻELI".
No, ale te punkty za transfer... Czyli: Jeżeli w kolumnie D tekst zawiera wyraz: "Żółty" i w kolumnie E jest w tym wierszu pusta komórka, to wyświetlać komunikat o braku odpowiedzi ew. formatowanie warunkowe w 1-wszej kolumnie?
każde kolejne sczytanie z czytnika do Arkusza "NAZWA ODDZIAŁU" A2 kolejno wklei dane do pustej komórki w Arkuszu "DANE" Jeśli skaner korzysta tylko z komórki A2 :?: to możesz wykorzystać makro jak w załączniku 1063586
Dzięki funkcja działa.
Dzięki za odpowiedz Wstępnie rozwiązałem problem używając funcji brak () wformule jeżeli. Oraz formatowania warunkowego zawierającego błąd. Wstępnie działa ..jeśli sie nic nie schrzani będzie ok.
Jeśli dni są wszystkie bez "dziur", to można formułą Prota , jeśli są przerwy, to można tak: [syntax=text]=SUMA(--(CZĘSTOŚĆ($B$2:$B$2... zakresie nie może być błędów. Puste komórki, teksty nie przeszkadzają.
No okej ale ma przy okazji wyliczac srednia zapomnialem dodac 😃. Wiec ma wyliczac srednia ocen i przy okazji jak jest pusta komorka to ma napisac "brak ocen"
Jedno z trzech: 1. Nie odpalasz podanego kodu; 2. Nie masz wpisanego "auto" w kolumnie A zaś " auto" bądź "auto " lub coś w ten deseń; 3. Wpisujesz to auto po pustej komórce w kolumnie A
Trochę cię podprowadzę. (Bo nie koniecznie trzeba używać jeżeli ale dla zrozumienia warto) Stajesz na komórce z datą ( I3 ) Format - formatowanie warunkowe Pierwszy warunek Jeżeli komórka jest pusta pozostaw bez formatowania Wybierasz formuła jest... i tu wpisujesz funkcję sprawdzającą = czy.pusta(I3) Pozostawiasz bez formatowania Drugi warunek Jeżeli...
Sprawa jest bardziej skomplikowana niż się na pierwszy rzut oka wydaje, bo Target.Value w zdarzeniu Change będzie też przyjmowało puste wartości (przy czyszczeniu/usuwaniu komórki), a także może być zakresem Range() np. przy kopiuj - wklej do kilku komórek (podobnie przy czyszczeniu zakresu komórek), przez co makro będzie się wywalać. Trzeba ew. je...
I się nie dziwię. Twoja formula wycina od spacji przed numerem do spacji przed numerem konta ;) Wpisz: =FRAGMENT.TEKSTU(A1;SZUKAJ.TEKST(" ?? ???? ???? ???? ???? ???? ????";A1;1)+1;32) A jak już będziesz robił wersje finalną to polecam formułkę: =JEŻELI.BŁĄD(<formuła której używasz>;"") W ten sposób w arkuszu nie pojawi ci się #ARG tylko pusta...
Kursor w kolumnie A. Ctrl+ Strzałka w dół
Nie bardzo rozumiem, o co konkretnie chodzi. Przydałby się jakiś przykład w pliku, pokazujący jakie masz dane i co z nimi chcesz robić. Generalnie do testowania liczb można wykorzystać w VBA funkcję IsNumeric, albo zapożyczoną z Excela funkcję WorksheetFunction.IsNumber. Ich działanie różni się w szczegółach, na przykład funkcja IsNumeric traktuje puste...
Dzień dobry, Używając funkcji NETWORKDAYS należy pamiętać, że funkcja po pierwsze uwzględnia w obliczeniach zarówno pierwszy, jak i ostatni zadeklarowany dzień - to jest ważne gdy daty mamy w tabeli i okres jest podzielony na podokresy. Po drugie - funkcja standardowo pomija soboty i niedziele. Po trzecie - jeśli trzeba pominąć dodatkowo dni świąteczne...
Mój problem polega na automatycznym połączeniu tekstów w komórkach w pionie (w listy) w jednej komórce innej kolumny, aż do wystąpienia kolejnej pełnej komórki z pominięciem pustych. Po napotkaniu komórki pełnej tworzymy listę z kolejnych rekordów w kolumnie, aż do napotkania pustej. Po napotkaniu kolejnej pełnej komórki powtarzamy cykl, niezależnie...
apollinaris , dałeś taki przykład, że trudno się zorientować jakiego wyniku oczekujesz. Czy czas w kol. C będzie zawsze taki sam tzn. 10:45, czy będzie zmienny i kolory mają być dopasowane proporcjonalnie? Jeśli zmienny to adres używany w formule musi zawierać nr wiersza bez znaku $. I zawsze piszemy formułę dla pierwszej komórki zakresu formatowania....
Kolego adamas_nt , leń patentowany podał na forum treść zadania i nie miał najmniejszego zamiaru włożyć choćby trochę wysiłku w rozwiązanie własnego problemu, a kolega tak od razu za lenia prace domowe rozwiązuje? Punkt 16 regulaminu forum nadal obowiązuje. Leni na forum nie potrzebujemy. Temat zamykam.
W M1 jest formuła, która się zmienia po dodaniu wierszy Czyli generuje jakąś liczbę, tak? (wynikiem formuły nie może być jakiś tekst czy pusta komórka bo będzie błąd, musi być liczba) wkskontroling.Activate Zwróć też uwagę, że wcześniej aktywujesz "wkskontroling" czyli "Worksheets("Rejestr_protokołów")" wtedy n = Cells(1, 13) (M1) pobiera z tego arkusza.
Wtedy nie wstydż się i pytaj. Dałeś mi (przy okazji) temat: dlaczego działało a teraz nie działa? Już ci tłumaczę (musiałem się chwilę zastanowić) Dla excela 0 lub "nic" to to samo co fałsz natomiast 1 to prawda. Jednak jak wspomniałem twórcy z M$ mieli różne wizje i jeżeli komórka ma jakąkolwiek wartość (ale nie wyraz - nie ciąg znaków) poza 0 wtedy...
Tak jak już wspomniał kolega Dżyszla filtrowanie nie jest zgodne ze scalaniem komórek. Filtr jakby nie zauważał, że komórki są scalone i filtruje wg faktycznej a nie widocznej zawartości komórek. Natomiast scalenie skutkuje tym, że 1) zawartość obszaru scalonego jest umieszczona w pierwszej komórce tego obszaru, a pozostałe komórki są puste, 2) formatowanie...
Witam W zakładce kody mam zestawienie wszystkich możliwych kodów i chciałbym rozdzielić te kody w taki sposób aby każdy z nich znajdował się w osobnym arkuszu wg grupy (AA,BB,CC,DD) udało mi się to zrobić przy pomocy funkcji „=JEŻELI” tylko jest mały problem, mianowicie nie wiem jak poradzić sobie z pustymi komórkami w poszczególnych arkuszach,...
Zarówno używając funkcji ILOCZYN (warunkowo z funkcją JEŻELI), jak i w przypadku funkcji BD.ILOCZYN można podać zakres z zapasem. Puste komórki nie przeszkadzają. Tak przynajmniej jest w Excelu. W arkuszach Google nie sprawdzałem. W przypadku funkcji ILOCZYN formułę trzeba zatwierdzać tablicowo, chyba że masz najnowszego Excela 365. W przypadku funkcji...
MAGJA123 , nie wysiliłeś się na ten przykład. W zasadzie on niewiele wyjaśnia. Istotne jest czy dane, które chcesz usunąć występują po tych, które chcesz pozostawić czy nie zawsze. Jeśli nie zawsze, to dane trzeba najpierw posortować tak, żeby dane które mają zostać były pierwsze. Powinno wystarczyć zwykłe sortowanie, bo ono pozostawia puste komórki...
End(xlDown) liczy zakres do pierwszej pustej komórki . U Ciebie są przerwy we wpisach, dlatego tak działa. A tak w ogóle to niepotrzebne są te nawiasy ws1.Range(ws1. ( Cells(2, iCol - 1), ws1. ( Cells(2, iCol - 1).End(xlDown) ).Copy Cells(3, iCol) zobacz jak działa to: ws1.Range(ws1.Cells(2, iCol - 1), ws1.Cells(Rows.Count, iCol - 1).End(xlUp)).Copy...
Nie bardzo zrozumiałem - chcesz wpisać "tekst" jak komórka jest pusta, wtedy już nie będzie pusta. Takie działanie nie ma sensu. Ale mógłbyś to zrobić w innej komórce, czyli: (przykładowo) Jeśli komórka A1 jest pusta, wpisz w B1 "tekst", inaczej wpisz wartość A1 1: w komórce B1 formuła =JEŻELI(A1=0;"tekst";A1) 2: W komórce A1, wartość 0, pusta lub inna
Spoko, mogło by wyglądać tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then Cells(wiersz, 10).Cut Destination:=Cells(wiersz, 15) wiersz = wiersz + 1 Loop End Sub Dodano po 2 jaszcze taka uwaga makro działa poprawnie do pierwszej pustej komórki w kolumnie przeszukiwanej
Dziekuję bardzo za odpowiedź, makro prawie działa tak jak chciałem. Ma tylko jeden problem łączy dane w wiersze które nie powinien. Dla przykładu pierwszy wiersz w Arkuszu2 powinien mieć dane od A3:A18 z Arkusza1 później drugi wiersz w Arkuszu2 powinien mieć dane od A20:A22. Punktem który ma definiować kolejne wiersze jest pusta komórka
Brak załącznika to poważny mankament! Nie wiadomo, jakie dane są w kolumnie "O". W kodzie PRL jest sprawdzany warunek: [syntax=vbscript]Sheets(x).Cells(y, "O") >= -30[/syntax]Otóż warunek ten spełniają nie tylko liczby >= -30, ale również puste komórki, dowolne teksty, w tym teksty puste, wartości logiczne. A jeśli w komórce jest wartość błędu, to program...
Mam propozycję, ale z ograniczeniami. Założenia są następujące: 1. W kolejnych komórkach będą kolejne liczby (lata) lub komórki będą puste, ale nie będzie sytuacji, że w sąsiednich komórkach będą liczby (lata) niekolejne. 2. Przed pierwszą liczbą musi być co najmniej jedna komórka pusta. 3. Liczba komórek jest zadana z góry (formuła nie jest dynamiczna)....
Zakładając, że w komórkach B3, C3, D3 masz wartości rezystorów a w A3 wartość rezystancji zastępczej: A3= 1/(1/B3+1/C3+1/D3). Oczywiście dla innej ilości rezystorów składowych dopisujesz czynnik 1/E3 itp. w nawiasie. Aby funkcja działała poprawnie w Excelu we wszystkich komórkach musi być wartość liczbowa bo program zwróci błąd #Dziel/0! (dzielenie...
Wyszukiwarka forum znalazła 22 tematy z frazą "Excel Dir", z czego dwie trzecie do wykorzystania w Twoim przypadku. Dwa wyniki dla "GetOpenFilename" w przypadku zamiaru wykorzystania browsera. Przejrzyj, spróbuj zastosować. Pisz, jeśli będziesz miał jakiś konkretny problem, z pewnością ktoś pomoże...
Cześć, pracuję nad plikiem Excel, w którym potrzebuję połączyć teksty. Próbowałam rozwiązać to za pomocą dwóch warunków JEŻELI. Pierwszy warunek JEŻELI (AD4""; AD3&": "&...) sprawdza, czy komórka AD4 nie jest pusta. Jeśli nie jest pusta, to łączy zawartość komórki AD3, dwukropek i spację. Drugi warunek JEŻELI (AD4""; AD4&", "; "") sprawdza, czy komórka...
Jeśli chcesz, żeby po zaznaczeniu więcej niż 1 komórki była brana pod uwagę tylko pierwsza z zaznaczonych, to możesz dodać linię: [syntax=vbscript]If Target.CountLarge > 1 Then Set Target = Target(1)[/syntax]przed tą linią, którą masz zaznaczoną na żółto. Całościowa propozycja w załączniku. Zasady są nieco inne. Zasięg działania w arkuszu nie jest ograniczony,...
Znaj moje dobre serce :) Stany magazynowe tworzą się na podstawie wpisanych dokumentów więc "ręczna" ingerencja w arkusze DokumentyPZ i DokumentyWZ "rozwali" stany. Stany magazynowe robią się na bieżąco ale gdyby się coś zacięło Przycisk odtwórz stany na podstawie dokumentów od początku stworzy zestawienie Są pewne instrumenty zabezpieczające ale nie...
Nie wiem czy o to chodzi ale moja propozycja brzmi tak tak: kolumna:=1; // zalezy w ktorej kolumnie szukamy wiersz:=0; while StringGrid.Cells[kolumna,wiersz]... do Inc(wiersz); StringGrid.Row := wiersz; // zaznacza pierwszy pusty wiersz
Dzień dobry, Jeśli to ma być zrobione jednorazowo, można użyć Filtra zaawansowanego, jak w pliku przykładowym. Danym trzeba nadać nagłówek, potem taki sam musi być w zakresie kryterium. Jako kryterium wpisać gwiazdkę. Wybrać opcję filtrowania Kopiuj w inne miejsce. Jeśli lista nie zawiera duplikatów, można też użyć funkcjonalności Usuń duplikaty. Należy...
Witaj, Możesz rozszerzyć warunki o sprawdzanie, czy pola są puste (lub czy są liczbami, na jedno wyjdzie), np: fragment - JEŻELI(C11=E11;1;0) można spróbować rozszerzyć do: JEŻELI(ORAZ(C11=E11;CZY.LICZBA(C11));1;0... Oczywiście z pozostałymi fragmentami tak samo. W takim przypadku oprócz równości musi zajść warunek, że jedno z pól musi być liczbą. Drugiego...
Jeśli w Excelu używasz funkcji ŚREDNIA do zakresu komórek, to Excel bierze pod uwagę tylko komórki wypełnione liczbami. Nie przeszkadzają mu komórki puste ani komórki z tekstami. Przeszkadzają tylko błędy, bo to uniemożliwia obliczenie. Więc jeśli za każdym razem potrzebujesz tylko bieżącą średnią, to możesz użyć pełnego zakresu z zapasem i stopniowo...
Witaj. Powinno starczyć zwykłe JEŻELI zagnieżdżone - ze względu na małą ilość warunków jest to akceptowalne rozwiązanie: dla H30: =JEŻELI(D13="1x S i 1x U";H12-I41;JEŻELI(D13="2x S";H12-I40;JEŻELI(D13="2x U";H12-I42;""))) Jako że poprawność wprowadzania danych do D13 jest sprawdzana, to funkcji nie trzeba rozbudowywać o sprawdzanie poprawności danych....
FF - jak pusta
Witam, to mój pierwszy post na forum elektroda. Dopiero zaczynam z VBA i mam mały problem. Problem do rozwiązania wygląda tak: Kolumna Wiersza 1 aaa 2 aaa 3 aaa 4 5 bbb 6 bbb 7 bbb 8 9 c n+1 W arkuszu mam taką serię w kolumnie A. Wartość każdej komórki nie ma żadnego znaczenia. Chciałbym aby makro sprawdzało czy komórka jest pusta i jeśli jest pusta...
Tamtej formuły nie sprawdziłem w przypadku gdy są puste komórki w danych i jeden człon okazał się niepotrzebny. Sprawdź teraz.
Ma kopiować te komórki do pierwszego pustego wiersza w "Arkusz1" czy jak?
To chyba przez sposób w jaki IE wyświetla puste komórki. Widzę że nie używasz CSSa, a szkoda, polecam zaznajomić się z czym to się je, to Ci znacznie życie ułatwi... Póki co wstaw gdzieś między znaczniki HEAD taki wewnętrzny arkusz stylów (dodaje obramowanie dla tabeli i komórki + dodatkowo 3px padding): [syntax=html4strict]<style type="text/css">...
Witam, Mam makro jak w ostatnim fragmencie kodu w temacie: http://www.elektroda.pl/rtvforum/topic15... Makro rozwiązało problem z tego tematu, jednak pojawił się kolejny - otóż muszę w puste komórki w kolumnie A1 wstawić takie daty, żeby w kolumnie była ciągłość. Kod: Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A"...
Teraz działa dobrze ale tylko wtedy kiedy wpisuje pojedyncze wartości. Jeśli wklejam kilka wartości to wartości "AAA" nie są zamieniane. Druga sytuacja jeśli wklejam kilka wartości a pierwsza wartość to "AAA" to wszystkie wartości wklejane zostają zastąpione wartością "BBB" nawet puste komórki. (at)ElektrodaBot
Zrobiłem tak, jak to zwykle robią zawodowcy ;) 1. Nagrałem sobie makro przy zapisywaniu. Wyszło takie coś: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Adam\Desktop\Zeszyt1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=...
Uwaga: Od 20 do 140 będzie 121 wartość. Przy założeniu że numery, począwszy od pierwszego wiersza i nie pustych wierszy =SUMA(PRZESUNIĘCIE(A1; ILE.LICZB(A:A)-120; 0; 120))
Pewnie pierwsze dane masz w drugim wierszu, u mnie był w 3, zamień: For k=3 na For k=1 (sprawdzanie od pierwszego wiersza). Makro sprawdza kolumnę B od dołu, widocznie są u Ciebie jakieś puste wiersze ... Jeżeli wiesz ile masz komórek w kolumnie B do sprawdzenia wpisz na sztywno (3500 to ilość wierszy) : zamiast: For k = 3 To Cells(Cells.Rows.Count,...
W dużym uproszczeniu Excel "przechowuje" daty jako liczby kolejne, począwszy od 1900-01-01 (liczba 1) co dla dzisiejszej daty daje liczbę 38426. Dla komórki pustej (czyli 0) liczba ta jest większa o 1 czyli 38427. Aby to ominąć możesz dodać warunek sprawdzania czy komórka jest pusta funkcją Czy.pusta(A1) , która w wyniku daje wartość PRAWDY lub FAŁSZU...
Dzień dobry, Proszę wyjaśnić co miałoby oznaczać "pomijanie pustych komórek" w tym konkretnym przypadku. Tu mamy stosunek średniej ważonej wyniku w stosunku do wartości maksymalnej zapisanej na sztywno jako 3 z odpowiednią wagą. Czyli formuła typu: [syntax=text]=(ocena1*waga1+ocena2*waga2... Przy takim zapisie formuły istotnie...
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
Witam, potrzebuje pomocy w napisaniu makra, które będzie działać jak w poniższym opisie: Mamy dwie takie same tabele w jednym arkuszu. Nie są to tabele przestawne. Mają po 26 wierszy oraz po 14 kolumn. Jedna mieści się w zakresie A14:N39 a druga poniżej, obejmuje zakres A42:N67. Do pierwszej wczytywane są dane z innego pliku o nazwie kalkulacja.xlsm,...
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Co to znaczy "usunąć puste"? Czy chodzi o ukrycie wierszy, w których są puste komórki w tej wybranej kolumnie, czy o coś innego? Co to znaczy, żeby "nie trzeba było zatwierdzać enterem"? A czym? W jaki sposób miałby być dokonany ten wybór tygodnia?
Powinieneś załączyć przykładowy plik Excela, bo za dużo jest niejasności w tym, co napisałeś. Przykładowy kod, który działa wg Twojego opisu: [syntax=vbscript]Sub AddSheets() ' zakładamy, że nazwy nowych arkuszy ' są w komórkach od B5 w dół Dim ostw As Long, w As Long ostw = Arkusz1.Cells(5, 2).End(xlDown).Row For w = 5 To ostw Sheets.Add(After:=Sheets(Sheets.Count))....
Ten opis odjąć po 8 godzin za każde święto wolne od pracy przypadające w dniu innym niż niedziela jest bardzo pogmatwany i ja go nie rozumiem. U nas interpretacja była taka, że jeśli święto ustawowe przypada w sobotę, to należy się pracownikom dodatkowy dzień wolny. Czyli można to interpretować tak, że norma czasu zmniejsza się o 1 dzień. To co zrobiłeś...
Nadal nie podajesz wersji Excela, więc nie wiem z których funkcji możesz korzystać. To są takie drobiazgi, więc myślałem, że sam to sobie uzupełnisz w miarę potrzeby. Tak samo jak to odwołanie do pustej komórki $AA$1. Do czego ono jest potrzebne? Tego nie rozumiem, ale ponieważ było w Twoich wzorach, to tak zostawiłem. Moim zdaniem można je pominąć...
Cześć, ma pytanie i proszę o poradę: jak zrobić pętle (lub coś innego), która będzie powiększała obszar zaznaczenia o kolejne wiersze od komórki w której stoi, aż do momentu kiedy znajdzie (pierwszy raz) napotkane słowo. Wyszukiwane słowo będzie w kolumnie A, gdzie znajdują się także puste komórki. A na końcu powiększy zaznaczony obszar np. o 7 kolumn:...
Jak widzę występujące w tabeli "liczby" właściwie nie są liczbami bo są przechowywane jako text, wystarczy je przekonwertować na liczbę i wszystko liczy tak jak powinno. opis jak się tego pozbyc: Poszczególne komórki 1. W menu Narzędzia kliknij polecenie Opcje, a następnie kliknij kartę Sprawdzanie błędów. 2. Upewnij się, że pola Włącz sprawdzanie błędów...
Przepraszam, tak wyraziłem swoją myśl mało precyzyjnie. W kolumnie B od wiersza B1 do wiersza od B2 do B2000 znajdują sie dane. Są w tym własnie wierszu są one wprowadzone w sposób ciągły i nie zawierają pustych komórek. Pusta komórka to koniec danych do zliczania. W pliku zamieściłem linie oddzielającą dane raportowe od podsumowań - sugeruja one wiersz...
Dane źródłowe są w zakresie AG7:AG27 i te komórki można klikać wielokrotnie, bo dane są kopiowane, a nie przenoszone. Jeśli zakres docelowy jest początkowo pusty, kopie są umieszczane od komórki J4 w dół. Nie dałem ograniczenia na wierszu 14., bo nie zostało opisane zachowanie procedury w tym momencie. Jeśli wypełniona zostanie komórka J14 i użytkownik...
Klasyczne pola wyboru czy opcji przy dużej liczbie kontrolek są trudne do obsługi. Sugerowałbym raczej rozwiązanie zastępcze z użyciem VBA. Coś takiego wstawiłem do przykładowego arkusza. W kolumnach B i C są tam wstawione do komórek znaki Unicode przypominające znak akceptacji i pusty prostokąt. Do obsługi tego jest makro zdarzeniowe, które reaguje...
komórka pusta pusta komórka makro pierwszy pusta
gigabyte radiator klapka megane czarny ekran włączyć myszka
Peg Perego RZR 900 - Zatrzymuje się po kilku metrach Czy kontrolka zgaśnie po wymianie świec żarowych?