Pomoże ktoś??
Bez makra się nie obejdzie. Wprowadź do arkusza objekt rysunkowy (Image1) tam gdzie ma być to zdjęcie. I wprowadź kod przyporządkowując w każdej liście wyboru każdą z wybranych opcji do jakiegoś rysunku. np tak: Select Case ComboBox1.ListIndex Case 0 Image1.Picture = LoadPicture("c:\rys1_1.jpg&... Case 1 Image1.Picture = LoadPicture("c:\rys1_2.jpg&...
Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...
Przez makro
Witam, w arkuszu mam 150 list rozwijanych typu combobox Makro ma wybrać 5 z nich i załadować do nich dane Listy mają nazwy Lista_1_01, Lista_2_01, Lista_3_01, Lista_4_01, Lista_5_01 z tym że ostatnie 2 cyfry zmieniają się od 01 do 30 i są brane z komórki F1 z tego względu że nie potrafię zrobić tego inaczej, napisałem coś takiego: [syntax=vbscript]Sub...
Robisz makro z nazwą "combobox1.change" (po kliknięciu na combobox) 1. W tym makro definiujesz stałą integer jako nr kolumny 2. Odczytujesz wartosć z pola combobox i przepisujesz do wybranego przez zmienną integer pola arkusza w pierwszej pozycji. 3. Inkrementujesz zdefiniowaną zmienną integer Makro po wykryciu kolejnej zmiany combobox uruchomi się...
nazwa jest taka sama a może to wynikać z tego że na moim UserForm jest więcej elementów niż tylko sam ComboBox ??
Podmień ComboBox na ListBox...
Witam Potrzebuję wykonać obliczenie tak, żeby wyliczało mi różnicę '= róznica [ towar sprzedany] - [koszt PLN] względem wyznacznika z kolumny V. Najlepiej Makro które przeszuka kolumnę V znajdzie dany wyznacznik [liczbę] i poda wynik różnicy wszystkich liczb z kolumny S i P . Niestety nie mogę tego pogrupować względem kolumny V. Musi pozostać taki układ...
Witajcie, mam taki problem: Tworzę sobie aplikację do awizowania gości, żeby było wiadomo kto wjeżdża do firmy, kto w niej jest i kto jest za nią odpowiedzialny itp. Ogólnie 8 różnych danych, które zapisują się w arkuszach różnych. Pierwsze pole na moim userformie to combobox, w którym wybierasz firmę o ile jest na liście. Arkusz jest tak stworzony,...
No tak, tylko jeśli MatchRequired dam na true w opcjach projektowania to nie wypuści mnie z ComboBox jeśli będę chciał go zostawić pusty. Dodano po 16 Ach teraz już rozumiem :) Przyznam szczerze że nie wiedziałem o takich opcjach. Nie zauważyłem że muszę dać odnośnik zapisujący dla ControlSource. Jeśli chodzi o MatchRequired to muszę to dać w makro...
Tracę orientację. Co chcesz oprogramować? TempCombo_Change(), Worksheet_Change? W Worksheet_SelectionChange, przed 'If Target.Column = 3' masz Exit Sub, więc makro tam nie "dojedzie". Lista dla Combo przypisywana jest prawidłowo...
Najprościej będzie jak "małpka" nagra sobie całą procedurę dla wszystkich lub kilku arkuszy - a tam sprawdzi jak następuje przechodzenie z jednego arkusza do następnego i jak ustawione są właściwości exportu do PDF np. parametr IgnorePrintAreas: Ok, małpka w miarę zna ten parametr i wie co to obszary wydruku itd, ale sprawdziła . Były 4 testy: Plik...
jak to zmodyfikować żeby działało tak jak potrzebuję :?: Z Twojego opisu i symbolicznego przykładu trudno zrozumieć logikę działania arkusza :cry: W pierwszym combo-boksie wybieram z listy np "Przykład 9" - wówczas makro skraca mi listę 1 do jednego wiersza :cry: , a formuły w arkuszu ograniczają także pozostałe dwie listy (odpowiednich dla combobox...
jak zrobić by po wyborze numeru zamówienia w comboboxie i wpisaniu ilości sztuk w textboxie właśnie o tą wartości powiększają się ilość w komórce wiersza w którym jest zamówienie wybrane z comboboxa Zrób powiązane z tym textboxem i comboboxem makro typu Private Sub TextBox1_Change() , które będzie realizowała w arkuszu zmiany ilości :D
zakomentuj w całem programu podobne [syntax=vb] Application.Run "'Stale i stopy - obliczenia.xls'!ATEST.ATEST" Application.Run "'Stale i stopy - obliczenia.xls'!STAL.STAL" Application.Run "'Stale i stopy - obliczenia.xls'!ZAPIS.ZAPIS" [/syntax] Sprawdź czy Excel się zawiesza . rozkomentuj, jeden przez jeden i Sprawdź. Ponadto przyciski na pierwszym...
Witaj -lista -> wybierz ActiveX ComboBox powiedzmy że chcę wybrać po 1 komórce z każdej kolumny [syntax=vbnet]Sub plus1() For Each c In Selection c.Value = c.Value + 1 Next End Sub [/syntax]
Witam, nie mogę sobie poradzić z jednym tematem. Stworzyłem kalkulator w którym jest kilka comboboxów z listami wyborów. I... chciałbym aby makro które wykonuje w danym kalkulatorze różne obliczenia na koniec zmieniło w comboboxie wybraną z listy wartość na inną. Piszac wprost. combobox ma listę wyboru: brak wskaźnik 1 wskaźnik 2 wskaźnik 3 ... pracując...
Poszukuję pomocy w pewnej błahej pewnie sprawie. Napisałem ponizsze makro które pozwala mi na wybranie w combo boxie tylko danych z listy. Wszystko jest fajnie tyle tylko iż wolałbym aby zamiast standartowego komunikatu móc wpisać własny. Z góry dziękuję za pomoc Dodano po 1 Dodano po 1 może pomocny bedzie plik z danymi
Tak jak pisałem w zależności jaki miesiąc wybierzesz to do tego arkusza wpisują się dane wspólny dla wszystkich miesięcy - nie widzisz który miesiąc obsługujesz (suma w polu żółtym też jest wspólna tzn jeżeli coś wstawisz dla stycznia a za chwilę dla lutego to w żółtej kolumnie arkusza dane wartości z tych obu miesięcy zostaną zsumowane). W takim wypadku...
kopiowanie funkcji chodzi mi o przeniesienie do arkusza1 gotowego wzoru bedacego w komorce w arkuszu3, z tym ze, wzor liczy np. mnozac 4 komorki przez siebie w ustalony sposob - czyli wzor. Wzor moze ulec zmianie i zmieniam go w arkuszu3. Dlaczego ? Dlatego ze w arkuszu3 beda inne wartosci 4 kolejnych mnożonych komórek. W arkuszu3 wyliczam sobie współczynnik...
Witam, Jeśli to tylko możliwe BARDZO PROSZĘ o napisanie mi tu na forum przykładowego makra dla takiej oto sytuacji: Utworzyłam w vba formularz, w którym są 2 comboboxy. W pierwszym z nich powinna być lista z kolumny zawierajęcej nazwiska osób. W drugim z nich powinny pojawiać się dane z innej kolumy (np. miejscowości) z tym, że w tym drugim comboboxie...
Widzę, że nie bardzo lubisz makra ;) a wystarczy: 1. makro z WorkbookOpen powtórzyć przy WorksheetActivate (aktualizacja listy Combobox''a). 2. Usunąć instrukcje warunkowe dot. producenta Listę kolorów modyfikujesz w arkuszu "Opcje". Musi być "ciurkiem" (bez dziur). Edit 20:17 - zmieniłem załącznik (Clear brakowało przy Activate)
Proponuję użyć formularza UserForm i tam umieścić te InputBoxy i ComboBox.
Nagraj sobie makro. Parametr 'Filename' jest stringiem, więc poskładaj tekst z ComboBox'ów...
w właściwościach combobox8 usuń zakres z RowSource
potrzebuje pomocy... jak to zbudować bo nie znam takiej funkcji co odsyła to CB lub TB, a zrobić możesz w... to znaczy możesz dostać w zamian uścisk dłoni od mnie. [syntax=vb]application.Goto Reference:=Worksheets("dane do wypełnienia ").combobox1.Select, _ Scroll:=True[/syntax] nie wiem co mam wpisać przed "Combobox" żeby tam odsyłało...
Nie analizowałem dokładnie, bo strasznie jakieś "nieprzyjazne" to makro. 1. Co ma znaleźć się w kolejnych ComboBox'ach? 2. Jakie zadanie ma ta linijka: 'Me.Controls(nazwa).ListIndex = .Cells(i, z).Value' 3. Raptem masz 3 ComboBox'y w jednej ramce. Dlaczego tak potwornie skomplikowałeś procedurę 'UserForm_Initialize'? Powiedz co i jak, to spróbujemy...
Witam (na chwilę) po świętach. Przepraszam za tak późny post ale święta świętami (i karp i choinka :) ) a ja mam koniec roku w firmie i niestety nie mam za dużo czasu. Wiem że pomagałem pisać to makro ale musiałem sobie trochę przypomnieć o co chodziło a to mimo wszystko wymaga czasu. Teraz z pełnym brzuchem (i w domu) mogę trochę pomóc :) Można zrobić...
W załączonym pliku w arkuszu jest Combobox 1 utworzony z poziomu arkusza. Zależy mi na Combobox nazwa "CH", który został utworzony z poziomu makra -VBA.
Dlaczego SQL? W arkuszu "dane" nie ma tabeli w rozumieniu Bazy Danych (Dane>wstaw tabelę). Odwołuj się do prawidłowych nazw. Z drugiej strony, zdaje się, że można to zrobić prościej. Czy chodzi Ci tylko o przypisanie list do combobox'ów? Łatwiej byłoby posługiwać się tablicami. Co z powtórzeniami?
witam ponownie, (at)PRL, dziękuję, makro działa poprawnie, ale kontynuując temat - zaznaczamy OptionButton "litera" oraz w ComboBox'ie "B", a następnie zmieniamy literę na "cyfrę", to w Comboboxie dalej zostaje wpisana wartość "B". Co można zrobić, żeby w przypadku zmiany pola wyboru wartość z listy się zerowała (albo przyjmowała wartość domyślną)?
Po wybraniu w okienku nazwy - chciałbym znać numer wiersza komórki w której znajduje się ta nazwa. Jak to dopisać w makro? Proszę o pomoc.
Zależy jakie pole. Zacznij od nagrania makra wstawiania obiektu i coś już będzie wiadomo.
Niestety nie mogę zobaczyć pliku, nie mogę go nawet pobrać z internetu - admin zablokował. No to teoretycznie: Tak sobie myślę skąd makro ma wiedzieć z którego pliku pobrać dane? Sprawdź czy jest to jawnie określone w RowSource. Nazwany Range też może nie mieć właściwego (pełnego) adresu i próbuje brać z ThisWorkbook. Wyświetl sobie co tam dokładnie...
wypełniam arkusz pierwszy z niego wypełniają się trzy następne odpowiednimi informacjami... I w tym momencie zrobiłbym aktualną listę drukarek i "przydzielił" odpowiednim arkuszom Np w UserForm. [syntax=vbscript]Dim WshNetwork As Object, oPrinters As Variant Dim i As Integer, txtMsg As String Set WshNetwork = CreateObject("WScript.Network") Set oPrinters...
Excel wyświetla Nr błędu, więc możesz go przechwycić i oprogramować warunek. Z drugiej strony - lepiej tak skonstruować makro, aby ustrzec się takich błędów. Np instrukcja warunkowa: If (not) isnumeric(znak_z_klawiatury) przy zmianie, lub tp
Hej :) Jestem zielony jak pietruszka w temacie używania comboboxa oraz VBA, chociaż się uczę. Udało mi się napisać VBA makro automatycznie chroniące skoroszyt przed edycją. Mam jednakże problem z obsługą Combobox. mianowicie: 1. ...Jak sprawić by po wpisaniu/wybraniu wartości z listy móc zatwierdzić pozycję Enter lub Tab, by kursor przeszedł do następnej...
Nigdzie na forum nie mogę znaleźć takiego przykładu. Stwórz go sama. Nagraj makro wyszukiwania i pod argument 'What:=' podstaw nazwę pola... Odnośnie wyszukiwarki forum: 1. "excel vba combobox" - 28 wyników 2. "excel vba wyszukiwanie " - 27 wyników Jest więc w czym przebierać.
Warunek w procedurze już jest, więc wystarczy zamiast Exit Sub dopisać wstawianie wiersza (nagraj rejestratorem) oraz z lekka skorygować resztę. Przyjmij zasadę "Od procedur są moduły i koniec", stąd moja uwaga o kropkach w argumentach Range ;) W kodzie arkusza zapisuje się procedury zdarzeniowe i makra kontrolek umieszczonych w arkuszu, lub jeszcze...
W kodzie formularza zostawiłbym tylko: [syntax=vbscript]Option Explicit Private Sub CommandButton1_Click() ActiveCell = ComboBox1.Value UserForm.Hide End Sub Private Sub UserForm_Activate() Dim r As Range Dim strr As Range With ComboBox1 .Clear On Error Resume Next Set strr = Range("ListaFiltrowana") For Each r In strr .AddItem r.Value Next r .DropDown...
Może zamieść ten arkusz z przykładowymi danymi. Popatrzymy. Rozumiem, że chodzi ci o makro, które zrobi w trzecim arkuszu listę produktów (tylko unikalne nazwy, bez ilości) na konkretny dzień na podstawie dwóch pierwszych arkuszy? Jak wskazujemy dzień, wystarczy stać w odpowiedniej kolumnie?
Witam Makro ma porównywać wartości z ComboBoxa txt1 z danymi w 1 kolumnie arkusza "Rejestr" oraz wartości z TextBoxa txt2 z danymi w 2 kolumnie arkusza "Rejestr". Jeżeli tekst z txt1 jest już w kolumnie pierwszej arkusza „Rejestr” oraz jednocześnie tekst z txt2 też jest odpowiednio w kolumnie drugiej arkusza „Rejestr” to makro...
W załączniku jest procedura "sub elka", która jeszcze wczoraj wysypywała się na 10 indeksie. Przed momentem dorobiłem "resetowanie" ustawień i miałem zamiar zademonstrować przypisanie tablicy do listy (TblToList)... Coś mnie tknęło, spróbowałem wpisać bezpośrednio do listy i... zaczęło działać. Wczorajsze "złe" makro również. Wygląda na to, że ustawienia...
Można przypisywać zakresy w kodzie przycisków.[syntax=vb]Private Sub CommandButton3_Click() ComboBox2.RowSource = "'Wpis'!c8:c20" End Sub Private Sub CommandButton4_Click() ComboBox2.RowSource = "'Wpis'!C25:C29" End Sub[/syntax]Co do drugiej części pytania: Domyślam się, że wartość ma być pobierana z wiersza określonej kolumny. Spróbuj z 'ComboBox2.ListIndex'.
No i to cały kod: Private Sub ComboBox1_Change() End Sub Private Sub UserForm_Initialize() lista1 = Array("Oferta", "Zamówienie", "Specyfikacja", "Pismo", "Protokół", "Reklamacja") ComboBox1.List = lista1 lista2 = Array("mail", "osobiście", "faks", "DHL") ComboBox2.List = lista2 lista3 = Array("Daniel", "Łukasz C.", "Łukasz M.", "Sławek", "Wiesiek")...
Witam serdecznie Mam pytanie i prośbę. Tworzę makro ktore ma mi obliczać zysk lub strate po zainwestowaniu x kwoty przez y lat w funduszu z . http://images45.fotosik.pl/1325/59f9db70... chciałbym to osiagnac za pomoca wymnozenia odpowiedniej kwoty poczatkowej przez odpowiednia "stope zwrotu" I teraz aby dostac sie wlasnie do odpowiedniej...
Pyt.1 Dobrze byłoby od razu zamienić format tekstowy na daty w kolumnie pomocniczej, Np podobną formułką (uzupełnioną o sprawdzenie błędu) =DATA.WARTOŚĆ(PODSTAW(A1;".... Dalsze kroki będą zależeć od tego czy combobox'y masz w formularzu, czy w arkuszu. W pierwszym przypadku w dość prosty sposób wyodrębnisz te,...
Witajcie mam taka sprawę ... Potrzebuje zrobić Exela do celow prywatnych... kwestia tego ze nie wiem jak mam sie za to zabrac ale zacznę od początku. Po 1 w Exelu beda 4 Kolumny pytanie || odpowiedz || kto || kiedy -Pytanie wiadomo odpowiedz tak/nie ( w formie przycisku) kto bedzie wprowadzane recznie ręcznie i kiedy tez Na czym mi zalezy Jezeli bedzie...
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,...
wypełnić combobox combobox zmienna vbnet combobox
sterownika kostrzewa lambda voyager 93c66 odczyt
oczyszczacz powietrza oczyszczacz powietrza
Toshiba TV Firmware Download: Models, Main Board Codes, Official Sources, Vestel, Fire TV, Android TV Nawiew nie działa w Mercedesie W212 350CDI - wentylator działa, brak powietrza
