A1 - imię B1 - =Jeżeli(A1="Anna";5;0) C1 - 3 D1 - =B1*C1 i wszystkie komórki skopiowane "w dół".
Funkcja jest piękna. Osobiście lubię też Select Case, a i InStr chętnie używam. Wszystkie te elementy są tam zawarte i dobrze ze sobą współpracują. Moje prywatne zdanie: jeżeli jest kilka grup znaków, to można przypisać im unikalne kody (1, 2, 3, itd.) i umieścić je w tablicy zgodnie z ASCII znaku. To jest działanie jednorazowe. Jeśli chcę sprawdzić...
Jeśli zaznaczasz dwie komórki (lub więcej), to obiekt Target jest złożony z 2 lub więcej komórek, więc też jego właściwość .Value jest tablicą, a Ty ją chcesz przypisać do pojedynczej zmiennej zadeklarowanej jako String. Nie dziw się zatem, że jest Type mismatch. Taką sytuację należy przewidzieć i odpowiednio obsłużyć. Sposobów rozwiązania jest kilka:...
Witam! Kolejny raz potrzebuję wsparcia - bardzo proszę bardziej zaawansowanych użytkowników o pomoc. W Skoroszycie mam tylko 1 arkusz, w którym w polach od A1 do E25 posiadam wypisane dane (ciąg liczb pomieszanych z literami o długości od 10 do 16 znaków) które chciałabym aby po dwukrotnym kliknięciu przenosiły się do pierwszej pustej komórki w wierszu...
Witam, Mam pytanie VBA Excel. W pliku może być różna ilość zakładek. W każdej zakładce w kolumnie A mam wartość "1" chciałbym żeby makro zamieniało ją na wartość "2" czyli takie klasyczne zaznacz A:A i CTRL+H zamień "1" na "2" Pewnie da się napisać taką prostą pętle, która przejdzie przez wszystkie zakładki nie ważne ile ich jest i w każdej zrobi: zaznacz...
Hej. Potrzebuje pomocy z przepisywanie danych do innego wiersza : Opis sytuacji : Mam przykładowo komórkę B2 - w tej komórce co jakiś czas zmienia się wartość (live) - połączenie ze sterownikiem Chciałbym, aby ostatnia wartość została zapisana do innej kolumny przykład E2 i później kolejne zmienne zapisywały się poniżej E3,E4,E5 itp.. Czy ktoś może...
Witam, tworzę właśnie arkusz składający się z 3 kart - w każdej z nich jest ten sam formularz tylko w innych językach. Zależy mi aby po wpisaniu w karcie podstawowej (z formularzem w jezyku polskim) pewnych wartości w wybranej komórce, te same wartości były przypisywane w "bliźniaczej komórce" ale w innej karcie np. z językiem angielskim http://obrazki.elektroda.pl/7310796500_1...
Witam, mam problem z automatyczną numeracją w załączonym pliku.Chodzi o to że w arkuszu 1 i kolejnych 31 ( numer arkusza oznacza dzień miesiaca) automatycznie przydzielić numer w komórkach. d166, m166 itd jeżeli wartość w zakresie E175:e290 (itd) jest>0 formułą nie dam rady- nie można przewidzieć który zakres będzie zerowy myśle ze makro załatwiło by...
witam serdecznie. Chciałbym aby w tym fragmencie makra zamiast pogrubionej cyfry 30 była moja zmienna "double". Wie ktoś może jak mam ją dodać zamiast tej cyfry? dim N3 as double (...) .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=moreoptions!$X$2:$X$ 30 " (...)
Witajcie, mam pewien problem na którym zatrzymałem się robiąc mój dokument w Excelu. Sprawa jest w sumie banalna ale nie wiem jak to przejść. Chcę wpisać w 4 komórki pod sobą, 4 liczby sumujące się do 10. Np: 2.75 3.25 2.5 1.5 I teraz, chcę zrobić tak, że zmieniając jedną z tych liczb, pozostałe zmieniły się tak, aby suma wszystkich nadal wynosiła 10...
Musisz to odwrócić. Najpierw zapamiętanie nazwy pliku: zapisz w ukrytym arkuszu wartość '.SelectedItems(1)' (path+filename) i użyj jako argument 'Open' (Append lub Output) przy zapisywaniu. Jeśli wszystko odbywa się w jednej sesji, możesz przypisać do zmiennej globalnej. String do zapisu (wiersz arkusza) poskładaj w wewnętrznej pętli For. Żeby było...
Dopisać zmienną, odszukać ostatni wiersz w arkuszu wsWyn, przypisać do zmiennej (podobnie jak robiłeś z 'FinalRow') i w pętli zamiast "i" używać tej zmiennej wsWyn.Cells( i , kol1) = wsSrc.Cells(i, kol) zwiększając jej wartość przy każdym przebiegu (zmienna=zmienna+1)
Chodzi o to (ostatni post)? http://www.elektroda.pl/rtvforum/topic11... W miejsce komentarza Twoje makro wystarczy wpisać np: Worksheets("Arkusz1").Range("A2:A5").Fin... 21*").Select Lub przypisać do zmiennej wartość komórki A1. strSzukana = "*" & CStr(Cells(1, 1)) & "*" i wprowadzić poprawkę: (...).Find(strSzukana).Select p.s. Excel...
Witam Proszę o informację czy za pomocą kodu VBA można przypisać do zmiennej ścieżkę + nazwa arkusza Za pomocą kodu [syntax=vb]NowaZmienna = Application.GetOpenFilename(FileFilter:=... Excel (*.xls), (*.xls)")[/syntax] mogę przypisać do zmiennej ścieżkę do wskazanego pliku. Ale czy da się przypisać do zmiennej nazwę arkusza z którego chcę importować...
To jest mój pierwszy program w VBA To nie gra roli, najważniejsze żebyś rozumiał co się dzieje. Wyobraź sobie (lub wyrwij z zeszytu i opisz) trzy kartki. W nagłówku 1-szej napisz "Faktury (baza)", na drugiej "godziny (WSD2)", na trzeciej "Wynik(WSD)" Pytaj i odpowiadaj. 1. Z której kartki pobieram dane dla zmiennej 'szukany'? Wg rozmiaru tabelki narysowanej...
Trochę i ja się uczę VBA wraz z autorem (i nie nadążam odpowiadać - co prawda nie śledzę non stop) ale... Jeżeli chcesz przypisać adres komórki do zmiennej to musisz to zrobić inaczej: cel = ActiveCell.Address Value to wartość Później możesz skorzystać z Range(cel).Select ActiveSheet.Paste Druga rzecz: Z tą formułą jest odwrotnie (przynajmniej...
Sprawdziłem działanie kodu i jest drobny błąd, który łatwo wykryć podglądając zmienne. Masz wpisane:[syntax=vb] With Sheets("Arkusz1") Do While .Cells(wrs, 1) <> Empty If .Cells(wrs, 1) = liczba Then dr = .Cells(wrs, 2) End If wrs = wrs + 1 Loop End With [/syntax] Ponieważ .Cells(wrs,1) jest wartością liczbową a zmienna, którą nazwałeś liczba...
Witam. Poradźcie Koledzy, w jaki sposób nr CommandButton'a zamienić na zmienną. Tzn. w procedurze wywołanej przyciskiem "CommandButton10" zmienna powinna mieć wartość 10 Z góry dzięki za pomoc
VBA Excel: Jak pobrać literę wskazanej kolumny i zapisać do zmiennej string . Potrzebuję ułożyć prostą funkcję, która pobierze literę wskazanej kolumny i zapisze ją do zmiennej String, a z drugiej komórki pobierze wartość =mojaFunkca(D8;A1) i np. je do siebie doda. Funkcja będzie oczywiście bardziej rozbudowana - to nie jest istotne, tylko nie wiem...
Jeżeli chcesz przypisać wyłącznie wartość do zmiennej nie używaj "set". Set bardziej wykorzystuje się do przypisania do zmiennej jakiegoś objektu np arkusza, okienka itp. owszem i textboxa ale nie w celu wykorzystania tylko wartości do niego wpisanej. Wystarczy: wie = Textbox6 Bez "Set". Szanuj pamięć komputera. A jeżeli już wykorzystujesz Set to na...
Gdzieś widziałem przykład wykorzystujący funkcję API SendMessage . Ale jak to z API na różnych maszynach może być różnie. Popatrz na taki przykład Dim temp1 As String Dim temp2 As String Sub Makro() temp1 = Cells(1, 1).Value ' zapamiętanie starej wartości dla Undo Cells(1, 1) = "coś" ' wpisanie nowej wartości do komórki...
Rozumiem... Taki efekt uzyskasz jedynie wstawiając obrazek (ActiveX). Ale to nie jest obiekt dynamiczny. Można do etykiety punktu przypisać wartość kąta (ze zmiennej lub komórki arkusza).
Generalnie otwieram plik i na nim pracuje w vb.net nie w vba No i są takie różnice, że nie da się tego "implementować" ? Funkcja 'IsNumeric' występuje w vb.net ... nawet 'CStr' ... Kwestia tylko przypisania obiektu 'zakres/kolumna' do zmiennej / wyliczenia konkretnego adresu ... Według schematu dla 'oExcel/oBook/oSheet' się nie da (?), np.: [syntax=vb]...
W tym przykładzie ścieżkę do pliku określasz w zmiennej file_mrf. Tutaj wyświetlane jest okienko ze wskazaniem pliku, ale możesz też tej zmiennej przypisać konkretną wartość i nie pokazywać okna wyboru pliku. Odpowiada za to parametr "Connection" W linku poniżej masz opisane co i jak podać w parametrach. https://learn.microsoft.com/en-us/office...
Jeśli nie potrzebujesz wartości pola tekstowego poza procedurą, to nie przypisuj do zmiennej. Zrobi się bałagan. I tu się z kolegą zgadzam. Proponuję więc usunąć przypisanie "x" i zamiast niego wpisać "TextBox1.Text". Zmienna jest niepotrzebna. Dodano po 15 jest tak: x = TextBox1 For i = 1 To ThisWorkbook.Worksheets.Count If Sheets(i).Name...
Najprościej będzie chyba wykorzystać plik tekstowy jako "pośrednik" między programem napisanym w VB a skoroszytem Excel'a. Dość prosto można zapisać /odczytać i przypisać wartości zmiennym do/z pliku tekstowego zarówno w VB, jak i VBA Excel'a. Poczytaj o instrukcjach VB: Open, Write, Input i bazach danych w VB. Możesz posunąć się także krok dalej wykorzystując...
Pytania uściślające: - w której wersji Excela ma to działać (jeśli w kilku wersjach, to podać najstarszą), - jak rozumieć te kategorie wagowe, np. pozycja [syntax=text]0,9 kg 3,38[/syntax] oznacza wagę powyżej 0,4 kg do 0,9 kg włącznie, czy od 0,9 kg do 1,4 kg wyłącznie? - czy ustalenie kategorii wagowej ma służyć jeszcze do czegoś innego poza ustaleniem...
Tak na pierwszy rzut oka. 1. Nie ma typu zmiennej "Float". Tablice deklarujesz zwykle jako "Variant" lub nie wpisujesz typu i VB przyjmie typ domyślny, czyli "Variant" wlaśnie. 2. Liczby ułamkowe w VB zapisujemy stosując kropkę (0.2 a nie 0,2) 3. Przypisanie wartości zmiennej "ostatniWiersz", Range("a1") brak cudzysłowu i wszędzie gdzie składasz stringi:...
Zmiennej 'lastRow' oraz 'lastColumn' przypisujesz wartość z ActiveSheet i wykorzystujesz jako liczniki pętli przeszukującej sht... Przypisanie powinno być wewnątrz pętli 'For Each sht In ThisWorkbook.Worksheets'.
Cześć jak w takim razie policzyć komórki ? Recznie będzie ok ponieważ Ja wiem że zdarzenie "1" = np; 3 więc zaznaczam 3 komórki i kolor sie przypisze ale excell widząc wartość 3 dla zdarzenia "1" zaczynając od jakiegość zdefiniowanego początku sam powinien zaznaczyć 3 kolejne komórki więc jak ro zrobić ? Robert
Więc tak: Z pierwszym problemem już sobie poradziłem :) Mam pole kombi :Widok--->formularze--->pole kombi w polu kombi mam kilka możliwości wyboru: -wybór1 -wybór2 -wybór3 wybieram "wybór3", chciałbym żeby to co wybrałem zostało "zamienione" na określona wartość tzn.(wybór3=3333) a następnie wartość "3333" została zapisana jako zmienna, którą mozna...
Wartość można przypisać do zmiennej, tylko kiedy, przy jakim zdarzeniu, na jakich zasadach? Tak nieśmiało domyślam się, że przy usunięciu z kolumny "Łączna kwota", przepisujemy do "Kwota wypłacona". Zgadłem?
Wstaw w kod arkusza "Wydatki" i kliknij w "Zapisz" [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ostWrs As Long 'warunkiem działania makra jest adres scalonej komórki (tej z tekstem "Zapisz") 'zwrócony przez zmienną Target If Target.Address(0, 0) = "E18:E19" Then 'sprawdzamy, czy wymagane pola są wypełnione /przy okazji...
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...
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....
Popatrz tutaj: https://stackoverflow.com/questions/2402... https://stackoverflow.com/questions/4734... Do arkuszy można odwoływać się albo po ich nazwie, albo po numerze. Można też sprawdzić ile jest arkuszy w skoroszycie. Proponuję...
Mam taki problem. Chcę porównać dwie wartości - jedna wartość to czas obliczany z liczby za pomocą formuły w komórce Komórka A1 = wpisana wartość np. 6 - formatowanie komórki "liczbowe" komórka B1 - wpisana formuła "=A1/24" - formatowanie "Czas" - efekt 06:00:00 Teraz VBA wpisuje do komórki C1 wartość obliczaną wg kodu: zmienna_czas_komorka_A1= Cells(1,...
Zmienna o nic nie mówiącej nazwie "szukam" jest numerem części jaką użytkownik chce pobrać z magazynu i jest zadeklarowana As String. Jeśli chcę przypisać zmiennej wartość w ten sposób: szukam = Pobieranie.partnr.Text To program wciąż nie wyszukuje pożądanej nazwy. Udało mi się ominąć ten problem, przypisując dwóm komórkom wartości z textboxów w formularzu,...
(at) adamas_nt tak jak napisałem w poście publikując moje makro. Miałem już gotową procedurę wczytywania plików txt z innego projektu, więc prościej było mi ją dostosować do wymagań autora wątku niż analizować jego kod i wprowadzać w nim zmiany ;) EDIT: (at) adamas_nt w Twoim kodzie brakuje przypisania zmiennej row wartości 1 po wczytaniu ostatniej...
To jest tzw. problem XY. Zadajesz pytanie nie na temat faktycznego problemu, który chcesz rozwiązać, tylko na temat wymyślonego przez siebie sposobu rozwiązania tego problemu, sposobu który nie jest właściwy. Kod, który podałeś w załączniku jest powtórzony ileś tam razy - czy to jest konkretna liczba powtórzeń, czy zależy od liczby danych? Nie jest...
Pisałem, żebyś przeanalizował. Zwykle polega to na przejściu kodu krok po kroku (klawisz F8). W przypadku wieloelementowej pętli możesz wpisać za nią polecenie Stop lub umieścić zakładkę (klawisz F9) Ustawienie kursora "nad" zmienną w czasie wykonywania kodu, pokaże jej aktualną wartość. http://obrazki.elektroda.pl/4616950700_1... Czasem...
... Co do pytania czy odnajduje sie w kodzie, to w końcu sam go napisałem i dla mnie jest czytelny, choć wygląda na zagmatwany przez ilośc zmiennych i funkcji if, to spełnia swoja rolę idealnie ... ... Program działa bez zarzutu, tak jak pisałem wcześniej ... Wybacz mój "sceptycyzm", ale wątpię. W kodzie, który zamieściłeś (Sub KCKW): 1. Brak jest...
Witam, Mam taki problem, bo niestety nie znam się na VBA, a chciałbym sobie ułatwić życie i z automatu wysyłać maile. Mam szablon w excelu z danymi, mailem oraz zmienną wartością procentowa i przypisanym do tym zdaniem. Czy dało by rade zrobić takie makro, które bierze z arkusza adres e-mail i maila z teksem z komórki wysyła automatycznie w momencie...
Poprawiony kod, zmienne masz opisane, więc pozostaje przypisać do nich odpowiednie wartości (makro nie sprawdza czy arkusze o zadanych nazwach istnieją w skoroszycie): [syntax=vb]Sub kody_RegEXP() Dim sShSrc$ 'nazwa arkusza źródłowego Dim lRowSrc& 'od którego wiersza sprawdzać dane wejściowe Dim sCol$ 'kolumna z danymi wejściowymi Dim sShDest$ 'nazwa...
tak mi się wydaje również, mam jedną wartość tylko N11, źle zakładam a tabelkę powinnam bez funkcji zrobić i zapisać w szablonach???? Ciężko mi przewidzieć co chcesz uzyskać nie widząc całego zagadnienia. Ale z tego, co zrozumiałem, liczysz średnią z iluś tam zmiennych w tabelce i tą funkcją IF chcesz zakwalifikować pacjenta ("ucznia") do jakieś grupy....
Wartości ujemne: Najlepiej skorygować przy imporcie, wystarczy kilka poprawek w istniejącym makro[syntax=vb]Sub kopiuj_z_pliku() Dim kom As Range Windows("plik importu.xlsm").Activate 'wskazane wybranie właściwego arkusza Range("A2:K1000").Select Selection.Copy Windows("rozliczanie palet.xlsm").Activate Sheets("Import").Activate 'dodałem Range("A3").Select...
A gdzie masz zadeklarowane wartości x i y ? Bo w tej chwili te zmienne są puste, więc wynik zawsze będzie 0 i bez błędu. Funkcja nie przyjmuje też żadnych argumentów - co więc jest mnożone? Poza tym poleceniem Resume Next wznawiasz wykonywanie makra - które w przypadku błędu powinno się chyba zakończyć? Ja bym tą linijkę usunął... Jeżeli na sztywno...
Są zdefiniowane. Procedura polega na kopiowaniu z jednego pliku danych zawartych w kilku kolumnach i doklejeniu do innego pliku. Po wklejeniu makro ma sformatować datę w pierwszej kolumnie.... Makro jest bardzo rozbudowane i ciężko mi będzie wszystko pokazać. Dodano po 3 Rodzaj błędu to: Run-time Error '6': Overflow U mnie, po przypisaniu wartości...
Dzień dobry. Bardzo proszę o pomoc w rozwiązaniu pewnego problemu z funkcją WYSZUKAJ.PIONOWO, z którym niestety nie poradziłem sobie jak również nie znalazłem odpowiedzi na forum. Napisałem makro, które w kolumnie AV ma podać wyszukaną wartość z zakresu kolumn AC:AD, która odpowiada szukanej wartości (wartość "A" - znajdująca się w kolumnie AC) a z...
Niech zgadnę - ten kod z dodatkowym kopiowaniem 7 komórek w każdym wierszu działa strasznie wolno i chcesz zrobić to na raty? Tak czy inaczej: na końcu makra trzeba przechować numer ostatniego wiersza z pliku źródłowego, a skoro i tak coś jest przechowywane, to można też zapamietać numer ostatnio wpisywanego wiersza w pliku docelowym. Wartości te można...
Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...
Źle definiujesz tablicę - tak nie można. Na początku tylko ją zadeklaruj: Dim tablica() As Double Następnie jak już makro przypisze wartość do zmiennej "wiersz" (wiersz musi mieć jakąś wartość) to dopiero wtedy ją przedefiniuj: ReDim tablica(1 To wiersz, 1 To 5) I dopiero wtedy z niej korzystaj - patrz przypisanie wartości do AA itd. I jeszcze jedna...
W Workbooks_Open przypisz datę zmiennej. Np ostData=Date-1 'dla wczorajszej W procedurze zdarzeniowej szukaj maksymalnej w 4-tej kolumnie adam = Application.WorksheetFunction.Max(Co... Porównanie (adam < ostData) zdaje się już wpisałeś. Wartość daty dopasuj eksperymentalnie.
Wzorowałem się na pliku z dwoma zmiennymi, który działa idealnie. Dodałem trzecią zmienną i wszystko się posypało Zwróć uwagę, że: 1. W pliku "wzorcowym" istniejące tam dwa warunki działają "na krzyż", tzn., że jeśli jeden z nich = "Wszystkie", to sprawdź wartość drugiego i jeśli ten jest inny jak "Wszystkie" to wykonaj kryteria przypisane do tego...
Analizowałeś to makro? Przyjrzyj się co przypisujesz do zmiennej "multi" i to przed otwarciem pliku źródłowego. Nie powinno być With DoSkop.Worksheets("AKKO"&#... Set reg1 = .Range("a2:a41000")... itd Jeśli filtrujesz, to ustal maskę: fileFilter:="Pliki Excel (*.xl*),*.*," Po mojemu: Albo zostaw to (poprawione) kopiowanie...
Jak już wspomniałem pomysł jest kolegi szaleniec . Kluczowa jest zmienna "maxOd", przechowująca Nr pierwszego wiersza paczki. Makro cyt: "Leci" po kolumnie B, aż znajdzie różną wartość. W tym momencie zmienna "i" ma przypisaną wartość ostatniego wiersza paczki no i mamy zakres. W następnej linii wyszukujemy najmniejszej daty w tym zakresie i przypisujemy...
Próbowałem użyć Private Sub Worksheet_Calculate(ByVal Target As Range) i to skleić z kodem: [syntax=vbnet] Option Explicit ' Zmienna przechowuje aktualną wartość komórki A1 Dim vStaraWartosc As Variant Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Jeżeli zaznaczamy komórkę A1 ' wtedy przypisz zmiennej wartość tej komórki If Target.Address...
przypisać zmiennej wartość excel przypisać wartość excel przypisać zmienna wartość
lodówki bosch opinie oscyloskop cyfrowy próbkowanie czujka garazu
perfecta seypa wykaz schematów
Brak wirtualnej klawiatury w Spacetronik S-22 - przyczyny i rozwiązania Radio Blow 9930 - brak reakcji na przyciski
