wiersz warto

przeszukać, utworzyć nowy wiersz pod wart. szukaną i wkleić wszystkie znalezione

Czyli to poprzednie makro powinno to robić, niedoróbka ... Edycja: Sprawdź 880784

[Java] Jak wyłuskać k-ty element z tablicy w klasie WierszTrojkataPascala w Javie?

[syntax=java] import java.util.*; public class Test{ public static class WierszTrojkataPascala{ public WierszTrojkataPascala(int n){ int Wiersz[] = new int[n+1]; int w=1; Wiersz[0]=w; for(int i=1; i<=n; i=i+1){ w=w*(n-i+1); w=w/i; Wiersz[i]=w; }; } } public static void main(String args[]){ int n=Integer.parseInt(args[0]); WierszTrojkataPascala Line...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Dodawanie kolumny z wartością z poprzedniego wiersza w SQL na podstawie sortowania groupid

To ma być jednorazowa akcja, z której będzie tylko eksport do Excela. Sądziłem że to dobra sytuacja żeby trochę podszkolić się w SQL. No to by cię czekał skok w SQLu from zero to hero, zupełnie na głęboką wodę. Warto ? Dasz radę? Jeśli mogę sie uznać za jako-tako wprawionego w SQLu, to nie chlastam się z bardzo wysilonymi przypadkami (żeby wcisnąć...

Automatyczny nowy arkusz z wartościami >0 w co 2 wierszu

w G2 wpisz data w formacie "d"; w J2 =G2+1, w M2 =J2+1 itd. [syntax=vb]Sub nastepny() ActiveSheet.Copy after:=ActiveSheet With ActiveSheet num = Mid(.Name, 3, 2) .Range("E4") = "z T-" & num num = Format(Val(num + 1), "00") .Name = "T-" & num ow = .Cells(Rows.Count, 1).End(xlUp).Row .Range("g2") = .Range("y2").Value + 1 .Range("E6:E" & ow) = .Range("D6:D"...

VBA- dodawanie wierszy z identycznymi wartościami i pozostawienie tylko pierwsze

Najprostsze co można zrobić: [syntax=vbscript]Option Explicit Sub sumuj1() Dim w As Long: w = 2 Application.ScreenUpdating = False Do Until Cells(w, "a").Value = "" If Cells(w, "g").Value = Cells(w + 1, "g").Value Then Cells(w, "a").Value = Cells(w, "a").Value & Chr(10) & Cells(w + 1, "a").Value Cells(w, "b").Value = Cells(w, "b").Value + Cells(w...

vba excel - wyszukiwanie wiersza po wartościach z dwóch combobox

Analogicznie [syntax=vb] For Each c In ActiveSheet.Range("C1:C22") ' przeszukiwanie If c = cc2.Value And Range("A" & c.Row)= cc1.Value Then wiersz = c.Row Exit For End If Next c [/syntax] Edit

Excel - jak znaleźć wiersze z identycznymi wartościami w 4 kolumnach?

Sorki, zmyliło mnie "o identycznych 4 kolumnach" ;) Użyj dwóch kolumn pomocniczych np. E, gdzie formuła =A1&B1&C1&D1 i F =JEŻELI(LICZ.JEŻELI(E:E;A1&B... duplikat";"")

Makro Excel: Jak łączyć wiersze z identycznymi wartościami w kolumnach A-H, K?

Pytanie zrozumiałe. To zwykła suma liczb, więc w czym problem? Osobiście nie bawiłbym się w składanie formuły. Wystarczy zostawić jeden wiersz, pozostałe usunąć i wpisać sumę... Jeśli jednak składniki ulegają zmianie. Zamiast "+" użyj ActiveCell.Formula = "=SUM(arg1,arg2,...)" Gdzie prawa strona równania jest typu string, więc łatwo poskładać.

Excel - kopiowanie wierszy z wartościami >0 z kolumny H do innego arkusza

O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.

EXCEL VBA: Tworzenie arkusza, nadawanie nazwy, wpisywanie danych w kolejnych wierszach

Proponuję, żeby Kolega (zakładając, że nie ma Kolega pojęciu o VBA) zaczął od zarejestrowania makro, w którym doda sobie Kolega arkusz, określi jego nazwę i kliknie sobie w dwie komórki po sobie. Potem może sobie Kolega obejrzeć kod makro, które zostało nagrane i wszystko powinno być jasne. Jeśli będzie miał Kolega problem z jakimś fragmentem kodu -...

Datasheets.com jakie są Wasze opinie i pomysły?

Sama strona mogła by być bardziej interaktywna np. po najechaniu na daną zakładkę ale bez kliknięcia w nią mógłby pojawiać się skrót zawartości. Przy pierwszej wizycie nowego użytkownika mogła by się pojawiać krótka, przyspieszona animacja przedstawiająca przykład nawigacji/wyszukiwania na stronie. Wiersz wyszukiwania warto przypiąć na stałe do górnej...

Excel - sortowanie identyfikatorów i wartości czasu w wierszach

Dzień dobry, W takiej sytuacji zawsze lepiej dać załącznik z przykładowymi danymi, bo po co tracić czas na kopiowanie z tekstu. Próbka danych jest mała, ale sądzę, że wystarczy zwykłe WYSZUKAJ.PIONOWO zabezpieczone funkcją JEŻELI.BŁĄD przed komunikatem o braku danych. Zakładam, że Excel w wersji >=2007. Załączony plik .xls proszę wczytać do Excela i...

excel - wyszukiwanie podanych wartości w wierszach i wpisanie wyników do tabeli

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...

Excel - Przenoszenie wiersza w zależności od wartości

:) 8-) Bez przesady. 8-) to ułamek mojej wiedzy 8-) :) Nie no ... oszukuje :) Na poważnie: Miło że Ci się podoba ale kod makra nie jest zbyt ambitny. Może ktoś zrealizuje to prościej ale niestety mam kocioł w pracy i muszę się "wyłączyć". (ostatecznie pomagać wieczorami) W załączeniu poprawki. Zapomniałem wspomnieć Arkusz "Zlecenia" ma się tak nazywać...

