Tu nie chodzi o ilość zaznaczonych maili, tylko ich rodzaj. Najprawdopodobniej pośród zaznaczonych obiektów masz nie tylko maile, ale także np. raporty dostarczenia/przeczytania wiadomości. Poniżej masz kod na wyciąganie adresów tylko z maili. [syntax=vb]Sub Zapisz_adresy_email_dla_zaznaczonych_wia... If Application.ActiveExplorer.CurrentFolder...
Cześć. Proszę o wskazówkę do poniższego. Mam zakres do którego użytkownik powinien coś napisać - jeżeli nie wypełni wszystkich pól, wyświetli się tekst "wpisz wszystkie wartości". Jednak niestety ten tekst wyświetla się tyle razy ile komórek nie zostało wypełnionych, a chciałbym by tylko raz taka informacja się pokazała przy uruchomieniu makro [syntax=vb]Sub...
Podstaw do pętli (w pliku 'turandot.xls'), jeśli to te same pliki.[syntax=vb]Sub AddProcToFiles() Dim nazwa As String Dim sciezka As String Dim licznik As Integer Dim start As Single, meta As Single start = Timer sciezka = "c:\vbide\" 'podstaw scieżkę do folderu z plikami nazwa = Dir(sciezka & "*.xls*") Application.EnableEvents = False Application.DisplayAlerts...
Wypróbuj taki kod :D [syntax=vbscript]Sub Makro() Dim zakres2 As Range Dim kom2 As Range Dim NumOp As Integer Set zakres2 = Selection Wybor: NumOp = Application.InputBox("Wybierz opcj?:" & Chr(10) & "1 - szukam AAA" & Chr(10) _ & "2 - szukam czerwony" & Chr(10) & "3 - szukam AAA i czerwony") Select Case NumOp Case 1 For Each kom2 In zakres2.Cells If...
To sprawdź sobie takie rozwiązanie.
Range("H:H") = "fail" Wszystka kolumna nie moze byc "fail" Lista 'ActiveX' lub fomular(poprawnosc danych)? Dodano po 2 Dołącz przykladowy arkusz
[syntax=vb]Sub AZ() Dim rng As Range, cl As Range Dim frm As Boolean Set rng = Range("F3:DZ100") For Each cl In rng If cl.Formula Like "=*" Then frm = True Exit For End If Next cl If frm Then MsgBox "W arkuszu wystepuje jakas formula" Else '- jakas tam funkcja - End If End Sub [/syntax]
Office dobrze działa.:) [syntax=vbscript]Sub Sayhello() Msg = "Czy nazywasz się " & Application.UserName & "?" Ans = MsgBox(Msg, vbYesNo) If Ans = vbYes Then MsgBox "Jestem Jasnowidzem!" Else MsgBox "Nic się nie stało" End If End Sub [/syntax] Tak jest czytelniej.
A nie wystarczy sprawdzanie poprawności danych - opcja pełna liczba i podać zakres od 0 albo od 1 do ile potrzeba. Jeśli dane wprowadzane z klawiatury i użytkownik nie jest złośliwy, to powinno wystarczyć. Co innego jeśli dane są kopiowane z innych komórek, wtedy ten mechanizm nie działa. Wstawiłem do A1. Komunikat MsgBox można wyświetlić przy zmianie...
Nie. W makrze w pliku b dodajesz parametr który przyjmuje procedura makra. gdy makro wywołujesz z pliku A to ustawiasz ją na True a gdy z B na False. Można też ustawić parametr jako optional i wartość domyślną na false, wtedy bez jego podania będzie miał false...
Lub bardziej "topornie": [syntax=vbnet]dim x as Byte x=0 If Range("$E$4") > 0 Then MsgBox "b jest uruchamiane" x=x+1 End If If Range("$F$4") > 0 Then MsgBox "c jest uruchamiane" x=x+1 End If If Range("$N$4") > 0 and x<2 Then MsgBox "d jest uruchamiane" End If If Range("$O$4") > 0 and x<2 Then MsgBox "c jest uruchamiane" x=x+1 End If...
Dziękuję za wprowadzenie poprawek ale po uruchomieniu macra wyskakiwał jedynie MsgBox z informacja "Brak danych". Do powyższego kodu wprowadziłem niewielkie zmiany - "C3" zmieniłem na "C1" i działa: Sub DoBazy() kol = Application.Match([C1], Sheets("Baza").Range("A1:GR1"), 0) If Not IsError(kol) Then For i = 1 To 260 Worksheets("Baza").Cells(i, kol)...
Chyba złapałem. Moim zdaniem nie powinna to być procedura zdarzeniowa, a zwykłe makro. Jeśli chodzi o coś takiego: http://obrazki.elektroda.pl/4353087600_1... Spróbuj w ten sposób For Each kom in zakres .
testuj [syntax=vb]Sub aaa() Dim pname As Variant Dim file As Variant Dim length As Variant pname = Application.GetOpenFilename( _ filefilter:="Pliki Worda (*.xlsm),*.xlsm", _ Title:="Wybierz plik do importu danych") file = Dir(pname, vbSystem) MsgBox file Path = Left(pname, InStrRev(pname, "\")) Cells(1, 10).Value = Path End Sub[/syntax]
A powinno... Makra masz włączone?
Ooo, a takie proste. Dzięki wielkie Dodano po 20 ...ale musiałem to troszkę poprawić i zamknąć jeszcze w zakresie, bo kod działa w wyznaczonym zakresie a informacja o błędzie zaznaczania wyskakuje również poza zakresem działania samego kodu: [syntax=vbnet] If Not Intersect(Target, Range("J7:AA1101")) Is Nothing Then If Target.Count > 1 Then MsgBox "Zaznacz...
Coś ala [syntax=vbscript]tekst = TextBox3.Text a = Split(tekst, vbLf) MsgBox a(0) MsgBox a(1) MsgBox a(2)[/syntax]
Sprawdź, może będzie według twoich założeń ... wydaje się, że działa według opisu, który zamieściłeś. 865000
[syntax=vb]Sub sciezki() Dim sciezka As Variant 'opcja1 - na tablicy sciezka = "c:\moje dokumenty\wiesiek\plik 123.xlsx" sciezka = Split(sciezka, "\") nazwa = sciezka(UBound(sciezka)) ReDim Preserve sciezka(UBound(sciezka) - 1) 'obcinamy ostatnią część tablicy sciezka = Join(sciezka, "\") 'kleimy na nowo MsgBox nazwa MsgBox sciezka 'opcja2 - na pozycji...
Z góry uprzedzam że jestem kompletnym laikiem w VBA – brakuje mi podstaw. W pracy miałam do czynienie z arkuszem obliczeniowym napisanym x lat temu w VBA w excelu który musiałam przystosować do zmieniających się przepisów i norm. Sprawiło mi to wiele frajdy, ale było to – najpierw delikatne grzebanie w cudzym kodzie, później pisanie na tej...
Można np. tak:[syntax=vbscript]If WorksheetFunction.CountIf(Columns("D"), "001/2015") > 0 Then If MsgBox("Numer istnieje. Kontynuować?", vbQuestion + vbYesNo) = vbNo Then MsgBox "Przerywam" Exit Sub End If End If MsgBox "Dalej..."[/syntax]
Dzięki. Teraz jest OK. Ostatecznie kod dodałem do 'Modules' i z niego uruchamiam w samym oknie 'Arkusze' i przy Inicjalizacji okna 'Ankieta' a przy okazji przeniosłem do 'Modules' inne kody. Teraz kolejny poniższy kod. Ogólnie kod działa ale informacja zawarta w nim wyskakuje dwa razy, dlaczego? Po kliknięciu na OK informacja pokazuje się drugi raz....
Spróbuj albo tak: [syntax=vbscript]MsgBox "To jest bardzo długi tekst " & _ "I ciąg dalszy " & _ "i dalszy " & _ "i dalszy..."[/syntax] albo tak: [syntax=vbscript]MsgBox Range("A2").Text[/syntax]
[syntax=vb]If My.Computer.FileSystem.FileExists("c://C... Then MsgBox("File found.") Else MsgBox("File not found.") End If[/syntax]
Dzięki wielkie. Teraz drukowanie jest już funkcjonalne. Na dziś zadam jeszcze dwa pytanka i dam se już spokój bo rano wczas trzeba wstać do roboty. Czy w sposób jaki zrobiłem zaznaczanie i odznaczanie wydruków da rady wykorzystać dodatkowy przycisk do zaznaczania i odznaczania jednocześnie wszystkich szychtownic tak żeby działało? Bo za nic nie mogę...
Zamiast MsgBox ("1")
Witam, dzis kolejna zagadka-zagwozdka: sa w Excelu dwie tabele (rozmiar taki sam) obie maja identyczne wartosci w pierwszej kolumnie z ta roznica, ze nie koniecznie w tej samej kolejnosci. Pierwsza tabela (powiedzmy - A) jest wypelniona, tabela B jest pusta (oprocz oczywiscie pierwszej kolumny). I teraz zaczyna sie jazda: chodzi o to aby makro wyszukiwalo...
Witam, chcialbym napisac skrypt ktory wyswietli msgBox userowi ktory zaloguje sie na swoje konto. Chcialbym zeby widzial nastepujace informacje: -procesy -adres sieci ip -zainstalowane jego programy czy jest to w ogóle możliwe?
Zerknij [url=https://stackoverflow.com/questions... Działa w Excelu, zadziała z Wordem. Uwaga: żadnych MsgBox w kodzie! To też powoduje utratę/uzyskanie fokusu i MsgBox będzie wyświetlany bez końca.
Ja bym jeszcze dodał: [syntax=vbscript]Katalog = [B2] If Katalog = "" Then i = MsgBox("Wprowadź w B2 ścieżkę.", vbInformation, "Informacja") Exit Sub End If If Dir(Katalog, vbDirectory) = "" Then i = MsgBox("Błędna ścieżka.", vbInformation, "Informacja") Exit Sub End If If Right(Katalog, 1) <> "\" Then [B2] = Katalog & "\" Katalog = [B2] Plik...
[syntax=vbscript]Private Sub Form_Unload(Cancel As Integer) If IsNull(Me.Imię) Then Beep MsgBox "Te dane nie mogą być puste!", vbExclamation, "Ostrzeżenie!" DoCmd.CancelEvent Me.Imię.SetFocus End If End Sub [/syntax]
A jak to makro uruchamiasz, przyciskiem, skrótem? Wystarczy: [syntax=vbscript]Sub qq() Dim r As Range Set r = Range(ActiveCell, ActiveCell) Range("A1").Select MsgBox "Wybrałem A1." Range(r, r).Select MsgBox "Wybrałem poprzednią komórkę." End Sub [/syntax]
A gdyby tak 'Dir'em go? [syntax=vb]pth = ThisWorkbook.Path & "\" strPdf = txtNazwiskoImie & ".pdf" plik = Dir(pth & strPdf) 'lub 'plik = Dir(ThisWorkbook.Path & "\" & txtNazwiskoImie & ".pdf") If plik <> "" Then MsgBox "ChkBox=true" Else MsgBox "ChkBox=false" End If[/syntax]
[syntax=vb]xx = sciezka & "\Dokumenty\LZH\" & NazwiskoImie If Dir(xx, vbDirectory) = "" Then MsgBox "Nie ma Folderza": Exit Sub If Dir(xx & "\*.*") = "" Then MsgBox "Folderz pusty": Exit Sub With Application.FileDialog(msoFileDialogOpen... .InitialFileName = xx .Show End With [/syntax]
Poszerzając jeszcze to, co napisał clubs w VBA istnieje zarówno funkcja InputBox, wywoływana wprost, ale również metoda InputBox wywoływana z prefixem Application. Służą właściwie do tego samego, ale ich działanie nieco się różni. Funkcja zwraca wynik zawsze w postaci tekstu i nie jest zlokalizowana (np. na przycisku jest Cancel po angielsku). Metoda...
Cześć, mam pewien problem odnośnie rozwiązania przypisania danej wartości w każdym wierszu gdzie następuje kopiowanie danych z jednego arkusza do drugiego. [syntax=vbscript] Private Sub CommandButton1_Click() CutCopyMode = False Dim strPlik As String Dim i, b, z As Integer Dim data As String Application.ScreenUpdating = False ' Kopiowanie danych do...
Aaa, to wypróbuj takie coś (dla A1:B4) [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:B4")) Is Nothing Then If MsgBox("Chcesz coś wprowadzić?", vbYesNo, "Pytanko") = vbNo Then Range("C5").Select End If End If End Sub[/syntax]Wklej w kod arkusza... I druga wersja, coby cholerykom podnieść ciśnienie...
[syntax=vbscript]If Dir(ThisWorkbook.Path & "\Stary.xlsx") = "" Then MsgBox "Plik nie istnieje."[/syntax]
Jeżeli chodzi o kopiowanie kolorów, to najpierw na początku porządnie wyczyść arkusz celu z kolorów: [syntax=vb]wscel.Range("A2:E65536").Clea... wscel.Range("C2:E65536").Interior.ColorI... = xlNone[/syntax] Sam kolor jest zaszyty w zmiennej Range(...).Interior.ColorIndex, zatem kopiuj go razem z danymi w ten sposób: [syntax=vb]wscel.Range("C"...
zamiast: MsgBox tekst wpisz: [e2]=tekst i sformatuj komórkę E2...
Możesz wykorzystać do tego celu szybką transformatę Fouriera w celu wyznaczenia częstotliwości wchodzących w skład badanego sygnału, a następnie porównujesz widmo częstotliwości występujących w sygnale z częstotliwościami składowymi danego kodu DTMF ( Dodano po 17 Znalazłem swój stary program z przetwarzania sygnałów: http://obrazki.elektroda.pl/2043492400_1...
1. Ustawiasz w arkuszu układ danych, tak aby jak najlepiej pasował ci do wyliczeń 2. Określasz i deklarujesz typy zmiennych - jeśli będziesz je wykorzystywać 3. Zliczasz ilość komórek z danymi (liczby) 4. Dla średniej arytmetycznej wykonujesz dodawanie liczb, a następnie podział sumy przez ilość komórek z danymi (liczby) 5. Dla średniej kwadratowej...
[syntax=vbnet] Function ObslugaKlikania(sender As Object, e As RoutedEventArgs) Dim headerClicked = TryCast(e.OriginalSource, GridViewColumnHeader) Try MsgBox(headerClicked.Column.Header) Catch ex As Exception MsgBox("Nie kliknelas w kolumne") Return False End Try Return True End Function[/syntax] powinno działać
Czy 'txtPDF_List' to twój 'textbox'? Jeżeli tak to ominiemy ten 'klipbord' [syntax=vbscript]Private Sub cmdList_Click() With txtPDF_List If .Text <> "" Then .SelStart = 0 .SelLength = .TextLength .Copy MsgBox "Skopiowano nazwę dla listu przewozowego " & txtKURIER & ": " & Chr(10) & _ txtPDF_List, vbInformation, "Kopiowanie" Else...
Jesli naprosto usunuc - tak, a jesli zamiast 2 MsgBox If odp=vbYes ??
Jest przypisanie, jest wyszukiwanie wolnego wiersza, brakuje tylko instrukcji warunkowej. Napisz najpierw samą instrukcję, następnie podstaw wyszukiwanie i przypisanie. Przeanalizuj: [syntax=vb]If usfdiplomaden.ComboBoxprefix3.Value = "Frau" Then MsgBox "Kobieta, czyli ""in""" 'sprawdzimy czy dobrze. Później linię usuniemy 'wyszukanie1 'przypisanie1...
Witam [syntax=vbscript]Sub dodaj() a = Split(Range("A1"), Chr(10)) For c = 0 To UBound(a) Suma = Suma + Val(a(c)) Next MsgBox Suma End Sub[/syntax] albo [syntax=vbscript] Sub dod MsgBox Evaluate(Replace(Trim(Range("A1")), Chr(10), "+")) End Sub [/syntax]
Wrócę do tematu ponieważ chciałem sobie trochę udoskonalić kod do kopiowania grafiku ale nie mogę sobie poradzić z jedną opcją. Chodzi o poniższy kod i jego czwartą linijkę a dokładnie o wpis "Grafik1" . W arkuszu z którego jest pobierany grafik mam trzy różne grafiki, tz. "Grafik1", "Grafik2" i "Grafik3" i w zależności który grafik wpiszę w czwartej...
Przed [syntax=vbscript]End If[/syntax]czyli w trzecim wierszu od końca wstaw: [syntax=vbscript]MsgBox "Rejestracja zakończona pomyślnie"[/syntax]
Zamiast msgbox użyj to jak ścieżki do pliku.
Nikt nie zainteresował się tym tematem. Dla zaawansowanego użytkownika pewnie to nie jest żaden problem. Po wielu próbach znalazłem rozwiązanie więc poniżej umieszczę. Może ktoś to kiedyś wykorzysta. Poniżej poprawiony kod makra Option Explicit Private pComboboxes As Collection Private Sub czTworzPolaCombo() Dim X, Y, maxX, maxY, sz, margL,...
excel msgbox zamykanie msgbox msgbox drukuj
junkers euromaxx schematy wzmacniaczy słuchawkowych różnicówka przewody
Brzęczenie przy zmianie biegów w BMW X3 E83 2006 Jak dopompować naczynie kompensacyjne w instalacji grzewczej?