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...
To sprawdź sobie takie rozwiązanie.
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...
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...
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...
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...
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)...
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...
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 .
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...
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?
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]
[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]
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...
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...
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]
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...
[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]
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...
[syntax=vbscript]If Dir(ThisWorkbook.Path & "\Stary.xlsx") = "" Then MsgBox "Plik nie istnieje."[/syntax]
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...
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...
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...
[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ć
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...
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...
Przed [syntax=vbscript]End If[/syntax]czyli w trzecim wierszu od końca wstaw: [syntax=vbscript]MsgBox "Rejestracja zakończona pomyślnie"[/syntax]
Jesli naprosto usunuc - tak, a jesli zamiast 2 MsgBox If odp=vbYes ??
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]
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...
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...
[syntax=vbscript]If InStr(1, [B5], [A1]) > 0 Then MsgBox [B5][/syntax]
Zamiast msgbox użyj to jak ścieżki do pliku.
Przede wszystkim, to wyjmij poza pętle otwieranie i zamykanie RS. Dla testu dodaj MsgBox z wartościami wybranymi z pola listy.
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,...
[syntax=vb] If ostatniwiersz <> 24 Then MsgBox "W arkuszu jest " & ostatniwiersz & " wierszy" [/syntax]
Ani raz nie napisał makra(kod)? Sub blok() msgbox "opcje kopiuj wklej sa zablokowane " End Sub
Spróbuj czegoś takiego: Set objFolders = CreateObject("WScript.Shell&quo... MsgBox objFolders("mydocuments"&#... Albo tego: MyDocsPath = Environ$("USERPROFILE")... & "\Moje dokumenty\" MsgBox MyDocsPath To drugie jest o tyle "gorsze", że nazwa zależy od systemu (w angielskich wersjach...
Troch krótszy kod. [syntax=vbscript]Sub CzytajPliki() Folder = "C:\FolderGłówny\" Set FSO = CreateObject("Scripting.FileSystemObject... CzytajFoldery FSO.GetFolder(Folder) End Sub Sub CzytajFoldery(Folder) For Each Podfolder In Folder.SubFolders CzytajFoldery Podfolder Next For Each Plik In Folder.Files MsgBox Plik.DateCreated 'tutaj są kolejne pliki...
[syntax=vb]Sub Makro1() Dim jest As Boolean Sheets("Arkusz1").Select nazwa1 = Cells(1, 1) nazwa2 = Cells(2, 1) For Each c In Range("c5:c10").Cells zm = Replace(c, nazwa1, "") If zm = "" Then c.Value = nazwa2: jest = True Next If jest Then MsgBox "Nastapila co najmniej jedna zmiana nazwy" Else MsgBox "Porazka" End If End Sub [/syntax]
[syntax=vb]If (Month (date) = 9 And Day(date) <= 10 And Day(date)>=7) then MsgBox "komunikat a" ,64,"Przypomnienie" else If (Month (date) = 9 And Day(date) <= 5 And Day(date)>=1) then MsgBox "komunikat b",64,"Przypomnienie" else If (Month (date) = 9 And Day(date) <= 15 And Day(date)>=10) then MsgBox "komunikat c",64,"Przypomnienie"...
Najprościej wykorzystać indeksy ComboBox'ów (wynik w MsgBox przy aktywowaniu "Wykres").
[syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("K1") <> "" Then Me.Save Else If Range("A1") > 0 Then MsgBox "Komórka K musi być wypełniona przed zamknięciem dokumentu!" Cancel = True Else MsgBox "OK, komórka K wygląda na poprawnie wypełnioną Smile" Me.Save End If End If End Sub [/syntax]
Może to Cię do czegoś natchnie... [syntax=vb]Const NAZWA_PLIKU As String = "C:\EX04\1.xlsm" Dim plik As Workbook Set plik = Workbooks.Open(Filename:=NAZWA_PLIKU) If plik.ReadOnly Then plik.Close (False) MsgBox "Nie podziałamy... :(" Else plik.Sheets(1).Range("A1").Value = Now plik.Close (True) MsgBox "Zapisano!..." End If[/syntax]
A czy można i jak zapisać aby działało w całej kolumnie? W kolumnie, wierszu, zakresie, poza zakresem. Jak sobie życzysz. Po wpisaniu 'Target' i postawieniu kropki w edytowanym kodzie, otworzy się lista rozwijalna z własnościami i metodami. M.in. Address, Column, Range, Row, itp. W niemal każdym przypadku będzie nieco inna składnia zapisu. Można o...
Sprawdź, co jest w "globalpath2000" chwilę przed File.Create - tylko nie przez MsgBox, bo mogą być jakieś niewidoczne znaki.
Trzeba wrzucić to w pętlę. Jak znajdzie robi warunek PRAWDA Jak nie znajdzie to w warunku FAŁSZ wyświetla Msgbox i kończy działanie
mogło by być komunikat że nieaktualna wersja Zamiast ThisWorkbook.Close False Wpisz MsgBox "Nieaktualna wersja"
Czy jeszcze coś należy zrobić ? Uważać, aby nie zahasłować plików w Moje Dokumenty ;) W tym celu warto byłoby wstawić MsgBox z zapytaniem "Czy aby jesteś pewien..." z nazwą wybranego katalogu. Coś jak[syntax=vb]If Msgbox("Zabezpieczyć pliki w katalogu " & kt, vbinformation+vbyesno) = vbNo then exit sub[/syntax]Za linią: 'If kt = "" Then Exit Sub'
Namotałeś. [syntax=vbscript]Sub CzyscDane2() d = Weekday(Date) If d = vbSaturday Or d = vbSunday Or Swieto(Date) Then MsgBox ("Mamy weekend! Dane usuną się tylko w dzień roboczy") Exit Sub End If i = MsgBox("Czy na pewno chcesz usunąć dane z tej tabeli? " & _ "Pamiętaj, że stracisz je bezpowrotnie!!!" _ , vbOKCancel + vbExclamation + vbDefaultButton2,...
we fragmencie Kod: If Range ("f16") .Value = 0 Then MsgBox "Brak elementów do archiwizacji - wypełnij zamówienie", vbCritical End End If nie było "end" Bylo tak[syntax=vb]Private Sub CommandButton1_Click() 'CommandButton4.Enabled = False 'wy³¹czenie przycisku Archiwizuj zamówienie If Range("B18").Value = 0 Then MsgBox "Brak elementów do archiwizacji...
Temat odrobinę podpada pod "zaniżanie poziomu". Jeśli argumenty są w cudzysłowach, to znaczy, że są typu String. Prawda? Podstaw je pobierając z komórek lub InpuBox'a... Przeanalizuj taki[syntax=vb]Dim zmienna As String, zmienna2 As String zmienna = Range(InputBox("wpisz Np a1:g65")).Address MsgBox zmienna 'adres zakresu zmienna2 = Range(InputBox("wpisz...
O Benek:) Jeżeli 'aktywujesz' to dopisz sobie [syntax=vbscript]MsgBox Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row[/syntax...
Funkcja 'Find' jest tak samo szybka/wolna jak pętla. Dlatego najprościej [syntax=vbscript]b = 2 w = Cells(Rows.Count, 4).End(xlUp).Row Do While b <= w If Cells(b, 4) = kierowca And Cells(b, 6) = "NIE" Then Exit Do b = b + 1 Loop If b < w Then MsgBox "znaleziono w wierszu " & b Else MsgBox "nie znaleziono" End If[/syntax]
Wypróbuj coś takiego, ew. przerób do własnych potrzeb: [syntax=vb]IsValid = True For Each ctrl In UserForm1.Controls If TypeName(ctrl) = "TextBox" Then If ctrl.Text = "" Then IsValid = False End If End If If TypeName(ctrl) = "ComboBox" Then If ctrl.ListIndex < 0 Then IsValid = False End If End If Next ctrl If IsValid Then MsgBox "OK" Else MsgBox...
Błąd polega na tym ze nie tu wywołujesz okno msgbox i w dodatku trochę inaczej się je parametryzuje a zmienna ans powinna przenosić tylko wybor 9jaki klawisz wcisnąłeś wartosc_max = InputBox("podaj ilość maksymalnych wartości: ") If wartosc_max > UBound(dni) - 1 Then ans = Msgbox( "wartość ilości waksymalnych jaka podałeś jest większa niż 24 " , vbYesNo...
chce żeby wyświetlił się msgbox lecz nie zatrzyma on czytania kodu Taka już rola MsgBox'a , żeby zatrzymywał i czekał na decyzję użytkownika. jak powstrzymać otwieranie nowego arkusza jak jego nazwa się powtórzy?? Excel z pewnością nie pozwoli na dublowanie nazw arkuszy. Jeśli chodzi o nadawanie nazw musiałbyś najpierw wykonać porównanie i dopiero...
coś w rodzaju przypomnienia Wszystko można zrealizować w oparciu o MsgBox :spoko: 973042
:) [syntax=vbscript]Sub Log_Ok() Dim ostkomzakr As String Dim LogOk As Range With ThisWorkbook.Sheets("Jakiś_arkusz").Rang... ostkomzakr = Split(.Address(0, 0), ":", -1, 1)(1) Set LogOk = .Find(Environ("Username"), .Range(ostkomzakr), xlFormulas, xlWhole, xlByRows) If LogOk Is Nothing Then Set LogOk = .Find(Environ("Username"), .Range(ostkomzakr),...
A co jest przechowywane w a? znaczy się mychą coś zaznacza i dopiero puszczasz makro? a = Selection.Row ? Moja porada to za pomocą komendy msgbox wyświetlaj sobie na bierząco czy masz właściwą ścieżkę przechowywaną w "strName" po każdej modyfikacji rób: Msgbox strName Chyba wiem w czym tkwił błąd. Zapomniałeś jednego shesha:) strName = strPath & "\"...
Można do przycisku przypisać Np takie makro Option Explicit Sub cmdWstaw() Dim pozycja As Integer, numer As Integer Dim kom As Range pozycja = Sheets("Arkusz1").Rang... + 1 If pozycja = 77 Then MsgBox "Osiągnięto koniec zakresu w zestawieniu..." Exit Sub End If For Each...
Zamiast [syntax=vbscript]Workbooks.Open (Sciezka & "\" & PlikZrodlowy)[/syntax] do testów użyj [syntax=vbscript]MsgBox (Sciezka & "\" & PlikZrodlowy)[/syntax]
To, jak wyświetla MsgBox nie jest tak istotne. Podejrzewam, że gdzieś masz "zwykły" błąd. A z małym "ł" problem w Excelu jest od zawsze ;)
jak to zrobić aby w przypadku braku danych po naciśnięciu Button'a wyskoczył msgbox "Wprowadź dane" i program czekał na te dane nie "idąc" dalej i dało sie te dane wprowadzić w tym czasie do textbox'a Zastosuj dla tego pola tekstowego procedurę zdarzeniową TextBox1_Exit z instrukcją "If", jak masz to zrobione, oraz z "Cancel = 1", np.: [syntax=vbscript]Private...
Bez sensu, ale: [syntax=vbscript]Private Sub Workbook_Open() a = Weekday(Date) If a = vbSunday Or a = vbWednesday Or a = vbFriday Then MsgBox "Czy zrobiłeś porządki?", vbYesNo, "UWAGA" End Sub [/syntax]
Po pierwsze, skoro masz zmapowana te sciezke, to uzyj F:. Po drugie, dla testu sprawdz MsgBox Forms!Formularz_itd. Po trzecie ile mozna pisac o stworzeniu folderu?
Tak kwerenda działa dobrze To teraz zrób tak, aby przy wybraniu tych wartości w polu combo i tekstowym uzyskać identyczną kwerendę "w msgbox'ie". To jedyna rada.
Powiedz im, że tak się nie robi. To nie Excel. Przykładowy kod przycisku 'Dodaj fakturę'. [syntax=vbscript]Private Sub DodajFakture_Click() inf = MsgBox("Dodać fakturę?", vbYesNo, "UWAGA") If inf = vbYes Then If DCount("[IdFaktury]", "Faktury") = 0 Then nr = "1/" & year(Date) Else DoCmd.GoToRecord , , acLast nr = Me.NumerFaktury nr = Val(Left(nr, InStr(1,...
Należałoby przeszukać sąsiadów w wierszu "wierszkontrahenta"... Taki efekt: http://obrazki.elektroda.pl/8119171000_1... uzyskałem przy pomocy [syntax=vb]Sub Szukaj() ilekontrahentow = 20000 ListaFirm = "nazwisko" 'symulacja wartości pola tekstowego wiersz = Worksheets("KONTRAHENT").Range("B3", "B" & ilekontrahentow) _ .Find(what:=ListaFirm,...
Myliłem się Trzeba tak: [syntax=vb]Private Sub cmdOK_Click() Dim zmienna As String Unload wybor zmienna = LCase(TextBox1) If zmienna <> "" Then For Each sh In Sheets If sh.Name = zmienna Then jest = True Next If jest Then Unload skoroszyt Worksheets(LCase(zmienna)).Activate worker.Show Worksheets("wybór").Activate Else MsgBox "Pracownik nie istnieje,...
[syntax=vbnet]Sub test() Lst = Array(1, 4, 9, 10, 11) For Each k In Lst MsgBox Str(k) Next End Sub[/syntax]
Możesz zobaczyć to z inputboxem: [syntax=vb]Sub Przycisk2_Kliknięcie() Dim plik As Variant Dim openFile As Workbook Dim Nazwa_Pliku As String Nazwa_Pliku = ActiveWorkbook.Name MsgBox Nazwa_Pliku plik = Application.GetOpenFilename( _ FileFilter:=",*.xl*", _ Title:=" Wczytaj plik z danymi") If plik = False Then Exit Sub Set openFile = Workbooks.Open(Filename:=plik)...
Wystarczy zebrać wszystkie komunikaty do jednego stringa a następnie umieścić w jednym msgboxie. Pomiędzy poszczególnymi stringami możesz umieścić vbCrLf aby było czytelniej.
sprawdz to: [syntax=vbnet]MsgBox("Wybierz port COM !!!", 0, "Błąd") Else ProgressBar1.Value = 50 RS232.Encoding.UTF8[/syntax] pozmieniaj utf8 na inne i zobacz co wyjdzie
[syntax=vbscript]Sub Drukuj() If Dir(Range("B1")) <> "" Then Workbooks.Open (Range("B1")) For x = 1 To Sheets.Count If Sheets(x).Name Like "*jakiś*" Then MsgBox Sheets(x).PrintOut Exit For End If Next ActiveWorkbook.Close End If End Sub [/syntax]
[syntax=vbscript]p = Environ("USERPROFILE") & "\Desktop\" & Format(Now(), "yyyy-MM-dd_hh-mm") & "_" & Nazwa & "_z_budżetu.pdf" Worksheets("ARKUSZ_S_P-wydzial").ExportA... Type:=xlTypePDF, Filename:=p, IncludeDocProperties:=True MsgBox "Zapisano pod nazwą " & p[/syntax]
Potrzebuje zrobić to co teraz wrzucilem OK, jeśli sam będziesz to obsługiwał to Twoja wola i Twój wybór. Odnośnie przedstawionego na rysunku wyliczenia to musisz zmienić kod dla przycisku "Oblicz" np na taki: [syntax=vbscript]Private Sub CommandButton5_Click() Dim a As Integer Dim b As Integer Dim b As Integer If TextBox15.Value > 0 Then If TextBox15.Value...
Wydaje mi się, że bardziej chodzi o wybieranie wielu w oknie 'GetOpen'. Nie wnikając w "panel" i "remonty" powinno być coś takiego: [syntax=vbscript]Sub Wczytywaniedancyh() Dim otwieranie As String Dim tb() As Variant, test As Boolean, i As Integer Dim plik As String Dim kopiowanie As String Workbooks("Panel").Activate otwieranie = MsgBox("Wybierz plik",...
Proponuję zmienić na początku kodu - dodać drugą pętle, która sprawdzi drugą komórkę i wyczyści "częściowy wpis" z pierwszej - zasada "jak zapomniałeś jednej to wpisuj ponownie obie" (jak nie pasuje taka zasada to wystarczy wyciąć te dwie linijki czyszczące) :D [syntax=vbscript]With ActiveSheet If .Range("C2") = "" Then MsgBox " Proszę wpisac datę i...
Chodzi mi o to, żeby po wykonaniu kodu i wyświetleniu MsgBox wyczyścić schowek, skopiować wyświetloną zawartość, zamknąć MsgBox, usunąć zawartość całego dokumentu i wkleić do tego dokumentu skopiowany tekst. Sprawdź [syntax=vbscript]Sub ZaznaczZielone() ' ' ZaznaczZielone s = "" Selection.Find.ClearFormatting Selection.Find.Font.Color = 34816 With...
Przy tablicach nie używa się select. A co chcesz potem robić z tą tablicą? Zawsze możesz odwoływać się do komórek arkusza jak do tablicy: For i = 1 To 5 for j = 1 to 5 MsgBox i & ", " & j & " = " & Worksheets("Arkusz1").... j) next j Next i Ewentualnie możesz zapisać dane do zmiennej typu RANGE, do...
[syntax=vbscript] Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long ' Public Function IsInternetConnected() As Boolean Dim strConnType As String Dim lngReturnStatus As Long IsInternetConnected = False lngReturnStatus...
Chcesz znać wartość ostatniej danej? To po prostu wartość ostatniej komórki w kolumnie: [syntax=vbscript]MsgBox Cells(Cells(Rows.Count, "A").End(xlUp).Row, "A").Value[/syntax]
zamykanie msgbox msgbox drukuj excel msgbox
suszarka electrolux edp12074pdw silnik trójfazowy wyłącza włącznik adapter sterownik
Ferguson 3412 – schemat wzmacniacza stereo, dokumentacja serwisowa, typowe usterki Jak sprawdzić ładowanie w Skoda Octavia 2 1.6 MPI 2004?