VBA - dopisywanie kolejnych wierszy przy tej samej wartosci poczatkowej

Zrobiłem 4 pozycje, bo arkusz 'dane' wygląda, jak formularz. To poprawiony kod: [syntax=vbscript]Sub wprowadzamyDane() Dim d, w, nw, lp, pracownik, wi, x, ow Set d = Sheets("Dane") Set w = Sheets("Wynik") ow = d.Cells(Rows.Count, "C").End(xlUp).Row nw = w.Cells(Rows.Count, "A").End(xlUp).Row + 1 lp = w.Cells(nw - 1, 1) + 1 pracownik = d.Range("C3")...

Regulator temperatury Fine Tek serii PT-7320 zakłócenia

witaj tu masz karte katalogową tego regulatora http://www.solidlink.pl/pliki/wiersz/776... co do zakłócenia to może warto by było aby przewód łączący Pt100 z regulatorem był w ekranie

Excel – sumowanie wartości według nazw w wierszach, automatyzacja dla wielu danych

Spróbuj tej wersji: [syntax=vb]Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2013-01-24, autor Darek ' ' Dim maxIndex, maxX, maxY, nextFree, tmp, x, q As Integer Range("A1").Select maxX = ActiveCell.SpecialCells(xlLastCell).Colu... maxY = ActiveCell.End(xlDown).Row maxIndex = Round(maxX / 2) Dim nazwy() As String Dim wartosci() As Integer ReDim...

[C++] Jak w C++ podzielić ciąg z pliku po przecinkach i zapisać do tablicy?

Jak określić rozmiar tej tablicy x oraz y na podstawie danych zawartych w pliku Zależy jakich danych, ale zazwyczaj nie ma innego sposobu niż przeczytanie tych wszystkich danych. Mianowicie ilość danych zapisanych w pliku nie jest stała Dlatego użyłem listy, a nie tablicy. Jeśli potrzebujesz również zmiennej ilości wierszy to zrób listę przetrzymującą...

php/mysql - Jak wyszukiwać dane po dwóch wartościach w MySQL?

Szczerze mówiąc nie wiem co piszesz, mogłabyś przeredagować treść tak, aby wiadomo było jaki efekt chcesz uzyskać? Wyświetlenie treści z innych pól nie jest problemem: [syntax=php] echo "<td>" . $wiersz['www'] . "</td>"; echo "<td>" . $wiersz['ic2'] . "</td>"; echo "<td>" . $wiersz['nazwa'] . "</td>"; echo "<td>"...

Excel: Jak stworzyć plik wyświetlający pozycje powtarzających się wartości w jednym wierszu?

Zawsze warto napisać, w której wersji Excela ma pracować to rozwiązanie, bo w różnych wersjach są dostępne różne funkcje. Jeśli chodzi o rozdzielenie formułą do osobnych komórek danych rozdzielonych średnikami, to na upartego się da, ale to dość złożone. W tym przypadku sugerowałbym użycie VBA i funkcji UDF, która przetwarzałaby listę rozdzieloną średnikami....

[excel][vba] Kopiowanie wierszy jezeli okreslona wartosc

[syntax=vbscript]Sub DodajDoBazy() Warunek = 123 owv = Cells(Rows.Count, "V").End(xlUp).Row nwa = Cells(Rows.Count, "A").End(xlUp).Row + 1 For x = 1 To owv If Cells(x, 22) = Warunek Then Range(Cells(x, 22), Cells(x, 26)).Copy Range("A" & nwa) nwa = nwa + 1 End If Next End Sub [/syntax]

Jak wyświetlić liczby pomiędzy dwiema wartościami w OpenOffice Calc 3.0?

Witaj. Określ może najpierw jak chcesz wprowadzać liczby zakresu oraz na jakiej bazie danych chcesz dokonywać porównań (tabela, kolumna, wiersz). Myślę, że tak jak kolega wcześniej podpowiedział będzie to "tasiemiec" chyba, że pokusisz się o VBA. Podaj jakiś przykład źródła danych i oczekiwanych rezultatów, będzie łatwiej coś doradzić.

Czy warto dokupić pamięci i uruchomić je w dual channel ?

Nie - sprawdzić to można pewnie na ekranie startowym, ew. z poziomu systemu przy użyciu programu CPU-Z np. i patrząc na opis w zakładce Memory (wiersz Channels).

Wyszukanie wierszy w tabeli z określoną wartością i zwrócenie numerów wierszy...

w danym wierszu nigdy nie wystąpi taka sytuacja aby ten sam człowiek był w więcej niż jednej kolumnie W takim razie porównanie zastąp wyszukiwaniem. http://obrazki.elektroda.pl/3486189600_1... =JEŻELI(CZY.BŁĄD(WYSZUKAJ.POZIOM...

