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ć...
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
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).
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:...
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...
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...
Miesiąc ten jest zapisany w arkuszu "Check point" w komórce K1. Zrobione wg instrukcji ;) No, prawie. Ale wielkość liter nie powinna szkodzić... A w którym pliku jest ta data: docelowym/źródłowym? Może podstaw zmienną (wsSrc lub wsWyn).
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...
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...
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'.
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...
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...
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...
Najpierw popraw pętelki, jak kolega JRV zauważył, bo po wielokroć ukrywasz już raz ukryte pola tekstowe. Czy kod można skrócić ? Pewnie odrobinę tak, ale po co, zyskasz raptem parę linijek. Może tylko odrobinę zyska na czytelnnści, np.: 1. Utwórz jedną dodatkową procedurę, w której utworzysz dwie pętle 'For...Next', jeden warunek 'If' i jeden 'Select...
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...
(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...
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:...
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....
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?
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...
Użycie właściwości "Text" jest w takim razie jedyną alternatywą. No cóż. Zawsze twierdziłem (patrz ponad ryjkiem), że "Lojalnie uprzedzam... się nie znam". Prawie Ci się udało to udowodnić. :D Ale, że prawie robi wielką różnicę to spytam: A co w przypadku jeżeli zmienna użyta przez Kol. Ziolekk o nic nie mówiącej nazwie "szukam" (tak się wołało przy...
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ć...
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...
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...
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...
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...
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...
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...
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....
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...
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,...
... 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...
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...
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...
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...
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...
Możesz też użyć takiego zapisu, chyba częściej spotykany, tylko należy pomiętać o dolarach w adresie komórki: Overflow . Możesz użyć typu Long, co znacznie rozszerzy ten zakres, lub nie deklarować ich w ogóle / zadeklarować je jak Variant, pozwalając kompilatorowi (?) samemu dobrać odpowiedni typ. Teoretycznie będzie to mniej wydajne niż bezpośrednia...
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...
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...
Ź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 takim przypadku wystarczy przypisanie skopiować "z góry na dół"... [syntax=vb] If Cells(wrs, 2) = Empty Then Cells(wrs, 2) = ile ElseIf ile > 0 Then Cells(wrs, 3) = -1 + ile / Cells(wrs, 2) Cells(wrs, 2) = ile 'tutaj End If[/syntax] Edit: Widzę, że zmieniłeś post. Chyba się już połapiesz, że nowa ilość to wartość zmiennej 'ile', stara to Cells(wrs,...
Witam, jak w większość w dziale stawiam swoje pierwsze kroki z tworzeniem makr (a w sumie to z ich nagrywaniem). Mam plik z dwoma arkuszami, w pierwszym arkuszu wybieram z listy rozwijanej jeden z trzech rodzajów zapalników (komórka E3) a następnie wpisuje ich liczbę do komórki H3. Chciałbym aby makro kopiowało wartość z komórki H3 do odpowiedniej kolumny...
treść ... również zmieniała się tak jak adresaci ... ... by jedna część tabeli (nagłówki) zawsze była stała a jedynie druga (dane) się zmieniały I. Brak przykładu obrazującego układ danych w arkuszu II. ' Mail_TG ' do poprawki: 1. Nazewnictwo pewnych zmiennych - tutaj ' rng '. ' Rng ' to właściwość obiektu ' Sort ' - nie stosuj jako nazwy zmiennej...
Wybierając np. w JB - GA zostają wiersze z GA, dodatkowo dokładając np. w Zakładzie - A, zostają z tych przefiltrowanych wierszy tylko A Czyli "proste" wybieranie, bez operatorów i przyrównań, tylko jedno kryterium na kolumnę całość jest zrobiona, tylko nie mogę znaleźć błędu :) ... jeśli jest zrobiona, to dlaczego nie działa ... :) ... Wg mnie ......
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...
I czy powinienem dodać jeszcze z menu "project -> addreference->OleDb?? Oledb jest z biblioteki System.Data, to ją musisz dodać przez AddReference, chociaż dla domyślnego projektu już jest dodana. Ty musisz jedynie zadeklarować przestrzeń nazw: wiesniak wspomniał - jako że wyświetla ona tylko jedno pole z tekstem. W takim wypadku można zastosować prostszą...
Poniżej wklejam moje nagrane makro. Tworzę tabelę aby rozwiązać problem różnych ilości danych. Poniżej kroki które muszę wykonać. Filtruję, kopiuję i wklejam jako wartości. Nowe skoroszyty muszą mieć nazwę danej jaką filtruję i muszą być zapisane w folderze, w którym zapisany jest plik na którym pracuje. Ponieważ w Criteria1 dane są różne, nie mogę...
Witam, W jaki sposób mogę sprawdzić, czy komórka np. F17 należy do zakresu np. A3:S90? Potrzebuję tego do instrukcji warunkowej. Problem w tym, że wiem co chcę zrobić, ale nie do końca znam składnie. Do zmiennej "kolumna" mam przypisaną literkę kolumny, w której dana wartość się znajduje. Chcę przeszukać 5 zakresów i zobaczyć, w którym z nich się zawiera,...
Prawie dobrze. Sama pętla jest OK. Może źle liczysz kolumny (Offset). If kom2.Value <> "kk" And kom2.Offset(0, 13).Value = "tak" Then tu: warunkiem kopiowania jest dowolna wartość z wyjątkiem tekstu "kk" w kolumnie "I" oraz tekst: "tak" w kolumnie "V" (kol. "I"+13), wielkość liter ma znaczenie. Jeśli możliwe jest wpisanie...
Witam, Mam problem, muszę utworzyć użytkowy arkusz excela, w którym w jednej tabelce wpisując jednen z parametrów ( parametry 1m, 2m, 1z,2z,(...),6z ) przypisuja sie kolory komórkom znaznaczając, że gdy wpiszę 1m - zaznaczają sie 3 komorki, 2 m - 6 komorek, a kazda liczba przy parametrze z odpowiada ilosci komorek 1z - jedna komorka, 6z - komorek. W...
... 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...
No dobrze, ale czy plik np. plik "1_Dane_Styczeń 2019_G.xlsm" jest jeden jedyny o takim schemacie nazwy, czy też może się zdarzyć np.: "1_Dane_Styczeń 2018_ F .xlsm", "1_Dane_Styczeń 2018_ G .xlsm", "1_ InneDane _Styczeń 2019_ A .xlsm", "1_Dane_Styczeń 2017 _ C .xlsm", itp. ? Jeśli nie i reszta jest stała, to zastosuj np.: 'Trim', 'Val', 'Fix', 'Abs'...
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...
Witam Na wstępie chciałbym podkreślić że stawiam pierwsze kroki w programowaniu VBA, proszę o wyrozumiałość. Pracuję obecnie nad funkcją która kopiowała by wartość z arkusza "Data Entry n" do arkusza "Data Entry n+1" gdzie n to liczba zmienna. Załóżmy że mam 3 arkusze : " Data Entry 1" " Data Entry 2" " Data Entry 3". Chciałbym kopiować komórkę "R2"...
Witam, Muszę zrobić kilkadziesiąt podobnych wykresów (ja je muszę zaprojektować – inne osoby będą te wykresy robić / wypełniać danymi ... albo ja je zrobię wszystkie). Na tych wykresach kolor znacznika musi być zależny od nadanej skali i przypisanych do tej skali kolorów w RGB. W załączeniu przykład zrobiony „ręcznie”. „Zielone”...
Widzę, że nie jest to kwestia pojedynczego błędu. Nie wiem z czego to wynika, ale kompletnie nie akceptujesz zasad języka. Nie można być tak upartym. W przypadku tej procedury do zmiennej Target przypisywany jest obiekt typu Range (zakres) ze wszystkimi własnościami. Range.Address jest identyczny z Selection arkusza w momencie uruchomienia procedury...
Witam Chodzi mi o to żeby makro VBA dopisywało mi do zapytanie SQL wartość z komórki (a docelowo z wielu komórek). Doszedłem do takiego kodu: [syntax=vbscript]With ActiveSheet.ListObjects.Add(SourceType:=... Source:= _ "ODBC;DSN=DTB;UID=USER;;SERVER=DTBS;", Destination:=Range("$C$1")) _ .QueryTable .CommandText = Array( _ "SELECT INVENTORY_PART.PART_NO,...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Nie wiem czy wspominałem już o tym ale moja praca dotyczy sterownika S7-300. Rejestrację pomiaru można wykonać na dwa sposoby. Pierwszy, łatwiejszy, to użycie bloczka regulatora PID. Ja używałem FB58 bo jest tam wbudowany autotuning i w dodatku jest szeroko opisany w instrukcji Siemensa. Edytując odpowiedni data block (przypisany do bloku funkcyjnego...
Mam być może prosty problem ale od kilku godzin nie jestem w stanie znaleźć rozwiązania szukając w zasobach sieci. Poniżej przykładowy kod dla programu gdzie wprowadzamy liczbę płatności a następnie kwoty płatności. Liczba płatności zadeklarowana jako Integer a kwota jako Single. Wpisując w InputBox zamiast wartości liczbowych jakiś tekst program się...
Hej, Mam w excelu 102 kolumny, z których każda ma 30 wierszy. Każda komórka jest wypełniona literą K lub W. Muszę porównać każdą kolumnę z każdą i w zależności od tego jakie kombinacje się pojawiają dodać odpowiednio punkty w inne miejsce. Moj kod poniżej: [syntax=vbscript]Sub Obliczenie() Dim wi As Long Dim wj As Long Dim i As Long Dim j As Long Dim...
Czy po każdym wywołaniu rozkazu Set należało zwolnić pamięć? Prawdę powiedziawszy nie jestem do końca pewien, może ktoś inny wie lepiej:) Wg źródeł na necie, np. raz w całym kodzie, ale już przypisanie Set x = Worksheets(WorksheetName) wykonujesz wielokrotnie w pętli, tam, przy większe ilości arkuszy - jeżeli faktycznie pamięć nie jest zwalniania -...
Nie analizowałem Twojego kodu, jest ciut mało czytelny :) Mały przykład z Dir [syntax=vb]Sub przyklad() Dim ws As Worksheet, wkb As Workbook sciezka = Application.DefaultFilePath & "\" plik = Dir(sciezka & "*.xls") Do While plik <> "" Set wkb = Workbooks.Open(plik) For i = 1 To wkb.Sheets.Count On Error Resume Next 'piernik wie gdzie tego...
Kurcze, jeżeli chodzi o VBA to jestem zaczynającym samoukiem. Nie znam reguł stosowania wszystkich funkcji. Mogę prosić Cię o rzucenie okiem na mój kod i poradzenie w jaki sposób użyć Twojej funkcji? [syntax=vbscript] Private a As Integer 'zmienna globalna Private haslo As String Sub MsgBox_error1() 'wyświetla omunikat o błedzie MsgBox "Wypełnij wszystkie...
Co do tego kodu to nie bardzo kumam o co ci tam chodzi i na czym polega problem. Z tym drugim zadaniem to jest banalna sprawa, jeżeli dobrze zrozumiałem treść zadania. Z tego co zrozumiałem to w każdej iteracji cząstka przesuwa się o 1 w jednym z czterech kierunków. Zatem tak jak opisałem w kodzie poniżej mamy 4 możliwe stany i za każdym razem losujemy...
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...
Rozważania "na sucho" ... mało kto je lubi ... łatwo się pomylić i narobić "głupot", przydałby się jakikolwiek załącznik pod te wzory ... ale spróbujmy ... Kod nr 1 : 1. " zakres As Variant, rate As Variant " Co to jest 'zakres' i 'rate' ? Jeśli są to zakresy kmórek, to po co 'Variant' a nie ' Range ' ? Nie jesteś pewien z czym masz do czynienia ? Przecież...
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...
Moje poszukiwania w Googlach nie dały rezultatu. Na tym forum również nie znalazłem odpowiedzi pomimo że są tematy zbliżone do mojego problemu. Co ciekawe na innych forach również nikt nie wie jak to zrobić. Chciałbym Was tu prosić o pomoc jak to można zrobić. Chodzi mi o zbudowanie makra do zliczania z komórek znajdujących się w innych plikach. Założenia...
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
1. Spróbuj zmienić deklaracje na późne wiązanie, tj. zmień na "As Object" 2. Zadeklaruj brakujące zmienne => co to jest 'Ost_w' i do czego służy prócz deklaracji i przypisania wartości ? 3. Zmień kod zgodnie z wcześniejszymi uwagami kolegów, tj. wyrzuć poniższe z pętli na sam koniec makra: samej komórce wartość "3" nie będzie jednocześnie wartością...
Ad.1 W pętli dot. Excela masz błąd przypisania For Each X in WszystkiePliki plik = X.Path X= Range("A1").Value Next Do zmiennej "X" zostaje przypisana ścieżka i nazwa pliku, a następnie wartość z komórki "A1". Logika podpowiada, że wartość zmiennej ma być zapisywana w kolumnie A od pierwszego wiersza. W takim wypadku należałoby zadeklarować licznik,...
przypisać zmiennej wartość excel przypisać wartość excel przypisać zmienna wartość
potencjometr klimatyzacji uszkodzić roleta plyta indukcyjna siemens
lodówka bosch termostat lodówka bosch termostat
Czerwona lampka w nawilżaczu Blaupunkt AHS803 - przyczyny i rozwiązania Peugeot - komunikat "wyrównaj poziom oleju" - przyczyny i rozwiązania