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...
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
Wygląda na to, że jest to seryjny procek Hitachi, nie rozszyfrowałem końcówki RK28P, ale wydaje mi się, że jest to rodzaj obudowy i 28 to ilości pinów. Układ jest zasilany napięciem +5V? Zmierz multimetrem napięcia pomiędzy. Kolumna - kolumna. Kolumna - masa. Wiersz - wiersz. Wiersz - masa.
Przeanalizuj następujące makro: Sub problem_z_sortowaniem() 'żródło A5:A11 pierwszy_wiersz = 5 ostatni_wiersz = 11 kolumna = 1 'wynik kol.B od 5 wiersza nowa_kolumna = 2 'nr kolumny wynikowej licznik = 5 'nr pierwszego wiersza For wiersz = pierwszy_wiersz To ostatni_wiersz If Cells(wiersz, kolumna) > 0 Then Cells(wiersz, kolumna).Select...
Da się. Robisz sobie na kolumnie C = MOD(WIERSZ()-1;6)+1 Na kolumnie B analogicznie, ale co szósty, zatem dzielisz dodakowo: =MOD(LICZBA.CAŁK((WIERSZ()-1)/6);6)+1 I w analogiczny sposób kolumna A, ale wiersz co 36 (6*6) i dzielisz modulo już przez 3 Potem wystarczy połączyć A*100 + B*10 + C. To najbardziej czysto matematyczna metoda.
Drogi Kolego! Oto przykładowy pseudo-kod demonstrujący pobieranie pozycji zaznaczonej komórki w StringGrid: grid: TStringGrid; kolumna, wiersz: Integer; kolumna := grid.Col; wiersz := grid.Row; No i wszystko w tym temacie :-) Pozdrawiam!
1. Ilosc wierszy i kolumn jest stala? 2. jesli zaznaczeno tylko wierszy lub tylko kolumny - wpisywanie w caly wiersz/kolumne? Dodano po 2 Gdy zaznaczeno wiersz oraz kolumna
Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
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",...
W 2016 to nie będzie działać. Funkcja UNIKATOWE jest od wersji 2021 lub w 365. Dlatego zawsze jak zadajesz pytanie dotyczące Excela trzeba podawać wersję. Do wersji 2016 (w nowszych też będzie działać) możesz zastosować formułę: [syntax=text]=CZY.PARZYSTE(SUMA(--($L$5:... W tym przypadku nad tabelką musi być jakiś wiersz...
Znajdź sobie jakiś kurs... Bardzo uniwersalna odpowiedź. Pasuje do każdego tematu we wszystkich działach. :arrow:tang0 przeanalizuj następujący Sub wstawianie_iksow() ile = 3 'liczba iksów, pobierana z komórki lub pola tekstowego formularza kolumna = 1 'Nr kolumny 1 dla A, 2 dla B itd wiersz = 1 'Nr wiersza For wstaw = 1 To ile Step 1 wynik...
To jest procedura zdarzeniowa z trzyargumentową podprocedurą (tak było mi wygodniej). Po umieszczeniu w kodzie arkusza, "sama" się uruchamia. Tzn uruchamia się przy zmianie wartości w dowolnej komórce ;) Ustawienia są w 4-ech miejscach: 1. nagłówkowa kolumna tabeli źródłowej - "Set zakres_wierszy_zrodlowych" 2. nagłówkowy wiersz tabeli źródłowej - "Set...
No ja myślę, że wypadało by pobierany zakres podstawić gdzieś i rozebrać na czynniki. Czyli ilość wierszy, i ilość kolumn odkąd dokąd. Później już z górki. W pętli machasz generatorkiem liczb pseudolosowych czyli .... ( co więcej od razu możesz w momencie wstawiania liczby liczyć już sumę kwadratów, żeby skrócić kod ) ... Przykladowo zaznaczyles C5:F10...
oto co wielki Mikroszit o tym mówi: Konwertowanie liczb przechowywanych jako tekst na liczby Cały zakres jednocześnie W pustej komórce wprowadź liczbę 1. Zaznacz komórkę i w menu Edycja kliknij polecenie Kopiuj. Zaznacz zakres liczb przechowywanych jako tekst, które mają być konwertowane. W menu Edycja kliknij polecenie Wklej specjalnie. W obszarze...
A takie rozwiązanie? Function Szukanie(Wskaznik, Rok, Zakres as Range) For Each Kom In Zakres If Kom = Wskaznik Then Wiersz = Kom.Row End If Next For Each Kom In Zakres If Kom = Rok Then Kolumna = Kom.Column End If Next Szukanie = Zakres(Wiersz - 1, Kolumna).Value / 100 End Function Powinno działać prawidłowo. Dodane: Coby funkcja była...
mierzyłem tez te 2 piny omomierzem w zakresie 200 ohm, i o dziwo na nie wcisnietym przycisku omomierz nie wskazywał zwarcia, ale po przestawieniu na 2k ohm juz cos sie pojawiało, o co tu chodzi? Może cos to wnosi do tematu? Aaa chodzi o to że blaszka się przesuwa na kleju i dotyka ścieżek na folii (warstwa pierwsza od obudowy) lepiej lub gorzej. Możliwa...
Jest prosty sposób na uruchomienie makra jeśli aktywowana będzie określona komórka. Powiedzmy, że zmieniasz dane w A1. Jeżeli posługujesz się klawiaturą to następna aktywowana komórka będzie A2 lub B1. Przykład uruchomienia makra dla B1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) wiersz = 1 kolumna = 2 If Target.Row = wiersz...
Pokazałem Ci jak sterować położeniem komórki zmieniając i numery wiersza i kolumny. W "ActiveSheet.Cells(i, i + 1)" nie jest ustalona na sztywno kolumna C bo "i + 1" wyznacza kolumnę na podstawie zmiennej "i", więc za każdą jej zmianą - kolejnym obrazkiem, pozycja obrazka w arkuszu będzie się zmieniać i w wierszu i w kolumnie, czyli dla i=2 będzie...
Napisałeś się, napisałeś, a pewnie i tak bez załącznika mało kto się w tym połapie... Ja też po którymś tam warunku wysiadłem, ale z tego co piszesz, to są proste operacje, tylko musisz zastosować kilka pętli. - zacząć możesz od zadeklarowania skróconej wersji arkuszy: [syntax=vb]Set wsrap = ThisWorkbook.Worksheets("Raport") Set wswyn= ThisWorkbook.Worksheets("Wynik")[/syntax...
Masz bad sektory na dysku i to jest zapewne przyczyna twoich problemów,pierwszy podświetlony wiersz program Hd Tune kolumna data 193 bady
Ale nie do GND Poczytaj o klawiaturach matrycowych lub sekwencyjnych np tu: http://rafal_korupczynski.users.sggw.pl/... proponuję zaadoptować układ typu biegające światło(ne555 + cd4017) zastępując diody miniaturowymi przekaźniczkami. Można też transoptorami ale trzeba sprawdzić czy wyższy potencjał ma wiersz czy kolumna w klawiaturze i...
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...
No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...
W całości popieram zdanie kolegi jankolo (i żeby nie było, że ceruję się u moderatora) :D Toteż nie podeślę gotowca. Odpowiem tylko na zadane pytania. Czy muszę dla każdego z tych produktów tworzyć osobny warunek If Nie. czy mogę zastąpić to jakąś petlą Nie trzeba. w jaki sposób? Tworzysz formularz. Umieszczasz na nim Combobox -a i Label -a. Właściwość...
Czy w kolumnie F tak ma być? Tam są formuły, po scaleniu część danych znika. Założyłem, jak w przykładzie, że obszary do scalenia nie będą do siebie przylegać, tylko będą oddzielone co najmniej jedną linią bez scaleń. Na początku procedury są dwie stałe, które określają położenie początku danych do przetworzenia [syntax=vbscript]Const pkol = 1 'pierwsza...
Dzień dobry, Trzeba wyraźnie napisać jak to ma działać. Z opisu zrozumiałem, że mają być blokowane wszystkie komórki w kol. J od drugiej do ostatniej zapisanej. W drugim przykładzie jest już od komórki pierwszej, teraz okazuje się, że mają być blokowane tylko komórki niepuste. To trzeba się zdecydować, bo napisać można wiele wariantów, na przykład jeśli...
Jeżeli wpisy dla danego indeksu w kolumnach B i C nie powtarzają się, to powinno zadziałać. W tym przypadku konsolidacja działa na zasadzie sumowania, więc gdyby powtarzały się wpisy otrzymalibyśmy sumę jedynek. Aby uruchomić konsolidację należy umieścić kursor (komórkę aktywną) tam gdzie ma się rozpocząć zestawienie wynikowe, wybrać polecenie konsolidacji...
Spróbuj takiego makra. [syntax=vbscript] Sub Kopiowanie() Dim arkA As Worksheet, arkB As Worksheet, arkZest As Worksheet Dim OstA&, OstB&, GdzieWkleic&, PierwszyWiersz%, IleKolumn% Set arkA = ThisWorkbook.Worksheets("aaa") Set arkB = ThisWorkbook.Worksheets("bbb") Set arkZest = ThisWorkbook.Worksheets("Zestawienie") OstA = arkA.Cells(Rows.Count,...
Czemu jak już zrobiłeś przykład nie załączyłeś go do postu? (spakuj na przyszłość zipem i załącz) Po prostu wykorzystaj funkcję wyszukaj.pionowo() Zamknąłem w pętli i sprawdza po kolumnie M czy wysłano (dlatego tez na końcu pyta czy wysłałeś. Poniżej z paroma "wodotryskami". Makro nie sprawdza poprawności adresu mailowego więc jeżeli będzie zły a ty...
Podstaw pod argument Source - jest typu string... 1. znajdź ostatni wiersz i przypisz do zmiennej: ostW =Range("A" & rows.count).end(xlup).row jeśli nie ma nic "pod spodem" lub ostW =Range("A3").end(xldown).row jeśli kolumna A jest zawsze pełna. Jeśli nie, wybierz inną - pełną (bez dziur) 2. podstaw zmienną do string'a ... SourceData:= _ "Arkusz1!R4C1:R"...
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...
Zamknij pętlę "For Z" w pętli "For i" wg schematu If i <= Wiersz - 1 Then For i = 1 To 6 For Z = 1 To Wiersz - i For x = 3 To Kolumna ... Next x Next Z ThisWorkbook.Worksheets(3).Cells... 3) = i ThisWorkbook.Worksheets(3).Cells... 4) = "od 1 - " & i + 1 Next i
Wyszła podwójna (coraz gorzej z moim "okiem" ;) "słoik" (wzór) został "słoniną" (wynik). Cóż, zdarza się :) Zastąp poprzednie, poniższym [syntax=vb]Option Explicit Sub KopiujAle() Dim fd As FileDialog, wkb As Workbook, test As String Dim shSrc As Worksheet, wrs As Long, kol As Integer, wrsDst As Long Set fd = Application.FileDialog(msoFileDialogOpen...
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...
Dzień dobry, Oczywiście, najlepiej wprowadzać nowe komórki do środka zakresu i wtedy będzie się on poszerzać automatycznie. Ale nie zawsze tak jest wygodnie, bo dane mają określoną sekwencję i powinny być dopisywane na końcu. Tu problem jest większy, bo sumy są u góry zakresu. Gdyby były u dołu po wstawieniu nowych danych Excel automatycznie skorygowałby...
1. Znacznie wygodniej by się nawigowało przy użyciu kursorów. Jeśli już wpisywać z klawiatury - wolałbym podawać obie współrzędne, a po podaniu każdej z nich jeszcze przed zaakceptowaniem podświetlała by się stosowna kolumna i wiersz 2. Po wpisaniu nie-cyfry program się zawiesza. 3. Jeśli gra uwzględnia niestykanie się statków, to po zestrzeleniu fajnie...
Witam. To jest matryca taka jak w załączniku. Trzeba znaleźć dwie linie ( wiersz W i kolumna K) odpowiedzialne za jeden przycisk. Jeśli otworzysz klawiaturę to zobaczysz dwie folie z napylonymi ścieżkami, przedzielone przekładką z otworkami. To właśnie jest matryca. Zaznaczysz sobie linie od tych literek, które potrzebujesz (brak podglądu:cry:) i odszukasz...
[syntax=vbscript]Sub ImportujMaszyny() Set r = Sheets("Arkusz1") Set i = Sheets(2) owr = r.Cells(Rows.Count, "A").End(xlUp).Row owi = r.Cells(Rows.Count, "A").End(xlUp).Row For w = 4 To owr Step 14 nr = r.Cells(w, 2) s = Application.Match(nr, i.Range("C1:C" & owi), 0) If s > 0 Then d = i.Cells(s + 1, 3) d = DateSerial(Year(d), Month(d), 1) wr = Application.Match(nr,...
Makro reaguje na zmianę wartości w komórce. Jeśli pierwszy wiersz jest "FPS", określa ostatnią komórkę z wartością w kolumnie. Począwszy od 2 wiersz do ostatniej wartości koloruje. Dodano po 16 Oto mały fix, gdyby w zakresie niewypełnione komórki Dodano po 11 Czy chcesz malować kolumna E, ale "FPS" w innej kolumnie(np. B)? Wtedy byłoby inne podejście...
zastosowanie zapisu np. =JEŻELI(B1="";"";JEŻELI(D1="";"";SUMA(B1... nie pomaga. A powinno. Spróbuj =JEŻELI(LUB(B1=0;D1=0);"... Ostatnia wartość: Jeśli kolumna nie ma dziur (każdy wiersz jest wypełniony), to zlicz niepuste i podstaw jako argument funkcji ADR.POŚR. =ADR.POŚR("A"&ILE.NIEPUSTY...
OK. Przed pętlą For wklej: w sytuacji gdy dla któregoś wiersza dane znajdują się w którejś z kolumn H:J ale jednocześnie nie jest wypełniona kolumna E lub G Jeśli jest inaczej, trzeba to zrobić w pętli, sprawdzając każdy wiersz z osobna. Edit rano ;) Np czymś takim: [syntax=vbscript] For w = 8 To 40 If WorksheetFunction.CountA(.Range("E" & w &...
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
Przetestuj ten kod dla zdarzenia Worksheet_Change arkusza Form2. W komórce B4 arkusza Form2 wpisujesz jedynie numer rekordu do skopiowania. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim lLstRw& 'pierwszy wolny wiersz w arkuszu "baaza" Dim lLstRwBs& 'ostatni zapisany wiersz w arkuszu "zbaza1" Dim lFndRec& 'numer wiersza ze znalezionym...
1. #N/D! - da się wyeliminować przez dodanie na zewnątrz formuły JEŻELI.ND albo JEŻELI.BŁĄD. Obie działają podobnie do funkcji JEŻELI, więc nie powinieneś mieć z nimi kłopotów 2. Da radę przeszukać kilka arkuszy jednocześnie - wystarczy w zakresie podać adresy zakresów w poszczególnych arkuszach rozdzielone średnikami, np. Arkusz1!C1:C3;Arkusz2!B1:B3,...
W bazach relacyjnych wszystko opiera się o relację między tabelami, relacje są definiowane w oparciu o klucze. Klucze mogą być naturalne (w praktyce bardzo rzadko) lub sztuczne. Przykładem klucza sztucznego jest właśnie kolumna id. W odniesieniu do rekordu (wiersza tabeli) kolumna to pole. Klucz jednoznacznie identyfikuje wiersz (rekord) w tabeli. Powiązania...
To jest przyklad tego jak mozna obsluzyc DS1820 przez mega 8 ale jest tam tez obsluga wyswietlacza w C.Moze sie pryda.Sam to dostalem od jednego kolegi z forum:-) wiec mam nadzieje ze sie nie obrazi...mnie interesowal DS. Pozdrawiam Maciek! #include <avr/io.h> #include <avr/pgmspace.h> #include <stdlib.h> #include <ctype.h> #include...
OK - zaczynamy! Podstawowyt błąd zawiera się w braku limitów prądowych w wielu miejscach. Po włączeniu odpowiednich wyjść, powstają obwody zwarcia. I tak po kolei. 1) Jak na rysunku. Pierwsze zwarcie to sterowanie obwodami baz tranzystorów kluczujących kolumny LEDów. Zgodnie z rysunkiem - po ustawieniu wyjścia układów np. U3, dane wyjśie robi wewnątrz...
Proszę o plik excel tylko do formatów napisów i poprawnie utworzyć formułę. I raczej jeden wiersz z euro i jeden ze zlotim. zdjęcie pokazuje, jak to wygląda, ale czy ma numeru lub tekstu lub innego formatu można zobaczyć tylko w pliku. Nie sądzę, że to wielka tajemnica Dodano po 2 plik prawdopodobnie nie będzie czekać. Jeśli kolumna C:C jest tekst to...
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
Chyba znalazlam w czym problem - a przynajmniej u mnie zaczelo dzialac. Pracowalam na pierwszej wersji kodu wiec wkleje to na czym pracowalam. Sprawdz u siebie czy jest ok. [syntax=c]#include <stdio.h> #include <stdlib.h> #include <string.h> typedef struct PUDELKO { char identyfikator[256]; double x; double y; double z; struct PUDELKO...
Musi być wpisana wartość komórki nawet jeśli to ma być 0 wtedy excel sortuje. Dla Ciebie, rozwiązaniem będzie nadanie nagłówków nad każdą kolumną, klasycznie 1,2,3... przeciagnij, bez zbędnego zastanawiania się nad tym, wtedy funkcja sortowania "pomyśli" że pusta kolumna pod nagłówkiem jest wypełniona "0" i zadziała. Po sortowaniu przed zapisem pliku...
Proszę: [syntax=vbscript]Sheets("START").Select Range("B2").Select Wiersz = ActiveCell.Row KOLUMNA = ActiveCell.Column Do While Cells(Wiersz, 3) <> "" plik = Cells(Wiersz, 3) FILTR = Cells(Wiersz, 2) Workbooks.Add.SaveAs Filename:=ThisWorkbook.Path & "\" & plik Windows("DaneScalone.xlsx").Activate KOLUMNA = 4 Do While Cells(Wiersz, KOLUMNA)...
Tak na szybko: [syntax=vbscript]Sub Kopiuj() Dim irow As Integer Dim wiersz As Integer Dim kolumna As Integer wiersz = 1 kolumna = 1 For irow = 2 To 6000 If Len(Cells(irow, 1)) > 0 Then Worksheets("Arkusz_2").Cells(wiersz, kolumna).Value = Worksheets("Arkusz_1").Cells(irow, 1).Value kolumna = kolumna + 1 End If If kolumna = 17 Then kolumna = 1 wiersz...
Z tabeli pomiarów ostatnia kolumna wiersz 4.
(at)ElektrodaBot zastosowałem funkcję VLOOKUP. Jeśli kolumna pierwsza składa się ze scalonych komórek z pięciu wierszy i ma określoną treść, a kolumna druga ma pięć wierszy z określoną treścią, To jak zrobić, zakładając, że obie kolumny są zakresem tabeli, aby funkcja VLOOKUP pokazywała mi drugi wiersz z drugiej kolumny jeśli odniosę się do pierwszej...
Potrzebuję napisać makro do formatowania warunkowego. Chciałabym pokolorować cały wiersz, jeśli spełnione są dwa warunki: - kolumna O > 10% oraz kolumna B zawiera tekst "styczeń", "luty", "marzec" - kolumna O > 15% oraz kolumna B zawiera tekst "kwiecień", "maj", "czerwiec" AI: Jaka wersja programu Excel jest używana? Excel 2024 AI: Czy potrzebujesz...
Mam taką formułę =JEŻELI(LUB(LICZ.WARUNKI(A&#... Szybka odpowiedź Zastąp frazę „NOK” konstrukcją, która zwraca „1” lub „2” zależnie od tego, który z dwóch liczników jest różny, a „OK” gdy oba się zgadzają:...
Wklej kod makra u siebie. [syntax=vbscript] Sub kopiowanie() ' ' kopiowanie Makro ' ' Klawisz skrótu: Ctrl+k ' nowy_wiersz = 1 kolumna = 1 For wiersz = 2 To 11 Sheets("Arkusz1").Select Cells(wiersz, kolumna).Select Selection.Copy i_wstaw = Cells(wiersz, 7).Value For wstaw = 1 To i_wstaw nowy_wiersz = nowy_wiersz + 1 Sheets("Arkusz2").Select Cells(nowy_wiersz,...
RitterX - Myśląc nad architekturą tego urządzenia jeszcze na wczesnym etapie musiałem przemyśleć bardzo dokładanie te kwestie o których wspominasz. W końcu podjąłem decyzję i zdecydowałem się na sposób podobny do strzelania z broni palnej, a mianowicie: załaduj i strzel. Upraszczając - "załaduj" oznacza pobranie z kolumny pamięci kodu instrukcji i ewentualnie...
Cześć wszystkim, Bardzo proszę o wsparcie w rozwiązaniu trapiącego mnie problemu związanego z napisaniem funkcji do Excela... Mój problem wygląda mniej więcej tak... Posiadam 2 arkusze: Arkusz 1 - Dane (zawiera on 3 kolumny tj. data, godzina i wartość), z którego to potrzebuję na podstawie pierwszych dwóch wartości uzyskać trzecią. Arkusz 2 - Wynik...
Kolejnym podzespołem, którego ciągle brakuje, jest klawiatura. Od dawna próbuję zrobić coś zastępczego... https://obrazki.elektroda.pl/5709731900_... Mechaniczne klawiatury albo są kiepskie (tact switch), albo drogie. I tak trudno zrobić coś estetycznego bez zaawansowanych narzędzi. Pomyślałem więc o klawiaturze dotykowej. Kawałek PCB...
Kolumny są zawsze te same, mają to same oznaczenie literowe "B", wiersz pierwszej komórki się różni ale kolumna jest zawsze ta sama
Myślałem, że Pan odkładanie z powrotem swój kod [syntax=vb] Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'Step 1: Declare Variables Dim strRange As String 'Step2: Build the range string strRange = Target.Cells.Address & "," & _ Target.Cells.EntireColumn.Address & "," & _ Target.Cells.EntireRow.Address...
Ograniczyłam tak jeżeli w 1 kolumnie natrafi na pusty wiersz i w kolumnie 3 natrafi na jakiś wpis to ma to usunąć i przejść do kolejnego : If Cells(wiersz, kolumna).Value = "" And Cells(wiersz, kolumna + 3) <> "" Then Rows(wiersz).Delete shift:=x1Up wiersz = wiersz + 1 End If ale usuwa dalej tylko 1 taki wiersz i kończy działanie.
Witam! Podłączyłem 16 guzików pod ATmege16 i chciałem zrobić identyfikację klikniętego. Podzieliłem je na rzędy(4) i kolumny(4) i podpiąłem pod portd(PD0-PD6) i portb(PB3). Następnie ustawiam na kolumnach(PD0-PD3 i PB3) stan wysoki i puszczam pętle w programie główny która oczekuje na wciśnięcie przycisku. Jednak polecenie PIND błędnie odczytuje stan...
Witam, mam takie makro: [syntax=vb]Sub formatowanie() ' ' formatowanie Makro ' 'Range("M11:FU42").Select 'Selection.NumberFormat = "#,##0.0_ ;[Red]-#,##0.0 ;-" For wiersz = 11 To 311 For kolumna = 13 To 188 tof = ActiveSheet.Cells(wiersz, kolumna).NumberFormat czyjest = False If InStr(tof, "%") <> 0 Then czyjest = True 'Debug.Print wiersz, kolumna,...
Spróbuj taki kod: Sub Makro1() kolumna = 1 wiersz=1; Do while Cell(wiersz,kolumna).value<&g... Cells(wiersz, kolumna).Select If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then ActiveCell.Offset(1, 0).Insert Shift:=xlDown wiersz = wiersz + 1 End If Loop End Sub
Witam Nie wiem czy dobrze zrozumiałem ideę makra, ale można to zrobić tak Sub BMI() Dim I As Integer, J As Integer Dim Wiersz As Integer, Kolumna As Integer Dim MasaMin As Integer, MasaMax As Integer Dim WzrostMin As Integer, WzrostMax As Integer MasaMin = 50 MasaMax = 110 WzrostMin = 150 WzrostMax = 190 Wiersz = 2 Kolumna = 2 For I = MasaMin...
Chodzi o konwersję tekstu na bity Przyznaje ze ciezko cie zrozumiec ale mniemam ze chodzi o cos takiego: const char *tekst1="Marcin"; void pisztekst(char *tekst) { unsigned char wiersz=0,kolumna=0; while(*tekst++) { if(*tekst == '\n') { wiersz==1?wiersz=0:++wiersz; kolumna = 0; lcdxy(wiersz,kolumna);...
Mam plik excel-a w którym są dwa arkusze. Musze usunąć całe wiersze z arkusza1 na podstawie arkusza2 W arkuszu 1 w kolumnie A są przykładowe dane. W arkuszu 2 też w kolumnie A jest zakres danych który musi być usunięty z arkusza1 (wyszukać, zaznaczyć cały wiersz i usunąć go z arkusza1). Jeśli w arkuszu 2 np. kolumna A26 jest 801262 to w arkuszu 1 w...
Musisz uogólnić kod wyszukiwania wygranych. Na przykład dla wyszukiwania wygranych w poziomie: int wiersz = 0; for (wiersz = 0; wiersz < ile_wierszy; ++wiersz) { int kolumna = 0; int poprzednia = b[wiersz][kolumna]; int wyrgrana = 1; for (kolumna = 1; kolumna < ile_kolumn; ++kolumna) { if (poprzednia...
Witam serdecznie, bawię się właśnie z Excel'em i mam mały problem. Stworzyłem sobie tabelkę, która ma 6 kolumn i 5 wierszy. Chciałbym, żeby Excel sortował dane w tabelce wg jednej z kolumn, w której będą liczby. Czyli na podstawie tej jednej tabelki sortował pozostałe dane, ale w taki sposób, żeby pierwszy wiersz i pierwsza kolumna tabeli pozostały...
Zależy w jakim kontekście. Jeśli chodzi ci tylko o wyszukanie danej daty, to najprościej: Find, Do...Loop, itd. Natomiast, jeśli chciałbyś następnie użyć "położenia" daty jako koordynaty dla pozyskania danych z innych kmórek, to bardzo "pożyteczna" byłaby funkcja "Match", którą można by użyć w konstrukcji: " Cells(wiersz, kolumna).Value " , gdzie wiersz...
Oczywiście rozwiązanie twoje działa już dla tego arkusza. Celem moim jest bardziej inteligentny kod który działa dla wszystkich arkuszy typu Dxxx . które inteligentnie wyszykuje odpowiedni obszar w indexowym arkuszu „Sammansäellning” Cos na zasadzie poniższego kodu który kopiuje dane z indexu do arkuszów Dxxx Patrz załącznik Sub kopierarFrånIndex()...
No nie działa. Czemu? Bo ta pętla robi... no właśnie, trudno się połapać :) Może spróbuj w ten sposób (zakładam, że tekst jest w wierszach w kolumnie A) Edit 20:15 trochę uzupełniłem, żeby wszystko jasne było. Sub Makro1() a = ActiveCell.Row N = InputBox("wiersz koncowy") If N < a Then MsgBox "za mała wartość...":...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
więc wiersz drugi i czwarta kolumna zostały skreślone, ponieważ potencjały na wejściu wzmacniacza są równe, a jeden ,,leci,, do masy wiec jest równy zero(stad wykreślona czwarta kolumna).Natomiast wyjście wzmacniacza dochodzi do węzła drugiego, wiec można go takze skreślić..co Pan na to ?? nie wiem co z tego opisu wyjdzie... ponieważ jest to opis dla...
Słuszna uwaga :-) Już się poprawiam i załączam makro: Private Sub Worksheet_Change(ByVal Target As Range) Dim ZakresHist As Range, Wiersz As Long, Kolumna As Long, KomPusta As Range Dim ArkHist As Worksheet On Error GoTo Koniec Application.ScreenUpdating = False Wiersz = Target.Row Kolumna = Target.Column If Kolumna = 4 And Target.Value = "x" Then Set...
Witam Próbowałem zastosować ten kod ale otrzymuje informacje "varaible not defined i k= 0 jest podświetlone. Czy możecie pomóc. Dim i As Integer Dim j As Integer Dim Nr_wiersza As Integer Dim Nr_kolumny As Integer Dim kolumna As Integer Dim wiersz As Boolean Nr_wiersza = 5780 Nr_kolumny = 6 For i = 2 To Nr_wiersza - 1 k = 0 For j = i + 1 To Nr_wiersza...
Udało mnie się zrobić to, co potrzebowałem, a okazało się to jednak banalne. Dodałem dane pomocnicze w wierszach, które będą ukryte. W "tabeli stałej" zastosowałem formułę =ADR.POŚR, która pobiera dane z komórki, którą mam zadeklarowaną w danych pomocniczych. Może komuś się przyda. EDIT: Użyłem jeszcze czegoś innego. Można pominąć dane pomocnicze, i...
Zamierzony efekt uzyskałem stosując kod umieszczony poniżej; Sub Og() pierwszy_wiersz = 2 kolumna = 4 ostatni_wiersz = ActiveSheet.UsedRange.Rows.Count For wiersz = pierwszy_wiersz To ostatni_wiersz Cells(wiersz, kolumna).Select ActiveCell.Value = ActiveCell.Value * 1 Selection.NumberFormat = "0.00" Next wiersz Columns("E:E").Select Selection.Replace...
Robiliśmy proste skrypty z logowaniem itd. a zadano nam aby po wybraniu przez użytkownika liczby X, wyswietlany jest X wiersz bądź kolumna z zewnetrznego pliku txt.
Witam! Mam do zrobienia dwa projekty w języku C. Trochę już zrobiłem jednak mam wiele wątpliwości. Zadanie 1. Proszę napisać algorytm, który dla dwuwymiarowej tablicy wyznacza numer wiersza Mój kod jaki napisałem: /* Program wskazujacy numer wiersza z najwieksza suma */ #include <stdio.h> int main (void) { int tablica[8][3]={...
mam taki problem odnosnie tablic i macierz, bo umiem zrobic zeby dane z StringGrida wczytywał do macierzy ale nie wiem jak zrobic zeby po nacisnieciu na przycisk w StringGridu została przepisana zawartość pierwszego Stringu ale jednoczesnie by np zam,ienic jeden wiersz z kolumna lub odjac gdzieś jakas liczbe, czy mogłby mi ktos pomóc ?
mnożysz wiersz razy kolumna , u ciebie c1 =a11*b1+a12*b2+a13*b3, c2=a21*b1+a22*b2+a23*c3, c3=a31*b1+a32*b2+a33*b3 aij, i-wiersz , j-kolumna, bi, i-wiersz , ci, i-wiersz. Wystarczy do książki do matmy zajrzec.
Witam Szanowni forumowicze w załączeniu plik z fikcyjnymi danymi. W arkuszu1 mam dane z których z kolumny C kopiuję do arkusza2 do kolumny A jeżeli spełnione są dwa warunki. Jeden warunek to taki aby zgadzały się indeksy z akrusza1 kolumna B z arkuszem2 kolumna D. Drugi używa pomocniczej kolumny I z arkusza2 i ona ma się zgadzać z danymi z arkusza1...
Jak już masz otwarty reader to zamiast do tablicy lepiej załaduj wynik do tabeli DataTable, a potem na niej manipuluj, przekaż ją dalej albo podepnij jako źródło wyświetlenia... Tzn. zadeklaruj gdzieś DataTable dtTmp = new DataTable(); a zapisuje komendą Load() (może być od razu w using {}): using (SqlDataReader dr = comm.ExecuteReader())//wykon...
Mam pewien problem z lastRow. Napisałem poniższe makro do przeszukiwania wszystkich arkuszy w celu znalezienia "szukanej". W każdym arkuszu makro szuka od wiersza 7 do lastRow. I tu mam problem taki, że jak w Sht 1 lastRow = 7 ,a w Sht 2 lastRow =2 i załączę makro w Sht 2 to makro przeszukuje mi także w Sht 1 tylko 2 wiersze. Rozumiem to, ale szukam...
W B6 dostaje średnią z A2:A6, a chciałbym z A6:A10 To bez znaczenia, bo i tak ten wiersz usuniesz. Kolejną komórką będzie B10, a w niej masz średnią z A6:A10
Po kilkudniowych męczarniach wpadłem na pewien pomysł z wykorzystaniem szablonu "makememos" z książki "Excel 2003 Programowanie w VBA Vademecum profesjonalisty". Sens jest taki że program ma tworzyć plik w wordzie gdzie kopiuje tekst z komórek , potem zaznacza cały tekst w wordzie i go kopiuje :). Jest jeszcze kilka nierozwiązanych kwestii i prosiłbym...
Witam, mam problem z poniższym kodem: [syntax=vb]Public Function wybor11(data, godz) Dim c Worksheets("ewee").Activate For wiersz = 8 To 40 If Cells(wiersz, 2) = data Then Exit For Next wiersz Worksheets("ewee").Activate For kolumna = 3 To 9 If Cells(7, kolumna) = godz Then Exit For Next kolumna c = Cells(wiersz, kolumna) wybor11 = c End Function[/syntax]...
W %R1200 masz aktualny nr kolumny (liczony od zera). Ten numer się zmienia. Musisz zapalić wiersz 2 gdy kolumna = 0 lub 1 lub 3. Wiersz 3 gdy kolumna = 0 lub 2 lub 4. I tak dalej. Dla każdego wyjścia robisz OR z iluśtam EQ_INT porównujących %R1200 z konkretnymi liczbami. Przy okazji: nie używa się wyjść jako zmiennych tymczasowych (Q101 itd.). Do tego...
W jaki sposób makro ma wiedzieć, które miasto należy do danego województwa? Masz gdzieś tabelę miast/województw? W danych wejściowych w kolumnie A powinno być przypisane przy każdym mieście województwo, albo jeśli kolumna B jest pogrupowana już województwami (a w przykładzie jest) to musiałyby gdzieś być jakiekolwiek znaczniki, że już kolejne województwo...
(at)michson1 Nie do końca działa poprawnie: "nie dodaje wierszy" do "bazy", względnie kopiuje bez braków do "danych", w arkuszu "brakujace" wkopiowuje dane dopiero od 2-go wiersza - sprawdź. arkusz dane miał być przykładem jak ma działać makro. Ten arkusz spowodował pewnie nie potrzebne zamieszanie Przykład trochę źle opisany - choćby w kwestii: 1....
Witam forumowiczów, Mam następujący problem, muszę skopiować z określonego arkusza (lista) wiersze (od A do G z pominięciem F) zawierające w kolumnie 4ej "TAK" i przenieść je do arkusza "rekordy", napisałem proste makro na miarę swoich możliwości i: 1) Przez Range umiem tylko wybrać zakres od A do G bez pominięcia F (więc póki co jest od A do E) 2)...
jeśli skasuję rekord z kolumny pierwszej te z PSV numerem, to żeby cały wiersz zaznaczyło mi na żółto :?: W Twoim opisie chyba błędnie używasz pojęć rekord, kolumna i wiersz :cry: Zrób plik przykładowy: w arkuszu 1 - widok tabelki przed przekształceniem, w arkuszu 2 widok tabelki po przekształceniach :ok:
Na forum jest wiele podobnych tematów, poszukaj. P.S. W załšczonym pliku nie widać Twojej walki.;) walcze z tym juz od 2 dni przeczytalem juz chyba z 50 stron tematow.. masakra jakas.. probuje z roznych tematow.. udalo mi sie jedynie cos takiego ze kopijuje mi po nacisnieciu przycisku do nowego arkusza ale nie jako nowa kolumna tylko jako wiersz Dodano...
Dzień dobry, Na wstępie powiem że ze wszystkich sił starałam się nie fatygować nikogo by mi pomógł znaleźć rozwiązanie problemu, próbując sama zrozumieć dlaczego tak się dzieje. Jednak moja nieznajomość VBA wzięła górę i do co utknęłam w martwym punkcie (choć może nie do końca bo makro w sumie robi co chce). Makro które udało mi się stworzyć, przerabiając...
Witam. Mam sytuację, gdzie umieszczony jest button uruchamiający makro, które generuje swego rodzaju opis. Miałby on pojawić się w tym samym wierszu, w którym właśnie ten przycisk uruchamiający. Niestety nie wiem jak określić w VBA wiersz, w którym znajduje się przycisk (niestety wiersz ten sie zmienia). Kolumna jest stała (24 kolumna)
Potrzebujesz jeszcze podstawić Nr kolumn. Zapis: Range(Cells(wiersz,kolumna),Cells(wiersz... Oczywiście tak: p = "A" & 1 k = "B" & 15 Range(p, k).Select lub: p = 1 k = 15 Range("A" & p, "B" & k).Select też działa.
numerować wiersz kolumna zmiana wiersz kolumna wklejać kolumna wiersz
lanos przekaźniki ustawianie obrotów silnika testy akumulatorów
Kodowanie pilota VW Passat B5 FL 1.8T 1999 Wkrętarka Makita DFS452 nie włącza się - diagnoza i naprawa