Zegar MC1206 – gdzie znaleźć szczegółowy schemat z opisanymi elementami i wartościami?

Bardzo dziekuje. Proszę ... :D z czym sie łączy K1,K2,K3,K4 Do plus zasilania, to przecież jest obok opisane, a te cztery łączniki - dwa bistabilne a dwa a stabilne - służą do "ustawiania" tego zegara. Jak poszukasz sobie - a jest dostępny w internecie - DataSheet układu MC1206, to tam jest to wszystko opisane i powinno być w języku polskim. i do czego...

Czy warto dołożyć do Caviar Green dysk Caviar Black

No to może powinieneś skorzystać z innej bazy danych. Mały off-top się zrobił ale według mnie sprzęt jest aż zbyt mocny do tego zastosowania. Po prostu program nieodpowiedni, dlatego go zarzyna. Ja pracowałem na bazach danych MySQL lub MsSQL albo SQLITE które liczyły dziesiątki milionów wierszy (to dla nich pikuś).

VBA kopiowanie komorek excela do schowka UTKNĄŁEM:/co dalej?

Za dużo kombinujesz ;) Wszystko można zmieścić w takim oto kodzie, komentarze - bez zbędnych dywagacji - w kodzie :) Mam nadzieję że zasadza działania jest jasna? W zasadzie to tylko pętla po wierszach i kolumnach + parę if'ów tłumaczących format excela na worda. "Sekret mnicha" tkwi w tym, żeby ustawić format paragrafu w Wordzie przed wypisaniem tekstu,...

excel - porównywanie w wierszach i wylkazywanie kolejności

a nie odwrotnie? tam znak powinien być chyba "<", a nie ">" i wtedy suma by pokazywała pozycję :) trochę łopatologicznie ale grunt że chyba działa Nie, z ">" jest dobrze. Oczywiście masz kilka elementów do wyboru: kolejność wpisania porównywanych wartości, znak "<" czy ">" oraz wartości "1" i "0" czy "0" i "1", możesz zmienić dowolne...

Jak zmodyfikować kod w VBA aby kopiował dane tylko dla kolumn C:G z wartością >99 w wierszu 128?

