Visible jest typu boolean, czyli może przyjąć jedną z dwóch wartości. Spróbuj Np Private Sub ctldok_otrzymane_AfterUpdate() If Me.ctldok_otrzymane = "1" Then Me.ctlj_inne.Visible = True Me.ctl_j_kwota.Visible = False Me.ct_j_miesiac.Visible - False ElseIf Me.ctldok = "2" Then Me.ctlj_inne.Visible = False Me.ctl_j_kwota.Visible...
Możesz co najmniej na trzy sposoby właściwie, najzwyczajniej: Image1.Picture.LoadFromFile('podfold... lub (. to katalog bieżący) Image1.Picture.LoadFromFile('.\podfo... lub (chyba najpewniejszy) var dir: String; begin dir := ExtractFilePath(Application.ExeName&... Image1.Picture.LoadFromFile(dir...
Alt+F11( w formie - Ctrl+Break) Ctrl+G(jesli nie ma okienka Immediate) w tym oknie Application.Visible=True
Jeśli jest multi select, to należy skorzystać z innej właściwości - Files, bo Filename przechowuje tylko nazwę jednego pliku, stąd też tylko jeden się dodawał. Można to zrobić w pętli i dodawać kolejne pliki. W przykładzie poniższym nie ma ścieżek, co jak pisałem wcześniej będzie problemem przy otwarciu pliku (jeśli nastąpi zmiana katalogu przy Open...
Witam dla arkusza "Objednavka" [syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) ''Sheets("Objednavka") If Target.Address = "$J$4" Then idate = Date - DateValue(Me.Range("J4")) Select Case idate Case Is > 1 cmbStav.Visible = False: cmbObj.Visible = False: cmbDopr.Visible = False: cmbMenu.Visible = False Case 1 cmbStav.Visible = False:...
Witam to jest ten kod który nie pracuje a daje biały ekran. /***************************************... * * Interfacing Arduino with KS0108 Monochrome GLCD. * This example is for KS0108 GLCD modules with 128x64 Pixel resolution (two CS pins). * This is a free software with NO WARRANTY - Use it at your...
Tam zapewne brakuje Else (nie testowałem): [syntax=vbnet]Sub Printing() Target = Sheets("Centrum").Range("G7").Value If Target = "All" Then For Each s In Sheets(Array("GREEN", "BLUE", "YELLOW", "GREY", "BLACK")) s.Visible = True s.PageSetup.PrintGridlines = True s.PrintOut Copies:=1, Collate:=True s.Visible = False Next Else With Sheets(Target) .Visible...
(at)ElektrodaBot Jak konwertować kod 64-bit na 32-bit? [syntax=c]/** (at)file Copyright (c) 2025, Gelip Copyright (c) 2024, Andri Kurniawan Copyright (c) 2020, Seungjoo Kim Copyright (c) 2016, Dawid Ciecierski This program and the accompanying materials are licensed and made available under the terms and conditions of the BSD License which accompanies...
Jednak gdy uruchomię jakiegoś innego "excela" - ukryty skoroszyt się pojawia. Stosujesz błędną nomenklaturę i z tego wynikają różne niespodzianki :D Aplikacja Excel jest uruchomiona cały czas (i musi być uruchomiona) wtedy kiedy aktywny jest plik (czy inaczej skoroszyt) z makrem - bez względu na to czy jest on widoczny czy nie :?: :idea: Jeśli operujesz...
Funkcja musi być zadeklarowana np. w klasie TForm1. Robisz to następująco: 1. W miejscu, gdzie masz rozpisane klasy używane przez twój program (drzewo, które zaczyna się od "Project1-Classes") znajdujesz "TForm1" 2. Pod prawym przyciskiem myszy masz NewMethod 3. Wpisujesz jakie parametry chcesz do funkcji przekazać i co ma zwracać. Będzie to wyglądało...
[syntax=vbscript]Application.ScreenUpdat... = False If Not Sheets("Arkusz2").Visible Then Sheets("Arkusz2").Visible = True Sheets("Arkusz2").Select Range("A2:E10").Select Selection.Copy Sheets("Arkusz1").Select Range("a1").Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("Arkusz2").Visible = False ActiveWorkbook.Save Application.ScreenUpdating...
[syntax=vbscript]Private Sub Workbook_Open() For x = 2 To Sheets.Count Sheets(x).Visible = False Next a = InputBox("Podaj hasło:") For x = 2 To Sheets.Count If Sheets(x).Range("AA1") = a Then Sheets(x).Visible = True Next End Sub[/syntax]
Nie. Mozna dodac w dowolne miejsce obrazek(dymke) Visible=false; w zdarenie textBox_MouseMove wpisac ten obrazek visible=true, tylko potem trzeba jeszcze z powrotem to schowac(klik na dymkie, textBox, formie)
zrob tak: - stworz do projektu nowy form - daj przyciski itp - jak chcesz wysolac to: form2.visible:=true; jak schować to: form2.visible:=false; lub form2.showmodal
Witam. Chcę zrobić aplikację, która będzie bazowała na elementach Image (zamiast Button). Planuję pozbyć się "windowsoskich" klawiszy X, minimalizuj i wstawić własne. Przygotowałem 2 grafiki : 1. obraz "X.bmp" 2. obraz "Xhover.bmp" - X po najechaniu na niego myszką Dodatkowo mam 3 elementy Image : 1. image_X - załadowany obraz "X.bmp" 2. image_Xhover...
Tak, jest bardzo chaotycznie i nie wiem czy chodzi o banalne rozwiązanie jak poniżej czy chodzi też o coś poważniejszego... if (UserEdit->Text == "admin" && PassEdit->Text == "qwerty") { LoginPanel->Visible = false; AdminPanel->Visible = true; }
Dane z bazy nadpisują nazwy kolumn "swoimi". Ja sobie radzę z tym tak: (po załadnowaniu danych) [syntax=csharp] // visible dgv1.Columns["Id"].Visible = false; // headertext dgv1.Columns["DataProdukcji"].HeaderText = "Data produkcji"; [/syntax]
Chętnie bym poczytał na temat kolekcji Control i innych. Możesz coś podrzucić? Na forum nie mogę znaleźć. Poniżej kod programu. Załączyłem również plik. [syntax=vb] Private Sub UserForm_Initialize() Dim liczba_wierszy As Integer ' zawiera liczbę niepustych wierszy w pliku excel liczba_wierszy = 0 For Each c In Arkusz2.Range("A2:A35") ' pętla zwraca...
Znalazłem "błąd". Ponieważ przykład z funduszem robiłem na liczbie całkowitej (555) zapomniałem/nie zwróciłem uwagi że liczba z przecinkiem dla VB jest z kropką. Później kod próbuje to dalej konwertować i występuje różnica typu. Wystarczy pobrać z funduszu remontowego tekst wartości Text .TextBox5.Visible = True .TextBox5.Enabled = False .Label6.Caption...
Miałem kiedyś ten sam problem i o ile dobrze pamiętam to był to jakiś bug w kontrolce. Obszedłem go w ten sposób, że ustawiłem jako pierwszą widoczną kolumnę, albo ukrtywałem ją ustawiając .Columns[0].Visible = false w jakimś zdarzeniu, bodaj BindngComplete...
MOzesz tez obsluzyc do tego zdazenie keypress i sprawdzac na biezaco co leci z klaw i jak cos bedzie co cie nie interesuje to pomijasz A co do tych obrazkow to kordian11 chodzi poprostu o to by obrazki byly caly czas z tym tylko ze przy pomocy radiobutona bedziesz uwidacznial tego odpowiadajacego radiobutonowi a wszystki inne lub poprzednio aktywny...
Hmmm, to można rozwiązać przynajmniej na dwa sposoby: 1.) Bardziej skomplikowany, ale i bardziej profesjonalny: tworzysz własną kontrolkę na podstawie TabControl, w DrawMode wybierasz OwnerDrawFixed i podpinasz swoje własne metody rysujące kontrolkę w zdarzeniu OnPaint. Po szczegóły musiałbyś pogooglać jak tworzyć własne kontrolki w języku w którym...
Jak przekopiować tabelę z excela do Worda, w którym jest zdanie wstępu,a chcę pod nim umieścić tabelę? Lub jak w kodzie dodać to zdanie? Bazuję na tym kodzie. Jestem początkujący w VBA i próbowałem szukać dlaczego po tym, jak zaczynam ustawiać wysokość wierszy pojawia mi się taki komunikat: "the remote server machine does not exist or is unavailable"...
Witam szanowne grono forumowiczów. Chciałbym zapytać jak w Delphi 7 uruchomić okno dialogowe Password jeszcze przed uruchomieniem pierwszego formularza. Ustawiłem wartość Visible okna dialogowego na True a formularza głównego na false ale mimo to po uruchomieniu programy pokazują się oba. Jak to zrobić żeby pokazywało się tylko okno dialogowe?
Możesz np. z poziomu designera dodać wszystkie kolumny, a potem ukrywać niepotrzebne, a pozostałym ustawić kolejność właściwością DisplayIndex: [syntax=csharp]dataGridView1.Columns[0].... = false; dataGridView1.Columns[3].DisplayIndex = 0; dataGridView1.Columns[2].DisplayIndex = 1; dataGridView1.Columns[1].DisplayIndex = 2;[/syntax] A generalnie:...
Różne modele, np teraz [url=https://www.tme.eu/pl/details/rvt70... [url=https://www.tme.eu/pl/details/rvt70... Biblioteka, której używam: https://github.com/RudolphRiedel/FT800-F... Parametry inicjalizacji: [syntax=c] #define EVE_HSIZE(800L)/* Thd Length...
Przetestuj poniższy kod [syntax=vb]Sub PVFIELDS() Dim oPvtItem As PivotItems Dim iFltr As Integer iFltr = Cells(1, 1).Value Set oPvtItem = ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("Okres").Pivot... For Each pvt In oPvtItem For i = 1 To iFltr If pvt.Name = CStr(i) Then pvt.Visible = True Exit For Else pvt.Visible = False End If Next...
Cześć! Proszę o pomoc! Jestem nowy w Accessie i porywam się na zrobienie bazy danych produktów. Doszedłem do problemu, którego nie mogę przejść. Otóż nie mogę wyeksportować jednego rekordu do Excela. Co chcę osiągnąć: W formularzu wybieram/dodaję produkt. Klikam w przycisk i eksportują mi się jego parametry tylko tego jednego rekordu do Excela. W internecie...
Cześć, chciałbym zrobić 'automat' do tworzenia prezentacji. Chciałbym na podstawie kilku kolumn w Excelu podawać: 1. ścieżkę dostępu 2. nazwę pliku 3. nazwę arkusza 4. zakres slajdu 5. tytuł slajdu 6. numer slajdu oraz informację gdzie ma zapisać się dana prezentacja i pod jaką nazwą. Czy ktoś jest mi w stanie pomóc, bądź spotkał sie z podobnym problemem?...
Dear readers, As the first part of the book had been published we have decided to let all foreign readers read the sample of the book in english. However the translation may not be perfect, it may give you an impression on the whole book. The remaining part of the book has not been translated so far, so if you are interested, you may translate it further...
Witam, Proszę o pomoc w napisaniu makra, które będzie usuwało całe wiersze, w których data będzie starsza niż 2016-05-02 (kolumna z datą to kolumna B) we wszystkich arkuszach. Znalazłam na jakiejś stronie kod z pętlą, która przechodzi przez wszystkie arkusze, ale nie potrafię napisać kodu odpowiadającego za usuwanie wierszy. Proszę o pomoc :) Dodano...
Private Sub Polecenie66_Click() On Error GoTo Err_Polecenie66_Click DoCmd.OpenForm "Dodaj ocenę" Me.Visible = False Exit_Polecenie66_Click: Exit Sub Err_Polecenie66_Click: MsgBox "Błąd otwarcia formularza 'Dodaj ocenę'..." Resume Exit_Polecenie66_Click End Sub Private Sub Polecenie34_Click() On Error GoTo...
Witam , Tworzę makro które kopiuje unikalne dane z Kolumny A od komórki A3 (w komórce A2 są nagłówki) i wkleja w nowo stworzonym arkuszu. Jednak Problem się zaczyna gdy chce skopiować do każdego z tych arkuszy nazwy z wiersza pierwszego (A1:A11) wkleja w nowo powstałym arkuszu tylko komórkę A1 a cała tabela się rozjeżdża . Oto kod: [syntax=vb]Sub Copy_To_WorkbooksB()...
Zrobiłem tak jak poradziłeś Samuraj. Niestety nadal jest coś nie tak. Serwo po zaaploudowaniu kodu i spełnieniu warunku if zamiast pracować po prostu buczy. Zmierzyłem napięcie na linii zasilania i wyskoczyło 4.42 V a serwo rusza od 4.8 V. Nie wiem skąd się wzięły te spadki. Nawet po podłączeniu zasilacza do Arduino nadal jest takie samo niskie napięcie....
Program sterujący makietą żaluzji - w zależności od natężenia światła zamyka się bądź otwiera. Dodaje kod - jest trochę chaosu w nim ale mam nadzieję że się odnajdziesz. Dużą część kodu stanowi program czujnika (angielskie nazwy) więc to można chyba pominąć w poszukiwaniu rozwiązania problemu, bo program (odpowiedzialny za sam czujnik) po części jest...
A masz, ale nie w C++, tylko w C, nie kilka, a jeden wątek i nie Borland, ale powinno działać. Wycięte z innego mojego programu, istotne komentarze po polsku napisałem. Jak chcesz więcej wątków (tu jest 1), to potrzeban jest tablica "uchwytów" ( hjakisThread i wskazników pjakisThread ), dla każdego wątku po jednym. Wywołujesz kilka razy funkcję CreateThread()...
Witam. Zbudowałem makietę samoregulującej się żaluzję i chciałem wprowadzić w niej dwa tryby pracy: 1. Aby przymykała się gdy natężenie światła rośnie. 2. Aby otwierała się gdy natężenie światła rośnie. Niestety mimo że kod skompilował się poprawnie to program nie działa. Mimo że przełączam na inny case to żaluzja pracuje tylko dla przypadku 2 (case...
Witam Na projekt kompetencyjny wymyśliłem samoregulującą się żaluzję na bazie Arduino. Mam już wykonaną makietę z drewna z zamontowanym serwomechanizmem oraz kod programu na Arduino, chociaż nie w całości. I tu zwracam się do Was z zapytaniem... Otóż regulowanie kąta obrotu serwa odbywa się za pomocą trywialnej funkcji servo.write(kąt) która wykonuje...
/*--------------------------------------... Name : NokiaLCD.h Description : Header file for Nokia 84x48 graphic LCD driver. Author : 2003-03-08 - Louis Frigon. History : 2003-03-08 - First release. ----------------------------------------...
Jak to zrobić ? Dodajesz trzeci przycisk tyle że "Visible=false" i tworzysz takie eventy: [syntax=vbnet] Private Sub Button_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress, Button2.KeyPress Button3.Select() End Sub Private Sub Button_KeyUpDown(ByVal sender As System.Object, ByVal e...
Dzień dobry W pliku z makrem logowania chciałbym dodać funkcję ukrywania oraz pokazywania arkuszy pliku na podstawie danych z komórek w danym arkuszu (Arkusz "Ustawienia"). Wyświetlanie wybranych arkuszu miałoby nastąpić po prawidłowym zalogowaniu się. Obecnie wygląda to tak: [syntax=text]Private Sub Loguj_Click() Dim sUser As String, sPassword As String...
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")...
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)...
A co mi tam. Tak ma być. :) [syntax=vbscript]Sub Drukuj() Dim Word As Object, Dokument As Object, DomyslnaDrukarka As String Dim WybranaDrukarka As String, Plik As String On Error Resume Next WybranaDrukarka = Sheets("Drukarki").Cells(Application.Mat... Sheets("Drukarki").Range("B:B"), 0), "A") If WybranaDrukarka = "" Then MsgBox "Wybierz najpierw...
Ad.1) Procedurę, (obecnie wywoływaną po kliknięciu na TxtBox), musisz przypisać do kontrolek (procedur) , których wywołanie ma wyświetlić (odświerzyć) wynik w TxtBox. Ad.2) Użyj właściwości Visible tej kontrolki (false/true) , w zależności od wartości właściwości Catpion. andie
Próbowałam, [syntax=vb]Private Sub OptionButton1_Click() If OptionButton1.Value = True Then ComboBox24.Visible = True TextBox7.Visible = True Frame4.Visible = True OptionButton3.Visible = True OptionButton4.Visible = True Else ComboBox24.Visible = False TextBox7.Visible = False Frame4.Visible = False OptionButton3.Visible = False OptionButton4.Visible...
Pomijając literówkę w przypisaniu, zamienione argumenty w Cells(row, column), zakręcony wybór kontrolki w pętli, to zdaje się coś za dużo tych pętli. Po modyfikacji http://obrazki.elektroda.pl/3585684200_1...
Ale kombinujesz... przeglądnij to to może sam dojdziesz dlaczego CI nie działa (parę zbędnych rzeczy jak dla Ciebie ale może się połapiesz.) [syntax=csharp]using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Windows.Forms;...
chodziło mi o coś takiego. pozdrawiam [syntax=vbscript]Private Sub Workbook_Open() Select Case Environ("username") Case "user1" Sheets(1).Visible = true Sheets(2).Visible = false Sheets(3).Visible = false Case "user2", Sheets(1).Visible = false Sheets(2).Visible = true Sheets(3).Visible = true Case "user3", Sheets(1).Visible = true Sheets(2).Visible...
Cześć, Mam problem z tabelą przestawną, ponieważ dane jakie jej pokazuje są zmienne. Czy jest możliwość ustawienia takiego warunku żeby w filtrze zaznaczał tylko dwie wartości a resztę oznaczała jak False. Chodzi mi o tą cześć kodu poniżej: [syntax=vbscript]With PT2.PivotFields("status") .Orientation = xlPageField .PivotItems("CC_Należność uregulowana").Visible...
access visible visible button textbox visible
mocom prima szumy wzmacniacz lampowy cdrom controller
depollution system faulty peugeot engine fault peugeot
Jak zmienić tryb AHCI na IDE w BIOS-ie? Modicon M221 – wymiana baterii BR2032, lokalizacja, procedura, Schneider Electric
