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...
To sprawdź sobie takie rozwiązanie.
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]
Witaj. Spróbuj: [syntax=vb]Sub test() Dim wynik as boolean wynik = False For kolumna = 1 To 11 If Cells(2, kolumna) = "" Then wynik = True Next kolumna if wynik then MsgBox "wpisz wszystkie wartości" End Sub[/syntax]
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...
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.
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...
Masz świadomość tego, że żeby Ci przedstawić poprawny kod, to trzeba do testów stworzyć bazę z tabelami i formularzem? Może i to niedużo roboty, ale zawsze zajmuje czas... Akces, to nie tabelka w Excelu. Im dalej w las, tym więcej przed Tobą problemów i pytań, skoro taki prosty kod (skopiowany z sieci) jest dla Ciebie problemem. [syntax=vbscript]Private...
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 .
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?
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
Coś ala [syntax=vbscript]tekst = TextBox3.Text a = Split(tekst, vbLf) MsgBox a(0) MsgBox a(1) MsgBox a(2)[/syntax]
:) Antoni nie denerwuj się tylko popatrz na własny przykłąd. W której kolumnie arkusza "Roczny" umieścił byś dane wg twojego opisu? Gdyby nie było takiego przypadku można by było uprościć kod a tak trzeba sprawdzić czy się nie mylisz bo będzie wywalać błąd. [syntax=vb]Sub Przenies() Dim x As Integer, nrKol As Integer 'Sprawdzenie za pomocą licz.jeżeli()...
[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...
Dostałeś kod od Kolegi adams_nt , przepisz go chociaż dobrze: [syntax=vb]Set ark = Sheets("Historie") nie ark = Sheets("Historie")[/syntax] [syntax=vb]MsgBox "Informacje zostały uzupełnione o dane o osobie wypożyczającej akta i/lub daty wydania/zdania", vbInformation, "tytuł" nie Odp = MsgBox("Informacje zostały uzupełnione o dane o osobie wypożyczającej...
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]
Coś takiego: [syntax=vb] Sub szukajDanejWartosci() Dim danaWartosc As Variant Dim liczbaWierszy As Integer Dim liczbaKolumn As Integer Dim i As Integer Dim j As Integer liczbaWierszy = 20 liczbaKolumn = 4 danaWartosc = 0 '<-- TEJ wartości szukasz w arkuszu For i = 1 To liczbaWierszy For j = 1 To liczbaKolumn If (Cells(i, j) = danaWartosc) Then 'MsgBox...
Nie widzę sensu w działaniu tego kodu, gdyż za każdym przebiegiem pętli zmienia się zawartość 4 tych samych komórek. Zakres C3:C6. Poza tym nie wiem po co w pętli wyświetlanie informacji MsgBox. Zapytam więc: co chciałeś osiągnąć pisząc to makro?
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]
Powinnaś znaleźć gotowca na forum. Poszukaj. [syntax=vbscript]Sub DzialajNaPlikach() Application.ScreenUpdating = False Sciezka = "C:\PlikiExcela\" Plik = Dir(Sciezka & "*.xls*") Set ArkuszDocelowy = ActiveWorkbook.Sheets("Arkusz1") While Plik <> "" nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Set PlikZrodlowy = Workbooks.Open(Sciezka &...
[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]
[syntax=vb]If My.Computer.FileSystem.FileExists("c://C... Then MsgBox("File found.") Else MsgBox("File not found.") End If[/syntax]
Tematów na Elektrodzie o imporcie plików do Excela jest całe mnóstwo. Przykładowy kod: [syntax=vbscript]Sub ImportujPliki() Application.ScreenUpdating = False Sciezka = "C:\PlikiExcela\" Plik = Dir(Sciezka & "Historia*.xls*") Set ArkuszDocelowy = ActiveWorkbook.Sheets("Arkusz1") While Plik <> "" nw = Cells(Rows.Count, "A").End(xlUp).Row +...
Zamiast MsgBox ("1")
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.
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]
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...
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?
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]
[syntax=vbscript]If Dir(ThisWorkbook.Path & "\Stary.xlsx") = "" Then MsgBox "Plik nie istnieje."[/syntax]
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...
Chcesz przekazać po wywołaniu zdarzenia kontrolki, tablice kontrolek w której się ona znajduje do funkcji zaznaczenie_badan? Patrząc na logikę znalazłem przy okazji parę błędów w kodzie. Chyba że kod jest bardziej obszerny niż tu przedstawiłeś. W każdym bądź razie napisałem zgodnie z Twoim kodem takie coś ale nie wiem czy o to Ci chodziło: [syntax=vbnet]...
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]Sub DoBazy() kol = Application.Match([C3], Sheets("Baza").Range("A1:GR1"), 0) If Not IsError(kol) Then For i = 1 To 260 Worksheets("Baza").Cells(i, kol) = Worksheets("DoBazy").Cells(i, 3) Next i MsgBox ("Dane dla daty " & [C3] & " zostały skopiowane") Else MsgBox "Brak danych." End If End Sub [/syntax]
Nie mam wersji z eksportem do PDF, więc pisane bez sprawdzenia. [syntax=vbscript]Sub KonwerujDoPDF() With Application.FileDialog(msoFileDialogFold... .Title = "Folder z plikami '.doc'" If .Show = -1 Then Sciezka = .SelectedItems(1) & "\" Else Exit Sub End If End With Plik = Dir(Sciezka & "*.doc") Set oWord = CreateObject("Word.Application")...
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...
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
Witam, mam makro działające: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Przede wszystkim, to wyjmij poza pętle otwieranie i zamykanie RS. Dla testu dodaj MsgBox z wartościami wybranymi z pola listy.
[syntax=vbscript]If InStr(1, [B5], [A1]) > 0 Then MsgBox [B5][/syntax]
Zamiast msgbox użyj to jak ścieżki do pliku.
[syntax=vb] If ostatniwiersz <> 24 Then MsgBox "W arkuszu jest " & ostatniwiersz & " wierszy" [/syntax]
Po co kompilator? Mała podpowiedź - klawisz F8 w kodzie VBA. To co chcesz uzyskać zrobisz takim prostym kodem: [syntax=vbscript]Sub DzialajNaPlikach() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String, PlikZrodlowy As Workbook, ArkuszDocelowy As Worksheet Sciezka = "c:\sas\" Plik = Dir(Sciezka & "*.xls*") Set ArkuszDocelowy...
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...
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...
Nie testowaliście tow... znaczy kolego PRL Nie.:) Powyższa funkcja nie jest moja. A to moja: [syntax=vbscript]Function PlikIstnieje(Sciezka As String, NazwaPliku As String) As Boolean If Dir(Sciezka & NazwaPliku) <> "" Then PlikIstnieje = True Exit Function End If Dim FS As Object, Katalog As Object, PodKatalog As Object Set FS = CreateObject("Scripting.FileSystemObject...
[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]
Najprościej wykorzystać indeksy ComboBox'ów (wynik w MsgBox przy aktywowaniu "Wykres").
[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"...
[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]
Sprawdź, co jest w "globalpath2000" chwilę przed File.Create - tylko nie przez MsgBox, bo mogą być jakieś niewidoczne znaki.
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]
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
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...
mogło by być komunikat że nieaktualna wersja Zamiast ThisWorkbook.Close False Wpisz MsgBox "Nieaktualna wersja"
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.
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...
O Benek:) Jeżeli 'aktywujesz' to dopisz sobie [syntax=vbscript]MsgBox Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row[/syntax...
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...
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...
:) [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),...
coś w rodzaju przypomnienia Wszystko można zrealizować w oparciu o MsgBox :spoko: 973042
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 & "\"...
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 ;)
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]
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]
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...
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?
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,...
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...
[syntax=vbnet]Sub test() Lst = Array(1, 4, 9, 10, 11) For Each k In Lst MsgBox Str(k) Next End Sub[/syntax]
[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]
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)...
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]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]
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.
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",...
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...
excel msgbox zamykanie msgbox msgbox drukuj
wysprzęglik astra skrzynia zmieniać podzial telewizji
samsung wf70f5e0w2w samsung wf70f5e0w2w
Ftd2xx USB – optymalne ustawienia pakietu i Latency Timer dla minimalnej latencji FT232R, FT232H Antena Televes DAT BOSS Mix LR do DVB-T2 Olsztyn – odbiór 31 km, drzewa i las, UHF+VHF, filtr LTE