Chodzi o tę drugą pętlę? Wtedy Kod: vbscript Rozwiń Zaznacz wszystko Kopiuj do schowka If Cells(wiersz, 4) > 99 Then .Cells(wwrs, 4) = Cells(wiersz, 4) itd Raczej musi być przy tym warunku wiersz wpisany na stałe If Cells(128, 4) > 99, bo pętla rusza od 129 I tak zapytam autora po co te dwie pętle? i co jest w N? (nr wiersza czy nazwa arkusza chodzi...

VBA - Jak stworzyć makro sumujące wartości i wstawiające wiersze w Excelu?

A to? [syntax=vbscript]Sub WstawWiersze() x = 2 While Cells(x, "C") <> "" y = x + 2 Rows(y).Insert Cells(y, "C") = Cells(x + 1, "C") Cells(y, "D") = Cells(x, "D") + Cells(x + 1, "D") 'tutaj sumuj kolejne kolumny Range("D" & y & ":I" & y).NumberFormat = "0" x = x + 2 Wend End Sub [/syntax]

[Delphi] TRichEdit jak pobrać dane o skrolowaniu, zawijanie wierszy

1. To ustaw kursor na ostatniej lini w RichEdit jakaś procedura i powinno się samo przewinąć dokładnie nie wiem o co chodzi koledze 2, Co do zawijania textu to podobnie jak np w Memo w inspektorze obiektów WordWrap na True A propo zawijania wierszy to zawijanie polega na przeniesieniu następnych znaków do następnej linii bez dodawania znacznika nowej...

Excel: jak wyświetlić nazwę kolumny z minimalną wartością w wierszu (VBA lub formuła)

Przecinek a średnik to właśnie różnica wersji. Funkcja podająca pozycję w tabeli Podaj.pozycję(Szukana wartość ; przeszukiwana tabela; typ porównania 0 lub 1)[ jak 1/prawda to musi być kolejność rosnąca i zwraca pozycję liczby równej lub o "krok" mniejszej jeżeli 0 fałsz szuka dokładnie tego samego jak szukana wartość jeżeli nie znajdzie...

Zmiana podłączenia rezystorów suwakowych - wpływ na pomiary w wierszach 14 i 15

Da się to obliczyć i wyjaśnić mając tylko tyle danych tylko trzeba zacząć od końca. Czyli przy zadanych prądach trzeba zastanowić się jak poskładać obwód który da takie prądy w gałęziach. Trzeba pamiętać jak zbudowana jest opornica suwakowa i nie zapomnieć o rezystancji obciążenia. Najlepiej też przeliczyć procenty na wynikowe wartości rezystancji żeby...

Identyfikacja elementu - tranzystor czy stabilizator? Model S0616 na zdjęciu

To jest akurat proste i działa w 70-80% W pytaniu do google'a podaje się typ obudowy (SOT223) i symbole z niej, czasem kilka różnych kombinacji. Czasem warto też dodać słowo 'marking' Dla zapytania 'SOT223 marking 4266' już w pierwszych wynikach pojawi się link do pdf: The OPTIREG™ Linear TLE4266G is a low-drop voltage regulator for 5 V or 10...

Po skopiowaniu arkusza zostawić tylko te wiersze które nie mają wartości w kol F

Co musiałabym dopisać w moim kodzie Pętle, która sprawdzi czy komórki w f są róże od pustej i je usunie.

Excel, dynamiczna funkcja Unikatowe - wartości zawsze tylko z aktualnie odfiltrowanych wierszy

Tak, teraz dopiero wiadomo, o co chodzi. Podaję dwie propozycje formuł. Pierwsza w "starym stylu" bez funkcji LAMBDA: [syntax=text]=UNIKATOWE(FILTRUJ($K$5:$K$... z wykorzystaniem funkcji pomocniczej LAMBDA: [syntax=text]=LET(dane;$K$5:$K$24;UNIKAT...

Realizacja funkcji logicznej na multiplekserze 3-bitowym: y = ~a(b+~c) + b(~c+d) + ~c(a+~d)

chodzi tak po prostu o to, żeby wszystkie 16 wierszy sprawdzić jakby "manualnie"? Tzn. patrzeć wierszami i dla wejścia np. 1, kiedy mam w tabeli coś takiego: a|b|c|d 0|0|0|1 muszę jakby podstawić pod "a" zero, pod "b" też zero, pod "c" również zero i pod "d" jeden i później tak po prostu wykonać odpowiednie działania? Od tego trzeba zacząć. Z takiej...

Kopiowanie danych z różnych wierszy, różną ilość razy z zamianą formuł na wartości

Spróbuj jeszcze makra działającego na nieco innej zasadzie. Operacje na arkuszu są wykonywane w całych zakresach kolumnowych, a nie na pojedynczych komórkach. Napisz jaki będzie czas wykonania w tym przypadku. [syntax=vbscript]Sub Kopiowanie2() ' zakres źródłowy Worksheets("Arkusz2").Activate Dim ostw As Long Dim src1, src2, src3 ostw = Cells(Rows.Count,...

Sprawdzanie czy wartości w kolumnie są liczbami do ostatniego wiersza

Jako mod: Proszę stosować się do [url=https://www.elektroda.pl/rtvforum/t... (post poprawiłem). Jako user: Zły warunek. Sprawdzasz "i" - Nr kroku pętli zawsze będzie liczbą, a nie zawartość cells(i, kolumna).

Copy VBA na podst wartości - Kopiowanie wierszy na podstawie wartości VBA

[syntax=vbscript]Sub Handlowcy() Sheets("Dane").Select ow = Cells(Rows.Count, "E").End(xlUp).Row For x = 2 To ow For y = 2 To Sheets.Count If Cells(x, "F") = Sheets(y).Name Then nw = Sheets(y).Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(x, "E").Copy Sheets(y).Cells(nw, "A") Cells(x, "G").Copy Sheets(y).Cells(nw, "B") End If Next Next End Sub [/syntax]...

Jak usunąć wiele kolumn po nazwach nagłówków w VBA?

Aby usunąć wiele kolumn w VBA na podstawie nazw nagłówków, możesz użyć poniższego kodu. Ten kod przeszukuje wiersz nagłówka (w tym przypadku wiersz 1) i usuwa kolumny, które pasują do określonych nazw nagłówków. Sub UsunKolumny() Dim Naglowki As Variant Dim Naglowek As Variant Dim Kolumna As Range ' Określ nazwy nagłówków do usunięcia Naglowki = Array("Naglowek1",...

cmd => wiersz polwcen

A w skrócie to operujesz podstawowym zestawem komend z MS-Dos, warto poczytać na ten temat.

VBA EXCEL - dodawanie nowego wiersza poniżej, po zmianie wartości w komórce

dodanie takiego makra jak poniżej, nie wyświetla mi napisu "hello" Popełniasz błędy: - wprowadzając "prywatne makro arkuszowe" do modułu uniwersalnego :cry: , jeśli to samo makro wkleisz do modułu arkusza "zamówienia" i dokonasz zmiany treści komórki - zamiast ujętej tam formuły wprowadzisz tam 1 - to uzyskasz Twój pożądany efekt - "hello" :D ; - nie...

Jak scalić zduplikowane wiersze w Excelu zachowując wszystkie wartości?

To może tak: [syntax=vbnet]Sub Makro1() ' Dim ox, ox2 As Integer ' Application.ScreenUpdating = False Range("A2").Select While ActiveCell.Value <> "" If ActiveCell.Value <> ActiveCell.Offset(-1, 0) Then ActiveCell.Offset(1, 0).Activate Else ox = 1 ox2 = 1 While ActiveCell.Offset(-1, ox).Value <> "" ox = ox + 1 Wend While ActiveCell.Offset(0,...

Excel - Makro- kopiowanie wierszy w zależności od wartości w komórkach

[syntax=vbscript]For y = 1 To ile - 1[/syntax]

VBA Excel wstawianie skopiowanych wierszy określoną ilość razy oraz zmiana wartości

[syntax=vbnet]Sub Kopiuj5() Application.ScreenUpdating = False Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row nw = ow + 1 For x = 2 To ow If Cells(x, "C") > 1 Then Range(Cells(x, "A"), Cells(x, "C")).Copy Range(Cells(nw, "A"), Cells(nw + 4, "C")).Select ActiveSheet.Paste Range(Cells(nw, "C"), Cells(nw + 4, "C")) = 1 nw = nw + 5 End...

Modyfikacja Makro - kopiuj tylko wiersze z wartosciami

Witam, dzieki bystrosci uzytkownika PRL mam makro ktore kopiuje dane z zakladek. Chcialbym jednak ograniczyc zakres kopiowanie i nie kopiowac wierszy pustych. Czy tos mi pomoze? Dziekuje[/table]

Excel - Usuwanie duplikatów w wierszu, zachowanie unikalnych wartości

makrem[syntax=vb]Sub usunDupKol() tRow = 3 While Cells(tRow, 1) <> "" For c = Cells(tRow, Columns.Count).End(xlToLeft).Column To 2 Step -1 If Application.CountIf(Rows(tRow), Cells(tRow, c)) > 1 Then Cells(tRow, c).Delete xlToLeft End If Next tRow = tRow + 1 Wend End Sub [/syntax]

VBA Excel - makro do kopiowania wierszy na podstawie wartości z komórek

[syntax=vbscript]Sub AF() Sheets("A").Range("A4:R200").Clear For x = 2 To Sheets.Count For y = 4 To 300 If Sheets(x).Cells(y, "O") >= -30 Then nw = Sheets("A").Cells(Rows.Count, "O").End(xlUp).Row + 1 Sheets(x).Rows(y).Copy Sheets("A").Range("A" & nw) End If Next Next End Sub [/syntax]

Excel - Automatyczne zmienianie koloru wiersza przy nowej wartości w kolumnie A

Tych numerów jest kilkaset. Jeśli tak :cry: to konieczne może być dodanie na początku dwóch kolumn pomocniczych z "przeciągalnymi" formułami zliczającymi :idea: i wówczas będziesz formatował :D jak na zrzucie i w załączonym pliku :spoko: 1111274 1111275

VBA Excel - Jak usunąć wiersz na podstawie wartości w kolumnie B?

Co tu tłumaczyć wrs = Columns(2).Find(what:=Ra... lookat:=xlWhole).Row Rows(wrs).Delete 'Rows(wrs).ClearContents 'w zależności od sensu słowa "wykasować" i wszystko jasne... Gdyby nie znalazł, warto ten fakt zakomunikować. Np On Error Resume Next wrs = Columns(2).Find(what:=Ra...

Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości

Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości

EXCEL - Wyszukiwanie daty dla wartości C1/C2 w wierszu i widok aktualnej daty

Czy w danym wierszu (nazwie grupy) da się ustawić funkcje, która będzie wyszukiwała czy pojawiła się wartość C1 lub C2 i zwracała datę? Tak, można tak jak na zrzucie znaleźć datę pierwszego wystąpienia jednej wartości :D jeśli w nagłówkach będziesz miała daty, a nie jakieś cyferki czy literki :!: 1017338

Kolorowanie całego wiersza w Excelu na podstawie wartości komórki przy użyciu VBA

Można oczywiście użyć 'InStr', ale to zupełnie inna konstrukcja wyrażenia. Natomiast tu prościej zamiast operatora "=" użyć operatora "Like". Operator "=" nie uwzględnia znaków zastępczych, a "Like" - tak. [syntax=vbscript]If Cells(i, 15).Value Like "*otow*" Then[/syntax]Tylko nie rozumiem po co tam był ten trzeci cudzysłów. Ale generalnie formatowanie...

Excel - Makro na dodanie wierszy wg. wartości z komórki

Sprawdź, czy o to chodziło andie

Naprawa opaski Xiaomi - Wymiana wyświetlacza w Xiaomi Band 6

Dobrze, teraz napiszę jak do pierwszoklasisty bo chyba nie złapałeś. Nowy Band'6 kosztuje 189,99zł w sklepie gdzie pracuje KLEO... W firmowym sklepie zapłacisz 219zł. Barierą jest więc cena nowego ... porównywalna z kwotą jaką chcesz wydać na naprawę. Czytaj między wierszami - NIE WARTO NAPRAWIAĆ...! Lepiej kupić nowy za 219 niż naprawić za 150 i nie...

EXCEL - Modyfikacja procedury VBA: dodawanie i kopiowanie wierszy, zmiana wartości w kolumnie G

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"...

Wyszukiwanie komórki i kopiowanie wartości w tym samym wierszu.

Wstawiam plik z rozwiązaniem problemu, tak jak ja go zrozumiałem. W kodzie makra nie wstawiałem objaśnień, bo zmienne nazwałem aż naddto opisowo. Jeśli czegoś nie rozumiesz z procedury, korzystaj z F1 ustawiając kursor na nieznanym Ci "słowie". Aha, nie zapomnij włączyć makr w Excelu, najlepiej na stale. Dostęp do edytora VBA to chyba wiesz: Alt + F11...

excel - nie moge poradzic sobie z wyznaczeniem roznic w poszczegolnych wierszach

Bez VBA chyba się nie obędzie. Spróbuj: 1) wpisać do tablic zawartość komórek rozdzielając ciągi Split (tekst, chr(10)) 2) porównać tablice każdy rekord z każdym, jeśli porównanie da wynik negatywny przepisujesz wartość do trzeciej tablicy lub bezpośrednio do komórki wynikowej. Ale: w A2 jest "STOP_RAPORT CTX_CARDMAN" spacja zamiast AltEntera. Takie...

Word 2002 XP SP3 - brak opcji Wstaw i Format na pasku menu

Domyślnie paski narzędzi Standardowy i Formatowanie pojawiają się zadokowane (element zadokowany: Element przytwierdzony do górnej, dolnej lub bocznej krawędzi okna. Zadokować można okienko zadań, przybornik, pasek menu i wszystkie paski narzędzi.) w pojedynczym wierszu i wyświetlane są najczęściej używane przyciski. Korzystając z tej procedury, można...

Excel - Sumowanie wartości z sąsiednich wierszy o tej samej zawartości A1 i A2

Ja bym do tego użył raczej sumy częściowe. Zlicza wszystkie zmiany i sumuje wskazaną kolumnę. Wadą jest wprowadzenie sum częściowych dla pojedynczych, niepowtarzających się wartości. No ale coś za coś. Przy 6.000 pozycji działa błyskawicznie ... Warto by zobaczyć plik przykładowy i przetestować ...

Excel 2007 - Jak posortować liczby w wierszach tabeli narastająco?

Ja też powiem że pierwszy sposób podany przez kolegę leonova jest odpowiedni i wystarczy tylko go lekko zmodyfikować a będzie działać, bez względu na powtarzalność liczb w tabeli. Po pierwsze należy zrozumie jak działa funkcja min.k(A;K) Układa zbiór A od najmniejszej liczby do największej i podaje liczbę która jest na K-tym miejscu w kolejności. Czyli:...

VBA - Excel - kopiowanie wartości i wstawianie wierszy

Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...

VBA Excel - Zaznaczenie komórki o danej wartości w przeszukiwanym wierszu

Witaj Po mojemu powinno być coś takiego:[syntax=vb]Sub KopiujZakres() Dim c As Range For Each c In Range("A1:Z1") If c.Value = "XYZ" Then Range("zak").Copy c.Offset(10, 0) 'już po robocie, więc Exit Sub End If Next c End Sub[/syntax]

excel/vba/userform - zwiększanie wartości kolejnego wiersza o x

Cells(NextRow, 1) = Cells(NextRow -1, 1) + 1

[C#] - Dynamiczne przelicznie wartości wierszy i kolumn w DataGridView

W takim razie jak obejść fakt że w komórce Krotność nie musi być żadna wartość. Jeden z if'ów sprawdza to i odpowiednio przelicza wartości. Chodzi Ci o tego typu if'y? row.Cells ) również zostanie rzucony wyjątek, bo nie można wykonać żadnej metody na null'u. W tym przypadku możesz użyć as .

Excel - jak automatycznie pobierać wartości ze scalonych komórek co 5 wierszy?

Dzień dobry, Jest kilka sposobów rozwiązania, w pliku podałem 3 warianty do wyboru z wykorzystaniem funkcji INDEKS, PRZESUNIĘCIE i ADR.POŚR. Składnia jest następująca: =PRZESUNIĘCIE(początek_zakresu;skok*(WIE... =INDEKS(zakres;skok*(WIERSZ()-nr_pierwsz... =ADR.POŚR(litera_kolumny&skok*(WIERSZ()-...

VBA - Kopiowanie tylko wartości z wiersza A bez formatowania

Witaj Zamiast tego Rows(1).Copy Destination:=Rows(ost_wiersz) wpisz Rows(ost_wiersz) = Rows(1).Value Dodano po 2 z wiersza „A” "A" to jest kolumna

[Excel] Wyszukiwanie jednej wartosci w kilku plikach

Moja sugestia jest jednak taka, żeby te pliki wrzucić do tabeli w Accessie i tam je analizować. To a propos pytania "co byście zmienili". Jeśli już się uprzeć przy pliku, to usuwanie większej ilości wierszy pojedynczo poleceniem .Delete jest baaaardzo wolne, zagnieżdżona pętla też nie pomaga. 4 pomysły na przyspieszenie: 1. Kopiować znajdowane wiersze...

Excel: Jak stworzyć funkcję sumującą koszty dziennie i miesięcznie?

Ja zastosowałbym zwykłą sumę warunków: SUMA.WARUNKÓW($F:$F;$A:$A;$H6;$B:$B;I$4) w pierwszej komórce zakresu. Suma iloczynów nadmiernie męczy komputer (w każdym razie mój :) ). Natomiast w komórkach I41:I71 zwykłą sumę I6:L6 ... I36:L36 Ponadto datę w ostatnich dwu wierszach kolumny dni (H35 i H36 oraz H70 i H71) warto dodać jeszcze jeden warunek, żeby...

Excel - Google Sheets - Blokowanie komórki przed wartością.

chciałem na razie wmontować tą blokadę żeby mi serwisanci w kulki nie lecieli Proponuję wykorzystanie innego mechanizmu zabezpieczeń "przed lecącymi kulkami" :D - opisałem jego zasady np. https://www.elektroda.pl/rtvforum/viewto... Trudno zrobić coś takiego w Google Sheets :cry: , ale zastanów się czy np. nie wystarczy wiedzieć...

Excel: usuwanie wierszy z tabeli przy powtarzającej się wartości (nie dubel)

usuwanie wierszy z tabeli przy powtarzającej się wartości

Makro VBA Excel - Zwiększenie wartości w pierwszym pustym wierszu w kolumnach

Może to będzie pomocne? [url=http://www.elektroda.pl/rtvforum/to...

Excel - makro do wstawiania pustych wierszy przed zmianą wartości w kolumnie

w przykładzie zeszyt3 [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 1).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub[/syntax] A tu kod z nazwą - ale nie...

Excel VBA: Jak usuwać wiersze na podstawie listy wartości z innego arkusza?

Tu masz ciastko[syntax=vb]Sub popraw_nazwe() Dim nazw As Range Set nazw = Sheets("baza").Range("A:B") With Sheets("tabela") For r = 2 To Application.CountA(.Range("A:A")) zla = .Cells(r, "A") If Application.CountIf(nazw, zla) = 0 Then dobra = InputBox(zla & " nie zostal odnaleziony" _ & vbCr & " w bazie danych", "Wpisz odpowiednia wartosc", "USD") r...

Excel - jak wyszukać i skopiować wiersze na podstawie nazwy lub nr katalogowego?

Taki na szybko przykład (łatwiej by było zrozumieć z cenami i nie tylko gdybyś ty zrobił przykład katalogu i główne dane). Nie wiem czy dobrze cię zrozumiałem z tymi cenami, ale funkcje wyszukiwania ustawione sa na cały arkusz 1. Mają też trochę zabezpieczeń jak głupotę wpiszesz. Możesz też kopiować przeciągając komórki - po to sa dolary przy odwołaniu...

excel - Jak dopisać do każdego wiersza na początku pewne wartości...

Jeśli numeracja ma się zmieniać, to formuła może być np. =WIERSZ(A1)&"|"&A1 gdzie A1 jest adresem pierwszej komórki. Ale Pan nie napisał, że numer ma się zmieniać.

Jak wyszukać wiele wartości poniżej komórki dla powtarzających się liczb bazowych w Excelu?

Z przykładu wynika, że chcesz te dane odczytywać wierszami (co wcale z opisu nie wynikało). W takim razie możesz zastosować formułę: [syntax=text]=FILTRUJ(DO.KOLUMNY(B2:E15)...

[EXCEL] Makro Excel: Kopiowanie wierszy na podstawie ostatniej wartości lp

Zmienit 'For i = 0 To nrep - 1' na 'For i = 1 To nrep - 1'

SQL - SELECT - Jak przenieść wartości z wierszy do kolumn w tabeli?

a ja potrzebuję taki wynik selecta: ID; IMIE; NAZWISKO; FUNKCYJNY; PREMIA 1; John; Novak; <null>; 100 2; Kate; Novak; <null>; <null> 3; Jack; Kovalsky; <null>; <null> 4; Ian; Smith; 500; 300 Użyj selecta w select-cie. [syntax=sql]Select PRACOWNIK.*, (select sum(KWOTA) from dodatki as dodatki1 where dodatki1.ID=Pracownik.ID...

Excel - przenoszenie wartości z jednej kolumny do innych grupowo

Jeśli bez makr, to można wspomóc się wierszami pomocniczymi. W moim przykładzie 2-ma. Formuły, poza 1-szym wierszem, są "kopiowalne". Warunek: posortowane kolumny A:B

Excel [VBA] - sprawdzanie wartości komórki,jeżeli >0 to kopuj tytuł wiersza

Zrozumiałem to trochę inaczej (wiele arkuszy w jednym skoroszycie). Przy porannej kawie wyszło mi coś takiego (przykład w załączniku). Uparłem się na zminimalizowanie VBA i dlatego zastosowałem jedynie odświeżanie filtra przy aktywowaniu arkusza.

Jak znaleźć adres komórki z najmniejszą wartością w Excelu?

Znam tylko sposób na znalezienie pierwszego od góry wiersza z najmniejszą/największą wartością. Formuła działa dla jednej kolumny i zwraca Nr wiersza zakresu: =PODAJ.POZYCJĘ(MIN(A1:A100);A1:A100;0) lub ="A"&PODAJ.POZYCJĘ(MIN(A1:A100);A1:A100;... Umieszczając formułę w nagłówku (A1) najlepiej nadać jej postać: =PODAJ.POZYCJĘ(MIN(A2:A100);A2:A100;0)+1...

Excel VBA: Skrypt do przenoszenia wierszy między arkuszami na podstawie wartości

Nie bardzo rozumiem, gdzie w tym jest ukryty problem. Zerknij na arkusz i napisz co jest nie tak:

LG Vivace R700 F2W9S721W za 2400 zł – czy warto? Opinie i alternatywy w tej cenie

Rozumiem, że wskazujesz na ogólny problem z jakością produktów LG Napisałem Ci jakiego producenta pralkę masz kupić, a opinia wyżej była między wierszami :)

Potrzebny program do obsługi schroniska dla zwierząt przez wolontariuszy

Na razie mam listę (generowaną przez skrypt PHP z bazy MySQL), z użyciem znaków Unicode: czerwony wykrzyknik i chiński znak oznaczający czesanie (Czarli i Gufi pod koniec listy). https://www.fuw.edu.pl/~jt/tmp/p.html - można by zobaczyć, jak to wygląda w smartfonach. Na Sony Xperia i na Nokia Lumia 640: czerwony wykrzyknik jest czarny, ale widać go...

VBa Excel, petla For Each, zmianna koloru i wartosci w komorkach

Ja w tym kodzie błędów nie widzę - makro działa tak, jak je zapisałeś. Nie kończy się na wierszu 16, tylko ponieważ jest ono uruchamiana w zdarzeniu Change komórki, polecenie wpisujące coś do komórki: [syntax=vb]... Cells(c.Row, 12) = DateAdd("m", Cells(c.Row, 9), Cells(c.Row, 11)) ...[/syntax]powoduje ponowne wywołanie zdarzenia zmiany (co może wyglądać...

VBA Excel: Błąd w pętli przy zmianie koloru wiersza na podstawie wartości w kolumnie 15

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)...

[excel,vba] [Excel, VBA] Jak powtórzyć dodawanie wierszy na podstawie wartości z komórki X9?

np. tak: Dim koniec as integer koniec=cells(9, 24).value '<--- pobiera wartość z X9 jako koniec for x=1 to koniec Tu jest to, co ma być w pętli next x

[VBA] Usuwanie wierszy gdy komórka zawiera wartość x

[syntax=vb]sub usuniecie() Application.ScreenUpdating = False ow = Cells(Rows.Count, "M").End(xlUp).Row For r = ow To 1 Step -1 If Cells(r, "M") = 1224 Or Cells(r, "M") = 1228 Or Cells(r, "M") = 1232 Then Rows(r).Delete Next Application.ScreenUpdating = True End Sub[/syntax]

Sony Vaio - SVE1113M1EV Nie działa przycisk assist przywracanie systemu.

Z tego co piszesz to uruchamianie startu WinRE przez Assist działa więc to co innego niz np. skutek modyfikacji partycji EaseUsem czy instalacji W8/8.1 'na czysto' z zewn. nośnika. Odnośnie DISM to z VAIO było mniej przykładów, http://www.elektroda.pl/rtvforum/find.ph... jest co czytać :wink: (czyli analogicznie...

Excel Dzielenie sumy wierszy przez liczbę wierszy, w których występuje wartość

Żaden kłopot. Jeśli chodzi o zera, to najprościej wyłączyć wyświetlanie w opcjach: http://obrazki.elektroda.pl/6240352000_1... W komórkach G34:G40 zrób podobnie jak w G41 =JEŻELI(SUMA(G2;G10;G18;G26)...

Jak zaprogramować czas nagrywania na nagrywarce LG z dekoderem Cyfrowego Polsatu?

Trochę nieścisłości... I tak jak moderator zaznaczył, przedatny jest model tej nagrywarki, nie każdemu piesku jest Azorek... Miałem w rękach nagrywarki kilku firm i menu jest w zasadzie podobne we wszystkich. 1. Po pierwsze - ustawienie zegara lokalnego. Najlepiej wpisać zegar z reki i następnie dokonać synchronizacji tego zegara z sygnałem telewizyjnym....

Excel - Jak ukryć wiersze 60-70, gdy pierwsza komórka ma wartość 0?

Może coś takiego: [syntax=vb] Sub ukryjWiersze() Dim i As Integer Dim selRange As String For i = 60 To 70 selRange = "A" & i If range(selRange).Value = 0 Then range(selRange).Select Selection.EntireRow.Hidden = True End If Next i End Sub [/syntax]

Makro do zaznaczania 4 kolejnych komórek z wartością 1 w Excelu

Przetestuj poniższy kod (ilość kolumn do sprawdzenia jest brana na podstawie ilości zapełnionych komórek w wierszu 1). [syntax=vb]Sub pokoloruj_1v2() Dim lLstRw& Dim iLstCol% Dim rRng As Range Dim rTmpRng As Range iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To iLstCol lLstRw = Cells(Rows.Count, i).End(xlUp).Row On Error Resume Next...

EXCEL - Wyszukiwanie, czy którakolwiek wartość z kolumny znajduje się w wierszu

Liczbę zgodności można uzyskać dość łatwo pod warunkiem, że wpisy będą faktycznie identyczne. Formuła tablicowa: [syntax=text]=SUMA(--($C2:$H2=INDEKSY!$A...

Jak wyszukać i przenieść dane z wartością 15 w Excel 2007?

Na początku musisz ustalić długość kolumny, którą będziesz przeszukiwać tzn. ostatnią niepustą komórkę. Możliwe jest to za pomocą: Application.WorksheetFunction.CountA(... Do wyszukania wartości użyć można: Selection.Find() Cały wiersz zaznaczasz za pomocą: Rows().Select Zaznaczony wiersz kopiujesz: Selection.Copy Wklejasz: Range().Select...

[EXCE] VBA Wyszukiwanie wiersza, w którym wstawiona ma być wartość.

Zmień kod np tak :spoko: : [syntax=vbscript]Sub Add_ret_Click() Dim rngTmp As Excel.Range Dim rngBlanks As Excel.Range Set rngTmp = Range("B24:C24") 'Tw?j obszar On Error Resume Next Set rngBlanks = rngTmp.SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If Not rngBlanks Is Nothing Then MsgBox "Uzupe?nij puste kom?rki" & vbNewLine & "pusta kom?rka...

Sterowniki USB do kontrolera Intel 5 Series/3400 na płycie GA-P55M-UD2, Win7x64

Dodatkowo oprócz podania podania nazw plików, których brakowało (jeśli to będzie możliwe) warto uruchomić wiersz poleceń jako administrator i wykonać polecenie sfc /scannow - powinno ono sprawdzić krytyczne pliki systemowe i jak dobrze pójdzie naprawić/uzupełnić te uszkodzone lub brakujące.

VBA Excel, makro wyszukanie nr kolumny z określoną wartością

Coś takiego: [syntax=vb] Sub szukajDanejWartosci() Dim danaWartosc As Variant Dim liczbaWierszy As Integer Dim liczbaKolumn As Integer Dim i As Integer Dim j As Integer liczbaWierszy = 20 liczbaKolumn = 4 danaWartosc = 0 '<-- TEJ wartości szukasz w arkuszu For i = 1 To liczbaWierszy For j = 1 To liczbaKolumn If (Cells(i, j) = danaWartosc) Then 'MsgBox...