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...
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)
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...
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...
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...
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ę,...
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,...
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...
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
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...
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,...
Ź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 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 +...
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...
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"...
... 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...
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ż...
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...
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...
Nie wiem czy dobrze zrozumiałem myśl użytkownika "krzys.kas" Znawcy vba pewnie mnie wyśmieją za kod poniżej: Dodano po 1 Coś ala Nie mam drukarki. Jutro sprawdzę twój kod. Jestem przekonany że będzie działał. :D Dodano po 7 Zapomniałem podać że wartość TAK będzie zmienna. Nie jest wartością stała-przypisaną do arkusza. W jednym przypadku będzie 6 arkuszy...
przypisać wartość zmienna przypisać zmienna wartość excel przypisać wartość
hasło karty pamieci sterowanie wycieraczek astra skanowanie dwustronne
piekarnik samsung piekarnik samsung schemat
Lokalizacja czujnika kluczyka w Nissan Qashqai Wyrzucanie zabezpieczenia w pralce Samsung - przyczyny i rozwiązania