[syntax=vb]Sub numery() Dim wz As Worksheet, rs&, re&, i&, j& Dim bs As Range, bd As Range Set bs = ThisWorkbook.Sheets("baza").Range("B1:C1... 'platform, tara Set bd = ThisWorkbook.Sheets("start").Range("B1:C... 'wagony Set wz = ThisWorkbook.Sheets("wykaz_zdawczy") wz.Activate rs = 17 'wiersz poczatkowy re = wz.Cells.Find("podpis").Row...
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...
Da się to zrobić w ten sposób: 1. wpisać dane kwota netto w kilka wierszy np od 2 do 5, 2. przeciągnąć formułę przeliczenia euro od wiersza 2 poza wiersz 5 o kilka (np 5) wierszy w dół. w miejscach gdzie nie było w wierszach danych kwot netto w kolumnie przeliczników pojawi się 0. 3. zaznaczyć obszar komórek z zerami i nacisnąć "del", nie poprzez usuń...
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
Mała przeróbka makr: 912681 Wiersze można dodawać ze ściśle określonego zakresu, który sam sobie ustalasz ("If ilewrs > 10 Then Exit Sub"). Usuwanie wierszy tylko pojedynczo, od ostatniego, aby zachować porządek.
Żaden ze standardowych komponentów zdaje się nie obsługuje takiego zapisu do pliku - musisz go sam oprogramować. Co do samego komponentu - ze standardowych StringGrid powinien Ci wystarczyć. Dodawanie wierszy realizujesz poprzez zwiększenie własności RowsCount. Usuwanie wierszy ze środka musisz oprogramować tak, aby niższe przenosiły się na wyższe,...
Witaj. Wygląda na to, że w tym arkuszu takiego makra nie ma. Opisu, jak ma to makro działać również nie ma (ma sobie dodawać losowo wiersze z losowymi formułami na podstawie losowych kryteriów?), jakiejkolwiek próby rozwiązania też nie ma. Czego więc oczekujesz?
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
(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....
Po kliknięcie buttona sprawdzić czy wierszy jest już pięć, jeżeli nie to dodać, jeżeli tak to nic nie robić. Z tym że odpowiedź "na czuja" - wciąż nie rozumiem o co ci chodzi.
Jeden z options - create objekt EXCEL - zrobić kopię z arkusz1 - Liczba wierszy i dodać kolumnę z datami. Następnie zaimportować w Access. Można inaczej. Po każdym imprtcie (jak teraz) - UPDATE <table> SET data_od WITH <data z TextBox> WHERE data_od IS NULL kolumny data_od data_do musi już być w bazie danych przed tym
Jak uważasz, ale osobiście wolałbym mieć wszystko pod ręką, w jednym arkuszu. W załączniku "po mojemu" z blokadą zakresu. W innym przypadku: w A1 wpisz =PRODUKTY!A1 i rozciągnij na zadany zakres, a w opcjach wyłącz wyświetlanie zer.
Nie wiem czy pomogę, ale spróbuj w nowym arkuszu użyć opcji definiuj nazwę, tam możesz wybrać "zasięg działania" danej komórki. Jak już ustawisz to spróbuj zaadresować daną komórkę w taki sposób =Arkusz2!$D$23 Chyba - że źle zrozumiałem Twój post i ilość arkuszy ma automatycznie zależeć od ilości danych w kolumnie In. Nie widzę innego wyjścia niż zabawa...
Powinno być ScreenUpdating, a nie DisplayAlerts. Poza tym niepotrzebne są te selekcje. Wystarczy: [syntax=text]Rows(281).Delete Shift:=xlUp 'usuwa 281 wiersz [/syntax]
Źle to opisałem. Szerokość stałą wiem jak uzyskać, choćby nawet dopisując ją do For i = 1 To 24 Chodzi mi o to, żeby zautomatyzować (nie musieć określać go ręcznie poprzez edycję tej funkcji) zakres np j = 1 to X gdzie X to ilość wierszy, która może być zmienna, w zależności od tego ile makro zaimportuje z pliku wejściowego. Jestem jeszcze zielony w...
Prot, mógłbyś wyjaśnić jak miałoby działać to makro, które przywołałeś? Pokazałem tylko, że istnieje możliwość wywołania makra przy zmianie którejkolwiek wartości formuły w obserwowanej kolumnie. ale wtedy wychwycenie wiersza, w którym nastąpiła zmiana jest znacznie trudniejsze niż proste x=Target.Row Twój kod wychwytuje wiersz, w którym nastąpiła...
To zależy ile docelowo przewidujesz wierszy w tabelce. Jeśli nieokreśloną, to tylko VBA...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Application.ScreenUpdating = False nw = Sheets("Baza").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A2:C2").Copy Sheets("Baza").Cells(nw, 1).PasteSpecial xlPasteValues Range("A2").Select Application.CutCopyMode = False Application.ScreenUpdating =...
Witam, tym razem mam taki problem. Istnieje w formularzu tabelka. Zawiera w sobie powiedzmy ok. 20 wierszy z danymi. Mój problem polega na tym czy możliwe jest: 1. automatyczne dodawanie wierszy wraz z formułami przez formularz kiedy osiągniemy ostatnią pozycję. 2. czy można to zrobić automatycznie w kilku arkuszach jednocześnie 3. czy istnieje możliwość...
W Twoim opisie coś nie gra :cry: Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9... Ma skopiować dane z wiersza powyżej . To znaczy, z którego wiersza ma kopiować jeśli zmiany wprowadzasz w "w pierwszym wierszu" :?: :D Wierszy mam około 2 000 tyś 2 mln wierszy to musisz pomieścić w dwóch tabelach wykorzystując całą wysokość arkusza (jeden...
Jedyne operacje jakie są planowane na tym pliku to: - dodawanie usuwanie i ukrywanie odkrywanie wierszy - kopiowanie wierszy poprzez zaznaczenie całego i wklejanie w ten sam sposób wartości do nowego dodanego wiersza (tutaj wiem już że skopiowane wartości z zaznaczonego całego wiersza i wklejenie ich do nowo utworzonego nie są zapisywane w historii...
Kolega coś nie kuma z tymi liczbami porządkowymi. Dlaczego nie jest zadeklarowana zmienna 'a' , przecież ona przechowuje kolejny numer wiersza? Skoro kursor na starcie ustawia się w komórce F4 to dlaczego kolega nie liczy wierszy od tego kursora do miejsca wpisywania pierwszej danej? W moim przykładze było to a= b-2, gdzie: a - to wyliczony numer wiersza...
Działa super! Tylko właśnie problem mam z tym aby do skopiowanych wartości dodał jeszcze dwie kolumny i przypisał tam wartości, które by pobrał z nazwy pliku. Przykładowo plik o nazwie 34_190_2023-05-19, w którym znajduje się 20 wierszy, makro kopiuje wszystkie + dodaje kolumnę z datą "2023-05-19" + kolumna z numerem "190" dla wszystkich 20 wierszy...
Witam Tabela z uprawami - po wprowadzeniu działek do arkusza (kolumna C i D) okazuje się ze na niektórych polach jest więcej niż jedna uprawa. Wtedy wstawiam wiersz poniżej danej działki i wpisuję kolejne uprawy na danej działce (tylko kolumna E, G, F, natomiast C i D zostają puste w tym wypadku). Podobnie z usuwaniem zbędnych wierszy w danej działce....
Dzień Dobry, stworzyłem sobie DataGrida, dorzuciłem przycisk na dodawanie wierszy do niego; Jednakże gdy kliknę podwójnie na jedną z nowo utworzonych wierszy wyskakuje mi o taki błąd : System.InvalidOperationException: „Element „EditItem” jest niedozwolony dla tego widoku.” Z góry bardzo dziękuję i pozdrawiam serdecznie public...
Witam Nie działają mi te sposoby. Chcialem wykozystać paweliw ale nie wiem co robię źle ale nie działa ten sposob. Zaznaczam iles wierszy w kolumnie wchodzę w formatowanie komórek wybieram NIestandardowe następnie Standardowe i dopisuje "8%" i nic się nie dzieje niestety Dodano po 18 Możesz też skorzystać z funkcji & Piszesz formułę: =A1&" 8%" I przeciągasz...
To znaczy o co dokładnie chodzi ? O dodawanie wierszy lub kolumn czy edycję wyświetlanych pól ? Jeśli chodzi o to że po rozpoczęciu edycji znika tekst, to jest na to bardzo prosty sposób. Qt nie usuwa tekstu, tylko pyta się co ma wyświetlić, wywołując funkcję "data()" z rolą Qt::EditRole. Domyślnie funkcja z przykładu zwraca dla wszystkich ról oprócz...
On Error Resume Next w = Target.Row k = Target.Column If k = 10 Then If Target.Value > 1 Then a = w + 1 b = a + Target.Value - 2 Rows(a & ":" & b).Select Selection.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove Rows(w & ":" & w).Select Selection.Copy Rows(a & ":" & b).Select ActiveSheet.Paste Application.CutCopyMode = False MsgBox "Uzupełnij...
To bindowanie to jest właśnie "powiązanie z danymi", które uniemożliwia Ci dodawanie wierszy przez dg.Rows.Add(tablica_z_wartosciami_komore... Masz prawdopodobnie jakiś adapter, jak nie tableadapter to coś innego (BindingSource?). Nie pamietam jak to sie nazywa bo tego rzadko używam tych obiektów. Mogło mi się coś pomieszać z innym środowiskiem programistycznym....
DataTable to dobry pomysł, bo po podpięciu do datagridview od razu obsługuje sortowanie. Nie musisz nawet używać dataseta, wystarczy stworzyć DataTable w kodzie, kolumny wygenerują się same, chyba że sam je wstawisz: [syntax=csharp]public partial class Form1 : Form { DataTable dt = new DataTable(); public Form1() { InitializeComponent(); dt.Columns.Add("adres",...
Nie bardzo wiem co masz na myśli pisząc "filtr tekstu". Jeżeli zaś chodzi o dodawanie i usuwanie wierszy to formułami tego nie zdziałasz. Pozostaje zaprzyjaźnić się z VBA. :cry:
Witam, Mam arkusz kalkulacyjny, który zawiera dane wyglądające w następujący sposób: Imię, naziwsko (xxxx xxxx / użytkownik) Telefon Mail Takich danych jest kilka tysięcy. Szukam sposobu, aby usunąć z arkusza duplikaty (ponieważ niektórzy użytkownicy się powtarzają) z zachowaniem unikalnego słowa. Większość użytkowników ma podane imię i nazwisko, więc...
Jeśli formuła jest w tabeli Excela, to się kopiuje. A jeśli chodzi o dodawanie załącznika, naciśnij pole "odpowiedz" pod postem. Pod polem na wpisanie odpowiedzi jest pomarańczowe pole "Dodaj załącznik", które należy kliknąć, a potem dodać plik. Tylko ten serwis nie przyjmuje plików .xlsm. Więc albo plik .xlsx, albo .xls. Pliki .xlsm trzeba zarchiwizować...
W. NET jest coś takiego jak special directoties My.computer.filesystem.specialdirrctorie... Wskaze na pulpit, obrazek możesz pokazac w picturebox, w taki sposób jak powyżej w datagridview nie wyświetli sz obrazka. Trzeba by dodać kolumnę z pictureboxv'ami i w niej przy zdarzeniu databinding wczytywac kolejno obrazki. Przy większej liczbie wierszy...
W 1 arkuszu o nazwie "Dodaj" -> jest przycisk i przypisane do niego macro: To jest arkusz do dodawania klientów czy pracowników :?: Czy dodawanie całej listy klientów ? Jeśli pojedyńczo to dlaczego "formularz" B24:C24 jest w tym miejscu arkusza ? Jeśli chcesz wprowadzać te dane do arkusza "Client_list" to po co jest ta pętla po 1000 wierszy :D :?:...
A nie prościej zrobić vector vectorów niz bawic sie z tymi wskaznikami na wskaźnik? Coś w tym stylu... [syntax=cpp] vector < vector <double> > macierz; //uzupełnianie macierzy int kolumny= 3; int wiersze = 3; vector <double> tmp; for (int ii=0; ii<wiersze; ++ii) tmp.push_back(0.0); //uzupełnianie wierszy wartosciami 0.0 for (int...
nagrałem dodawanie wiersza i wstawiłem w po else w miejsce exit sub ale tutaj zdaje się powinienem wstawić warunek sprawdzający tabelę z ofertą taki, że jeśli tabela nie ma pustych wierszy to wówczas na końcu dostawia nowy wiersz. Po nagraniu rejestratorem otrzymałem taki kod: Dodano po 8 Jeszcze pytanie: w kodzie, który mi podesłałeś miałem przypisane...
pobierze z bazy danych wiersze z tabeli 'dane', gdzie w pole 'imie' mozna wpsaowac 'wartosc' wysiwetli na ekranie ilosc zwroconych wierszy w pierwszej lini w drugiej lini wyswietli tyle napisow "Array" ile jest zwroconych wierszy jezeli chcesz zeby wyswietlio zawartosc tych wierszy to mosisz odwolac sie do pol tablicy $record
Spakowałam dwa przykłady. W drugim przykładzie w kolumnie A, arkusza1 cyfra 5 pojawia się w tej samej kolumnie(A) a nie pojawia się w innych arkuszach "arkusz2 i arkusz3". Też jest brana za duplikat. Potrzebuje edycji kodu która pozwoli mi na dodawanie większej ilości kolumn(np 100) jak makro znajdzie duplikat w kolumnie A. Zdaje sobie sprawę że będzie...
Mam juz kilka tych kart 16AB CLIP wiec na pewno sa obslugiwane Probowalem takze wariantu z twardym resetem a nastepnie dodaniem recznym kolejnych 16 wierszy w pierwszej zakladce Abonenci ale po wyslaniu i ponownym sciagnieciu tej konfiguracji znowu nie ma tych nowych portow Nie wiem juz co z tym zrobic a przeklepywanie calej konfiguracji przy takiej...
Witam ! Mam problem, z uwagi na to, że excel widzi komórkę jako tekst poprzez poprzedzenie tego tekstu apostrofem, potrzebuję rozwiązania jak dodać apostrof automatycznie do wszystkich komórek naraz. Mam oko 2500 wierszy i nie bardzo mi się chce do każdego wpisywać to ręcznie. Dzięki z góry
Ojojoj! Toż to trzeba oprogramować ponownie od podstaw... Zaczynając od "lista = Range("Baza!B:B").Value" - tablica ma rozmiar = ilości wierszy w arkuszu = 1 048 576 w Excel 2007. Rozumiem, że do 'TextBox1' wpisywane będą kryteria do filtrowania listy 'ListBox2' zawierającą listę artykułów z "Bazy". Filtrowanie listy wielokolumnowej realizował kiedyś...
Witam, Sytuacja wygląda następująco. Mam pliki "Stan magazynu" oraz "Komponenty" . W pierwszym z nich muszę zrobić sumaryczne zestawienie części będących na magazynie, liczbę ich sztuk, koszta, zapotrzebowanie itd. W pliku "Komponenty" znajdują się zakładki ("Blachy stalowe", "Blachy aluminiowe", itd...) odpowiadają przykładowym numerom komponentów...
Jak dodajesz wiersze do tabeli, to zawartość wierszy pod spodem przesuwa się w dół, ale wysokości wierszy pozostają bez zmiany (nie przesuwają się). Jest tak dlatego, że poza obrębem tabeli (w innych kolumnach) może być inna zawartość wymagająca innej wysokości wierszy. Żeby przesunąć wszystko w dół wraz z wysokościami wierszy trzeba wstawiać całe wiersze....
Witam. - Jak mogę edytować zapisaną listę DNS? Należy wpisać wybrane numery IP i ewentualnie adresy www i opisy w oknie sekcji "Serwery DNS", a następnie zapisać zmiany za pomocą opcji dostępnych w menu "Plik". - Jak mogę dodać więcej, niż 3 adresy DNS i strony? Wciśnięcie strzałki w dół w ostatnim wierszu powoduje dodanie nowego wiersza. Analogicznie,...
potrzebujesz pomocy z kodem w VBA czy szukasz kogoś kto napisze całe makro? Dodano po 1 Przygotowałem w zasadzie bardzo proste makro: Kopiuje Twój arkusz "x1" (nazwałem go "Template") i w nim zmieniam tylko dane. Nazwę nowego arkusza biorę z arkusza "Wyświetlenie odczytów" z kolumny A czyli "Lp." ale idzie to łatwo zmienić w kodzie (dodałem tam komentarz)...
[PASCAL] Witam od razu na wstępie chciałbym przeprosić gdyż nie jestem pewien czy dobrze wstawiłem posta. W ramach dosalania piszę sobie w Pascalu bazę danych. Napisałem już dodawanie wpisów i w nich wierszy i stron zapis zapis ustawień języka i opcji i zatrzymałem się na czymś co uważałem za najprostsze a co na razie okazało się moja zmorą. O tuż chciałem...
Zobacz Dim so As Long so = Sheets("Start").Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(so, 1) = so- 1 Cells(so, 2) = textbox1 Cells(so, 3) = textbox2 Cells(so, 4) = textbox3
Można wysyłać np. sygnał "+" na kolejne 8 wyjść PLC (funkcja rejestru przesuwnego); te sygnały wykorzystujesz na zasilenie 8 wierszy klawiatury i 8 tożsamych wierszy wyświetlacza jednocześnie; sygnały z kolumn klawiatury (5 szt.) wprowadzasz na wejścia PLC; natomiast tożsame kolumny wyświetlacza podłączasz do wyjść (zwieranych do "-"); Program musi...
Sam kiedyś (kilka lat temu) zanim nie znałem php i sql'a bawiłem się w szukanie gotowych i darmowych skryptów księg gości i komentarzy. 99% nie działało albo miałem problemy z zainstalowaniem, na dodatek opierały się na plikach tekstowych (bardzo niebezpieczne, i łatwe do "shakowania"). Dlatego właśnie nauczyłem się php. Wystarczy odrobina chęci, to...
makro dodawanie wierszy dodawanie wierszy tabeli dodawanie wierszy makro
podgrzewanie przedniej szyby szyby atmel studio programator miękkie hamulce
sterownik kostrzewa sieci światłowodowe
Kamera USB GAHUWA niewidoczna na Linuxie - co robić? Dlaczego zawór EGR otwiera się na wolnych obrotach w silnikach TDI?
