Przed [syntax=vbscript]End If[/syntax]czyli w trzecim wierszu od końca wstaw: [syntax=vbscript]MsgBox "Rejestracja zakończona pomyślnie"[/syntax]
Czyli chcesz bez 'inputboxa'? Jeżeli tak to za niego wstaw [syntax=vbscript]shName = Range("E7")[/syntax]
wstaw [syntax=csharp]this.Refresh();[/syntax] po uaktualnieniu textbox-a
Na początku skryptu wstaw: [syntax=vb]Application.ScreenUpdating = False[/syntax], a na końcu: [syntax=vb]Application.ScreenUpdating = True[/syntax] To spowoduje wyłączenie odświeżania ekranu na czas wykonywania makra.
Wywal poniższą linię z pętli loop(). Dodano po 9 oraz po server.begin() w funkcji setup() wstaw:[syntax=c]server.setNoDelay(true);...
zrób np. tak (wstawi ci na koncu) [syntax=vb]ActiveSheet.Copy After:=Workbooks("wczyt.xlsm").Sheets(Sh...
Wyboru samego separatora dokonuje się w pliku Config_AVR_dos.bas zmieniając stałą "Const Cvariableseparator = 44 " Jednak w tym wypadku chyba musisz użyć podręcznej zmiennej tekstowej, połączyć to sobie i wysłać na końcu jako jedna zmienna bo w innym przypadku zawsze wstawi separator. [syntax=vbnet]Dim Helpstr As String * 10 , Word1 As Word , Word2...
Przed: [syntax=c]char_tab1 = (char*) malloc((size1) *sizeof(*char_tab1) );[/syntax] Wstaw: [syntax=c]printf("Przydzielam pamiec na %d bajtów, muszę poczytać o podstawach programowania aby mieć świadomość że po zmianie wartości zmiennej size1 rozmiar przydzielonej pamięci samoczynnie się nie zmieni.",size1);[/syntax]
Autor nie uczestniczy w dyskusji ale, można jeszcze tak (odejmując wiersz gdzie się to wstawi) [syntax=vbscript]="UP/487/"&TEKST(39+WIE...
Przed [syntax=vb]n2 = n2 + 1[/syntax] wstaw [syntax=vb]ThisWorkbook.Sheets("Arkusz2"... & n2 + licznik) = sc & nazwa[/syntax] Ponadto [syntax=vb].Sheets(5).Range("b261:b261")... ThisWorkbook.Sheets("Arkusz2").Range("f" & n2 + licznik & ":f" & n2 + licznik)[/syntax] jest to samo jak [syntax=vb].Sheets(5).Range("b261").Copy ThisWorkbook.Sheets("Arkusz2").Range("f"...
Moja propozycja: jedna para przycisków +/- i przypisane do nich makr: [syntax=vb]Sub wstaw() Rows(ActiveCell.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(ActiveCell.Offset(1, 0).Row, "H").FormulaR1C1 = "=R[-1]C" End Sub[/syntax] i [syntax=vb]Sub usuń() Rows(ActiveCell.Row).Delete shift:=xlUp End Sub[/syntax] Przed przyciśnięciem...
Witam! chodzi o to, że liczba[] jest tablicą elementów typu int a funkcją printf każesz interpretować tę zmienną jako hmm... tego... no... stringi. Musisz zmienić w formacie %s na %d i to załatwi sprawę. Oprócz tego w funkcji "printf(adres sieci... usuń ampersand "&" PS Zdaje się, że używasz Dev C++. Spróbowałem, i zauważyłem, że w chwili uruchomienia...
Mam tylko problem u mnie nazwa arkusza jest zawsze inna ( różne piliki są otwierane) Zamiast I jest jeszcze problem z zakresami, w pliku docelowym ma on być kopiowany w pierwszy wolny zakres. Więc tam, gdzie teraz jest przykładowo[syntax=vb]wswyn.Range("A2:D2... = wsSrc.Range("A2:D2").Value[/syntax] wstaw [syntax=vb]ost_w = wswyn.Cells(Rows.Count,...
Spróbuj wstawić [syntax=csharp]if (this.DesignMode) return;[/syntax]
le bez niego nie wiem jak to zrobić inaczej aby znaleźć w drugim arkuszu nazwisko wybranego pracownika. Tak jak Maciej wcześniej pisał, bez załącznika ciężko cokolwiek doradzić ale tak bez sprawdzania na szybko zrób tak. Tą linijkę usuń [syntax=vbscript]Set SzukaneNazwiskoRow = tb_GrafikTSW.ListColumns("NAZWISKO_TSW")...
Skoro nie chcą, zrezygnuj z listy i wstaw formułkę (niestandardowe): [syntax=text]=ORAZ(PODAJ.POZYCJĘ(C4;J$6:... Jeśli jednak makro, to w SelectionChange (ogranicz 'Target' do tych trzech komórek).
Wklej w kod arkusza (nie w moduł) [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "N7" Then If Target.Value <> Empty Then Rows(7).Insert Shift:=xlDown End If End Sub[/syntax]
[syntax=vbscript]Sub WstawWiersze() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual x = 2 While Cells(x + 1, "D") <> "" y = x + 2 Rows(y).Insert Cells(y, "C") = Cells(x + 1, "C"): Cells(x + 1, "C") = "" Cells(y, "D").FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)" Range("D" & y).AutoFill Range("D" & y & ":I" &...
wyświetla kursor miga i co dalej? No to spróbuj teraz wysłać jakiś napis. Te funkcję się do tego przydadzą: [syntax=c] void write_char(uint8_t data) { TWI_write_data(0x40); // Ustawiamy RS w stan wysoki bo będziesz wysyłać dane TWI_write_data(data); // wysyłamy dane. } void LCD_write_string(const char *str) { while (*str) { write_char(*str++); } }...
Zamiast [syntax=vb]Range("A1")[/syntax] wstaw [syntax=vb]Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)[/syntax]
Wstaw przed drugim while linie:[syntax=c]i=0;[/syntax]
tablica jest wskaźnikiem na tablicę, więc powinieneś użyć operatora dereferencji (jak w przykładzie, który wstawiłem). [syntax=c]bufspc[i] = bufspc[i] * *tablica[j][1] / 100.0;[/syntax]
Prześledziłem kod na Twoim pliku i wygląda na to, że działa poprawnie, jedynie trzeba usunąć poprawność danych z wstawionej kolumny czyli, po: [syntax=vb].Range(Cells(iFrstRw, "I"), .Cells(lLstRw, "I")).Insert shift:=xlToRight[/syntax] wstawić jeszcze: [syntax=vb]Range(.Cells(iFrstRw, "I").Offset(1, 0), .Cells(lLstRw, "I")).Validation.Delete[/syntax]...
Poradziłem sobie na około. Mam dla ciebie lepsze rozwiązanie wstaw na początku kodu [syntax=vbscript]ActiveSheet.TransitionF... = True[/syntax] na końcu [syntax=vbscript]ActiveSheet.TransitionF... = False[/syntax]
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
Jeśli chodzi tylko o zamianę dat pomiędzy kolumnami B i C, to nie warto wyświetlać komunikatu i przymuszać użytkownika do jakichś działań, bo to nie jest całkiem oczywiste i w efekcie możesz dostać dwie jednakowe daty, zamiast oczekiwanej zamiany. Proponuję dwa warianty rozwiązania. 1. Jeśli daty rozpoczęcia i zakończenia czynności są potrzebne tylko...
Takie sztuczki tylko w PHP (no nie tylko ale ...) a i to trzeba dolara przed wiersz wstawić. [syntax=vbnet]Public Function wysokosc_wiersza(wiersz As Integer) As Integer w = Trim(Str(wiersz)) wysokosc_wiersza = Range(w + ":" + w).RowHeight End Function[/syntax]
O wstawianiu komunikatów dioagnostycznych już pisałem. Dlaczego tego nie robisz? Ja tego napewno nie zrobię. Arduino nie ma debugera, musisz więc kombinować. Wstaw w pętli [syntax=c] while(true){ obrotLewo(); } [/syntax] za "obrotLewo();" wysyłanie informacji na port szeregowy. Zobaczysz, czy przogram wychodzi z funkcji "obrotLewo()". PS Podpowiedź:...
Mi wyszła taka formuła tablicowa (zatwierdzanie CTRL+SHIFT+ENTER): [syntax=txt]=WYBIERZ(PODAJ.POZYCJĘ(MIN(M...
Zmień żeby ostatnia komórkę pobrało np. z kolumny 1 lub najpierw niech wstawi nowe kolumny później OstSpend [syntax=vb] Windows("tabela").Activate Columns("D:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove OstSpend = Cells(Rows.Count, 6).End(xlUp).Row Range("D1") = "KolumnaX" Range("E1") = "KolumnaY" Range("D2:D" & OstSpend).FormulaR1C1...
[syntax=vbscript]Function WlasnafunkcjaWstawBranze(D As Integer, E As Integer) As String If D = 1 And E = 1 Then WlasnafunkcjaWstawBranze = D & "," & E End Function[/syntax]
Od razu mówię że nie testowałem, więc będziesz musiał trochę samemu pokombinować, ale generalnie: - w pliku z logowaniem zaraz po session_start(); dodaj: [syntax=php]$_SESSION['zalogowany'] = false;[/syntax]To samo dotyczy strony, gdzie użytkownik się wylogowuje (jeżeli taką masz). Niżej, w tym else wykonywanym, gdy użytkownik istnieje, dodaj: [syntax=php]$_SESSION['zalogowany']...
Witam Ja w tym miejscu pozbyłbym się selecta (każdy spowalnia) [syntax=vbnet]Range("D2:AH2401").Select With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With[/syntax] na [syntax=vbnet]With Range("D2:AH2401").Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With[/syntax]
W takim razie w arkuszu z tą komórką wstaw taki fragment: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$9" Then Call myCopy End If End Sub[/syntax] Nazwa makra - copy() - nie jest zbyt fortunna, bo pokrywa się z poleceniem VBA o takim samym tytule. Lepiej zmień ją np. na myCopy
jak zrobić aby mój kod nadał nadawcę innej skrzynki jak domyślna? Przed 'display' wstaw [syntax=vbscript] Set .SendUsingAccount = OutApp.Session.Accounts.Item("twoj(at)po... .display [/syntax]
A przypisałeś wcześniej coś do tych zmiennych? (pytanie retoryczne... ;)) Jeśli nie, przed swoją funkcją wstaw: [syntax=php]$username = isset($_POST['username']) ? $_POST['username'] : '';[/syntax] lub, jeśli wolisz na if'ach: [syntax=php]if (isset($_POST['username'])) $username =$_POST['username']; else $username ='';[/syntax] Dla tej drugiej zmiennej...
Z rysunku w pierwszym poście wynika, że chodzi o procedurę 'Sub Dodaj' (masz ją w module, uruchamiana jest przyciskiem [Dodaj]). [syntax=vbscript]Sub Dodaj() Administrator = UserForm1.CheckBox1.Value Kablowiec = UserForm1.CheckBox2.Value Kierowca = UserForm1.CheckBox3.Value Lp = UserForm1.TextBox1.Value stopien = UserForm1.TextBox2.Value Imie = UserForm1.TextBox3.Value...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 And Target = "Pranie" Then Range("E" & Target.Row) = Date End Sub[/syntax] Ale czy czasami nie potrzebujesz funkcji?
zrobić sumę od Q5 aż do tej wstawionej kolumny - ta kolumna będzie się zmieniać. potem wszystko przeciągnąć w dól A w ten sposób to w ogóle nie próbuj: [syntax=vbscript]Option Explicit Sub przed_ktora_kolumna() Const kmnkt = "Przed którą kolumnę chcesz wstawić formułę zapotrzebowania - Podaj literę kolumny" Const ttl = "KOLUMNA" Dim k As Integer Dim...
Tabelkę wstawisz [syntax=vbscript]ActiveDocument.Tables.A... Range:=Selection.Range, NumRows:=2, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavi... możesz bezpośrednio z excela skopiować jakiś zakres i wkleić do worda, też otrzymasz tabelkę. Kolor słów/liter łatwo zmienisz w excelu (zastosuj to do komórki z tekstem "KolorTest") [syntax=vbscript]Cells(x,...
Ja bym to rozwiązał w ten sposób: w formie 2 wstawił: [syntax=csharp]public int MyInt { get; set; } public Form2() { InitializeComponent(); MyInt = 4;//coś robisz ze zmienną MyInt }[/syntax] a w formie 1 odwołał się do tego tak: [syntax=csharp]int myIntForm1; using (Form2 form2 = new Form2()) { form2.ShowDialog(); myIntForm1 = form2.MyInt; MessageBox.Show("Wybrano:...
jak znaleść palete kolorów - kody, wiem ze jest ich 56... ale :( [url=http://dmcritchie.mvps.org/excel/co... Albo zrobić sobie for i = 1 To 56 i w kolejne wiersze wstawić [syntax=vb]...ColorIndex = i[/syntax]
Zamiast Config Timer1 wstaw: [syntax=basic4gl]Config Timer2 = Timer , Async = On , Prescale = 128 , Compare = Disconnect , Clear Timer = 0 , Pwm = Off , Compare Pwm = Disconnect[/syntax] Przerwanie nastąpi co sekundę. Później zamiast [syntax=basic4gl]On Timer1 Czas[/syntax] wstaw [syntax=basic4gl]On Ovf2 Czas[/syntax] Powinien działać. No i kwarc zegarkowy...
Żeby nie grzebać już w schowku to najprościej jest zmodyfikować warunek i dopisać "/". Np.: [syntax=vbscript](...) If .Find.Found Then .Copy .GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=1 .Find.Text = "-[0-9]{8}" .Find.MatchWildcards = True .Find.Execute If .Find.Found Then .TypeText Text:="/" .Paste (...)[/syntax]
Wymuś UTF-a podczas połączenia z bazą otwórz plik: /db/mysql4.php i znajdź: [syntax=mysql]$dbselect = mysql_select_db($this->dbname);[/syntax] za tym wstaw [syntax=mysql]mysql_query('SET NAMES utf8 COLLATE utf8_general_ci', $this->db_connect_id);[/syntax] otwórz plik: /db/mysql.php i znajdź: [syntax=mysql]$dbselect = (at)mysql_select_db($this->dbname);[/syn...
Dwie rzeczy: 1. [syntax=vb]Application.ScreenUpdating = False[/syntax]na początku makra i[syntax=vb]Application.ScreenUpdating = True[/syntax]na końcu. 2. Zamiast 100 razy pisać: [syntax=vb]wscel.Cells(wstaw, 2) = wsbaza.Range("B" & c.Row) wscel.Cells(wstaw, 3) = wsbaza.Range("C" & c.Row) ...[/syntax](swoją drogą: że też Ci się chciało...) zrób: [syntax=vb]wscel.Range("B"...
Zaraz bo się rozpędziłem... Zamiast [syntax=c]#define INT_RTC INT6_vect[/syntax] wstaw [syntax=c]#define INT_RTC SIG_INTERRUPT6 [/syntax]
Nie wiem, czy akurat tego szukasz, ale... [syntax=vb]Public Sub BlokujWytnijWklej() Application.OnKey "^x", "dont_cut" Application.OnKey "^v", "dont_cut" Application.CutCopyMode = False Application.CommandBars("Standard").Cont... Application.CommandBars("Edit").Controls... Application.CommandBars("Edit").Controls... Application.CommandBars("Standard").Cont...
Wreszcie ktoś konkretnie odpowiada :) Ta linijka z dodaj.php dba o to, żebyś podał wszystko. [syntax=php]if($imie and $nazwisko and $miejscowosc) { [/syntax] Musisz wyłapać, jeśli jedno z tych pól nie jest wypełnione, np. [syntax=php]if !$_POST['imie'] { // co jeśli puste....???[/syntax] Dodatkowo masz określone, że pola te w bazie nie mogą być puste...
Rozumiem że okienka z info błąd nie było? To jeszcze zrób tak wyłącz (lub usuń) [syntax=dos]'.Send[/syntax] i w to miejsce wstaw [syntax=dos]msgbox nazwa_raportu1[/syntax] powinno być okienko z ścieżka i nazwą pliku (oczywiście teraz wiadomości nie wyśle)
Co do stopki mam po prostu w pierwsze lepsze miejsce wstawić na siłę html? No może nie w pierwsze lepsze ale w sumie to tak. [syntax=php] <div id="site-generator"> <?php do_action( 'twentyten_credits' ); ?> <a href="<?php echo esc_url( __( 'http://wordpress.org/', 'twentyten' ) ); ?>" title="<?php esc_attr_e( 'Semantic Personal...
W miejscu, gdzie chcesz przełamać wiersz wstaw znak przejścia do nowej linii vbLf [syntax=vbscript]dane = Application.InputBox("Podaj zakres dat dla którego chcesz pobrać dane" & _ vbLf & "(dokładnie w formacie od-do bez spacji).", "Wprowadzanie zakresu dat")[/syntax]
Można w poniższy sposób, wpisując w tablicy "arkusze" wszystkie nazwy arkuszy, w których kod ma się wykonać. [syntax=vbscript]Sub Wstaw() Dim arkusze, arkusz arkusze = Array("Arkusz1", "Arkusz2", "Arkusz3") For Each arkusz In arkusze Worksheets(arkusz).Rows(5).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next End Sub[/syntax] andie
[syntax=vbscript]Image1.Picture = LoadPicture(sciezka & "\Dokumenty\Podpisy\" & nazwa & ".jpg")[/syntax]
The very first step jest modyfikacja pliku stm32_eth.h, plik ten zawiera definicje adresu rejestru statusowego zastosowanego PHY, oraz definicje masek bitowych zawierających informacje na temat położenie bitów prędkość oraz duplexu w tymże rejestrze. W przypadku ste100p jest to rejestr “XCVR Configuration Information and Interrupt Status Register”...
A spróbuj jeszcze na początku wstawić zaraz po definicji portów wyjściowych jedynki na wyjście czyli np. po [syntax=basic4gl]Config Portb = &B11111111 'piny 0-7 wyjście LED[/syntax] wstaw [syntax=basic4gl]Portb = &HFF[/syntax] Po prostu po konfiguracji początkowej najczęściej port przyjmuje wartość 0 i stąd ta światłość w Twoim przypadku :)
Sprawa jest bardzo prosta. W edytorze Delphi, klikasz na przycisk który ma wykonać jakąś akcję. Otworzy Ci się edytor kodu i pokaże coś takiego: [syntax=delphi]procedure nazwa_przyciskuClick(Sender :TObject); begin end;[/syntax]Pomiędzy begin i end wstaw wywołanie jednej z gotowych procedur, np tak : [syntax=delphi]procedure nazwa_przyciskuClick(Sender...
W stronach WWW jest tendencja do odchodzenia od tagów FRAME. Można to zrobić. Pytanie tylko, czy trzeba, ale zrobić można. W HEAD wstaw taki skrypt : [syntax=javascript]<script language="javascript"> <!-- function SetFrames(adres1, adres2){ parent.window.LINK.location=adres1; parent.window.COMMENT.location=adres2;} //--> </script>...
1. [url=http://msdn.microsoft.com/en-us/lib... obrazek [syntax=cpp]Bitmap ^ myBitmap = gcnew Bitmap(100,100);[/syntax] 2. weź jego kontekst graficzny [syntax=cpp]Graphics ^ g = Graphics::FromImage(myBitmap);[/syntax] 3. [url=http://msdn.microsoft.com/en-us/lib... na obrazku co tam potrzeba...
Wstaw znak komentarza przed te linie (lub je usuń) : [syntax=basic4gl] Set Nadawanie Print Numer_karty$ Reset Nadawanie [/syntax] Skompiluj jeszcze raz, zaprogramuj ponownie karty i spróbuj wtedy.
Musisz napisać swój kod w JS w edytorze Apps Script (menu Extensions -> Apps scripts). Nazwę, którą nadasz funkcji wpisujesz bezpośrednio w komórkach arkusza, np. =kwota_slownie(123) https://obrazki.elektroda.pl/5530570000_... natomiast w Apps Script editorze piszesz: [syntax=javascript] function kwota_slownie(value) { var result =...
Sugeruję wstawić zamiast : [syntax=javascript]var countTo = 31 * 24 * 60 * 60 * 1000 + now.valueOf(); [/syntax] Taką linię : [syntax=javascript]var countTo = new Date(year, month, day, hours, minutes, seconds, milliseconds); [/syntax] I zamiast "year, month, ..." itd wstawić odpowiednie wartości liczbowe.
Proponuję wykorzystać kod makra typu :spoko: [syntax=vbscript]Sub FillCells oSelect=ThisComponent.CurrentSelection oColumn=oselect.Columns oRow=oSelect.Rows For nc= 0 To oColumn.getCount-1 For nr = 0 To oRow.getCount-1 oCell=oselect.getCellByPosition (nc,nr).setString ("Tu wstaw wypełnienie") Next nr Next nc End Sub[/syntax]
W zdarzeniu SelectionChanged nie ma już RowIndex - tam korzystasz od razu z kolekcji SelectedRows. Czyli po Twojemu: [syntax=csharp]if (DGV.SelectedRows.Count == 1) { DataGridViewRow row = DGV.SelectedRows[0]; ...[/syntax] To rzutowanie powinno generalnie działać, w bazie masz to pole zdefiniowane jako boolean? Wstaw coś takiego i powiedz, co pokazuje:...
<center> ?? Wstaw całość w DIV'a [syntax=html4strict]<div style="width:xxx; margin: 0 auto;"></div>[/syntax] Do tego co to za kodowanie jeżeli używasz polskich znaków? [syntax=html4strict]<meta content="text/html; charset=ISO-8859-1" http-equiv="Content-Type">[/syntax] jak już to: [syntax=html4strict]<meta content="text/html;...
Chciałbym usunąć przecinek ze spacją na końcu No to musisz je wyciąć :D Np po Loop wstaw [syntax=vbscript]b = Left(b, Len(b) - 2)[/syntax] :spoko:
Najprościej dać na początku:[syntax=vbscript]if target.count > 1 then exit sub[/syntax]
Zamiast includować cały plik po prostu formularzem przekieruj na stronę gdzie wyświetli wyniki. Pod menu wstaw formularz HTML: action , w naszym przypadku po naciśnięciu "wyślij" czy tam "szukaj" (zależy jak nazwałeś) przekieruje nas do szukaj.php. W szukaj.php dodaj ten kod, który w tagu CODE. Tylko nie przejdź się na wysyłaniu parametrem POST a odbieraniem...
Proponuję proste rozwiązanie :spoko: [syntax=vbscript]Private Sub CommandButton1_Click() wr = ComboBox1.ListIndex + 2 kl = ComboBox2.ListIndex + 2 Sheets(1).Cells(wr, kl) = TextBox1.Value End Sub[/syntax]
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
[syntax=vbscript]Sub Kraje() Application.ScreenUpdating = False Sheets("Kraje1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row Range("A2:A" & ow).Copy Sheets("Dane1").Range("J1") For x = ow To 3 Step -1 Rows(x & ":" & x + 4).Insert Sheets("Dane1").Range("A8:D12").Copy Cells(x, 1).PasteSpecial xlPasteValues Next Sheets("Kraje2").Select ow = Cells(Rows.Count,...
[syntax=c]TIM1->CR1|=TIM_CR1_URS; [/syntax] zle bit U w rejestrze EGR po tym tez wstaw to DMB dla pewności
Zaraz na początku loop() wstaw poniższe komendy:[syntax=c]Serial.println(uxTaskG... delay(2000);[/syntax]Uruchom bez komend dla wyświetlacza i podaj wynik.
[syntax=vb]Dim zmienna As String zmienna = "blablabla" ActiveSheet.Shapes("pole tekstowe 1").TextFrame.Characters.Text = zmienna[/syntax]
Nie wiem jak ostatecznie zdecydowałeś się to zapisywać, ale zasady są takie. Jeśli zastosujesz zapis tekstowy w rodzaju: [syntax=text]=JEŻELI(A3=8;"7:35";"")[/sy... wynik w postaci tekstowej, który nie nadaje się wprost do obliczeń. Jeśli zastosujesz zapis liczbowy typu: [syntax=text]=JEŻELI(A4=8;--"7:35";"")[/... ułamek określający...
(at)hevet Masz racje, komenda sama się nie wyśle. Wstaw w sekcje void setup(): [syntax=c]u8g2.sendF("ca", 0xC7, displayBrightness);[/syntax] Biblioteka startuje zawsze z ustawieniem maksymalnej jasności.
Spróbuj takiego makra: [syntax=vbscript]Sub Powielanie() Dim ile As Long, w As Long w = 1 Do With Cells(w, 2) ile = .Value .ClearContents .Offset(1, -1).Resize(ile - 1, 2).Insert xlShiftDown .Offset(0, -1).Resize(ile, 2).FillDown w = w + ile End With Loop Until Cells(w, 2) = vbNullString End Sub[/syntax] Makro działa w arkuszu aktywnym zgodnie z przedstawionymi...
"Nie działa" bo okienko inputbox'a pomimo tego że wpiszesz cyfry/liczbę zwraca ją jako tekst . Wstaw za kodem: W takim rozwiązaniu jeżeli liczbowa nazwa asortymentu będzie równa starej cenie to nazwa takiego asortymentu też zostanie zamieniona na nową cenę. edit: ----------------------------------------... Dla zasady poprawności kodu zmień w deklaracji...
Zobacz tak: [syntax=vbscript]Sub Kopiuj_MG() Dim x As Long, n As Long Application.ScreenUpdating = False Sheets("Arkusz1").Select x = 2 Do While Range("A" & x).Value <> vbNullString If Cells(x, "C") > 1 Then Range("A" & x & ":C" & x).Copy n = Range("C" & x).Value Range("A" & x & ":C" & x + n - 2).Insert xlShiftDown...
Ogólnie mówiąc nie jest tragicznie. Pamiętaj, że optymalizator może usunąć pustą pętle FOR (a ta taka jest) w funkcji czekaj_ls. Wtedy migania nie będzie. Aby temu zapobiec - wstaw jakąś 'nieoptymalizowalną' instrukcję w pętlę. np. [syntax=c] __asm__ volatile ( "nop\n\t" );[/syntax]
[syntax=vbscript]Sub Naglowki() If Application.CountIf(Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), [A1]) > 1 Then Exit Sub w = 2 While Cells(w, 1) <> "" n = w + 1 If Cells(n, 1) <> Cells(w, 1) And Cells(n, 1) <> "" Then Rows(n).Insert Range("A1:E1").Copy Cells(n, 1) w = w + 2 End If w = w + 1 Wend End Sub [/syntax]
Tak to jest, jak się zmienia koncepcja w trakcie pisania kodu.:) [syntax=vbscript]Sub Sciezki() Sheets("Archiwum").Select q = 3 nw = Sheets("Sciezki").Cells(Rows.Count, "A").End(xlUp).Row + 1 While Cells(q, "T") <> "" a = Split(Cells(q, "T"), ";") If UBound(a) > 0 Then For y = 0 To UBound(a) Range("A" & q & ":T" & q).Copy Sheets("Sciezki").Range("a"...
Był błąd w kodzie. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then r = Target.Row If Cells(r, 3) = "" Then Cells(r, 3) = Now & " - " & Target & " - " & Environ("Username") Else Cells(r, 3) = Cells(r, 3) & vbNewLine & Now & " - " & Target & " - " & Environ("Username") End If End If End Sub [/syntax]
To dokładnie tak jak napisałem : (Alt +F11) - pojawia się okno VBA. Wskazujesz po lewej (klikasz 2 razy) na nazwie arkusza, w którym chcesz zrobić taką zależność. i tutaj zrobiłem (przyznaje się) mały błąd. Kod umieściłem w This Workbook - a nie w konkretnym arkuszu. Kod w arkuszu (np. w Arkusz1) wyglądać ma tak: [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal...
Proponuję taką procedurę: [syntax=vba]Public Sub Wydruk() Dim i As Long Dim IleKopii As Long Dim IleStart As Long Dim IleStop As Long IleKopii = 20000 With Worksheets("baza") IleStart = .Range("U3") IleStop = IleStart + 100 If IleStop > IleKopii Then IleStop = IleKopii For i = IleStart To IleStart + 100 .PrintOut .Range("U3") = i Next i End With End...
Przykład na formułach i formatowaniu warunkowym: 1. W komórkę E4 wstaw formułę: [syntax=vbscript]=DATA(D1;MIESIĄC(DATA.W... & " 1"));1)[/syntax] 2. W komórkę F4 wstaw [syntax=vbscript]=E4+1[/syntax] i przeciągnij na prawo do ostatniego dnia. 3. Sformatuj wyświetlanie samego dnia ustawiając format niestandardowy -> d 4. Zaznaczasz dni 1-31, wybierasz...
Myślę, że najlepsze wyniki czy nie od końca, ale od początku [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, r As Long, c As Long Application.ScreenUpdating = False i = 2 r = i While Cells(i, 11) <> Empty If Cells(i, 11) <> Cells(i + 1, 11) Then Rows(i + 1).Insert For c = 5 To 7 Cells(i + 1, c + 3) = Application.WorksheetFunction.Sum(Range(...
Mam coś takiego Napisz to jak zwykły kod w C. To co da się obliczyć na etapie kompilacji (czyli rozmiar-2), zostanie obliczone i wstawione jako gotowy wynik. Co do zabezpieczenia przed rozmiarem < 2, to wystarczy statyczna asercja, która zatrzyma kompilację: [syntax=c] W jakimś pliku nagłówkowym: #define STATIC_ASSERT( expr ) { struct __static_assert...
W Tym przypadku możesz zrobić tak: [syntax=c]#define LCD_REFRESH 20; // stała/definicja co ile przebiegów pętli ma być odświeżony wyświetlacz volatile int lcd_refresh; int main() { while(1) { lcd_refresh_rate--; // zmniejsz licznik o 1 if (lcd_refresh_rate == 0) { lcd_refresh_rate = LCD_REFRESH; // zresetuj licznik / wartosc poczatkową odswiez_lcd();...
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...
Np. tak: [syntax=vbscript]For w = 1 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(w, "A") < 1000000 Then Rows(w).Insert shift:=xlDown Exit For End If Next w[/syntax]
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...
No tak ;) Wskaźnik to nie to samo co tablica wskaźników :) W sumie jednak nie wiem czemu sobie kompilator tego nie potrafi przeliczyć ;) Przecież zna typ wskaźnika. No tak, tablica wskaźników nie musi być liniowa przecież. wskaźnk: [syntax=c]osoba * osobaMem fscanf(we, "%s", osobyMem->imie); //odczyt[/syntax] tablica wskażnków: [syntax=c]osoba * osobaMemT[];...
[syntax=vb]Sub Kopiuj() Dim i&, j&, k& Dim nazwa As String arrk = Array("", "D8", "D9", "D10", "F10", "G8", "C13", "D4") ' ' Ponizej nalezy wstawic takie liczby "od-do"(np.100-200), ktore nas interesuja, makro wtedy wykona spisy zgodnie z naszym zyczeniem. (100-200)!!!!!! For i = 2 To 11 ReDim arsh(0) j = 0: arsh(j) = Sheets("OB").Index...
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,...
Mam problem z dopisaniem do Arkusza1 (WuZetka) do komórki E9 kontrahenta wybranego z Comboboxa. Pewnie dlatego, że pod przyciskiem WSTAW nie masz żadnego kodu... ;) Wstaw go - kod będzie podobny do tego, który podałem jako ostatni, a nawet prostszy, bo znasz adres komórki, do której chcesz wstawiać. Dlaczego lista kontrahentów jest inna niż towarów....
Oczywiście, że funkcji takiej nie ma, bo jest to makro. Musisz otworzyć edytor makr w excelu (Visual Basic) i tam w moim przykładzie znajdziesz funkcję. Ogólnie możesz w edytorze Visual Basic dodać do Twojego arkusza nowy moduł i wkleić w nim definicję funkcji: [syntax=vb]Function NDay(exclude As Range, prev As Date) As Date Dim flag As Boolean Dim...
Wszystko kompilowane w Visual studio, chyba wersja 2010. Sortowanie przez wstawianie: [syntax=c] #include<conio.h> #include<stdio.h> #include<ctype.h> #include<stdlib.h> int nr=0,n=1,k=0,k2=0; int A1[10],A2[10]; int licz3; int v; int i,g,d=0,wybor=0,b=0,x,j; char pusty; bool CzyNieWiecej4(int elem1, int elem2) { return (elem1<=elem2);...
Wstaw po linijce:[syntax=c] Serial.println("writing eeprom pass:"); [/syntax] dodatkowo:[syntax=c] Serial.println(qpass.length());[/syntax] Jaka wartość się pokazuje?
Jednym z rozwiązań jest zmiana formatu wyświetlanych liczb na niestandardowy z typem: [syntax=text]rrrr-mm-dd;;;[/syntax] albo formuła (przykład dla komórki I6 arkusza "pełne dane"): [syntax=text]=JEŻELI(CZY.PUSTA(wczasy!C5...
ipconfig wstawi syntax syntax basic4gl syntax basic4gl syntax syntax basic4gl syntax
focal subwoofer sonda piekarnika amica dźwięk testu głośnika
identyfikacja kolumn tchibo ekspertów
Kalibracja lasera CD: Jak dostosować parametry? Parametry pieca gazowego Termet Silver - opis i znaczenie