Albo tak. W przykładzie użyłem dwa pola kombi AciveX i troszeczkę kodu dla ComboBox1.
błąd w linijce: "syntax error" ActiveChart.SetSourceData Source:=Sheets("Arkusz1").Range(cells(2, 2), cells(zakres, 2)) , PlotBy :=xlColumns gdzie "zakres" to zmienna typu integer przypisana przez : zakres=combobox1.value
Witam, w Excel VBA zrobiłem sobie formularz w ktorym dodałem ComboBox zawierający dane z arkusza 1 od B2 do B10. Po wybraniu pozycji w ComboBox program wstawia mi tą wartość do komórki F9 w arkuszu 3. Chcę teraz wstawić zależność, że jesli w Combobox zostanie wybrana pozycja nr1 to do kolejnej komórki zostanie pobrana inna wartość już z arkusza 2. Mam...
Witam, Zwracam się z kolejną prośbą o pomoc;p a więc zacznę od początku. Zrobiłem stany magazynowe, ze zdjęciem oraz przyjęciem towaru oraz historie zmian magazynu, z różnymi danymi. Problem polega na tym, że mogę jednorazowo zdjąć jeden produkt z magazynu. Nie wiem jak zrobić by z comboBoxa można było wybrać 2 bądz więcej numerów katalogowych oraz...
Jak zmodyfikować poniższy kod, aby ukrywał wiersze, które nie równają się wartości wybranej w Combobox: Zmiana operatora nie dziala. [syntax=vbscript]Private Sub cmdProcess_Click() Dim wsOPC As Worksheet Set wsOPC = Worksheets("OPC") Dim cCostCenter As Range Dim lWiersz As Long Dim lKolumna As Long Dim i As Long, j As Long Private Sub cmdProcess_Click() Dim...
Nie mogę sobie poradzić z załadowaniem listy z godzinami do ComboBox. W Excelu stworzyłem ładną listę z sformatowanymi godzinami: 1:00 2:00 itd., niestety w oknie zobaczyłem to: 945334 Mam taki kod programu: Private Sub UserForm_Initialize() ComboBox1.AddItem "" For x = 0 To 11 Step 1 ComboBox1.AddItem (Arkusz5.Cells(10, x...
Dzień dobry, Przygotowałem, a raczej zaadaptowałem na podstawie opisanych przykładów kod pod swój arkusz excela. Mam 2 problemy: 1. Potrzebuję w arkuszu "material cost" z którego pobierane są dane dopisywać pozycje - w związku z tym potrzebuję aby combo odświeżało sobie dane przy otwarciu (lub jakiś trigger do odświerzania po wpisaniu nowych danych)...
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...
Witam potrzebuję waszej pomocy. Próbuję stworzyć UserForm z dwoma listboxami które bazują na jednym textboxie i jednym comboboxie Pierwszy listbox służy mi do znalezienia użytkownika, nastepnie po wybraniu pozycji w comboboxie (nowy/istniejący) chciałbym aby w drugim listboxie pokazywało mi zamówienia tego klienta (lub nie jeżeli jeszcze nie dokonał...
Całkiem prosto (przynajmniej dl kogoś kto zna trochę VBA): - stworzenie comboboxa z nagłówków kolumn to pętla For Each po zakresie z danymi i dodawanie poleceniem AddItem przy aktywacji formy: [syntax=vb]Private Sub UserForm_Activate() ComboBox2.Clear For Each c In Worksheets("Baza").Range("B1:F1") ComboBox2.AddItem c Next c End Sub[/syntax] - zakładając,...
Proszę powiedzcie mi w jaki sposób mogę z powrotem załadować danego pracownik z listy aby móc go prze edytować lub usunąć? Z samą opcją dodawania nowego pracownika poradziłem sobie. Może krótko opiszę jak to zrobiłem (zrobiłem to po swojemu tak jak potrafiłem). Jak już wprowadzę wszystkie dane pracownika to w przycisku 'Dodaj' mam kod:
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, Mam mały problem w Excelu. ComboBox1 ma załóżmy 10 wierszy, klikam, żeby rozwinąć listę. Na obecną chwilę .Value = "" ponieważ nic jeszcze z listy nie zostało wybrane. 1. Jeśli wybiorę 8 wiersz myszką, .Value = "osmy wiersz" a ComboBox1_Click() wykonuje mi np funkcję WybranoOsmyWiersz() czyli zaszły zdarzenia Change oraz Click 2. W sytuacji jeśli...
A może jeszcze byś napisał czy robisz winforma czy może w Excelu coś skubiesz... ogólnie zdefiniować ilość dni możesz tak... [syntax=vbnet] dim Next100Day As Date = DateAdd(DateInterval.Day, 100, DateTime.Now) [/syntax] to sto dni do przodu z minusem będzie do tyłu, możesz użyć również miesięcy lub lat... [syntax=vbnet] dim Next2Month As Date = DateAdd(DateInterval.Month,...
Nie rozumiem dokładnie o co Ci chodzi z "aby nie było można ich zmieniać"... Jeżeli ustawisz styl na DropDownList to nie będziesz mógł ich zmieniać, tylko musiał wybrać z listy. Podejrzewam że piszesz to w Visual Basic z pakietu Visual Studio? Ja z Visuala to tylko ten Excelowy a to zdaje się inna składniowo wersja, ale spróbuj czegoś takiego (może...
W załączniku przykład dla kolumny D. Użyłem pól kombi ActiveX, zwróć uwagę na ich właściwości. Kod jest prosty, więc nie powinno być kłopotów z adaptacją dla kolejnych ComboBox'ów.
Wyjaśnie jeszcze raz w czym problem. Gdy uruchomię plik excel'a uruchomia się userform, w którym trzeba wypełnić pola. Po wypełnieniu pierwszego pola i przejścia do combobox'a, excel się zawiesza. Plik umieszczony na forum jest bez makr bo one nie tworzą problemu. Nie jestem informatykiem a grzebie w makrach dla samego siebie aby ułatwić pracę sobie...
Witam. Po raz kolejny zwracam się do Was z problemem, tym razem z bardziej kosmetycznym, który bardzo mnie irytuje. Poprzez procedurę w VBA: Set addedRow = tbl_DoPowolania.ListRows.Add With addedRow .Range(2) = ComboBox1.Text .Range(3) = Format(TswPesel, "00000000000") .Range(4) = Format(ComboBox2.Value, "yyyy-mm-dd") .Range(5) = Format(ComboBox3.Value,...
Ostatnio zacząłem bawić się vba w excelu i niestety chwilowo utknąłem ;) mam dwa problemy: 1) Mam userforma w którego wpisywane są dane i po zatwierdzeniu przyciskiem "zapisz" wszystko trafia do odpowiedniego akrusza w excelu. ww. userform wywoływany jest przez przycisk na w innym arkuszu (commandButton) Private Sub cmbDodajDefekt_Click() DodajDefekt.Show...
Wartości do listboxa wpisuję funkcją AddItem.Pierwsza kolumna to wartość zmiennej, druga i trzecia to wartości z comboboxów. [syntax=vb] With Me.listbox_karata_zapisu .AddItem "" .Column(0, lp - 5) = lp_pracownika .Column(1, lp - 5) = Me.ComboBox1.Value .Column(2, lp - 5) = Me.ComboBox2.Value End With[/syntax]
Nie rozumem o co chodzi z tym leczeniem kanałowym i co to ma do dolnej kolumny... Ogólnie ciekawy pomysł... dolna kolumna... Biorąc kod marcimix wyszło takie coś: [syntax=vb]Type iCell Row As Integer Col As Integer End Type Sub ColorNext() Dim C As iCell Dim r As Range Dim tmp As Range Dim step As Integer C.Row = Excel.ActiveCell.Row C.Col = Excel.ActiveCell.Column...
Czy jest możliwe aby w liście combobox 'SIEC' były nazwy wszystkich arkuszy oprócz START i BAZA Nie mogę sobie z tym poradzić. Jak zrobić aby po dodaniu nowego arkusza znalazły się tam nagłówki z arkusza BAZA od B1 do G1 Zapis danych do arkusza BAZA (wszystkie) i odpowiednio do tego arkusza który zostanie wybrany w Combobox -SIEC. Znalazłem podobny...
Nie mam dostępu do excela. Wieczorem sprawdzę. Dziękuję już teraz. Pozdrawiam serdecznie. Dodano po 3 Super. Dziękuję bardzo. Tyle się namordowałem, żeby utworzyć całą tą zależność Comboboxów, a na to co Ty zrobiłeś bym nie wpadł. Jeszcze raz pozdrawiam. Szkoda, że nie mam już punktów bo bym jeszcze parę dorzucił. :D
Mam w moim pliku dodane okno (na poniższym screenie) na podstawie którego drukuję arkusz z odpowiednimi danymi. Ogólnie to wszystko jest OK. Poniżej jest kod który wszystko przesyła do arkusza. Okno pozwala na wydruk pojedynczej listy dla jednego pracownika. Jak zrobić aby okno miało możliwość wydrukować taki sam arkusz dla wielu pracowników?
Kliknąć mogę w ComboBoxa i formatkę. Po wklejeniu na żywca w formatkę czy Comboboxa wywala błędem tym co ostatnio. Podeślij plik to zobaczę czy u mnie działa. Sprawdzam na excelu 2010 (office 2010) Dzięki
[syntax=vbscript]Private Sub ComboBox1_Change() [F1] = ComboBox1 End Sub Private Sub OptionButton1_Click() Me.ComboBox1.RowSource = "Arkusz1!A1:A5" [F1] = ComboBox1 [E1] = "litera" End Sub Private Sub OptionButton2_Click() Me.ComboBox1.RowSource = "Arkusz1!B1:B5" [F1] = ComboBox1 [E1] = "cyfra" End Sub Private Sub UserForm_Initialize() Me.OptionButton1...
Witajcie, mam UserForm pod który podłączam listę opcji wyboru, po której wybraniu potrzebuję: 1) przejść makrami do opcji exportu do Pdf gdzie w kol. A Arkusza "ID" mam nazwę zakresu, a w kol. C i D mam nr stron do exportu tego zakresu - na to wstępny pomysł mam jak niżej ale nie działa. 2) przejść makrami do dynamicznie zmieniających się zakresów które...
Hej! Zupełna zagwozdka mam takie dane jak w załączniku i teraz tak potrzebne mi sa 3 pola wyboru i jesli w pierwszym polu wybiorę określną wartość to będzie to ograniczenie dla 2 pozostalych pól jesli w drugim wybiorę określony projekt, to w trzecim combobox powinny pojawic sie do wyboru tylko wartości odpowiednie dla wybranego projektu czyli wybieranie...
Ten błąd (przy włączeniu przycisku) dotyczy zapewne inicjalizacji okna. We wczesnych wersjach - które sygnalizowałeś - aby ominąć podobny błąd musiałem skierować makro na arkusz DANE przy "zerowaniu" danych. Sporóbuj więc poprawić kod inicjalizacji (w VBA dwukliknij w obszar okienka i popraw): Private Sub UserForm_Initialize() Arkusz_Nazwa =...
Witam. Mam prośbę o udzielenie pomocy. Mam pewien plik który filtruje mi listę na podstawie dat. W tym kodzie mam zastosowany taki warunek: [syntax=vb]If DateValue(ark.Cells(i, 7)) < Date Then[/syntax] ...ten warunek filtruje mi daty które są już nieważne. Ja potrzebuję zastosować jeszcze inny warunek do filtrowania tak aby przefiltrowało mi daty...
Niestety kod nie działa. Może źle wyjaśniłem co chcę osiągnąć. Ogólnie to poniższy kod działa poprawnie. Wkleja mi grafik z symbolem jaki jest wyświetlony w oknie ComboBox (o nazwie "labGrafik"). Jednak w kolumnie "DQ" są np. dwa grafiki o symbolu "A" i wklejany jest ten pierwszy od góry, dlatego dodałem kolumnę "DP" w której wpisałem grupy, i te grupy...
Witam! mam następujący problem: za zadanie mam stworzyć tabelę(formularz wyboru w vba) z ciepłem właściwym różnych produktów. Wszystkie dane mam wypisane w komórkach excela. Tabela ta ma być w formie formularza vba gdzie wybierając odpowiedni produkt z comboboxa będą się wyświetlać odpowiednie dla niego dane. Moje pytanie jest następujące: Czy muszę...
Spróbuj tak: np w Excel 2007 wejdź w zakładkę Deweloper - włącz Tryb projektowania - otwórz Właściwości - znajdź ListFillRange i wprowadź tam cały zakres jaki ma się ukazywać w Twoim Comboboxie :idea:
przy większej ilości leci błąd. Ogranicz do jednej. Np jeżeli daję Zmiana funduszy to powinno ustawić zmienną wiersz na 24 Przypisanie masz w kodzie przycisku 'OK' (indeks plus liczba w linii: 'wiersz = ComboBox2.ListIndex + 8'). Zadeklaruj zmienną publiczną typu integer i w kodzie przycisków nadawaj wartość (8 lub 25 zdaje się). Następnie podstaw...
No to coś nie gra. Za wpis do comboboxa "cmbTemat" odpowiada kod: cmdDodaj2_Click (lub w tej procedurze zmieniasz zmienną i ) Jeżeli dalej nie będzie grało załącz wyrywek z arkuszem bo nie widzę możliwości by to źle działało.
Nie da się tego na wprost poprawić. Kłopot polega na zastosowanej przez ciebie metodzie sprawdzania czy wprowadzone dane są prawidłowe. Metoda exit textbox'a jest wykonywana wcześniej niż następuje przyciśnięcie (w tym przypadku Visual najpierw odczyta zdarzenie exit a dopiero później resztę) a to odbiera jakikolwiek manewr "wyłączenia" z pod obsługi...
Witam, mam taki problem chciałabym aby wyszukiwarka zrobiona za pomocą vba przeszukiwała zakres kilku arkuszy "zestawienie" i "zestawinie2" i szukaną frazę umieszczała w arkuszu "szukana_fraza" poniżej kod który przeszukuje tylko jeden arkusz: [syntax=vbscript]Private Sub SZUKAJ_Click() 'do określenia przeszukiwanej kolumny wykorzystamy indeks listy...
Cześć, mam problem.. mianowicie mam listę 80 comboboxów wg których użytkownik docelowo ma wybierać błędy, następnie za pomocą buttonów, obok ma wybrać zdjęcie ilustrujące dany problem. W poniższym kodzie z wykorzystaniem kształtów wyskakuje błąd, Nie widzi ścieżki zdjęcia : zdj = (wskazplik_metodaexcel) & i wg VB wynosi 1, gdzie faktycznie wartość...
Jezeli chodzi o stworzenie samego wzoru faktury i wypisywania danych za kazdym razem na piechote, to szkoda czasu i energii. W sieci jest dosc darmowych narzedzi do tego celu. Natomiast jezeli chce sie stworzyc naprawde narzedzie do fakturowania z baza danych, formatowaniem wydrukow itd. to bez VBA sie nie obejdzie. Pisanie/tworzenie arkusza na zasadzie...
Ja napisać w kodzie formułę SUMIF, tak aby została sumowana kolumna AH dla zadanego kryterium poprzez ComboBox, np. mam listę pracowników i dla danego pracownika z kolumny K który pojawia się kilkakrotnie ma zliczać skalę i podać na koniec wynik dla danej osoby Próbowałam ale ma błąd i nie potrafię sobie z tym poradzić With suma .Formula = "=SUMIF(K2:K,"...
Witam.Czy znajdzie się jakaś życzliwa DUSZA? Jestem początkującym w VBA. Można powiedzieć, że dopiero zaczynam i dlatego proszę o pomoc. Jakiś czas temu znalazłem w internecie plik, który przesyłam w załączeniu. Oczywiście plik ma małą ilość danych. Znalazłem też w internecie makro do wybierania drukarek i wstawiłem je pod ComboBoxa. Teraz można wybierać...
Hm może tak. Panowie lesławek, oraz clubs - bardzo dziękuję za pomoc. Oba zaproponowane rozwiązania działają, nauczyły mnie kolejnych nowych rzeczy i jestem za to bardzo wdzięczny. Gdyby ktoś był ciekawy jak wygląda finalny kod (być może jest więcej takich laików jak ja), to podaje go poniżej: [syntax=vbscript] Option Explicit Dim tbl() As Variant...
Nie chciałbym pokazywać całości xlsx. Pola Kombi nie są definiowane w VBA a są wstawione bezpośrednio w arkusz. Nie wiem jak się do nich odwołać w vba. Szukam po omacku i natrafiłem na combobox.itemindex. Jak odwołać się jednak w vba do formantu wstawionego bezpośrednio do arkusza?
... wartosc2 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N") '14 wpisów Te wartości trzeba wprowadzać ręcznie ? Mam ich w bazie ponad 30 - numerów oraz nazw ... Przecież miał to być tylko przykład :D ... pewnie że nie trzeba ... :D Do przejrzenia zmiany w " ini ", " dopisz_do_bazy " oraz " usun_z_bazy " 828986 :D Dla wielu...
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ą)?
Witam, Jestem początkująca w programowaniu VBA w Excelu. Mam problem z okodowaniem Comboboxa tak aby w zależności od wyboru z listy kopiował mi zakres komórek z innego Arkusza do drugiego w konkretnie wskazane miejsce, W załączniku dołączam plik .xlsm z moim przykładem. Chciałabym żeby w arkuszu MP HOLT-WINTERS po wyborze z ComboBoxa: np. "V"Excel kopiował...
Dzięki za pomoc. Chciałem przy pomocy Comboboxa umieszczać w n - arkuszach w wybranych komórkach dane. Ma to zapobiec błędnym wpisom. Obecnie działa to na liście rozwijanej. Przy dodaniu funkcji tablicowej .Jeszcze jednej :) Excel zaczyna mulić. Dlatego szukam wsparcia w VBA.
Zrobiłam wyszukiwanie Właśnie, zrobiłaś wyszukiwanie za pomocą Comboboxa, wynik jest w komórce Linked Cell (właściwość comboboxa), to nie jest typowa lista rozwijalna w komórce.
Witam No właśnie zrobiłem tak jak napisałeś: [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.Windows.Forms; using System.Data.OleDb; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1()...
Dzięki. Jeśli chodzi o nazwy zakresów to wszystkie je łączy to że zaczynają się od słowa 'nam' a dalej to są nazwiska a to co podałem powyżej to tylko przykład. Pomyślałem o innym rozwiązaniu. Dodałem okno UserForm które będzie mi służyć do ustawiania opcji i między innymi dodałem okno ComboBox i mam pytanie, jakim kodem po inicjalizacji okna UserForm...
j = ActiveCell.Row zamiast j=9 To najlepiej dołączyć plik Excel ze np. (dane klientów fikcyjny)
Kolego thestreet . Nie można tak bezmyślnie "szastać kodem" gdzie popadnie. Polecam zapoznanie się z podstawami nie w kodzie formularza (patrz Link wyżej, zasięg zmiennych). 2. Kolega JRV sugerował przypisanie i tylko przypisanie wartości zmiennej w zdarzeniu ComboBox. Na chłopski rozum: Combobox powinien mieć wypełnioną listę po otwarciu formularza....
Napisz coś co bardziej rozjaśni problem. W tytule piszesz że, chcesz dodawać nowy wiersz do arkusza a w treści że, będziesz dopisywał dane. To co w końcu? Jak pobierasz zmienne z UserForm i co z nimi robisz? Pozdrówka Chodzi o dodawanie informacji o nowym filmie, czyli wpisanie liczby porządkowej, tytułu, rozmiaru, czasu trwania, lokalizacji i informacji...
Witam, Czy można w VBA excel stworzyć formularz z kilkoma comboboxami, ale w taki sposób, aby po wybraniu w pierwszym ComboBoxie dowolnego pola(wariantu), automatycznie w drugim polu CB ilości pól(wariantów) była ograniczona? Dla przykładu podam: w pierwszym ComboBoxie mamy do wyboru np. rośliny ( Owoce, Warzywa, Kwiaty, Drzewa), w drugim polu CB pojawia...
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,...
Dzień dobry, Przy wykorzystaniu Userform wprowadzane są dane da arkusza. Arkusz traktowany jest jako swego rodzaju baza danych. Jedna z kolumn tworzy nazwany dynamiczny zakres: "PESELW" [ =PRZESUNIĘCIE(DaneOsobowe!$B$2;0;0;ILE.N... ]. Następnie ten zakres wykorzystany jest do wygenerowania listy w combobox: [syntax=vbscript]...
Wszystkiego Najlepszego w Nowym Roku. Postanowiłem się odezwać chociaż nie wiem, czy będę Ci w stanie pomóc. W mojej "przygodzie" z VBA do zapisywania wyników w pamięci zawsze stosowałem tablice jedno, dwu i rzadziej trójwymiarowe. Z drugiej strony projektując formularz zamówienia z danych przechowywanych w Excelu poskładałbym je (zamówienie) stosując...
Cześć, Stworzyłem formularz z kilkoma ComboBox'ami. Pierwszy box pobiera dana z zakresu używając RowSoruce. 1. Czy istnieje możliwość automatycznego wpisania danych do pozostałych box'ów po wybraniu danych w pierwszym? 2. Czy udało by się to zrobić z TextBox'ami - tzn. jeden CB, reszta TB? 3. Chciałbym mieć jeszcze możliwość edycji danych i dodawania...
mógłbym prosić o zrobienie takiego samego pliku na combobox ale na podstawie danych które zamieszczam w pliku poniżej. Tym razem plik MAGAZYN został zaimportowany do arkusza TECHNOLOGIA. Wszystko inne tak samo (tylko więcej danych) dzięki i myślę że będzie dobrze
Excel. Jest właściwość MatchEntry ale to nie rozwiązuje problemu. Owszem mogę wprowadzić dowolny tekst ale chciałbym zachować równocześnie możliwość rozpoznawania czy tekst jest nowy czy istniejący na liście. Przy ustawieniu MatchEntry na None kązdy tekst, niezależnie czy istnieje na liście czy nie ma ListIndex = -1. Także chciałbym móc korzystać z...
Mam akrusz excela i kontrole ActiveX (lista rozwijalna) Chcialbym zeby ta lista zmienila pozycje i rozmiar na taka jak podana w kodzie, za kazdym razem jak otwieram arkusz. Przypuscmy przesuwam obiekt (liste) w dowolne miejsce akruszu i zapisuje zmiany w pliku. Po ponownym otworzeniu pliku, kontrola powinna powrocic na miejsce okreslone w kodzie. Na...
Można jeszcze inaczej to zrobić. Najpierw wpisanie do ComboBox nazw zakresów komórek w arkuszu:[syntax=vb] Private Sub UserForm_Initialize() Dim zakres As Name For Each zakres In ActiveWorkbook.Names ComboBox1.AddItem zakres.Name Next If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0 End Sub [/syntax] Po wywołaniu zdarzenia Change ComboBox1 pokazane...
Nie tak znowu daleko (w takim przypadku) Excelowi od Access'a... No właśnie Adam nie wiedziałem, że w Excelu jest: [syntax=vb]ComboBox1.Column(1, ComboBox1.ListIndex)[/syntax] Człowiek uczy się całe życie.:)
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]
1. Tak. Wiersz równy wartości zmiennej wrs , usuwasz. Tu trzeba będzie przepisać listę ComboBox'a, lub po prostu zamknąć i otworzyć ponownie uForm 'Wybierz'. 2 & 3. Z tego wychodzi, że: a) jeśli zaznaczono 'BrakTłumaczenia (chk górny) - email i 'Archiwum' b) jeśli 'BrakWarunków' - email i 'Dane_Przetworzone' c) w pozostałych przypadkach 'Dane_Przetworzone'...
Witam, Mam dziwny problem z kodem w VBA. Próbuję przy pomocy kodu w VBA otworzyć inny plik(skoroszyt) aby pobrać dane do wyświetlenia w Combobox, niestety gdy dochodzi do próby otwarcia pliku wyświetlany jest komunikat błędu 1004 - pliku nie znaleziono lub ma inną nazwę. Jeśli napiszę tak: Workbooks.Open ("D:\Users\...\Documents\Nowy folder\xxx.xlsm")...
Chodzi mi o to żeby po wybraniu z combobox „Bezpański” pies wprowadziło mi do komórki liczbę 35, a gdy wybiorę Domowy poda mi jakąś liczbę z komórki L8. - to działa pod funkcją: =JEŻELI(D8="Bezpański";35;JEŻELI(D8="Dom... TEGO NIE POTRAFIĘ DODAĆ DO GÓRNEJ FUNKCJI ale jeśli wybiorę status psa Bezpański i rodzaj „Szarpey”...
Proponuję zakupić jakąś książkę do VBA Excela i przeczytać na początek kilka pierwszych tematów... [syntax=vbscript]Dim Dziewczynki As Long[/syntax] a potem [syntax=vbscript]If Dziewczynki = True Then[/syntax] Słyszałeś o typach zmiennych?
A mógłbyś mi trochę podpowiedzieć w którym miejscu mam umieścić dany kod? W Module czy w kodzie z UserForm - akcja po naciśnięciu przycisku? Sorry za takie "głupie' pytania ale jestem totalnie zielony. Modules-> Formularz: [syntax=vbscript]Sub Zapisywanie() ActiveWorkbook.Save 'Metoda Save zapisuje obiekt, nasz kod powoduje zapisanie zmian w aktywnym...
W arkuszu OCENA trzeba zacząć wpisywać nazwisko. Proponuję na literę K. PO wyborze nazwiska reszta ładnie się uzupełnia. Problem w tym, że jeśli cokolwiek próbuję zmienić w arkuszu lista znów się rozwija. Dziś zauważyłam, że próbując zmienić coś w innym pliku excel, jeśli ten z załącznika jest otwarty, też mam ten problem. Zdarzenie Change działa zbyt...
Niestety w tej próbce nie ma amazona, Billa ani Jeffa, więc trudno się dogadać. :( Chcesz wybrać takie nazwiska (z J), które mają w A żądaną nazwę firmy? Dlatego musisz zmienić w warunku J na A (bo tam jest nazwa firmy), ale nadal dodawać wartości z J (nazwisko) i uzyskasz co chciałeś. To właśnie miałem na myśli, pisząc, że J raczej nie. No chyba, że...
aby tylko ta fraza się ukazywała Do takiego działania Comboboxa konieczne byłoby utworzenie specjalnego kodu VBA :cry: - wydaje mi się jednak, że niewarta "skórka wyprawki" :D Zgodnie z właściwościami Comboboxa - każda wpisana litera w polu edycji wywołuje w reakcji - system podpowiedzi :!: , a lista wyboru ustawia się z pierwszym wyrażeniem spełniającym...
Pomogło ale tylko przy wyborze z Combobox 1 i 2, jeśli natomiast szukamy nie po nazwie elementu ale po indexie to w pierwszym momencie po wybraniu pierwszych znaków z Combobox 3 jest dobrze ale wystarczy cofnąć się np. Esc lub Backspace i wtedy klawiszami "Góra", "Dół" uzyskujemy błąd (Zdjęcie 1) a polem przycisku Comboboxa 3 - listę z Comboboxa 1 (Zdjęcie...
A może zastosować inne rozwiązanie? Zastanawiam się i kilku rzeczy nie mogę rozgryźć. Zapytam: 1. Czy plik to jeden miesiąc, czy więcej? 2. Jeżeli nie, to co będzie za pół/półtora roku? 3. Czemu ma/miał służyć pierwszy arkusz? Zakładając, że plik to miesiąc można ten arkusz wykorzystać do przedstawiania wyników wyszukiwania (stosując listę, combobox,...
Przecież parametrem funkcji wyboru (np Range) jest adres w postaci tekstowej. to ja wiem ale jakoś nie działa jak potrzeba Dodano po 11 Przecież parametrem funkcji wyboru (np Range) jest adres w postaci tekstowej. to ja wiem ale jakoś nie działa jak potrzeba moje wypociny: Application.WorksheetFunction.CountA(Ran... + 1 If ComboBoxw.Text = "xxx"...
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...
nazwa jest taka sama a może to wynikać z tego że na moim UserForm jest więcej elementów niż tylko sam ComboBox ??
Witam, Czy można na formie dynamicznie tworzyć etykiety (Label), ListBox, ComboBox w zależności od zadanej liczby? Ta liczba zawsze będzie zmienna. Poniżej kod programu, który dla 5-ciu etykiet nazwanych Label1....Label5, wstawionych do UserForm, w pole Caption wpisuje odpowiednie wartości z Excel'a. [syntax=vb] Dim i As Integer ' zmienna pomocnicza...
To że się poddałem nie znaczy że nie próbowałem. Uwierz że próbowałem ale nic z tego mi nie wychodzi. Nawet wkleiłem kod w takiej postaci jak zapodał kolega Aldrin do UserForm_Initialize ale to powoduje że ten kod jest już inicjowany w momencie jak kliknę na przycisk którym otwieram okno UserForm. A gdzie tam żeby kod był inicjowany po otwarciu listy...
Program wywala sie z powodu k1, k2, k3 i k4, ale nie w głównym kodzie, tylko jak poniżej: brak deklaracji k1: k1 = IIf(ComboBox23.ListIndex > -1, ComboBox23.ListIndex + 1, -1)
miesiace to inne zagadnienie :) tam beda automatyczne podliczenia godzin pracy w danym miesiacu jesli chodzi o szczegoly. Czyli szukasz unikatowych wartości dla JobNo & Description? Bez względu na daty, czasy, etc? tak, bez wzgledu na inne wartosci unikatowe wartosci maja sie znalesc w tblList na podstawie unikatowych danych pobieranych z tabeli HoursDetails...
Witam, własnie zaczałem uczyć sie programować w VBA (od 2 dni) wczesniej mialem tylko styczność z pascalem :P, zaczałem od pisania formularza i napotkałem następujące problemy: 1.W zależności od wybrania pola w ComboBox, chcialbym zeby sie wpisywał tekst w txt boxa 2.jaka bylaby przykładowa funkcja na wyczyszczenie Komorek (txt boxy/combo boxy) 3.Jak...
Nie rozumiem dlaczego VBA, ale skoro ma być... Po pierwsze: do wyszukiwania osoby nie możesz oddzielać imienia i nazwiska. Zrobiłbym sobie kolumnę pomocniczą łączącą teksty z kolumny C i D, z niej pobierał dane do listy. Masz "załatwione" dwie rzeczy: jasną identyfikację osobnika oraz precyzyjne wyszukiwanie /indeksowanie. Po drugie: w formularzu wyszukiwania...
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?
A jak zablokować tą "komórkę" żeby po odpaleniu programu i wybraniu np. pozycji Nowak nie było można usunąć ani zmienić tekstu ? bo jak odpalam program i wybieram Nowaka to mogę usunąć litery i wpisać własny tekst. [syntax=vb]ComboBox1.Style = fmStyleDropDownList[/syntax] [syntax=vb]Range("b1").Value = UserForm1.ComboBox1.Value[/syntax] [url=]Automatyczne...
Podmień ComboBox na ListBox...
No tak jest ok. Ale ten kod ma zasadę działania taką samą jak dodawanie. Ja chcę usuwanie zrobić które nie będzie miało związku z filtrowaniem. Ten kod usunie wpis pod warunkiem jeśli przefiltruję pracowników. Usuwanie ma polegać na tym że zaznaczam w ComboBox przodowego którego chcę i bez żadnego połączenia z filtrem po kliknięciu na usuń ma z kolumny...
Hmm, zdaje się, że jest: dodatkowe umiejętności, kwalifikacje - wymagania Gdyby jeszcze zapisane były "bazodanowo"... Np na podstawie zdefiniowanych list (combobox, listbox, poprawność danych)
Bez VBA raczej się nie da. Jeśli mowa o VBA, ComboBox ma tę właściwość. W przykładzie uForm uruchamiany przez podwójne kliknięcie. Możesz wybrać z listy lub wpisując pierwsze znaki. Zatwierdzasz Enter'em. Spróbuj, może to jest to...
If CheckBox1 And TextBox1.Text <> vbNullString And ComboBox1.ListIndex <> -1 Then
Po mojemu wystarczą dwa, formularzowe ComboBox'y ze wspólnym łączem.
Najwygodniej byłoby zrobić UserForm z dwoma ComboBox'ami, gdzie na podstawie wyboru pierwszego (nazwa arkusza) wypełniało by się drugi danymi z dwóch kolumn. Bardzo uprościłoby ujednolicenie nagłówków. Oczywiście jest to do zrobienia w obecnej postaci, ale nie we wszystkich arkuszach występują obie poszukiwane kolumny. Co w takim przypadku?
Witam Dziś mam takie zadanie. Mam userform którego zadaniem jest ocena dostawcy. Jest w nim 8 comboboxow ( kryteriów) oceny a w każdym combo są po trzy parametry słowne oceniające dostawce w danym kryterium, np.: dla kryterium jakość Obslugi w combobox jest: odpowiednia, zadowalająca i niezadowalajaca. I te maja swoje odpowiedniki 2, 1 i 0. - do średniej...
u mnie po ściągnięciu działa poprawnie. Ale zaczynam mieć wrażenie że nie damy rady tego zrobić bez odpowiednio zaprogramowanego comboboxa
Witam ponownie. Mam w moim pliku poniższy kod którym po aktywacji okna UserForm wpisuje zakresy do odpowiednich okien. Wszystkie listy z zakresami są umieszczone w pomocniczym arkuszu. Jak zrobić żeby kod pobierał zakresy nie z arkusza ale z osobnego pliku tekstowego? Do jakiego pliku tekstowego wrzucić moje zakresy i jak przerobić kod żeby te zakresy...
Zakisił Ci się jakiś błąd w arkuszu "podział na kolory". Przynajmniej w tym załączonym pliku. Trzeba było zrobić kopię i to dopiero w Calc (!). Moja propozycja: -ComboBox, wypełniany przy WorkbookOpen z arkusza "Opcje" (możesz sobie dopisywać kolory) -dodatkowa gałąź w instrukcji If sprawdzająca Indeks ComboBoxa -dodatkowy warunek z wykorzystaniem InStr...
.MatchRequired = True (przy nie spełnionym warunku chciałbym aby wyskakiwalo okienko z instrukcja co nalezy zrobic) A przykład Ms z pomocy podręcznej się nie sprawdza ? [syntax=vba] Private Sub UserForm_Initialize() Dim i As Integer With UserForm1 .Caption = "Window" With .CheckBox1 .Caption = "MatchRequired" .Value = True End With With .ComboBox1...
Zrobiłem na formularzu, bo Excel niewłaściwie pokazywał Combobox po użyciu AddItem.
Witam, Jak mogę zapisać kod w VBA abym po wypełnieniu formularza otrzymał jeden kompletny MsgBox? Formularz składa się z kilku ramek a w nich kilka optionbutton, combobox, itp. W tej chwili wyskakuje mi kilka MsgBoxów stworzonych poprzez If, ElseIf a chciałbym aby te wszystkie dane wyświetlały mi się w jednym MsgBoxie po wciśnięciu przycisku akceptującego...
Dzień dobry. Borykam się z problemem użycia funkcji Application.Match przy wyszukiwaniu numeru PESEL i zwróceniu numeru rzędu w tabeli. Problem polega na tym, że funkcja ta świetnie sobie radzi, jeżeli PESEL zaczyna się od zera (np.: 01111111111), ale gdy jest już 111111111111, to wywala błąd, że nie znaleziono. Podczas próby ręcznego wpisania PESELu...