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
Nie wiem, czy to w ogóle możliwe. Zmienna nie jest obiektem, w związku z tym nie ma właściwości (interesująca nas name ) i może mieć tylko wartość. Żeby nie "zaśmiecać" sobie głównej procedury napisałbym funkcję, w której umieściłbym wszystkie możliwe nazwy zmiennych z przypisanymi wartościami i wybierał przez Select Case. Np Sub test() Dim...
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, 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...
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...
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)
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...
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...
Witajcie. Mam dwie tabele T1 i T2. T1 ma dwie kolumny N (wartość liczbowa zmienna) i DP (data zmienna). T2 ma trzy kolumny Data (data zmienna), N (jw), W (waga zmienna). W T2 wartości N występują w co czwartym wierszu, ponieważ pod każdym "głównym" wierszem występują trzy podwiersze (wartość N można wpisać też w każdy podwiersz jeśli trzeba). Potrzebuję,...
ad.1 Przy zdarzeniu Change ComboBox'a sprawdzany jest każdy znak wprowadzany z klawiatury. Jeśli sprawdzany ma być tylko pierwszy, pierwszym warunkiem będzie Len(NazwaCombo.value)=1, następnie porównujesz (w pętli) z listą. Najprościej wstawić polecenie opuszczenia pętli przy pozytywnym wyniku porównania, a warunkiem kontynuowania kodu zrobić licznik_pętli...
Poza tym naprawdę powinieneś jeszcze raz przejrzeć kod i zastanowić się nad nim, przykładowo fragment: [syntax=vbscript] For licznik = 1 To petla numer = 25 ' Jakiś numer, np. 25 '... Application.DisplayAlerts = False Workbooks.Open Filename:="\\Zeiss-2016-08\kckw\0 sampling\" & numer & ".xls" Application.DisplayAlerts = True '... ' ###################################...
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...
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,...
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...
Zmienna "nazwa" nie ma wartości... Umieść przypisanie przed ifem nazwa = Sheets(1).Range("B3&quo... & ".xlsm" Cały string możesz uprościć do postaci "C:\Documents and Settings\xxx\Pulpit\Nowy folder\" & nazwa
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...
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...
Ź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...
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,...
W miarę odporne na zmienna strukturę pliku wejściowego: Dodano po 18 Zmien OR na: If p > 0 And d > 0 Then Dodano po 5 Masz z opisem, to będziesz w stanie sam poprzerabiać: [syntax=vb]Sub WczytajPlik() plik = "C:\Plik.txt" Open plik For Input As #1 Sheets("Arkusz1").Select Line Input #1, l p = InStr(1, l, "|") 'pierwsze wystąpienie '|' d = InStr(p +...
W zasadzie wszystko miałeś dobrze (przynajmniej formalnie), z wyjątkiem liczby Pi, którą trzeba zapożyczyć z Excela. Dodałem tylko nagłówek i deklaracje (nie są konieczne, ale lepiej jak są, bo zabezpieczają przed niektórymi błędami). Algorytmu nie sprawdzałem, zresztą nie podałeś danych, a istotne są tu jednostki. Widać tylko, że zmienna Obr jest...
Witam serdecznie, Jestem nowym czlonkiem forum, natomiast posty sledze juz od dluszczego czasu. Sa mi niezmiernie pomocne przy programowaniu w ww. jezyku. Niestety dopadl mnie jeden problem, co prawda nie jestem swietnym ani zawodowym programista, lecz totalnym amatorem, wiec problem moze wydac sie banalny dlatego prosze o przebaczenie. Problem mam...
Hej, Mam problem ze zrobieniem cennika za magazynowanie i wysyłkę towaru. Może ktoś z was jest w stanie mi pomóc, choćby wskazówką jak się za to zabrać. Muszę w arkuszu zrobić cennik który pozwoli mi na automatyczne wypełnianie komórek odpowiednią ceną. Problem kategorii rozmiaru rozwiązałem za pomocą formuł ORAZ i JEŻELI kilkakrotnie zapętlonych. Każdy...
kol = Range(Rows.Count, Columns.Count - 3) To ma byc komorka w dolnym prawym rogu wszystkiego arkuszu? If nz = 3 Then czas W tej postaci 'czas' ma byc procedura (Sub czas()) Poniewaz to zmienna (Dim ...) trzeba przypisac wartosc (czas = "cos") Dodano po 5 Rows.Count - to liczba wszyskich wierszy na arkusz Columns.Count - to samo kolumn Wtedy kol to...
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"...
A1 - imię B1 - =Jeżeli(A1="Anna";5;0) C1 - 3 D1 - =B1*C1 i wszystkie komórki skopiowane "w dół".
... 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...
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...
Po mojemu powinno być coś takiego. Sub ReadDataFromSheets() Dim colxls As New Collection Dim path As String, filtr As String, plik As String, i As Long Dim wynik As Long, SheetName As String Dim kom As Range, rg As Range Dim shAct As Worksheet, sh As Worksheet, wb As Workbook Dim p As Long path = ThisWorkbook.path & Application.PathSeparator...
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...
Witam - chciałbym dołożyć pytanie do tego wątku. Mianowicie, czy można wykorzystać konkretną komórkę (przy użyciu funkcji cells (w, k), do tego by określić lokalizację danego pliku. Pytam, gdyż chciałbym w prosty sposób móc pobierać dane, bez konieczności ich każdorazowego otwierania i kopiowania. http://obrazki.elektroda.pl/4558130500_1...
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...
Dzień dobry, Na wstępie powiem że ze wszystkich sił starałam się nie fatygować nikogo by mi pomógł znaleźć rozwiązanie problemu, próbując sama zrozumieć dlaczego tak się dzieje. Jednak moja nieznajomość VBA wzięła górę i do co utknęłam w martwym punkcie (choć może nie do końca bo makro w sumie robi co chce). Makro które udało mi się stworzyć, przerabiając...
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:...
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]...
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ż...
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...
Dobra zgodnie z zapowiedzią mały porządek w poście. Jak widać na załączonym obrazku procedura wreszcie mi działa tak jak trzeba. Problemy wynikały z mojej sklerozy :yes: , procedury tego typu pisałem jakieś 2 lata temu i się zapomniało to i owo o BASCOM. http://obrazki.elektroda.net/46_12498402... A oto kod samej procedury: 'zmienne const null...
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...
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:...
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...
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
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...
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...
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...
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...
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'.
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ę...
Uwagi: Set Drng = Arkusz1.Range("B6") Brak deklaracji tej zmiennej - inne są, jeśli w kodzie pojawi się instrukcja " Option Explicit " będzie błąd Oferta = Drng.End(xlDown).Offset(-1, 0).Value Będzie pobierać wartość nie z ostatniego wiersza "tabeli/kolumny", ale z przedostatniego - czy taki był zamysł ? Tabela = Split(Oferta, "/") Nr = CInt(Tabela(0))...
przypisać wartość zmienna przypisać zmienna wartość excel przypisać wartość
lodówki bosch opinie dodatkowe swiatla kondensator wykres wektorowy
efektywność energetyczna kotłów opencore patcher
Bosch SRV45T13EU – mikrowyłącznik pływaka uruchamia się przy spuszczaniu wody z płaszcza Jak rozhartować stal Hardox - metody i wskazówki
