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...
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ą.
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...
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...
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...
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....
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,"...
Na końcu dodaj (przed end sub ) Call FindRange no i application.inputbox nie "łapie się na" <> ""
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)...
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...
[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",...
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...
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".
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...
...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...
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...
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 = ""...
Nie sprawdzałem, ale myślę że wystarczy zmienić: [syntax=vb]Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)[/syntax]na [syntax=vb]Set WorkRng = Range("B2:B100")[/syntax]
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ę...
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...
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...
[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...
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...
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...
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...
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...
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...
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...
Znalazłam taki kod. [syntax=vbnet]Sub ImportDatafromcloseworkbook() 'Update 20150707 Dim xWb As Workbook Dim xAddWb As Workbook Dim xRng1 As Range Dim xRng2 As Range Set xWb = Application.ActiveWorkbook xTitleId = "KutoolsforExcel" With Application.FileDialog(msoFileDialogOpen... .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa" .AllowMultiSelect...
To wtedy użyj tego kodu:[syntax=vbscript]Sub ExportDoPDF() Dim wb As Workbook: Set wb = ThisWorkbook Dim ws As Worksheet: Set ws = wb.Worksheets("EXPORT") Dim expWS As Worksheet Dim Fname As String Dim path As String Dim i As Long Dim rngZaz As Range Dim komorka As Range With ws Fname = .[b11] path = .[b12] 'Set expWS = wb.Worksheets(.[b13].Value) End...
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....
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...
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...
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...
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...
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...
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.....
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...
Witam, posiadam następujący problem. codziennie dostaje plik excela z 2 kolumnami zawierającymi imiona i nazwiska. Muszę porównać kolumne A z kolumną B i sprawdzić czy w kolumnie B występują pola posiadające to samo imie i nazwisko co w kolumnie A Przykładowa baza A B Piotr Nowak Nowak PIotr Ryszard Stepien Ryszard michal Stepien Piotr marchewka piotr...
dodawanie inputbox excel inputbox inputbox excel
regulator ogniwo fotowoltaiczny pralka amica świecić dioda kotły gazowe kondensacyjne
firmware flash sharp magazyn energii huawri
Jak włączyć hamulec w skuterze inwalidzkim MEYRA 2.3? Błąd U121A00 Mercedes W205 - Wentylator na pełnych obrotach
