Bardzo rozwlekle to napisałeś, a sprawa sprowadza się chyba do prostej pętli. Do kopiowania wartości nie należy używać Copy-Paste, tylko zwykłe przypisanie. Przypuszczam, że chodzi o taki kod: [syntax=vbscript]Sub Makro1() Dim n As Long For n = 4 To 8 Range("C16:C19").Value = Range(Cells(16, n), Cells(19, n)).Value Application.Run "'koszt.xls'!Makro2"...
Najprościej zastosować Inputbox. x = InputBox("Podaj Nr wiersza", "Inputbox1") y = InputBox("Podaj Nr kolumny", "Inputbox2")
Ja również dziękuje.
Kodem tak: [syntax=vbscript]Sub Kody() Sheets("Arkusz1").Select Set a = Sheets("Arkusz2") ow = Cells(Rows.Count, "A").End(xlUp).Row w = 1 For x = 1 To ow ok = Cells(x, Columns.Count).End(xlToLeft).Column For y = 2 To ok a.Cells(w, 1) = Cells(x, 1) a.Cells(w, 2) = Cells(x, y) w = w + 1 Next Next End Sub [/syntax]
Dzień dobry, Należy dodać do ciągu znak o kodzie 10 tzn. ZNAK(10), na przykład =A1&ZNAK(10)&B1 da w wyniku tekst z komórek A1 i B1 podzielony na 2 wiersze. Żeby to zadziałało musi być jeszcze w komórce wynikowej ustawiona opcja Zawijaj tekst. Dodano po 15 Samo "Zawijaj tekst" dzieli tekst w miejscach spacji, a tu niektóre linijki będą zawierać spacje,...
Trzeba było od razu właściwie napisać. [syntax=vbscript]Sub Porownaj() Application.ScreenUpdating = False Set a = ThisWorkbook.Sheets("Output") Set b = Workbooks.Open(ThisWorkbook.Path & "\1 671 913 2.xlsx") owb = b.Sheets(1).Cells(Rows.Count, "D").End(xlUp).Row For x = 2 To owb s = b.Sheets(1).Cells(x, "D") y = x + 151 k = a.Cells(2, y) If k <>...
Działający program (pozwoliłem sobie zrobić stałą ARRAY_SIZE - lepiej widoczne jest poprawne działanie przy większej matrycy) for( j=i ; j<3; ++j) będzie leciało w efekcie "po przekątnej" (początkowy numer elementu w jednym wymiarze równy temu w drugim), nie ruszając wierszy/kolumn które już zmieniło.[/quote]
Przenoszenie danych między wierszami i kolumnami Skopiuj dane znajdujące się w kolumnie (lub w kilku kolumnach) albo w wierszu (lub w kilku wierszach). Zanim wkleisz skopiowane dane, kliknij prawym przyciskiem myszy pierwszą komórkę docelową (pierwszą komórkę wiersza lub kolumny, w której chcesz wkleić dane), a następnie kliknij polecenie Wklej specjalnie....
No to nie trzeba modyfikować kodu. Gdyby jednak w przyszłości okazało się, że np. odczyty są co pół godziny, to podmień w kodzie liczbę 23 na a1-1.
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...
Na obrazku efekt działania makra. Dane wejściowe z załącznika. Sprawdź, czy o to Ci chodzi (liczby w kolumnach D i F są sumowane). http://obrazki.elektroda.net/17_12597370...
Musiałbyś użyć pewno skryptu VBA. Lecz jeśli ci to coś pomoże to spróbuj pokombinować tak: 1. Tabele skopiuj do Excela 2. Zaznacz interesujący cię obszar i użyj polecenia kopiuj. 3. Kliknij na wolne pole. 4. Następnie z menu prawoklawiszowego lub menu " Edycja " wybierz " wklej specjalnie ". 5. Po otwarciu okna dialogowego jest tam taka opcja jak "...
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 .
Podobnie jak powyżej. Dodaj kolumnę obok kolumny B i zastosuj taką formułę. W wyniku będziesz miał wartość milisekund. Sortujesz wszystkie wiersze rosnąco względem tej kolumny i po sprawie. =(B3*86400-INT(B3*86400))... Plusem tego rozwiązania jest dokładna wartość milisekund, a nie zaokrąglona jeśli to istotne.
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
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...
Użyj funkcji jeżeli i blokowania wierszy / kolumn ze znakiem "$".
To da się zrobić nawet za pomocą suma(). http://obrazki.elektroda.pl/9193961000_1... Pochrzaniłem zakresy sumowania dla środy - nie zwracaj uwagi na liczby .
To jest klawiatura matrycowa. Obsługuje się ją tak jak wszystkie klawiatury matrycowe. Na wiersze (kolumny) podajesz po kolei napięcie z pinów procesora. Stan sprawdzasz za to na kolumnach (wierszach). Jeśli wykryjesz napięcie na danej kolumnie to wiesz jaki klawisz został wciśnięty bo wiesz na jaki wiersz podałeś napięcie. Trzeba to robić w pętli bez...
wypelnic tablice liczbami 0-20 Jeżeli losowymi to np tu: http://cpp0x.pl/kursy/Kurs-C++/Poziom-2/... ąby zamieniał wiersze z kolumnami A może spróbuj zamienić wskaźniki ten z wierszy na kolumny i odwrotnie? ąby zamieniał wiersze z kolumnami można np pętlą o zakresie połowy wielkości tablicy. pozdr.
Ostatni wiersz i ostatnią kolumnę trzeba określić osobno dla każdego arkusza źródłowego. Ale można wykorzystać te same zmienne, bo raz użyte dane nie będą już więcej potrzebne. Coś takiego: [syntax=vbscript]Dim Workbook1 As Workbook Dim lRow As Long Dim lCol As Long With Workbook1 With .Sheets("A") lRow = .Cells(Rows.Count, 1).End.(xlUp).Row lCol =...
Odwołaj się w pętli do arkusza źródłowego/docelowego przez Worksheets("nazwa_arkusza"), a po kropce do konkretnej komórki: albo w postaci .Range("E" & i) albo w postaci .Cells(i, 5), gdzie i - nr wiersza źródła (ew. jeżeli zrobisz w pętli for each c in ...., to możęsz użyć c.Row). Do tego druga zmienna np. j dla wiersza arkusza-celu, czyli: j = 1 for...
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...
Może to będzie pomocne? [url=http://www.elektroda.pl/rtvforum/to...
[syntax=vb]Range(Cells(lOstRw, 12).Offset(1, 0), Cells(lOstRw, 19).Offset(1, 0)).FormulaR1C1 = "=SUM(R[-" & lOstRw & "]C:R[-1]C)"[/syntax]
Niestety, matryca do wymiany, 99%!
Możesz użyć takiego makra zdarzeniowego: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Value = "B" Then Application.EnableEvents = False Cells(Target.Row, 2).Value = WorksheetFunction.Max(Columns(2)) + 1 Application.EnableEvents = True End...
Może zaznacz interesujący cię zakres danych, w zakładce dane wybierz sortuj i określ czy dane mają być malejąco czy rosnąco wg określonej kolumny - wszystkie wiersze się zamienią. Tak swoją drogą - kolumn w Excelu nie może być 1000. Musiałeś wiersze z kolumnami pomylić.
Z Twojego obrazka wynika, że trzeba popracować jeszcze nad techniką skanowania. Kiedy odczytujemy kolumny, ustawiamy wiersze kolejno w taki sposób że 0 jest na jednym wierszu a na pozostałych wierszach nie 1 tylko Hi-Z I analogicznie jak odczytujemy wiersze to na kolumnach kolejno wybieramy 0 na pozostałych Hi-Z.
Piszesz, że ma scalać wiersze, jeżeli wartości w kolumnach A:H oraz K są takie same, a w przykładzie: w 6 wierszu wartość w kolumnie A jest inna, a w 3 wierszu: w kolumnie G - mimo to zaznaczyłeś je na żółto. To jak to w końcu jest?? Czy scalanie dotyczy tylko jednej tabeli, czy wszystkich? Czy one mają stałą długość, czy się zmieniają? Czy wiersze...
W zasadzie nie wiem czy Cię to zadowoli, ale pokombinowałem tak: w kolumnie L w obydwu arkuszach, połączyłem poszczególne komórki kolumn od A do E (dla szybszego szukania). W kolumnie K zastosowałem funkcję PODAJ.POZYCJE z parametrem 0 (dokładne porównania). Jeśli w komórce, w której jest funkcja pojawi się wartość #N/D, to oznacza, że brak jest odpowiednika....
Witaj [syntax=vb] Sub InsSubtot() Dim bs As Range Set bs = ThisWorkbook.Sheets(1).Cells Dim r&, rp& ow = bs(Rows.Count, 8).End(xlUp).Row r = 2: rp = 2 While bs(r, 8) <> Empty r = r + 1 If bs(r, 8) <> bs(r - 1, 8) Then bs.Rows(r).Insert bs(r, 5) = "SUMA" bs(r, 6) = Application.Sum(Range(bs(rp, 6), bs(r - 1, 6))) bs(r, 5).Resize(1,...
Sprobuj takie makro [syntax=vb]Sub sortgodz() With ActiveSheet.UsedRange .Sort key1:=.Columns(4).Cells(1), header:=xlYes Set bt = .Find("Zast") r = Cells(Rows.Count, 4).End(xlUp).Row + 1 Rows(bt.Row).Cut Rows(r).Insert shift:=xlDown End With End Sub [/syntax]
Wyznaczasz ostatni zapisany wiersz (np. dla kolumny A) [syntax=vb]lLstRw = Cells(Rows.Count, 1).End(xlUp).Row[/syntax] i później na w zakresie od pierwszego do ostatniego (wyznaczonego na podstawie kolumny A) wiersza w kolumnie V używasz metody filldown: https://msdn.microsoft.com/en-us/vba/exc...
może przykładowy plik trochę rozjaśni sytuację Z podkreśleniem tego trochę :D Jeśli w arkuszu CT umieścisz makro typu: 1022670 Zwracam uwagę na zmienne l i kol, których wartość została przyjęta dla Twojego xxxx - owego przykładu :cry: i które muszą być dostosowane do wartości rzeczywistych w pliku roboczym.
Bez problemu napiszesz obsługę plików BMP. Jak mi się uda odnaleźć to załączę kawałek kodu bascoma. Jaki masz wyświetlacz, kolorowy? Jeśli nie to faktycznie lepiej zapisać w formie tablicy i potem zapalać kolejne wiersze/kolumny. Są też konwertery BMP -> HEX, znajdziesz na forum.
Ściślej - w PHP tablice wielowymiarowe są zawsze tablicami tablic, dlatego wszelkie funkcje operujące na tablicach operują wyłącznie na jednym wymiarze. Chyba, że mi coś umknęło teraz... Jeśli chce się dokonywać manipulacji w danym wierszu (kolumnie - zależnie od interpretacji), to przekazuje się $tablica który to zapis dalej jest tablicą :)
Dodano po 4 w proc. pd_2 pierwszy = wyszukaj_1 ' ma byc typ Long, Integer tylko do 32768, XL2007+ ma ~1000000 wierszy Dodano po 5 Raczej [syntax=vb]Function kom_1() As Range Set kom_1 = Cells.Find("Pomiar 10 listopada 2017 r.").Offset(1) End Function [/syntax] wtedy pierwszy = kom_1.row pierwszy_kol = kom_1.Column
Niestety ani kolumny ani wiersze nie są poprawnie opisane. Jak już napisał Quarz Zasadą tej Siatki jest, iż po sąsiedzku ma zmieniać się stan tylko jednej zmiennej i to się tyczy każdego miejsca siatki. A więc przejscie np. z ostatniego wiersza (kolumny) do pierwszego musi generować zmanę tylko jednego bitu. Myślę że teraz nie będziesz miał problemu...
Mam pytanie czy to makro trzeba w jakiś sposób uruchomić ? Czy ono uruchamia się samo podczas zmiany wartości komórki ?
nie jestem w stanie nijak zapisac, nie znalazlam tez odpowiedzi w literaturze Zwykła pętla po "Zespołach folklorystycznych" od punktu-kotwicy "Suma" do kolejnego zakotwiczenia "Suma", wyznaczenie zakresu wierszy (kolumny są stałe więc je wyznaczamy na początku), a potem sortowanie tegoż zakresu - po czym kolejne przejście pętli od "Suma" do "Suma",...
Szukam funkcji która by pobierała wartość z komórki i szukała numeru wiersza wyświetlając jego zawartość Funkcja [syntax=vb]=INDEKS(A:A;H8;1)[/syntax]?
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()-...
Dokładnie. A konkretnie zakres od N1 do ostatniego wypełnionego wiersza w kolumnie N.
(...) przesunięcia zakresu DataRangeOBAYield o 7 wierszy w prawo dla każdego z dwóch zakresów (...) Chodzi o wiersze w dół, czy kolumny w prawo? Można zastosować InputBox, gdzie wpisywane będzie przesunięcie: 0 - B1:H1,B31:H31 1 - o siedem wierszy/kolumn w z góry upatrzoną stronę itd, jeśli jest taka potrzeba Zmienną obiektową masz zadeklarowaną......
[syntax=vbscript]Sub Cztery() ow = Cells(Rows.Count, "A").End(xlUp).Row w = 1 For x = 1 To ow Step 4 Sheets("Arkusz2").Range("A" & w & ":D" & w) = Application.Transpose(Range(Cells(x, 1), Cells(x + 3, 1))) w = w + 1 Next End Sub [/syntax]
Załączam plik z makrem przekształcającym tabelę.
OKNO -> zablokuj okienka następnie dodajesz usuwasz tyle wierszy i kolumn ile potrzebujesz i jak potrzebujesz aby nie były przesuwane podczas edycji. Pozdrawiam
w pierwszym wierszu dla kolumny jest słowo "Tak" Dla tego trzeba jedna linijka[syntax=vb] Sub kopia() If ActiveSheet.Range("A1") = "Tak" Then ActiveSheet.Copy End Sub[/syntax]
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...
Perwsza części to numer strony a druga kolumny bądź wiersza na tej stronie, np. 4-11 : 4 strona, kolumna/wiersz 11
dopiero zaczynam przygodę z VBA To zacznij od nagrywania makr (włącz rejestrator makr zaznacz interesujące cie dane kopiuj - wklej specjalnie + transpozycja i masz makro)
Teraz wystarczy stworzyć: 1. Wzorzec figury w pamięci RAM (6x6 ze spacjami i *) 2. 2 zagnieżdżone pętle po 6 kroków do odczytu wierszy i kolumn wzorca 3. Wydruk znaku z wzorca w RAM (addr=wiersz*6+kolumna) 4. Wydruk znaku o kodzie 13 i 10 (powrót karetki i nowa linia) 5. Skok do #2 6. HLT lub rozbić figurę na pojedyncze kroki.
:) Przecież w moim przykładzie masz przykład "boldowania" i "szarowania" wierszy na podstawie jednej komórki z tego wiersza (z kolumny E) za pomocą formatownia warunkowego. Przejrzyj/sprawdź jak działa.
A nawet masz zrobić lepiej niż na obrazku, bo na obrazku nie jest rozciągnięte okno. TY masz wstawić CAŁY smart czyli okno programu ma pokazywać wszystkie wiersze i kolumny. ;-)
Trzeba dołączyć nie obrazek, tylko plik Excel, a następnie można pokazać na Twoim przykładzie. W skrajnym przypadku powinny być widoczny nazwy wierszy i kolumn.
Dla kolumny A: A1=1 reszta komórek w kolumnie funkcja: =JEŻELI(NIE(B2="");A1+1;"") EDIT: Oczywiście co do funkcji to dale komórek: A2 = JEŻELI(NIE(B2="");A1+1;"") A3 = JEŻELI(NIE(B3="");A2+1;"") A4 = JEŻELI(NIE(B4="");A3+1;"") A5 = JEŻELI(NIE(B5="");A4+1;"") itp. wystarczy wypełnić serią.
Dzień dobry, Wydaje mi się, że sprawę załatwi nadanie zakresowi roboczemu nazwy, pod warunkiem, że nie będzie się usuwać ostatniego wiersza ani ostatniej kolumny, a dodawać nowe również przed ostatnim wierszem i przed ostatnią kolumną, a nie za nimi. Poza tym nagłówki kolumn też trzeba aktualizować ręcznie. Gdyby istotne było, żeby tabela się automatycznie...
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
A jeśli chodzi mi o wstawienie tekstu pod ostatnim wierszem mojej ostatniej kolumny "N" Z drugiej strony po co szukać ostatniej kolumny jak wiadomo, że to N?
Wyszła mi taka formuła: [syntax=text]=ADR.POŚR("'[01 Par. -Styczeń 2017.xlsx]"&TEKST(WYSZUKAJ(100;B$7:B7);"... wykorzystuje liczby wpisane w kolumnie B. Wyniki muszą być wpisywane od siódmego wiersza. W kolumnie W jest formuła wyliczająca numer wiersza...
Oczywiście, że jest i nazywa się tabela przestawna. Możesz pogrupować wydatki według nazwy kategorii, albo dowolnie inaczej i numery wierszy ani kolumn nie mają wielkiego znaczenia. Tabela przestawna daje wiele możliwości. Zachęcam do poczytania. :)
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",...
Hmmm... w tym czasie, myślałem, że to 'kilkadziesiąt' jest 20... 40, dobrze, niech 100 W rzeczywistości istnieje nie wyraźnej linii podziału, ma tylko jednego wiersza i 180000 kolumny. I jak wiele kolumn powinna być? I co to narzędzie, że można zobaczyć 'kilkadziesiąt' ?
W istniejącym skoroszycie trzeba zmodyfikować styl Normalny komórek. Nie byłem pewien, czy modyfikuje to również nagłówki wierszy i kolumn, ale sprawdziłem i tak. [syntax=text]Narzędzia główne > Style > Style komórki > Normalny > kliknąć PPM > Modyfikuj > Formatuj > Czcionka (ustawić co trzeba) > OK > OK[/syntax]
Z tego co widzę to ta biblioteka jest uniwersalna i nie określa ilości wierszy i kolumn więc umiejętne stosowanie gwarantuje kompatybilność z każdym lcd ze sterownikiem HD44780.
A mogą być formuły w komórkach?
Popłynąłeś...;)
Diody w wyświetlaczu najprawdopodobniej w układzie matrycowym. Tak więc trzy możliwości: - zasilić odpowiednio wszystkie wiersze i kolumny, - przeprogramować mikrokontroler aby zrobił powyższe, - wysłać odpowieni rozkaz łączem szeregowym.
Witam. Stroną " programową " się nie zajmowałem. Z tego co pamiętam to działało jak klawiatura 6 X 6 . Wiersze i kolumny. Nawet nie wiem dokładnie do czego to miało być - rzuty piłką czy coś takiego. Pozdrawiam.
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...
Jest w Excelu dodatek darmowy Power Query do wersji 2010 i 2013 a od wersji 2016 jest wbydowany który potrafi to zrobić bez VBA Tu masz link jak to zrobić Pozdrawiam. https://www.youtube.com/watch?v=oAOXgHq0...
1). Sortujesz dane wg. pierwszej kolumny. 2). W kolumnie CZWARTEJ (jeżeli masz 3 zajęte) korzystasz z instrukcji JEŻELI, przykładowo: =JEŻELI(A1=A2;;A1) czyli: jeżeli komórki a1 i a2 są RÓZNE, to wpisz do kolumny wartość komórki A1 3). W kolumnie piątej postępujesz PRAWIE tak samo, tzn =JEŻELI(A1=A2;;B1) 4). W kolumnie szóstej postępujesz analogicznie...
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
Z czego wynika niespójność zapisu danych w ostatnim arkuszu? W wierszu drugim są te dane zapisane koło siebie, kolumna po kolumnie. W wierszu trzecim między każdą kolumną jest przerwa. Czemu tak jest? Jeśli makro ma sortować wyniki z lotto to można je uprościć, nie musi liczyć do 100 pozycji w wierszu, tylko do sześciu, do tego nie musi liczyć na liczbach...
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...
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);...
Nie powiedziałes najwazniejszego jak chcesz zeby tablica była posortowana :) rosnąco kolmnami? wierszami? moze kolumnami i potem po pierwszym elemencie tylko kulmny? (czyli ustawienie kolumn w kolejnosci od zaczynającego się elementu)
tak samo wystaryczło, by zamiast tego To nie tak. Wypełnij sobie komórki od J1 do N1 (5 kolumn) i wypróbuj [syntax=vbscript]Dim tablica, kol As Integer, rn As Range Set rn = Range(Cells(1, 10), Cells(1, 14)) tablica = rn 'tablica odziedziczy rozmiar zakresu (1 to 1, 1 to 5) 'dlatego pętla rozpoczyna sie od 1 For kol = 1 To rn.Columns.Count test = tablica(1,...
Cześć Jeśli Nr maszyny jest liczbą, to można go podstawić jako argument 'ile kolumn' funkcji PRZESUNIĘCIE. A jako argument 'ile wierszy', pozycję w kolumnie A (nazwa wyrobu).
Dzień dobry, Jeśli koniecznie musi Pan użyć funkcji LICZ.JEŻELI, to trzeba utworzyć dwie dodatkowe kolumny, w których będą wartości z parzystych i nieparzystych wierszy kolumny D, a potem zastosować LICZ.JEŻELI w zwykły sposób. Te dodatkowe kolumny można ukryć, jeśli nie chce Pan mieć zaśmieconego arkusza. Te dodatkowe kolumny można utworzyć np. formułami:...
W sumie to jest mi to obojętne jak to będzie zrobione byle tabelka wklei się bez tych ukrytych wierszy i kolumn zmień [syntax=vbscript] Set rng = ark2.Range("C2:AK68").SpecialCells(xlCel... rng.UnMerge[/syntax]
Podpowiadam. Dim i As Long Const max = 20 ' w zależności od liczby wierszy 'lepiej ustalić liczbę wierszy szukając ostatniego Application.ScreenUpdating = False 'w przykładzie dane są od pierwszego wiersza For i = 1 To max * 2 Step 2 'wstawiany jest co drugi wiersz więc max * 2 ActiveSheet.Rows(i + 1).Insert 'wstawimy pod źródłowy 'tutaj przypisujesz...
Przetestuj poniższy kod. Założenia: - dane wejściowe są analizowane od drugiego wiersza kolumny A - dane wyjściowe będą od pierwszego wiersza kolumny C - szukamy ciągu FKxxxx (gdzie: xxxx - cyfry) bez spacji. Jeżeli pomiędzy FK a cyframi wystąpi spacja to taki ciąg nie będzie brany pod uwagę. [syntax=vb]Sub kody_RegEXP() Dim lLstRw& Dim i& 'od...
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...
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...
W załączniku materiał do przemyśleń. W żółtych komórkach formuły. p.2. Jakiś przykład byś wrzucił. Nie do końca rozumiem o co Ci chodzi... i to na calej dlugosci kolumny.
Napisałem parę linijek kodu do drukowania etykiet. Zmieniłem nieco wygląd strony ZAMÓWIENIA, usunąłem niektóre kolumny i wiersze oraz wprowadziłem kolumnę do wpisania ilości kpl w paczce. Analogicznie można dopisać kod na 10x etykiety oraz dopisać do etykiet inne dane np. datę, wagę itp.
Odpowiedź pozostaje ta sama. Liczby nie muszą być po kolei, RANDBETWEEN losujesz tylko numer wiersza w kolumnie A. Jeżeli umieścisz w niej te czasy, spośród których chcesz losować, to będziesz de facto "losował" czasy.
programowo zmieniał stan pinów wierszy z wejścia na wyjście, odpowiednio do niskiego stanu danej kolumny, żeby zewrzeć dany klawisz. Piny kolumn byłyby na stałe przypisane do pinów arduino jako wejścia. Program byłby trochę skomplikowany. Też tak myślałem pierwotnie ale teraz nie jestem w stanie zagwarantować że tak koncepcja się uda. Chodzi głównie...
Witam. Chce stworzyc tabele w MS Excell. Mianowicie prosto z mostu chodzi mi oto czy da sie zmienic wielkosc kilkudziesieciu wierszy badz kolumn naraz z oryginalnych 19 na np 15?. Tak azeby wysokosc wiersza wynosila 15pix zamiast 19pix. Pojedynczo idzie zmienic ale mi zalezy na czasie i chcialbym zmienic jakies 100wierszy i kolunm wiec pojedynczo zajeloby...
Proszę spróbować: [syntax=text]=SUMA(ADR.POŚR("X5:X"&Liczb... wersji angielskiej: [syntax=text]=SUM(INDIRECT("X5:X"&Liczba... tak jak w pierwszym poście, tylko X zamiast Z.
Witam, To jak w temacie - czy jest możliwe zastosowanie formatowania warunkowego (lub innej funkcji Excel) - aby np. po wybraniu z drop listy przykładowej wartości (powiedzmy w komórce A1) - określony wiersz czy kolumna na tym samym tabie znikał/pojawiał sie ? Bardzo proszę o pomoc - jak to zrobić - jeśli jest to w ogóle możliwe. Mam nadzieję, że problem...
Hej. Poszukuje programu do odczytywania nagłówka obrazu w formacie jpg lub tiff (tif). Chyba ze jest jakiś inny sposób do odczytania liczby wierszy i kolumn obrazu
Acula: dokładnie tak, tylko odwrotnie ;) założenie kostki 5*7 wspólna anoda dla kolumn dwa wiersze czyli 14 pinów procesorka (wiersz to 7) rejestr przesuwający tak, kolumny w kostkach łączymy, mamy 5*16 = 80 kolumn do rejestru 2*7=14 pinów przez oporek do wierszy 16*5=80 kolumn, każda do kolektora p-n-p, emiter do +5 baza przez oporek do rejestru, w...
Dzień dobry, Można użyć funkcji LICZ.JEŻELI, ale zgodnie z jej składnią. Warunek dla tej funkcji nie może mieć postaci takiej jak w funkcji JEŻELI, tylko np. "<0". Trzeba utworzyć dodatkową kolumnę i w niej obliczyć iloczyny np. L5*L6, a następnie w funkcji LICZ.JEŻELI użyć tej dodatkowej kolumny jako pierwszego argumentu, a warunku "<0" (koniecznie...
Do sprawdzenia masa 3G1, 3H1. Plusy: 3G2, 3H2, 1G1. Komunikacja to 1A4, 1A3. Pierwsza cyfra to nr wtyczki ECU, masz 3 wtyczki, litera to oznaczenie kolumny we wtyczce, ostatnia cyfra to wiersz we wtyczce. Jak wyjmiesz wtyczkę to będziesz miał na niej opisane wiersze i kolumny. Nie wiem czy tu komunikacja nie jest przez UCH. Szukaj co cyka przy silniku,...
To na 100% działa tylko zastosować nie umiesz. Konkretnego zaś zastosowania nie da ci się zaproponować bo pytanie postawiłeś zbyt nieprecyzyjnie.
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...
Przeczytaj opis do biblioteki liquidcrystal. Pokrótce polecenie ...(10,0) ustawia ciąg znaków do wyświetlenia na lcd w jedenastej kolumnie i pierwszym wierszu, licząc od 0 do 15. Analogicznie np ...(5,1) w 6 kolumnie i 2 wierszu lcd (tutaj 2x16).
wyszukaj wiersze powtarzaj wiersze zdublowane wiersze
wzmacniacz gaśnie wyświetlacz dudnienie subwoofera blokada mastercook
poduszka elektryczna plany buggy
Wycieraczki zatrzymują się w losowych miejscach - przyczyny Logitech Z623 - Problemy z głośnikami satelitarnymi