W przypadku dwóch nagłówków wystarczyłoby If-Else. Ale jeśli masz już prawie gotowe... Uzupełniłem tylko to i owo [syntax=vb]Function formatowanie(a As Single, naglowek As String) As String Select Case naglowek Case "Cena" formatowanie = Format(a, "####.00 zł") Case "Powierzchnia" formatowanie = Format(a, "#### m2") End Select End Function Sub Proba()...
Ad 3. Mniej więcej taki kod: [syntax=vbnet]Dim fdSaveFile As FileDialog Dim vSaveFolder Set fdSaveFile = Application.FileDialog(msoFileDialogFold... With fdSaveFile .AllowMultiSelect = False .Show vSaveFolder = .SelectedItems(1) End With ActiveWorkbook.SaveAs vSaveFolder & "\" & ActiveSheet.Range("B2").Value & "__" & Format(Now, "dd_mm_yyyy__hh_mm"),...
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
Ale co dalej chcesz z tym czasem zrobić? - podaj szerszy kontekst. Czas jest liczbą, jego formatowanie ma znaczenie dopiero gdy wynik wyświetlasz np. w MsgBox albo w arkuszu, a to trochę różne sprawy. Jeśli chcesz użyć sformatowanego czasu w VBA, to użyj funkcji WorksheetFunction.Text - otrzymasz w wyniku sformatowany tekst. Funkcja Format nie przewiduje...
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....
Niestety powyższe skrypty tego nie rozwiazuja Bo to są przykłady, a nie rozwiązania. Ciężko przerobić A na C i 5 na 60? [syntax=vbscript]Private Sub Workbook_Open() Dni = 30 MsgBox "Promocje kończące się za " & Dni & " dni: " & Application.CountIf(Range("C1:C" & Cells(Rows.Count, "A").End(xlUp).Row), "=" & Dni) Dni = 60 MsgBox "Promocje kończące się...
Witam. Zrobiłem formatowanie warunkowe dla pewnych komórek, gdzie dla różnych zakresów jest ono inne. Od 0 do 10; od 10 do 20; od 20 do 30. Formatowanie działa. Chciałem również napisać MsgBox, aby po uzyskaniu wartości z pierwszego zakresu (tj. 0 - 10) pojawiał się komunikat. Próbuje na różne sposoby, ale komunikat nie wyskakuje. [syntax=vb] Private...
mam problem z poniższym kodem: Private Sub TextBox3_AfterUpdate() TextBox3.MaxLength = 10 TextBox3 = Format(TextBox3.Text, "dd-mm-yyyy") If Not IsDate(TextBox3.Value) Then MsgBox "WPROWADŹ DATĘ W PODANYM FORMACIE" TextBox3.Value = "" Exit Sub End If End Sub kiedy wprowadzam dzień < od 12 lub = 12 komputer uporczywie zamienia dzień za miesiąc. Proszę...
Czy wartości, które mogą się pojawić jako duplikaty to kilka liczb, kilkadziesiąt czy kilkaset? Tutaj 56 kolorów, ale różnią się od siebie w widoczny sposób. Wciskasz Alt+F11, klikasz na "Ten_skoroszyt" albo "This_Workbook", potem prawy przycisk i z listy najpierw "dodaj/add" a potem "moduł/module" i wkleić kod poniższy. Potem zapisać jako xls albo...
O programowaniu nie wiem nic, ale jakiś cudem majstruję sobie malutkie cuda w excelu. Mam makro które wysyła do wybranych klientów informacje o kwotach i dodatkowo załącza plik. Kwestia 1 chciałabym sformatować Cells(x, "S") jako format walutowy w zł (albo chociaż liczbowy z separatorem i 2 miejscami po przecinku) - walczę od 6 godzin i najwyraźniej...
działa :) super, wielkie dziękuje :) Mam jeszcze jedno pytanie, ale odnośnie przypisania wartości do arkusza, tzn: Mam kod: wpisana_ilosc = UF_Kupno.CIloscTowaru.Value stara_ilosc = Worksheets("magazyn").Range("D2").Offset... 0).Value nowa_ilosc = stara_ilosc - wpisana_ilosc Worksheets("magazyn").Range("D" + CStr(gdzie + 2)).Value = nowa_ilość chciałabym,...
Witajcie Mam makro które kopiuje mi zaznaczony ciąg danych i wkleja do Outlooka po czym wysyła, jednak nie uwzględniając formatowania warunkowego. Np. wszędzie gdzie mam kolory stałe to są, ale tam gdzie kolory są uzależnione od wartości w kolumnie to już tego po skopiowaniu nie uwzględnia. Czy możecie mi pomóc w tym temacie? [syntax=vbscript] Dim rng...
Przesyłam jeszcze raz kod z komentarzami przy instrukcjach, które dopisałem lub zmieniłem. [syntax=vbscript]Sub zapisywanie() Dim zlec As Worksheet Set zlec = ActiveSheet 'zapamiętaj aktywny arkusz w zmiennej zlec Dim FindString As String FindString = ActiveSheet.Range("F3").Text 'zapamiętaj numer zlecenia ' należy użyć właściwości Text ze względu na...
... w tym kodzie chciałbym dodać zakres w jakim ma ono działać (tylko w obrębie tabeli) Od wiersza 42 do 305... With Target(1).EntireRow 1. W obrębie tabeli ... a co z kolumnami, nieważne ? 2. Ten fragment powyżej to z Worksheet_SelectionChange(ByVal Target As Range) czy Worksheet_Change(ByVal Target As Range) ? W kodzie z twojego pkt nr 2 jest rozwiązanie:...
To już mam, ogólnie to mam taki kod który działa i niestety muli: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim pozX Dim pozY Dim pozZ 'blokada kopiowania na wielu polach i tym samym operacji na wielu polach If Target.Count > 1 Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox...
JRV, dzięki za dobre chęci. Tylko, że taki kod do wpisywania zakresu kopiowania danych, powoduje, że trzeba wpisywać zakres po kolei dla wszystkich plików, a ja chciałem aby można było wpisać jeden raz dla wszystkich plików. Na chwilę obecną mam już wszystko zrobione, wszystko już działa jak należy, łącznie z licznikiem scalonych plików :D . W razie...
Dzień dobry, Bardzo proszę o pomoc z makrem, potrzebuje pętle które będzie miała za zadania kopiowanie i wklejanie w odpowiednie komórki między arkuszami aktualnie mam napisane makro ale niestety sam nie potrafię jeszcze stworzyć takiej pętli Dodano po 3 Mam już coś takiego ale jeszcze nie jest to co bym chciał osiągnąć Potrzebuje dla następnego wiersza...
Witam, Mam 3 arkusze, które chciałbym skopiować do nowego arkusza i go zapisać. Udało mi się stworzyć rozwiązanie, lecz arkusze nie przenoszą się tak jak bym chciał tz. formatowanie komórek (szerokość kolumn) nie jest identyczna jak oryginał. [syntax=vb] Dim nowyPlik As Workbook Set nowyPlik = Workbooks.Add With nowyPlik Do While .Worksheets.Count <...
Najprościej tak:) [syntax=vbscript]Dim stDocName As String Dim strStan As AcView Dim intStan As Integer intStan = MsgBox("Czy wydrukować umowę bez podglądu?", vbQuestion + vbYesNo, "Drukowanie umowy") If intStan = 6 Then strStan = acViewNormal Else strStan = acPreview End If stDocName = "Pożyczka_WNIOSEK" DoCmd.OpenReport stDocName, strStan, , "noew=forms![kwestionariusz...
Kurcze, jeżeli chodzi o VBA to jestem zaczynającym samoukiem. Nie znam reguł stosowania wszystkich funkcji. Mogę prosić Cię o rzucenie okiem na mój kod i poradzenie w jaki sposób użyć Twojej funkcji? [syntax=vbscript] Private a As Integer 'zmienna globalna Private haslo As String Sub MsgBox_error1() 'wyświetla omunikat o błedzie MsgBox "Wypełnij wszystkie...
Na przyszłość: spakuj plik i zrezygnuj z prowizji :) Zauważyłem za późno (-4pkt)... Problem w tym, że w arkuszu 1 masz 14185 CheckBox'ów (większość jeden na drugim) policzyłem makrem Sub policz() MsgBox Sheets("Arkusz1").Shap... End Sub w ostatnim wierszu z "ręcznym" usuwaniem dałem spokój na 50-tym...
Dzięki, ale z twoim uzupełnieniem makro USUWA wszystkie zielone teksty które dokona zaznaczenia w całym dokumencie wszystkich wystąpień fontu z danym formatowaniem, by można było usunąć teksty z tym formatowaniem [syntax=vbscript]Sub Makro2() ' ' Makro2 Makro ' ' Selection.Find.ClearFormatting Selection.Find.Font.Color = 5287936 With Selection.Find...
W taki sposób tego nie zrobisz. Właściwości komórki można porównywać ze zmienną, ale każdą właściwość musisz porównywać osobno. Każda właściwość ma swoją wartość (liczbową, tekstową lub logiczną) i to można sprawdzić i uzyskać odpowiedni wynik, ale nie da się sprawdzić hurtem całego formatowania jednej komórki w stosunku do drugiej. Na przykład możesz...
Weż dla pustego arkusza zastosuj: Dodano po 6 Reusso: Kolega sugerował użycie innej nazwy dla zmiennej, która przechowuje pierwszy wolny wiersz. Jeśli skasowałeś +1 to kolejne kopiowania będą nadpisywać ostatni wiersz. Nieprawda. Sugerowałem inny sposób znajdowania indeksu ostatniego używanego wiersza. A to, że się przyczepiłem, że LastRow + 1 jest...
To ja mam pytanie w trochę podobnym zakresie. Czy da się zrobić takie makro, które będzie formatowało wszystkie tabele w Wordzie. Chodzi o to, aby tabele były dopasowane do okna oraz obramowane linią o grubości 1 pkt. w szarym kolorze. Wiem, że można zrobić formatowanie tabeli w stylach, ale jak usunę ostatni wiersz z tabeli to wówczas obramowanie...
Moje makro wygląda tak Private Sub CommandButton1_Click() If Dir("C:\Documents and Settings\xxx\Pulpit\Nowy folder" & "\" & nazwa) = Empty Then MsgBox ("Brak pliku") Else Workbooks.Open Filename:= _ "C:\Documents and Settings\xxx\Pulpit\Nowy folder" & " \ " & nazwa End If End Sub Niestety po uruchomieniu makra wyskakuje błąd run-time error '1004' i...
Żeby się dobrze sortowały w okienku 'Zakładka', sugeruję formatowanie. Tu dla max 999 + pętla, jeśli naciśnięto [Cancel] lub nazwa za krótka [syntax=vbscript]Do SugerowanaNazwa = "Znacznik" & Format(Selection.Range.Information(wdFir... "000") SugerowanaNazwa = InputBox("Podaj nazwę zakładki!", "Nowa zakładka", SugerowanaNazwa) If...
cześć Pracuję nad funkcjonalnością uzupełniającą szablon word wpisami pobieranymi z EXCEL. W pliku Excel w komórce mam niektóre słowa wytłuszczone i bardzo zależy mi na zachowaniu oryginalnego formatowania. W jaki sposób w korespondencji seryjnej zachować oryginalne formatowanie zarówno dla wpisów krótszych niż 255 znaków jak i dłuższych? Poniżej fragment...
W kolumnie D i E (około 100 wierszy) mam wartości liczbowe (formatowane jako liczby), które są wynikiem innych działań (dokładnie suma.warunków). Szukam sposobu aby Excel poinformował mnie (najlepiej poprzez msgbox) gdy wartość w danej komórce w kolumnie E będzię większa od odpowiadającej jej wierszem komórce w kolumnie D. Znalazłem coś takiego: Private...
Posiadam taki kod ... tworzy mi się nowy skoroszyt ... To i tak nieźle, że kod działa ... ale chyba tylko dlatego, że nie osiągnął, jak do tej pory, wartości maksymalnych: kodu nie da się czytać w tej formie To fakt ... forma wizualna przypomina raczej histogram postawiony na prawym boku - powinno być raczej coś takiego: (a i tak pewnie będą zastrzeżenia,...
Przy odwołaniach, po kropce, powinna wyświetlić się lista właściwości i metod. Nie bardzo... Jeśli masz dodane referencje to obiektu to dla niektórych obiektów wyświetlane są właściwości i metody, ale nie dla "createobject(COS.Appliaction)" (pod warunkiem, że przekazujemy obiekt do zmiennej typu "Object" o czym później) gdzie COS to nazwa programu....
zrób tak, żeby na początek ci ten ciąg wywalało na ekran np. [syntax=vb]msgbox (commandString)[/syntax] Jak zobaczysz, że działa, wtedy operuj na bazie Druga uwaga: date, jeśli wstawiasz aktualną, to lepiej sobie w tabeli wstaw jak wartość domyślną pola 'data' wartosć : Now() - wtedy pomijasz pole daty przy wstawianiu. Zawsze je możesz później zmienić.......
... Chciałbym jeszcze, aby do nowego arkusza zostało skopiowane również formatowanie. Proszę jeszcze raz o podpowiedź. [syntax=vbscript] Sub KopiujArkusz_1() Dim ten_skoroszyt As String, nowy_skoroszyt As String, zapisz_nowy_skoroszyt As Variant 'Application.DisplayAlerts = False ten_skoroszyt = ThisWorkbook.Name Range("a1").Select Range("a1").SpecialCells(xlCellTypeVisib...
Znalazłem taki kod, który chciałbym dostosować do własnych potrzeb. ' ========================================... ' ZAŁOŻENIA: ' 1. Wszystkie skoroszyty do scalenia znajdują się w jednym folderze ' 2. Nie ma tam żadnych skoroszytów przypadkowych (w tym docelowego) ' 3. Dane do scalenia są zawsze w pierwszym arkuszu i mają jednakowe...
Wybrałem poniższy kod. Jest jak dla mnie najbardziej idealny. I do tego kodu czy można dodać taką informacje o wpisaniu wartości 20 tysięcy i powyżej. Problem w tym że zakres w którym ma to się wszystko dziać jest na początku niewiadomych. Dopiero po wygenerowania całej listy, dstW mówi jak daleko sięga zakres. Czyli ja z głównego pliku generuje listę,...
Aby kopiować dane z kolejnych arkuszy trzeba je policzyć i wskazać w kodzie, o który nam chodzi (odwołanie). Najprościej realizować to w pętli For, gdzie zmienna-licznik to indeks arkusza. Tu mała uwaga: po zakończeniu działania procedury CommandButton1_Click identyczna wartość przechowywana jest w zmiennej globalnej plik i polu TextBox1 , w przykładzie...
Witam, ponownie napotkalam problem z ktorym nie moge sobie poradzic. Chcialabym tak zabezpieczyc komorki aby po skopiowaniu (komorki, tekstu itp) i wklejeniu jej do (w tym wypadku) tabelki, nie utracic formatowania. Rownoczesnie dana komorka ma przypisane ograniczenie wprowadzania znakow specjalnych: Sub ValidateProjectName(Target As Range)...
Hej Mam lekko zmodyfikowane makro, które pozwala mi specjalnie nazwać pliki w pierwszej kolumnie „xyz” która się potem kasuje z plików podzielonych więc może mieć plik inną nazwę niż zawartość docelowej 1-wszej kolumny, ale kurczę potem mam wąskie kolumny i muszę w każdy plik wchodzić i je poszerzać ręcznie do szerokości „zawartości” mimo, że w pliku...
Dzień Dobry Zwracam się do wszystkich uprzejmych i chcących pomóc osobie która zaczyna przygodę z makrami, ale zapotrzebowanie na dobre makro jest większe niżwiedza moja w obecnym czasie. Nie proszę o zrobienie gotowca tylko wskazanie błędów, lub o podpowiedź co mam zmienić w pliku którym się posiłkuję by : ad.1 W arkuszu Dane na zielono ( brane pod...
Cześć wszystkim. Ja mam już sporo w temacie. Chciałbym standardową, jedną dla wszystkich lub zamienną (trzymaną we wcześniej przygotowanym pliku) treść maila wstawiać do spersonalizowanego maila wraz z spersonalizowanym załącznikiem. Istotą dla mnie jest to, aby treść maila była sformatowana jak w przygotowanym pliku. Załączam swój kod. [syntax=vbscript]...
Ponieważ miałem chwilkę czasu to pozwoliłem sobie pobawić się z rozwiązaniem. i proponuje np tak: [syntax=vb]Sub przestaw() 'czyszczenie Sheets("Tabela").Cells.Delete Shift:=xlUp 'Obliczenia graniczne ost_wiersz = Sheets("Dane_wyjściowe").UsedRange.Rows.... ost_kol = Sheets("Dane_wyjściowe").UsedRange.Colum... x = ost_kol - 7 If x <= 0 Then...
Używam od kilku lat skryptu z postu: https://www.elektroda.pl/rtvforum/topic3... Autora lanzul. Do tej pory było Ok. Wszystko. Ale od zeszłego roku Windows widzi problemy wszędzie gdzie ich nie ma. Wyskakuje błąd, że okno nie jest aktywne i skrypt nie chce tworzyć kolejnej części prezentacji. Ktoś ma pomysł jak się przed tym zabezpieczyć, poprawić?...
Witam mam mały problem z makrem, a mianowicie chciałbym żeby to makro kopiowało tylko wartości komórek, a nie całe komórki nawet z ramką i kolorem czcionki, da się je jakoś przerobić.[syntax=vb]Option Explicit Sub CopyMultipleSelection() Dim SelAreas() As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim...
Witam Jestem początkujący w VBA i mój problem (dla innych pewnie żaden) polega na ty, że stworzyłem sobie kod, który ma formatować i przepisywać dane z innego pliku excela. Stworzyłem sobie zmienną, która zawiera nazwę aktualnie wybranego pliku. Moje pytanie: jak spowodować, żeby do poszczególnych komórek procedura przepisywała komórki z pliku, który...
PRL: nie ukrywam, że moja wiedza na tym etapie się kończy, stąd moja prośba o pomoc w dopasowaniu skryptu do mojej tabelki. Chciałbym, żeby kopiowały się całe wiersze zachowaniem formatowania (scalenia itp)
Witam! Kod ten działał poprawnie w OpenOffice lecz potrzebuję żeby robił to samo w MSOffice. [syntax=vb]Dim oDialog As Object, oDocument As Object, oSheet As Object, oCell As Object Dim oCellRange As Object, zTytul As String, oLiniaWstaw As Object, oBoxSposobZaplaty As Object Dim oDrukAll, oDrukOrg, oDrukKop, oDrukKoo, oDrukDup, oDrukuj As Object Rem...
Pytanie na samym wstępie do kolegów z większym doświadczeniem i umiejętnościami - Jak najprościej, przy pomocy VBA, pozyskać z EXIF ".jpg-ów" 'niezaśmieconą' 'Datę wykonania zdjęcia' ? Wyniki wyszukiwania w sieci są niejednoznaczne, nie znalazłem tam tego, z czym się spotkałem - poniżej: I. Żaba ===== (Żaba z przykładu wyszukana w sieci frazą 'darmowe...
excel msgbox msgbox informacja zamykanie msgbox
wzmacniacz technics schemat karta pamięci uszkodzona aparatura zdalny sterować
vaillant ecotec przegląd grzałka pralka
Mio Spirit 6900 LM - Problemy z aktualizacją Błąd A27 na wyświetlaczu kotła Defro - przyczyny i rozwiązania