inputbox excel

Znaleziono około 273 wyników dla: inputbox excel
  • Excel - Zamiast inputbox automatyczne otwieranie się właściwego arkusza

    W kodzie skoroszytu [syntax=vb]Private Sub Workbook_Open() Dim szukany As Worksheet y = CStr(Date) For Each szukany In ThisWorkbook.Worksheets With szukany If CStr(.Range("A1")) = y Then .Activate Exit Sub End If End With Next szukany MsgBox ("Nie ma") End Sub [/syntax]

    Software serwis   22 Paź 2015 15:11 Odpowiedzi: 1    Wyświetleń: 588
  • REKLAMA
  • Jak w VBA Excel 2007 wstawić tekst z InputBox do kolejnej wolnej komórki?

    a co z wierszem 65538 ?

    Programowanie   02 Wrz 2010 20:53 Odpowiedzi: 7    Wyświetleń: 2706
  • Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

    Czekaj (1min)...
  • Excel VBA - Sumowanie komórek z tłem w zaznaczonym obszarze lub od wiersza/kolumny

    Najprościej zastosować Inputbox. x = InputBox("Podaj Nr wiersza", "Inputbox1") y = InputBox("Podaj Nr kolumny", "Inputbox2")

    Software serwis   16 Wrz 2010 09:21 Odpowiedzi: 9    Wyświetleń: 1971
  • Excel VBA: Makro do obliczania procentu ścieków z zaznaczonych komórek

    Myślałam, że można to zapisać jakoś przy użyciu activecell, że gdy użytkownik zaznaczy dowolne dwie komórki to uzyska wynik, bez użycia inputbox.

    Programowanie Początkujący   18 Maj 2014 12:47 Odpowiedzi: 7    Wyświetleń: 1215
  • [VBA/Excel] - Jak stworzyć wyszukiwarkę filmów w Excelu?

    Jest X=InputBox()

    Programowanie Początkujący   29 Gru 2014 05:25 Odpowiedzi: 13    Wyświetleń: 3411
  • REKLAMA
  • Implementacja podwójnej instrukcji IF z dwoma InputBox w VBA Excel

    Witam Szybko ograniczymy inputboxa do samych liczb używając [syntax=vbscript]p1 = Application.InputBox("Liczba 1", , , , , , , 1) p2 = Application.InputBox("Liczba 2", , , , , , , 1)[/syntax]

    Programowanie Początkujący   02 Cze 2018 11:01 Odpowiedzi: 4    Wyświetleń: 567
  • VBA Excel: Jak napisać makro do obliczania średniej z liczb z InputBox?

    Skoro ma być w VBA... Przykład z tablicą i... InputBox'em ;) [syntax=vb]Sub aver() tekst = InputBox("Wpisz liczby oddzielając średnikiem", "Obliczanie średniej") tekst = Replace(tekst, " ", "") 'wyrzucamy spacje tekst = Replace(tekst, ":", ";") 'mogło się komuś omsknąć tekst = Replace(tekst, ".", ",") 'to sie często zdarza tablica = Split(tekst, ";")...

    Programowanie Początkujący   30 Maj 2013 20:30 Odpowiedzi: 2    Wyświetleń: 2922
  • Excel vba - wyszukanie i kopiowanie wierszy do arkusza vba

    W takim przypadku potrzebne są dwie pętle. Pierwsza For dla wszystkich arkuszy, których nazwa <>"RAPORT", wewnętrzna Do While...Loop z licznikiem dla Nr wiersza i instrukcją porównująca zawartość komórki, Np: If Instr(Cells(wiersz, 5).text, szukany_fragment)>0 Then i tu kopiowanie. Szukaną można pobrać przez InputBox.

    Programowanie   12 Lis 2012 08:12 Odpowiedzi: 12    Wyświetleń: 9021
  • REKLAMA
  • Pętla nie zatrzymuje się przy użyciu InputBox zamiast zakresu w Excel VBA

    Witam To fragment kodu z ktróym mam problem i szukam pomocy Do taj pory kod sprawdzał czy w komórce jest wartość i petla działała tak długo jak zakres. Jednak w wypadku kiedy zamiast zakresu dam InputBox czyli "y" petla wstawia w okno przegladarki tekst który jest cały czas wpisany w okno i nie przerywa petli mimo ze w kolumnie B nie ma wiecej wartości....

    Programowanie   19 Lis 2016 13:49 Odpowiedzi: 1    Wyświetleń: 732
  • EXCEL - Po kliknięciu na komórkę pojawia się wyskakująca tabelka - jak?

    Ciekawy pomysł :) Realizacja nie będzie raczej łatwa. Nie będę zanudzać formularzami użytkownika, więc od razu zapytam: A co z tymi nazwiskami po uzupełnieniu tabelki? Może skupić się na miejscu docelowym (InputBox, Split)?

    Programowanie   25 Lip 2012 11:45 Odpowiedzi: 4    Wyświetleń: 2602
  • Excel VBA: Tworzenie wielokryterialnego autofiltru za pomocą inputbox i pętli

    Witam, Może ktoś pomoże z taką zagwozdką związaną z autofiltrem: Chciałbym za pomocą funkcji inputbox działającą w pętli wprowadzać kolejne kryteria autofiltra i na koniec uruchomić jednokolumnowy autofiltr z tymi kryteriami. Kod wygenerowany rejestratorem: ActiveSheet.Range("A4:O19... Field:=2, Criteria1:=Array("038/WD", "143/WD", "450/WD",...

    Programowanie   24 Paź 2023 19:50 Odpowiedzi: 1    Wyświetleń: 165
  • [EXCEL][VBA] Makro wklejające seryjnie zdjęcia z textboxem

    Najprawdopodobniej wchodzą dwa slash'e. Najlepiej dopisywać warunkowo. Przy okazji: przypisujesz tę samą wartość do dwóch zmiennych (nieszkodliwa nadmiarowość)[syntax=vb] ImgFldr = InputBox(AnsDirPrompt, "Powitanie", "C:\") 'ImgFldr = AnsDir CurrentFile = Dir(ImgFldr & IIf(Right(ImgFldr, 1) = "\", "", "\"))[/syntax]

    Programowanie   05 Lip 2012 14:06 Odpowiedzi: 2    Wyświetleń: 1788
  • Excel VBA pobieranie danych z innego pliku excel o zmiennej nazwie

    Sposobów na otwarcie pliku w VBA jest wiele. Można użyć: [syntax=vbnet]Pthnm = ActiveWorkbook.Path Workbooks.Open Pthnm & "\TMP.xlsx"[/syntax] a nazwę pliku podać przez InputBox lub pobrać z jakiejś komórki w arkuszu. Inny sposób to użycie FileDialog i wybranie pliku przy jego pomocy. Wybór należy do Ciebie.

    Programowanie Początkujący   24 Kwi 2022 22:09 Odpowiedzi: 11    Wyświetleń: 5595
  • REKLAMA
  • Excel - zabezpieczenie poszczególnych arkuszy hasłem

    [syntax=vbscript]Private Sub Workbook_Open() For x = 2 To Sheets.Count Sheets(x).Visible = False Next a = InputBox("Podaj hasło:") For x = 2 To Sheets.Count If Sheets(x).Range("AA1") = a Then Sheets(x).Visible = True Next End Sub[/syntax]

    Obsługa oprogramowania   29 Sty 2022 13:29 Odpowiedzi: 15    Wyświetleń: 4431
  • [VBA, EXCEL] Wprowadzanie danych za pomoca inputbox itp - ruchome komórki

    Witam, Przeszukałem forum, ale nie znalazłem rozwiązania. jestem nowym użytkownikiem VBA i nigdy wcześneij nie programowałem, ale skonstruowalem sobie program do faktur, wcześniej już ktos pomagał mi wyedytowac poprawnie kod, moze i tym razem ktoś oświeci mnie na przyszłość. Mam plik faktury, w którym po kliknięciu jedngo z przycisków, kolejno wyskakują...

    Programowanie   19 Maj 2017 21:32 Odpowiedzi: 10    Wyświetleń: 5571
  • Excel 2010 - Makro do automatycznego wypełniania i drukowania danych

    Jeśli nie miałeś do czynienia z formularzami, to najprościej zamknąć InputBox w pętli w Thisworkbook, przy zdarzeniu Open. Coś jak[syntax=vb]With Sheets("NazwaArkusza") For i = to 10 .Cells(i, 2)= Inputbox ("Wpisz wartość dla komórki B" & i) Next .activate End With[/syntax]Dograj sobie rejestratorem polecenie drukowania, lub po aktywowaniu arkusza naciśnij...

    Programowanie Początkujący   04 Gru 2012 10:17 Odpowiedzi: 5    Wyświetleń: 1827
  • Jak zrobić makro odnajdujące i wypisujące określone dane? Excel.

    ) chce porównac jak czesto pada dana kombinacja liczb Problem był nie tyle o Lotto, zarówno o tym, gdzie makro zobaczy dana kombinacja liczb. (InputBox, zakres komorek, czyli inne) Nie będzie to sztywno 6, 19, 3 , 22

    Software serwis   16 Mar 2015 10:07 Odpowiedzi: 8    Wyświetleń: 1197
  • Excel - sumowanie cyfr. Jak obliczyć sumę cyfr w komórce?

    Jeżeli chodzi o sumowanie cyfr w liczbie to zostaje tylko makro, moge troszkę podpowiedzieć: Sub main() Dim c, x As Integer x = InputBox("") While x <> 0 c = c + x Mod 10 x = x \ 10 Wend MsgBox(c) End Sub

    Software serwis   13 Gru 2010 13:56 Odpowiedzi: 10    Wyświetleń: 21631
  • Excel - Makro zapisujące plik pod określoną nazwą oraz z możliwością podania

    [syntax=vb]Sub zapisz1() numer = InputBox("Podaj numer kolejny") NewFilename = numer & "-2015 " & ".xls" ActiveWorkbook.SaveAs Filename:=NewFilename End Sub[/syntax] lub [syntax=vb]Sub zapisz2() ActiveWorkbook.SaveAs Filename:="FORMULARZE" & ".xls" End Sub[/syntax]

    Software serwis   09 Kwi 2015 20:39 Odpowiedzi: 6    Wyświetleń: 4659
  • VBA Excel: Jak sprawdzić, czy zmienna jest liczbą w pętli Do While?

    Najprościej jak tylko możliwe Dim p As Variant p = "a" Do While IsNumeric(p) = False p = InputBox("Podaj kapitał początkowy:") If p = "" Then Exit Sub If IsNumeric(p) = True Then Exit Do MsgBox "Zle dane" Loop

    Software serwis   18 Maj 2010 21:03 Odpowiedzi: 10    Wyświetleń: 2684
  • [VBA][Excel]Przesuwający się zakres komórek do wykresu

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

    Programowanie Początkujący   15 Sie 2012 12:36 Odpowiedzi: 2    Wyświetleń: 2531
  • [Excel VBA] Jak zmienić komórkę na kolejną po restarcie?

    To może tak: [syntax=vbnet][/syntax] Sub Skanuj() ActiveCell = InputBox("tu coś wpisz") ActiveCell.Offset(1,0).Select End Sub [/syntax] To najprostsza wersja. Przed pierwszym skanowaniem ustawiasz kursor gdzie trzeba a potem miejsce będzie zmieniało się automatycznie. Chyba, że potrafimy jakoś określić to miejsca, to niczego nie będziesz musiał robić...

    Programowanie Początkujący   20 Lut 2024 13:20 Odpowiedzi: 4    Wyświetleń: 171
  • Excel Makro: Jak stworzyć pętlę do kopiowania co 14 wierszy?

    Spróbuj z InputBox'em: [syntax=vb]w = 14 ile = Int(InputBox("Ile?", "Wpisz liczbę całkowitą", 3)) If ile < 1 Then Exit Sub Application.ScreenUpdating = False Range("A16:V29").Copy For i = 1 To ile Range("A" & 16 + w).Select ActiveSheet.Paste w = w + w Next Application.CutCopyMode = False Application.ScreenUpdating = True[/syntax]

    Programowanie Początkujący   24 Lip 2013 08:13 Odpowiedzi: 2    Wyświetleń: 1428
  • Excel - jak dodać pole wyboru z przyciskami w makrze VBA?

    Najprościej byłoby użyć zwykłe InputBox. Bardziej "eleganckie" rozwiązanie z formularzem w załączniku.

    Programowanie   21 Sie 2010 20:39 Odpowiedzi: 9    Wyświetleń: 5574
  • VBA: Jak stworzyć makro obsługujące dane z różnych wierszy arkusza?

    Excel wyświetlał MsgBox To się nazywa InputBox. W załączniku numerowanie FV.

    Obsługa oprogramowania   27 Lip 2020 05:09 Odpowiedzi: 3    Wyświetleń: 987
  • Jak narysować tabelę w Excel VBA z ustaloną liczbą wierszy i kolumn?

    A nie powinno być: a = InputBox ("podaj ilość wierszy")

    Programowanie   19 Lut 2013 08:53 Odpowiedzi: 1    Wyświetleń: 957
  • Excel VBA 2010 - suma oraz średnia dla zakresu danych zależnego od inputbox

    Witam, Dopiero uczę się VBA i mam taki problem. Potrzebuję napisać makro, które dla pewnego zakresu dat (wskazanego przez użytkownika poprzez inputbox) będzie: a) sumować dane b) wyliczać średnią z tych danych c) zaktualizuje wykres na bazie tych danych (co miesiąc nowy wykres) Dla przykładu w kol. A mam daty a w kolumnie B kwoty, na których chcę wykonać...

    Programowanie Początkujący   03 Sie 2014 15:27 Odpowiedzi: 2    Wyświetleń: 2775
  • VBA Excel: Jak wypełnić kolumnę minimalną datą dla każdej paczki?

    DIM skad_zaczac AS range skad_zaczac = InputBox("od którego pola zacząć?")

    Programowanie Początkujący   20 Lut 2010 22:22 Odpowiedzi: 12    Wyświetleń: 1401
  • [Visual Basic/Excel] Visual Basic Excel – jak pomnożyć zakres komórek i zapisać wynik w F20?

    [syntax=vb] Sub Generuj() Dim i As Integer Sheets("Liczby").Select Randomize For i = 1 To 4 Cells(2, i + 1) = Int(Rnd() * 30) + 15 'B2:E2 Next End Sub Sub CommandButton2_Click() Call Generuj Range("F20").FormulaLocal = "=SUMA(B2:E2)" Call Mnozenie MsgBox "Oto suma: " & Range("F20") End Sub Sub Mnozenie() Dim Mnoznik As Single, i As Integer Mnoznik =...

    Programowanie Początkujący   29 Sty 2013 04:57 Odpowiedzi: 1    Wyświetleń: 2121
  • Makro VBA do kopiowania danych z plików Excel: Dane1, Dane2 do Wyniki co piątek

    Zdaje się, że nie wpisałeś path (koniecznie w cudzysłowach) w linii [syntax=vb]Set dirObj = MergeObj.Getfolder("tu ścieżka do plików, filedialog lub inputbox")[/syntax]

    Programowanie   25 Lis 2013 13:07 Odpowiedzi: 8    Wyświetleń: 2952
  • [Excel 2003 VBA] Jak w Excel 2003 VBA wypełnić zakres liczbami i obliczyć sumę kwadratów?

    Fajna Szkoła może by pójść tam na uzupełniające ...hmmm ... wracając do tematu Sub iloczyn() Dim iloczyn As Integer liczba = InputBox("podaj liczbę") ilosc = Len(liczba) iloczyn = 1 For i = 1 To ilosc cyfra = Mid(liczba, i, 1) iloczyn = iloczyn * cyfra Next i MsgBox iloczyn End Sub a po co jest to k ? żeby przez...

    Programowanie   17 Kwi 2008 13:02 Odpowiedzi: 12    Wyświetleń: 7933
  • Excel - kopiowanie wartości z komórki w zależności od daty w innej komórce

    Yogi (przypominasz mi dzieciństwo) ;). Nie pamiętam, czy był to 'Zwierzyniec', czy też 'Ekran z bratkiem'. Ale autor napisał: potrzebuję makro A do Autora. Może ten kod będzie wygodniejszy (jest bez obsługi błędów, sam się pobaw): [syntax=vb]Sub Przenies() Dim d As Date, p As Date, k As Date ow = Cells(Rows.Count, "B").End(xlUp).Row y = Sheets("Arkusz2").Cells(Rows.Count,...

    Software serwis   04 Lut 2015 16:11 Odpowiedzi: 13    Wyświetleń: 2592
  • Excel - VBA, makra, corpo, drukowanie za pomocą makr

    To samo robiący kod, tyle że krótszy. [syntax=vbscript]Sub Drukowanie() i = InputBox("Numer wiersza") Set a = ActiveSheet Set b = Workbooks.Open(Environ("userprofile") & "\Desktop\Zeszyt2.xlsm") w = 2 For k = 1 To 5 a.Cells(i, k).Copy b.Sheets(1).Cells(w, k + 1) w = w + 1 Next ActiveSheet.PrintOut b.Close True End Sub [/syntax] Wklejam tutaj kod bo...

    Programowanie Początkujący   28 Kwi 2020 10:39 Odpowiedzi: 9    Wyświetleń: 1395
  • Excel VBA - Niepoprawne wpisywanie wartości w kolumnach przez pętlę for

    Spróbuj tak :D [syntax=vbscript]Sub m2() Dim s As Double t = InputBox("Podaj głębokość maksymalną [m]") Range("A2").Value = "Głębokość maksymalna:" Range("A2").EntireColumn.AutoFit Range("B2").Value = t x = 0 For s = 0 To t Step 0.2 Range("B6").Offset(x, 0).Value = s x = x + 1 Next s End Sub[/syntax]

    Programowanie Początkujący   08 Cze 2020 16:48 Odpowiedzi: 6    Wyświetleń: 444
  • Excel VBA: Makro do wprowadzania tylko liczb i zliczania cyfr w arkuszu

    A czy plik, którego nazwę podałeś w InputBox znajduje się w tym samym katalogu w którym jest arkusz z którego uruchamiasz makro?

    Software serwis   12 Mar 2011 10:56 Odpowiedzi: 34    Wyświetleń: 7783
  • Excel VBA - Makro do kopiowania wierszy z nazwą produktu 'Piłka' do innego arkusza

    [syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax] Poniżej bez rozróżniania wielkości...

    Obsługa oprogramowania   31 Sie 2021 10:23 Odpowiedzi: 5    Wyświetleń: 477
  • [excel][vba] Kopiowanie wierszy jezeli okreslona wartosc

    [syntax=vbscript]Sub ZnajdzDodaj() Set a1 = Sheets("Arkusz1") Set a2 = Sheets("Arkusz2") a = InputBox("Znajdź :", "Szukanie") owa2 = a2.Cells(Rows.Count, "A").End(xlUp).Row If Application.CountIf(a2.Range("A1:A" & owa2), a) > 0 Then MsgBox a & " istnieje już w bazie." Exit Sub End If owa1 = a1.Cells(Rows.Count, "H").End(xlUp).Row For x = 1 To owa1 If...

    Programowanie Początkujący   06 Kwi 2023 10:25 Odpowiedzi: 14    Wyświetleń: 4167
  • Excel VBA: Jak zapisać dane z TextBox do kolejnych komórek w kolumnie?

    Zamiast Range("A1") można użyć komórki zaznaczonej (Selection), a po wpisaniu danych przesunąć zaznaczenie np. Selection.Offset(1,0).Select. Jest to oczywiście tylko jedna z możliwości. Przykład załączony, ale trzeba go dopasować, ja użyłem funkcji InputBox, bo podany fragment kodu jest wyrwany z kontekstu.

    Software serwis   11 Lip 2013 12:56 Odpowiedzi: 1    Wyświetleń: 1149
  • [EXCEL] Jak użyć zmiennej dla nazwy pliku w VBA Excel?

    Hmm. Ciekawe. To skorzystaj z inputa. np.: plik = InputBox("PODAJ ŚCIEŻKĘ DO PLIKU") lub tak jak chciałeś wcześniej z komórki.

    Programowanie Początkujący   13 Lut 2010 01:28 Odpowiedzi: 6    Wyświetleń: 11115
  • [Excel] Jak stworzyć makro VBA wyświetlające miasta o podanym dystansie?

    Za mało danych, np. czy odległości będą posortowane (malejąco, rosnąco), czy też nie, czy podawać w wyniku tylko jedno sparowanie odległości-miasta, czy też wiele, itd. Dziekuje za odpowiedz. Nie, odleglosci nie sa posortowane. Miasta sa rowniez wpisane losowo. W wyniku chcialabym zeby kazde miasta z dana odlegloscia wyswietlaly sie osobno, tj.Wroclaw-Berlin...

    Programowanie Początkujący   22 Sty 2019 13:47 Odpowiedzi: 6    Wyświetleń: 663
  • VBA Excel: Jak umożliwić przewijanie arkusza przy otwartej formatce?

    Wygląda na to, że słabo sprecyzowałem mój problem. Chodzi mi o to,że w momencie, gdy wyświetlona jest formatka z textbox'ami to nie mogę przesunąć arkusz, aby wyszukać dane do wpisania w te textbox'y. Podobnie mam w innym makro. Uruchamiam makro, pojawia się inputbox z poleceniem wpisania danych z arkusza. Jeśli akurat jestem w innej części arkusz,...

    Programowanie Początkujący   08 Kwi 2011 17:22 Odpowiedzi: 5    Wyświetleń: 3911
  • Excel VBA makro - Scalanie plików z folderu, formatowanie i okienka dialogowe

    Obszar = InputBox("Podaj obszar kopiowania danych", "Obszar danych", "A1:K10") Przed petlą For

    Programowanie Początkujący   02 Maj 2016 13:24 Odpowiedzi: 7    Wyświetleń: 2856
  • [Excel, Vba] Jak zmodyfikować VBA, by przycisk usuwał puste wiersze w Arkusz2?

    Jeśli jednocześnie to For ark = 1 To 2 With Sheets(ark) For i = .Cells(65536, "a").End(xlUp).Row To 2 Step -1 If .Cells(i, "a").Value = "" Then .Rows(i).Delete shift:=xlUp End If Next End With Next Jeśli uruchamiasz w pierwszym a usuwać ma w drugim to With Sheets(2) For...

    Programowanie Początkujący   28 Sie 2010 13:00 Odpowiedzi: 8    Wyświetleń: 22416
  • Excel VBA - Jak stworzyć schemat magazynowy z gradacją papierów?

    Ja bym zrobił tak, że po wpisaniu nazwy urządzenia wyskakuje okno gdzie podajsz ilość pobrania lub oddania. With Target If .Address(0, 0) = "E2" Then Application.EnableEvents = False ilosc = InputBox("Ile pobrano?") If .Value <> Empty Then On Error Resume Next wrs = Columns(1).Find(what:=.Value, lookat:=xlWhole).Row Err.Clear If wrs <> Empty...

    Obsługa oprogramowania   08 Gru 2018 09:13 Odpowiedzi: 19    Wyświetleń: 1950
  • [VBA] Excel - Makro do podziału raportu na pliki według kolumny B

    Witam [syntax=vb] Sub podzial_pliku() Dim kol As String Dim wiersz As Integer Dim nazwa As String Dim ark As Worksheet kol = InputBox("Podaj litere kolumny na podstawie ktorej nastapi podzial plikow", "Pytanie") wiersz = InputBox("Podaj numer wiersza od ktorego zacznie sie podzial plikow", "Pytanie") Range(kol & wiersz).Select Set ark = ActiveSheet...

    Programowanie Początkujący   30 Lip 2014 21:25 Odpowiedzi: 2    Wyświetleń: 2337
  • [VBA] - Automatyczne pobieranie danych co godzinę do Excela

    Najłatwiej: podstawić zmienne pobrane z InputBox'ów. Tu masz wybór: -przypisanie ich przed pętlą 'For k' - dla wszystkich dni równo (prościej) -przypisanie wewnątrz - indywidualnie dla każdego dnia. Np [syntax=vb]Sub Ele() For k = 0 To 1 'dzis =Date - k 'nadmiar Data = Date - k a = InputBox("od -liczba 0-23", "dla " & Format(Data, "dddd") & " " & Data)...

    Programowanie Początkujący   18 Lut 2015 13:07 Odpowiedzi: 14    Wyświetleń: 5460
  • Jak wprowadzać dane do Excela z InputBox w VBA i rozdzielać przecinkami?

    ale niestety wsztstkie dane musza być pisane w ciągu a program sam musi rozdzielac dane. Np. ul./ al./ ulica / aleja daty wpisane w innych formatach itp. Tak jak pisałem w takim przypadku pokombinuj z funkcjami InStr, Mid, Len aby rozdzielić ciąg znaków po wybranych separatorach. Najlepiej przypisz sobie to co podzielisz do zmiennych. Później przy...

    Programowanie   28 Sty 2020 10:55 Odpowiedzi: 27    Wyświetleń: 645
  • Excel - Jak przypisać funkcję Shift F2 do przycisku Formantu?

    Co prawda zrobiłem macro i wstawia ono komentarz ale to jest już "gotowy" komentarz z tekstem albo pusty, a chciałbym żeby po naciśnięciu przycisku można było wpisywać komentarz. Możesz też wykorzystać inputbox [syntax=vbnet]ActiveCell.AddComment ActiveCell.Comment.Text Text:="Bob:" & Chr(10) & Application.InputBox("podaj tekst", Type:=2)[/syntax]

    Software serwis   29 Wrz 2016 06:25 Odpowiedzi: 3    Wyświetleń: 690
  • Excel makro z wyborem arkusza do wklejenia danych - jak to zrobić?

    Z MsgBox można wybrać tylko Tak, Nie lub Anulować. Możliwość wprowadzenia jest w InputBox, ale trzeba wprowadzać ręcznie, możliwy błąd. Z RefEdìt można określić kursorem arkusza i komórki docelowej.

    Software serwis   19 Paź 2014 18:01 Odpowiedzi: 30    Wyświetleń: 2406
  • Excel - Jak utworzyć makro do filtrowania i usuwania określonych wierszy?

    Owszem to filtrowanie danych ale w żadnym wypadku nie powinno być powiązane z auto-filtrem, tym bardziej jak masz excel 2003 i poniżej. Tu masz kod. Tłumaczyć? [syntax=vb]Sub Makro1() Dim ostWrs As Long, x As Long Dim tekst As String, szukane As String ostWrs = Range("B" & Rows.Count).End(xlUp).Row tekst = InputBox("Podaj szukany ciąg", "Podaj szukaną")...

    Software serwis   15 Mar 2013 18:01 Odpowiedzi: 5    Wyświetleń: 2184
  • Jak zrobić makro wrzucające tekst do pierwszej, wolnej komórki? VBA i Excel.

    [syntax=vbnet]Sub Dodaj() Cells(Cells(Rows.Count, "A").End(xlUp).Row, 1) = InputBox("Podaj dane:", "UWAGA") End Sub[/syntax]

    Programowanie   23 Sie 2018 21:41 Odpowiedzi: 3    Wyświetleń: 525
  • Excel VBA makro kopiujące dane z arkusza do innego arkusza do różnych komórek

    Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...

    Programowanie Początkujący   20 Lut 2021 15:31 Odpowiedzi: 8    Wyświetleń: 1506
  • Excel VBA - kod w którym liczba pętli zależy od podanej przez użytkownika liczby

    W ostateczności (syntax wybierz: Visual Basic) [syntax=vb]For i = 0 To InputBox("wpisz liczbę")[/syntax] lub podstaw z komórki (po wymnożeniu *10, jeśli step 0.1)

    Software serwis   11 Gru 2013 07:14 Odpowiedzi: 4    Wyświetleń: 1353
  • Excel: Automatyczna zmiana parametrów w odnośnikach do plików i arkuszy

    Może spróbuj przez podstawianie formuł. Makro przetestowałem na arkuszu "Zmiana N". Jeśli to jest to, to masz już z górki.[syntax=vb]Sub Proba() For j = 6 To 10 Step 2 zmF = InStr(Cells(3, j).Formula, "KW") zmF = Mid(Cells(3, j).Formula, zmF, 4) zmR = InputBox("W kolumnie " & j & " " & zmF & " zamienić na:", "podaj symbol") If zmR <>...

    Programowanie Początkujący   10 Kwi 2012 06:36 Odpowiedzi: 5    Wyświetleń: 5182
  • Tworzenie nowego pliku Excel z makrem VBA: kopiowanie, usuwanie i przenoszenie komórek

    abym mógł nazwę pliku zmodyfikować na własną? Można np. tak :idea: nazwa :D

    Obsługa oprogramowania   12 Wrz 2021 16:37 Odpowiedzi: 8    Wyświetleń: 327
  • Automatyczny wydruk stron z dodaniem numeru - Excel.

    Ja to widzę jakoś tak (zakładam, że komórka B1 to numer i jest złożony tylko z cyferek, wydruk na drukarkę domyślną bez pytania, strony od 1 do 1): [syntax=vb]Sub Makro1() Dim x As Integer x = Val(InputBox("Podaj liczbę kopii", "Liczba kopii", 1)) If x = 0 Then Exit Sub While x > 0 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1 Range("B1").Value...

    Software serwis   04 Lip 2011 12:02 Odpowiedzi: 3    Wyświetleń: 2352
  • VBA EXCEL - Edycja txt, generuje dodatkową pustą linijke

    gdyż mam makro które tworzy mi CSV Napisałem na szybko takie coś: [syntax=vb] ''' <summary> ''' Zapisuje bierzący arkusz do pliku CSV ''' </summary> Sub SaveCSV() Dim R As Range Dim cmax As Integer Dim rmax As Integer Dim srow As String Dim fname As String cmax = Excel.ActiveSheet.UsedRange.Columns.Coun... rmax = Excel.ActiveSheet.UsedRange.Rows.Count.....

    Programowanie Początkujący   30 Gru 2012 12:52 Odpowiedzi: 3    Wyświetleń: 2799
  • EXCEL - VBA - Automatyczny wybór pliku miesięcznego w Case

    : ) ... a z właściwej strony tam zaglądasz ... : ) ? ... np. z ustawieniami "na sztywno": [syntax=vbscript]Sub abc() Dim msc, mscS$, schmt$, otwarty As Object msc = Trim(InputBox("Wprowadź numer miesiąca z przedziału 1-12", "Podaj miesiąc", "1")) msc = Abs(Fix(Val(msc))) If msc < 1 Or msc > 12 Then Exit Sub mscS = Choose(msc, "Styczeń", "Luty",...

    Programowanie Początkujący   04 Gru 2019 02:00 Odpowiedzi: 8    Wyświetleń: 711
  • Excel - Makro do filtrowania danych z ostatnich 3 dni lub weekendu

    Tak jak już napisał Maciej Gonet bez załącznika to trochę wróżenie z fusów, ale spróbuj dostosować do Twojego pliku taki kod: [syntax=vb]Sub TrzyOstatnieDni() Dim rRng As Range Dim lLstRw& Dim sData$ Dim dData As Date sData = InputBox("Podaj Datę w formacie dd/mm/rrrr):") sData = Format(sData, "dd/mm/yyyy") dData = CDate(sData) lLstRw = Cells(Rows.Count,...

    Software serwis   15 Mar 2014 20:32 Odpowiedzi: 5    Wyświetleń: 1134
  • Excel VBA: Jak usuwać wiersze na podstawie listy wartości z innego arkusza?

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

    Programowanie Początkujący   05 Kwi 2017 09:44 Odpowiedzi: 13    Wyświetleń: 2244
  • [VBA Excel] - Makro do kopiowania ilościowych danych pod 2 warunkami

    Spróbuj to [syntax=vb] Sub Porzadkuj() x = InputBox("Podaj datu", "Data przyporziadkowania", Date) If Not IsDate(x) Then Exit Sub x = DateValue(x) Dim nazwy As Range, d As Range With Sheets("pivot") Set nazwy = .Rows(3) Set d = .Cells.Find(x, LookIn:=xlValues) If d Is Nothing Then Exit Sub Set d = d.EntireRow.Cells For Each sh In ThisWorkbook.Sheets...

    Software serwis   18 Maj 2015 20:49 Odpowiedzi: 2    Wyświetleń: 1032
  • [VBAExcel] Jak przekształcić funkcję IF AND z Excela do VBA z adresami z InputBox?

    Pisząc w skrócie, musiałoby być coś takiego: [syntax=vbscript]Dim val_ As Single, rng1 As String, rng2 As String val_ = InputBox("0,4 lub 0,6", "wpisz wartość mnoznika") rng1 = InputBox("wartość1", "wpisz adres komórki 1") rng2 = InputBox("wartość2", "wpisz adres komórki 2") If Range(rng1) > 0 And Range(rng2) > 1 Then ActiveCell = (Range(rng1) - Range(rng2)...

    Programowanie   06 Paź 2017 07:35 Odpowiedzi: 3    Wyświetleń: 795
  • Excel VBA szukanie - szukanie w jednej kolumnie i zwracanie wyniku z drugiej

    [syntax=vbscript]Sub Cos() a = InputBox("Podaj numer: ", "Numerki") If Not IsNumeric(a) Then MsgBox "Oczekiwano numer." Exit Sub End If ow = Sheets("111").Cells(Rows.Count, "A").End(xlUp).Row m = Application.Match(CDbl(a), Sheets("111").Range("A1:A" & ow), 1) If Not IsError(m) Then b = Sheets("111").Range("B" & m) Sheets(b).Range("A1:E20").PrintOut...

    Obsługa oprogramowania   30 Wrz 2020 05:41 Odpowiedzi: 8    Wyświetleń: 1002
  • VBA Excel - import wybranych plików *.dat do excela

    Po mojemu powinno działać coś takiego (nie testowane)[syntax=vb]Sub Przycisk1_Kliknięcie() Dim path1 As String, path2 As String, plik As String Dim folder As Object, pfolder As Object Dim dta1 As Date, dta2 As Date, nazwaMin As String, nazwaMax As String Application.ScreenUpdating = False path2 = "\\Serwer\test" Set folder = CreateObject("Scripting.FileSystemObject...

    Programowanie Początkujący   10 Mar 2012 06:41 Odpowiedzi: 5    Wyświetleń: 5157
  • Wykonywanie zapytania do bazy Access z Excela z hasłem

    Dzięki PRL rs.Open SQL, cn gdy baza jest chroniona hasłem otrzymuję "Run-time error -2147217843 Automation error" Po zdjęciu hasła z bazy jest OK (nawet bez modyfikacji cn). No i jeszcze jeden problem - Excel blokuje dostęp do pliku accdb Dodano po 3 Da się, zwykły InputBox O! I hasło zna tylko jeden kierownik :-)

    Programowanie Początkujący   31 Sty 2020 08:31 Odpowiedzi: 14    Wyświetleń: 738
  • Excel VBA: Makro do wypełnienia dat w komórkach A2 w 31 arkuszach

    Nie pisałeś wcześniej, że będziesz latał z datą po arkuszu jak "przedstawiciel mniejszości narodowej po pustym sklepie. Użyj drugiej procedury z mojego postu. Do uzupełnienia daty możesz wykorzystać którąkolwiek komórkę arkusza wpisując do niej to co jest w cudzysłowie. Można też wykorzystać InputBox. Tak na marginesie to pomysł z 31 lutym to chyba...

    Software serwis   14 Lut 2011 19:42 Odpowiedzi: 26    Wyświetleń: 3300
  • Tworzenie programu w VBA do obliczania sumy ciągu harmonijnego z wynikiem w msg box/label

    jak napisać program obliczający sumę 1+1/2 + 1/3 +1/4.... +1/n dla n podanego w polu edycyjnym , wynik pokaż w msg box lub label . Program ma być napisany w języku VBA Oczywiście, poniżej znajdziesz przykładowy kod napisany w VBA, który oblicza sumę ciągu harmonijnego 1 + 1/2 + 1/3 + ... + 1/n, gdzie n jest liczbą podaną przez użytkownika. Kod ten...

    Programowanie   26 Lis 2023 20:24 Odpowiedzi: 2    Wyświetleń: 183
  • Excel VBA - Excel - makro służące do blokowania wklejania/kopiowania

    Tak i to na kilka sposobów. Najprostsze, byłoby zadeklarowanie zmiennej globalnej typu Boolean, warunkowe uruchomianie procedury i makro z inputbox'em zmieniające stan zmiennej.

    Software serwis   20 Lis 2014 08:08 Odpowiedzi: 5    Wyświetleń: 4674
  • Excel VBA - Makro do sprawdzania podzielności przez 59 w komórce A1

    No, trochę zakręcone ;) 1. Dla pojedynczej komórki nie stosuj pętli For . Wystarczy Range () 2. Każda pętla (jeśli już) ma swój początek i koniec. Zjadłaś Next 3. Do porównania potrzebny jest wynik działania: If liczba Mod liczba = 0 Then Dlaczego przy Worksheet_Calculate ? Prościej byłoby przy Worksheet_Change gdzie warunkiem będzie Target.Address(0,0)="A1"...

    Programowanie Początkujący   10 Maj 2013 09:00 Odpowiedzi: 4    Wyświetleń: 5505
  • Excel - jak filtrować listy rozwijane według symbolu artykułu?

    Przepraszam, ale co to jest? (zaznaczone na żółto) http://obrazki.elektroda.pl/3908026800_1... sprawdź to: [syntax=vb]Sub filtr_listy() szukana = InputBox("Wpisz ciąg znaków którego szukasz") Selection.AutoFilter Field:=1, Criteria1:="=*" & szukana & "*", Operator:=xlAnd End Sub[/syntax]

    Software serwis   24 Maj 2013 23:33 Odpowiedzi: 17    Wyświetleń: 7113
  • Excel prosze o podpowiedź jak napisać program/funkcje

    Najprościej wykorzystać MsgBox i InputBox. Procedura wg schematu: If MsgBox("czy jest to kolejny protokól z serii", vbQuestion + vbYesNo) = vbYes Then Cells(wiersz, kolumna) = WorksheetFunction.Max(zakres) + 1 Else Range(zakres).Find(What:... podać Nr protokołu"), LookAt:=xlWhole).Select...

    Programowanie   10 Maj 2010 17:56 Odpowiedzi: 4    Wyświetleń: 3805
  • Excel- automatyczne kopiowanie większej zawartości pól

    Usiadłem (wreszcie) nad tym i tak sobie myślę: Jeśli pierwszy dzień miesiąca wypada w środę, to w systemie 5/1 dzień wolny ma brygada, która pracowała w ostatni czwartek poprzedniego miesiąca. Nie ma tu stałych, więc po czym w takim razie biedny Excel ma się orientować? Systemu 6/2 nawet nie próbuję analizować :) Należałoby mu jakoś (InputBox, wartość...

    Software serwis   30 Cze 2011 21:48 Odpowiedzi: 64    Wyświetleń: 13859
  • Excel, VBA - Jak stworzyć makro zamieniające tekst z wartością z A1?

    Nie próbujesz nawet realizować sugerowanych najprostszych rozwiązań :cunning: Wszyscy, którzy mają jakiekolwiek doświadczenie z VBA doskonale wiedzą co to znaczy nagrywania makra :D Chodzi o utworzenie samodzielne np takiego makra: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Klawisz skrótu: Ctrl+s ' altStr = InputBox("Fraza do wymiany?", "Zamień...

    Programowanie Początkujący   16 Kwi 2018 10:51 Odpowiedzi: 9    Wyświetleń: 4188
  • [VBA] Excel - Jak stworzyć wyszukiwarkę gier z filtrowaniem kategorii i platform?

    no własnie. według mnie mozna by zrobic przycisk wyszukaj i w tym przycisku inputbox i zeby w arkuszu wyszukiwało to co sie wprowadza do inputboxa, a wkolejnym inputboxie wpisac wartośc i ona sie wpisuje w tym wierszu co wczesniej znalazło wynik tyle ze kilka kolumn dalej. tylko nie moge sobie z tym poradzic jak napisac kod

    Programowanie Początkujący   02 Lut 2014 18:07 Odpowiedzi: 10    Wyświetleń: 2202
  • Excel - Jak stworzyć wyszukiwarkę danych według imienia, nazwiska lub numeru klucza?

    [syntax=vb]Sub wyszuk() Set bs = ActiveSheet.UsedRange.Offset(1) slowo = InputBox("Slowo do wyszukiwania", "Szukaj") If slowo <> "" Then For Each r In bs.Rows r.Hidden = r.EntireRow.Find(slowo) Is Nothing Next End If End Sub [/syntax] P.S. Jurowska?

    Software serwis   27 Sty 2016 17:00 Odpowiedzi: 6    Wyświetleń: 1014
  • Excel Makro - Uogólnienie ścieżek do plików w jednym folderze

    Rozdziel ścieżkę i nazwy plików. Argumentem metody Open jest string, więc możesz podstawić ze zmiennych. Np Workbooks.Open sciezka & "\" & plik Gdzie wartość dla "sciezka" pobierana jest z komórki, inputbox'a, browsera, etc.

    Programowanie   12 Sie 2011 14:02 Odpowiedzi: 7    Wyświetleń: 8315
  • kopiuj wklej do kolejnej wolnej komórki w kolumnie excel vba

    Czy należy zmienić coś ...? No oczywiście zmienić :D , ale nie w tym miejscu, które wskazujesz :not: Można np tak (przykładowo dla przycisku 1): [syntax=vbscript]Sub e1() With Sheets("Dane1") Lr = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 If Lr <= 20 Then .Cells(Lr, 1) = Cells(2, 3) .Cells(Lr, 2) = InputBox("Podaj ilość") Else MsgBox "Przekroczona...

    Programowanie Początkujący   29 Paź 2020 20:28 Odpowiedzi: 7    Wyświetleń: 1746
  • Excel VBA - Makro kopiujące komórki z wybranego wiersza

    Witaj [syntax=vb]Sub kopije() r = Val(Trim(InputBox("Podaj numer wiersza do skopiowania"))) If r = 0 Then Exit Sub Sheets(1).Range("A" & r & ", B" & r & ",D" & r & ",G" & r).Copy Sheets(2).Range("A1") End Sub [/syntax]

    Software serwis   21 Maj 2015 09:26 Odpowiedzi: 2    Wyświetleń: 1734
  • Modyfikacja makra VBA dla Excela: powrót do okna wpisywania i limit znaków przy wyszukiwaniu

    Chciałbym też dodać do tego makra zasadę, aby akceptowało przy wyszukiwaniu max 10 znaków. Jak wpiszesz więcej niż 10 to dostaniesz komunikat.(zrezygnowałem z jednego if-a bo anulowanie inputboxa przejmie xFRg) [syntax=vbscript]Sub FindRange() 'UpdatebyArekD2022 Dim xRg As Range Dim xFRg As Range Dim xStrAddress As String Dim xVrt As Variant xVrt =...

    Programowanie   14 Lut 2022 06:54 Odpowiedzi: 5    Wyświetleń: 270
  • Jak napisać makro wpisujące datę do komórki? VBA i Excel.

    [syntax=vbscript]Sub Data() ' ' Data Makro ' 10 myday = InputBox("Podaj dzień.") If myday <> "" Then If IsNumeric(myday) Then Selection.FormulaR1C1 = myday Else MsgBox "Nie podales dnia." GoTo 10 End If End If 20 mymonth = InputBox("Podaj miesiąc.") If myday <> "" Then If IsNumeric(mymonth) Then Selection.FormulaR1C1 = mymonth Else MsgBox...

    Programowanie Początkujący   16 Sty 2023 15:43 Odpowiedzi: 13    Wyświetleń: 714
  • Makro do filtrowania daty w Excelu - problem z formatem daty

    Rzecz w tym, że nigdy nie będziesz pewien wyniku. Z InputBox'a pobierasz 01-12-2015, w arkuszu może być 12/1/2015, 12/01/2015, 1/12/2015, 01/12/2015. Który tekst (w obecnym formacie) odfiltrować? Pewnie wszystko (tylko czy odfiltrowaliśmy pierwszego grudnia, czy dwunastego stycznia?). Wartości w kolumnie D nie są datami, w rozumieniu Excel'a, a zwykłym...

    Programowanie Początkujący   07 Lip 2015 11:36 Odpowiedzi: 6    Wyświetleń: 924
  • Jak stworzyć makro w Excelu do zmiany cen produktów po nazwie?

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

    Software serwis   25 Sty 2012 12:28 Odpowiedzi: 25    Wyświetleń: 3588
  • Excel VBA Przeszukiwanie kolumn X,Y za pomocą SUMA WARUNKÓW wtedy suma kolumny Z

    Pewien jesteś, że to chciałeś powiedzieć? SUMA w logice to alternatywa czyli słowo 'lub', a iloczyn to koniunkcja czy 'i' Do tej pory jest tak zrobione że jest wpisana formuła SUMA WARUNKÓW kolumn X i Y żeby były dodawane wszystkie liczby z kolumny Z jeżeli oba warunki są spełnione. Chciałbym to tylko mieć w VBA żeby nie zmieniać przy każdej nowej...

    Programowanie Początkujący   23 Lut 2018 11:57 Odpowiedzi: 3    Wyświetleń: 1908
  • [VBA Excel] Jak wyszukać wiersz z kierowca i NIE w dwóch kolumnach?

    np: [syntax=vba]Option Explicit Sub bbb() Dim w As Long Sheets("Historia_ZLEC").Select On Error Resume Next w = Columns(4).Find(What:="kierowca", LookAt:=xlWhole).Row On Error GoTo 0 If w = 0 Then MsgBox "Nie znaleziono", vbOKOnly, "Uwaga": Exit Sub If Cells(w, 6).Value = "NIE" Then Range(Cells(w, 4), Cells(w, 6)).Select Else MsgBox "Nie znaleziono",...

    Programowanie Początkujący   06 Maj 2018 11:10 Odpowiedzi: 5    Wyświetleń: 1260
  • Wstawianie kolumny w określonym miejscu w excelu w kodzie vba

    Witam, mam pewien problem, którego samodzielenie nie potrafie rozwiązać. Mam w arkuszu excela w jednym wierszu, w poszczególnych komórach daty, które odpowiadaja poszczególnym datą reprezentujacycm soboty, niedziele i swieta w danym roku kalendarzowym. W te dni pracuje pewna grupa pracowników. Pod każda data zaznaczam, czy pracownik pracował, czy tez...

    Programowanie Początkujący   08 Paź 2015 17:45 Odpowiedzi: 14    Wyświetleń: 3357
  • [VBA Excel] - Filtr dat od do nie wyświetla danych, tylko po kliknięciu ok

    Próbuje zrobić makro które po wprowadzeniu w inputbox dat od i dat do założy filtr na dane i zapisze go do PDF problem jest z filtrem. Po wprowadzeniu nie wyświetla żadnych danych mimo iż kryteria się wprowadzają, dopiero jak kliknę "ok". Dane się wyświetlają, poniżej kod: Dim data_Od As Date data_Od = InputBox("Podaj date od:") Dim data_do As Date...

    Obsługa oprogramowania   30 Sie 2019 21:18 Odpowiedzi: 1    Wyświetleń: 399
  • Excel VBA Tworzenie wykresu z wypełnionych komórek

    Dzień dobry, mam poniższy kod: [syntax=vba]Sub m2() a = InputBox("Wpisz liczbe") b = InputBox("Wpisz druga liczbę") For s = 0 To a Range("A1").Offset(s, 0).Value = s Range("B1").Offset(s, 0).Value = b Next ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select ActiveChart.SetSourceData Source:=Range("Zadanie!$A$1:$B$6") ActiveChart.ChartStyle...

    Programowanie Początkujący   09 Cze 2020 10:11 Odpowiedzi: 8    Wyświetleń: 1038
  • Visual Basic: Jak napisać skrypty do plików, skrótów i kopiowania folderów?

    Z pierwszego: dim adres 'pobieranie scezki adres = InputBox ("Podaj sciezke", "Wprowadzenie danych") katalog = adres dim w ' Uruchomienie Excela set w = createobject("Excel.application") w.visible = w.Workbooks.add ' Utworzenie nowego dokumentu Set MyFiles = CreateObject("Scripting.FileSystemObject... Set Folder = MyFiles.GetFolder(katalog) Set WszystkiePliki...

    Programowanie Początkujący   14 Gru 2009 18:03 Odpowiedzi: 4    Wyświetleń: 1419
  • Excel-makro zmieniające dane znaki na polskie litery

    Może InputBox? Np tak przeróbka makra wyżej[syntax=vb](...) On Error Resume Next wrs = InputBox("Podaj Nr wiersza początkowego", "Proszę wpisać liczbę", 6) max = InputBox("Podaj Nr wiersza końcowego", "Proszę wpisać liczbę") On Error GoTo 0 If wrs < 2 Then Exit Sub If wrs > max Then max = Rows.Count Do While Cells(wrs, 4) <> "" And wrs <=...

    Software serwis   12 Lip 2012 17:35 Odpowiedzi: 18    Wyświetleń: 11445
  • VBA Excel - Automatyczne filtrowanie daty w tabeli info

    Witam, rozpoczynam przygodę z VBA. Mam plik z danymi, w kolumnie B znajduje się data (format ustawiony jako data krótka). Chciałbym wybierać zakres wyświetlanych danych w zależności od daty. Dane są sformatowane jako tabela "info". Wykorzystując poradę znajdującą się tutaj: http://www.elektroda.pl/rtvforum/topic22... Stworzyłem poniższy kod:...

    Programowanie Początkujący   10 Gru 2013 13:19 Odpowiedzi: 6    Wyświetleń: 4860
  • Excel 2013 - Listbox wstawianie wartości z listy do komórki arkusza

    Dzięki Clubs, Zrobiłem coś takiego ' Pokazanie okna do wprowadzanaia wartości Range("A2").Value = InputBox("Podaj datę paragonu") Range("B2").Value = InputBox("Podaj kwotę paragonu") Range("C2").Select KategorieWydatków.Show Range("D2").Value = InputBox("Wybierz podkategorię paragonu") Range("E2").Value = InputBox("Uwagi") W odpowiednim miejscu wyskakuje...

    Programowanie Początkujący   16 Maj 2016 07:50 Odpowiedzi: 6    Wyświetleń: 2562
  • Excel-VBA: Wyświetlanie nazw kart w ComboBox i tworzenie nowych kart

    Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...

    Programowanie Początkujący   06 Lis 2012 13:17 Odpowiedzi: 2    Wyświetleń: 3888
  • [VBA Excel] Okienko do wprowadzania zakresu dat do komórek B8 i B9

    [syntax=vbscript]dane = Application.InputBox("jakiś tekst" & Chr(10) & "Podaj zakres dat", "Wprowadzanie zakresu dat") [/syntax]

    Programowanie   30 Cze 2022 10:46 Odpowiedzi: 14    Wyświetleń: 651
  • Excel 2002 SP3 - Jak użyć checkboxa do blokowania wierszy po wpisaniu danych?

    Czy można je blokować do edycji po wpisaniu danych lub odblokować jeżeli zajdzie taka potrzeba. Z tym pierwszym to żaden problem, wystarczy wykorzystać zdarzenie Worksheet_Change . Natomiast jak chcesz zrealizować odblokowanie? CheckBox w każdym wierszu? Trochę proszenie się o kłopoty. Chyba, że wszyscy solennie przyrzekną: "Nie będę usuwał wierszy"....

    Software serwis   10 Gru 2010 07:15 Odpowiedzi: 6    Wyświetleń: 6589
  • [Excel/VBA] Excel VBA – obliczanie rentowności obligacji: błąd w zakresie IRR i adresowaniu komórek

    Witam. Czy ktoś mógłby mi wyjaśnić dlaczego poniższy program nie działa? [syntax=vb]Sub rentowność_obligacji() MsgBox "Program obliczający rentowność obligacji", vbOKOnly, "OBLIGACJE" a = InputBox("podaj wartość nominalną obligacji") b = InputBox("podaj żywotność obligacji w latach") c = InputBox("podaj wartość bieżącą obligacji") d = InputBox("podaj...

    Programowanie   06 Lut 2013 20:33 Odpowiedzi: 2    Wyświetleń: 1068
  • Excel VBA - Makro pokazywania i ukrywania arkuszy przy logowaniu

    Hejka :) Czyli podywagowali wszyscy na temat (lub nie na temat) a odpowiedzi jak nie było tak nie ma :D Proponuję CI takie rozwiązanie... W ThisWorkbook w zdarzeniu open wrzuć ukrywanie/odkrywanie arkusza na podstawie loginu Windowsowego Twoich userów. To jest fajne pewne rozwiązanie, sam tego używam, nie muszą wtedy podawać żadnych haseł (masz taką...

    Obsługa oprogramowania   31 Sie 2021 10:38 Odpowiedzi: 3    Wyświetleń: 768
  • [makro] Makro Excel: automatyczne drukowanie arkuszy z danymi z tabeli i numeracją stron

    Tak na szybko spróbuj : Sub Makro1() arkuszdane = InputBox("podaj nazwę arkusza z danymi") kol = CInt(InputBox("Podaj kolumne z danymi")) wier = CInt(InputBox("Podaj pierwszy wiersz z danymi")) ile = CInt(InputBox("Podaj ile jest wierszy z danymi"))...

    Programowanie Początkujący   10 Gru 2009 14:52 Odpowiedzi: 3    Wyświetleń: 6041
  • AutoFiltr w VBA nie wyszukuje dat poprawnie - format dd/mm/yyyy

    Data, jak już wspomniał JacekCz, to bardzo krnąbrny element Excel'a. Dla pewności, zamiast InputBox'a, podstawiłbym kalendarz. Wtedy bez względu na ustawienia w systemie, w arkuszu wyląduje Ci data. Pozostaje tylko sformatować komórki "dla oka".

    Programowanie Początkujący   27 Lis 2017 21:00 Odpowiedzi: 6    Wyświetleń: 1071
  • Jak automatycznie zwiększać numer gwarancji przy każdym wydruku w Excel/Word?

    To zastosuj zwykłe dodawanie. Na pierwszej stronie Np w E1 wpisujesz Nr gwarancji (lub robi to zał. makro), na drugiej Np w E54 =E1+1, na następnej =E54+1 itd. W drugim arkuszu zapisuj sobie tylko aktualny numer, żeby nie zginąć lub użyj Sub Druknij2() ileStr = InputBox("Ile stron drukować? ", "Pytanko...") If ileStr...

    Software serwis   27 Paź 2009 18:00 Odpowiedzi: 7    Wyświetleń: 15709
  • Jak filtrować dane w Excel VBA według zakresu dat w kolumnie C?

    A w czym problem? Wpisz w inputbox wartość w odp. formacie i powinno być OK. http://obrazki.elektroda.pl/6034864000_1... http://obrazki.elektroda.pl/3024346800_1...

    Programowanie Początkujący   26 Lut 2012 17:05 Odpowiedzi: 4    Wyświetleń: 6216