inputbox excela

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

[VBAExcel] Jak przekształcić funkcję IF AND z Excela do VBA z adresami z InputBox?

Hmm, zdaje się, że instrukcja warunkowa nie jest potrzebna. Może takie coś? [syntax=vbscript]Dim val_ As String, 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") ActiveCell.Formula = "=IF(AND(" & rng1 & ">0,"...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

[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)...

Jak w VBA Excel 2007 wstawić tekst z InputBox do kolejnej wolnej komórki?

Istnieje klawisz odj = IIf(Cells(3, 3) = "", -1, 1) Cells(Cells(3, 3).End(xlDown).Row + odj, 3) = InputBox("Podaj cos") a na upartego w jednej Cells(Cells(3, 3).End(xlDown).Row + IIf(Cells(3, 3) = "", -1, 1), 3) = InputBox("Podaj...

vba - spakować zip pliku i wysyłka mailem hasła do pliku

[syntax=vbscript]Sub WyslijSkoroszyt() Dim Haslo As String, Plik As String Plik = ActiveWorkbook.FullName Haslo = InputBox("Podaj hasło do pliku: ", "UWAGA") ActiveWorkbook.SaveAs Filename:=Plik, Password:=Haslo Call WyslijMejla("adresat(at)moj.pl", "Mój plik Excela", "Hasło do pliku zostanie wysłane kolejnym mejlem", Plik) Call WyslijMejla("adresat(at)moj.pl",...

Wykonywanie zapytania do bazy Access z Excela z hasłem

ominąć jawne podanie hasła Da się, zwykły InputBox przed skonstruowaniem zmiennej połączenia, ale będzie widoczne, gdyż InputBox (w standardowym użyciu) nie maskuje wpisów lub własna formatka z polem tekstowym z nałożoną maskownicą.

Jak uruchomić UserForm przy starcie z minimalizacją skoroszytu Excel?

...jak kliknę w Excel na pasku to pojawia się cały arkusz - czy nie da się zablokować tej możliwości ? Chodzi mi o to, aby nie można było pokazać arkusza. Najprościej zminimalizowany plik Excela ukryć. Rozszerz procedurę UserForm_Initialize o linijkę kodu wykorzystującą właściwość "Visible" [syntax=vb]Private Sub UserForm_Initialize() Application.WindowState...

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

Modyfikacja makra VBA dla Excela: powrót do okna wpisywania i limit znaków przy wyszukiwaniu

Na końcu dodaj (przed end sub ) Call FindRange no i application.inputbox nie "łapie się na" <> ""

Jak wyszukać numer kontraktu w wielu arkuszach Excela za pomocą VBA?

Witam. Proszę o POMOC. Do poniższego kodu potrzebuję dopisać, aby "Wyszukaj" działało dodatkowo w obrębie wielu arkuszy. Ewentualnie proszę o inne rozwiązanie, chodzi mi o wyszukanie numeru kontraktu w całym pliku excela. Pozdrawiam. [syntax=vb]Sub Znajdz() Dim szukane As Variant szukane = InputBox("Wpisz szukane słowo", "Wyszukaj") If szukane = ""...

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

Tworzenie dokumentu Word z Excela dla jednego adresata - jak to zrobić?

Niestety nie mam programu Word 2007 lub nowszy, tylko Excel, zaskakująco ze Word dziala zastąpienie pliku bez żadnych pytan Dodano po 1 Sprobuj tak zamiast[syntax=vb]wd.ActiveDocument.Save... lokaliz & txtFullname & ".docx"[/syntax] zrob [syntax=vb]nazwa = lokaliz & txtFullname & ".docx" While Dir(nazwa) <> "" nazwa = InputBox("Plik...

OpenOffice-Calc Ograniczenie ilości znaków w komórkach jednej kolumny

Opierając się na doświadczeniach z Excela, nie ma możliwości takiego wprowadzania danych bezpośrednio w komórkach. Zawsze wpis w komórce musi być zatwierdzony czy to klawiaturą czy myszką. Teoretycznie można wprowadzić wszystko w dodatkową jedną komórkę i użyć formuł do przeniesienia właściwych danych w odpowiednie kolumny, to chyba dałoby się w miarę...

VBA Makro - InputBox wstawiający tekst do aktualnie zaznaczonej komórki

Cześć! :) Mam taki problem: Mam plik Excela z listą osób: Liczba porządkowa (kolumna B), imię i nazwisko (kolumna C), potem miesiące (od stycznia do grudnia) i suma w kolumnie P. Chciałbym zrobić makro, za pomocą którego wyskoczy mi InputBox, w którym będę mógł dopisać na końcu listy nową osobę. Ponadto chciałbym, aby obok nazwiska tej osoby pojawiała...

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

Kod do automatycznego usuwania par wartości w kolumnach Excela 2007/2016 i LibreOffice

[syntax=vbscript]Sub Numer() n = Val(InputBox("Podaj numer, który skopiować : ", "Numer")) ow = Cells(Rows.Count, "A").End(xlUp).Row k2 = 1 For k = 1 To ok Step 2 w2 = 1 ow = Cells(Rows.Count, k).End(xlUp).Row For w = 1 To ow If Cells(w, k) = n Then Sheets("Arkusz2").Cells(w2, k2) = Cells(w, k) Sheets("Arkusz2").Cells(w2, k2 + 1) = Cells(w, k + 1) w2...

In putbox zaciąganie danych i wprowadzanie nowych danych

Tak masz racje, chodziło mi czy coś takiego jak przedstawiłam jest możliwe do zrealizowanie przez inputboxa. Domyślam się, że jest do zrealizowania. Mogę przygotować konkretny wzór/wzory. Dziękuje z góry za dotychczasową pomoc. Zasiadam do zrobienia wzoru/wzorów w Excelu. Dodano po 1 Podpięłam załącznik Excela o nazwie "wzor2". W nim przedstawiłam dwa...

Jak podzielić i skopiować wieloliniowy tekst z Outlooka do Excela za pomocą VBA?

jest kopiowany tekst z Outlooka , początek linii to $S$ i koniec to $E$ , w chwili obecnej jeżeli tekst jest tylko 1 liniowy to uruchamiam makro z funkcją InputBox gdzie usuwam # i każde słowo rozdzielone | jest kopiowane do osobnej kolumny zaczynając od A2 a kończąc na U2. Przy kopiowanym tekście gdzie jest więcej linii InputBox nie działa więc pomyślałem...

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

VBA - Funkcja Dir() nie zwraca nazwy pliku w folderze

Mam taki problem z makrem. W pewnym folderze mam tylko jeden plik i jest on w formacie .xlsm. Niech się nazywa 1.xlsm Moje aktualne makro tworzy mi nowy skoroszyt excela (do innego folderu niż ten w którym jest wspomniany wcześniej 1.xlsm). Następnie chcę dokonać przeklejenia pewnych danych z starego excela (tego o którym wspomniałem 1.xlsm) do nowego....

Jak przekopiować dane z Excela z uwzględnieniem koloru czcionki?

Do każdej komórki bieżącego arkusza masz dostęp przez Cells(wiersz, kolumna).Value gdzie wiersz jest liczbą w zakresie od 1 do 65536, kolumna to liczba od 1 do 255 (w arkuszu są to litery A, B,...,Z, dalej pary liter AA, itd di IV). Zatem komórka B5 to Cells(5,2) , a U5 to Cells(5,21). Jeśli chcesz pobierać dane z (wpisywać dane do) innego arkusza...

Mark pod exela regułka. Kody kreskowe i zwiększenie licznika.

Czyli: Jak przerobić Excela na bazę danych... Najprościej: Użyć jednego arkusza jako "brudnopisu" i sczytywać wszystko "jak leci", następnie w wynikowym arkuszu użyć formuł lub makra do wyszukiwania, sortowania i sumowania powtarzających się kodów. Nieco trudniej: Użyć VBA i sczytywać kody za pośrednictwem InputBox i jeśli jest pozycja w arkuszu dodajemy...

Jak stworzyć makro w Excelu do zmiany cen produktów po nazwie?

Mam rozbudowany arkusz excela z nazwami artykułów oraz cenami. Chciałem zrobić makro które znajduje dany produkt po nazwie i zmienia jego ceny zawarte w tym samym wierszu co nazwa w całym arkuszu Przykład Olej 1,50 Czekolada 2 zł Olej 1,50 Sól 1 Po wpisaniu nazwy produktu np olej w drugim okienku wpisuję cenę i funkcja zmienia mi wszystkie ceny dla...

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

Makro do filtrowania daty w Excelu - problem z formatem daty

Witam, Potrzebuję stworzyć makro, które będzie filtrowało wybrany pliczek excela po dacie, którą będzie wpisywało się z ręki. Niestety zablokowałem się w pewnym momencie i nie zabardzo wiem jak przebrnąć dalej, stąd liczę na Waszą pomoc. [syntax=vbscript]Dim currentd As String Dim currentd2 As Date currentd = Format(Date, "dd/mm/yyyy") currentd2 = DateValue(InputBox("Data?",...

[VBA] Excel - Makro do podziału raportu na pliki według kolumny B

Witam serdecznie, Potrzebuje napisać makro, które znacząco przyspieszy mi prace. Chodzi o to by dzieliło gotowy raport na części i każdą z nich zapisywało w oddzielnym pliku pod nazwą taką jak wartość w kolumnie. Dla ułatwienia (w celach poglądowych) stworzyłem mocno uproszczoną wersję tego raportu. Chodzi o to żebym mógł szybko podzielić ten raport...

Jak wyszukiwać w wielu kolumnach w Excelu? Zaznaczanie aktywnego wiersza, Pop Reminder.

Posiadam działającą wyszukiwarkę w Excelu, która działa tylko dla jednej kolumny [syntax=vbscript]Private Sub TextBox1_Change() ActiveSheet.ListObjects("Data1").RANGE.A... field:=2, Criteria1:="*" & [a2] & "*", Operator:=xlFilterValues End Sub[/syntax], jak zmodyfikować makro bądź utworzyć całkowicie nowe, aby działało dla wielu kolumn....

Makro VBA do kopiowania danych z plików Excel: Dane1, Dane2 do Wyniki co piątek

W której linii? P.S. Na końcu należy włączyć odświeżanie, przydałby się filtr dla plików Excela, na czas działania makra wyłączyłbym zdarzenia i alarmy (pliki mogą zawierać makra, itp)...[syntax=vb]Sub Merge() Dim bookList As Workbook Dim MergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object Set MergeObj = CreateObject("Scripting.FileSystemObject...

VBA Excel - Kopiowanie danych z innych plików do pliku zbiorczego-poprawa kodu

Witam serdecznie Napisałem makro które kopiuje dane z wgranego pliku xls to arkusza zbiorczego. Jednak kod jest mało efektywny (kopiowanie trwa długo) oraz niekiedy nie kopiuje wszystkiego ;( Można jakoś poprawi kod aby działanie makra było szybsze? Z góry dzięki za pomoc [syntax=vb] Sub Wgrywanie_plików() Dim strPlik As String Dim Dane As Workbook...

Excell - Kopiowanie wierszy z jednego pliku do drugiego spelniajac warunki

Piszę poniekąd w imieniu Autora i swoim. Okazało się, że na Windows 7 i Office 2007 kod: [syntax=vb] Sub ImportujRaporty() Dim pl As String Application.ScreenUpdating = False Application.DisplayAlerts = False iw = ActiveWorkbook.Name Dim Rap As Workbook, Out As Workbook pl = "C:\Wynik.xlsx" inf = MsgBox("Nowy miesiąc?", vbYesNo, "UWAGA") If inf = vbYes...

Jak stworzyć makro do przenoszenia danych z EXCELa do WORDa?

Witam wszystkich forumowiczow, z gory przepraszam za brak poslkich znakow (zycie zmusilo do emigracji). Widzialem ze skutecznie pomogliscie juz wielu osobom w stworzeniu praktycznych i przede wszystkim poprawnie dzialajacych makr. Ja, jak kazda z tych osob rowniez z powodu swoich ogranicen w tej dziedzinie nie potrafie poradzic sobie z ulepszeniem mojego...

Jak napisać makro VBA do wyszukiwania i zwracania wartości w Excelu?

Dziękuję Ci bardzo. Działa Dodano po 1 Załóżmy, że mam dwa excele gdzie kolumna A jest taka sama natomiast mogą się różnić nazwy w kolumnie B i chciałbym porównać te wartości w kolumnie B do siebie dla tych dwóch exceli. Oczywiście tylko sprawdzam nazwy które są przypisane do liczby z kolumny A, którą wybieramy. Ogólnie miałem takie makro: [syntax=vbscript]Sub...

VBA - Zatrzymanie makra aż do naciśnięcia przycisku na stronce w IE

Witam, Mam problem z makrem, które loguje się na stronkę "x", i za pomocą pętli wprowadza potrzebne dane z excela. W skrócie wygląda to tak: 1. wciśnij przycisk "Add" (przenosi do strony z formularzem), 2. wypełnij formularz danymi z excela 3. wciśnij przycisk "Submit" (przenosi spowrotem do stronki z przyciskiem Add) Problem mam taki, że po wciśnięciu...

Jak w VBA skopiować komórki między plikami Excel z walidacją numeru?

Trochę i ja się uczę VBA wraz z autorem (i nie nadążam odpowiadać - co prawda nie śledzę non stop) ale... Jeżeli chcesz przypisać adres komórki do zmiennej to musisz to zrobić inaczej: cel = ActiveCell.Address Value to wartość Później możesz skorzystać z Range(cel).Select ActiveSheet.Paste Druga rzecz: Z tą formułą jest odwrotnie (przynajmniej...

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

Jak pobrać zmienną SQL z komórki B1 w Excelu do zapytania SQL?

Witajcie, Połączyłem sobie excela z sql. To mi troszkę pomogło w pracy natomiast przydałoby mi się jeszcze pobierać wartość zmiennej bezpośrednio z poziomu excela lub inputboxa. Wyczytałem, że cos takiego jest mozliwe ale nie wiem jak to zrobić by działało w moim przypadku. Dodano po 7 Najlepiej jak by dana była pobierana z komórki b1 akrusza1 (aktywnego...

Pobieranie danych z Excela do 15000 wierszy poprzez VBA - kod i rozwiązanie

Witam, mam plik Excela z ok 15000 wierszy. Znalazłem poniższy kod, ale pobiera mi tylko ok 10000. Poradzi ktoś coś? Dim wkbCrntWorkBook As Workbook Dim wkbSourceBook As Workbook Dim rngSourceRange As Range Dim rngDestination As Range Set wkbCrntWorkBook = ActiveWorkbook Sheets.Add After:=ActiveSheet Sheets(2).Name = "EXPORT" With Application.FileDialog(msoFileDialogOpen...