Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 68426 Skopiuj do schowka [VBA Excel] Wyszukiwanie wartości w kolumnie
Autor Wiadomość
Pabloos 
świeżak


Wersja: Win Office 2010
Posty: 6
Wysłany: 28-06-2020, 10:19   [VBA Excel] Wyszukiwanie wartości w kolumnie

Witam,

Piszę do was z małą prośbą, jestem początkującym w VBA w Excelu i chciałbym zrobić mały program który będzie mi wyszukiwał danej wartość w kolumnie a następnie z tego samego wiersza pobierał inną wartość z następnej kolumny.


Dokładnie chodzi mi o to by w TextBox1 wprowadzić numer z komórki "symbol" i żeby mi system znalazł w tym katalogu dany numer nośności dynamicznej dla szukanego symbolu i wyświetliło w TextBox'ie2


Zrobiłem takie makro za pomocą funkcji wyszukaj pionowo, ale nie wiem czy jest to poprawnie, też nie wiem jak zrobić by wyświetliło komunikat jeżeli takiego numeru nie będzie.

Poniżej wrzucam plik:


Dzięki wielkie za pomoc :-)

zdjf.png
Plik ściągnięto 295 raz(y) 4.6 KB

zdj.png
Plik ściągnięto 9 raz(y) 31.98 KB

Generator.xlsm
Pobierz Plik ściągnięto 6 raz(y) 26.56 KB

ID posta: 389154 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 662 razy
Posty: 3481
Wysłany: 28-06-2020, 11:24   

Sprawdź.
.

Kopia Generator.xlsm
Pobierz Plik ściągnięto 9 raz(y) 27.31 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 389156 Skopiuj do schowka
 
 
Pabloos 
świeżak


Wersja: Win Office 2010
Posty: 6
Wysłany: 28-06-2020, 12:18   

Super! :-) Dzięki o to dokładnie mi chodziło :-)

Miałbym jeszcze jedne problem do rozwiązania, bardzo podobny chodzi mi mianowicie o to, że chciałbym aby system po wprowadzeniu średnicy (może to być tak samo za pomocą ComboBox'a - w katalogu oznaczenie d) pobrał wszystkie wiersze o zadanej średnicy. Następnie sprawdził która nośność dynamiczna jest większa od tej obliczonej i następnie z tego wiersza gdzie jest największa nośność dynamiczna pobrał nośność spoczynkową do dalszych obliczeń.

Mam nadzieję, że jasno to jakoś przedstawiłem :-)

Również z góry dzięki wszystkim za pomoc

rzut.png
Plik ściągnięto 262 raz(y) 7.16 KB

Generator - nowy.xlsm
Pobierz Plik ściągnięto 9 raz(y) 332.67 KB

ID posta: 389161 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 662 razy
Posty: 3481
Wysłany: 28-06-2020, 12:53   

Cytat:
nośność dynamiczna jest większa od tej obliczonej
A gdzie jest "ta obliczona"?
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 389167 Skopiuj do schowka
 
 
ąćęłńóś
Excel Expert


Pomógł: 276 razy
Posty: 1329
Wysłany: 28-06-2020, 13:56   

Pabloos napisał/a:
jeszcze jedne problem

Zgadza się ... nieporządek i niekonsekwencja w kodzie i formatce ... :->
ID posta: 389169 Skopiuj do schowka
 
 
Pabloos 
świeżak


Wersja: Win Office 2010
Posty: 6
Wysłany: 28-06-2020, 14:13   

To jest ta nośność C w kodzie, system sobie ja wyliczy i pasuje by porównał z katalogu dla danej średnicy i żeby wybrał większą bądź równą katalogowej.

Jak najbardziej się zgadzam, że jest nieporządek i jest to nie profesjonalnie zrobione.
Nie jestem programistą i nigdy się tym nie zajmowałem, więc zasad poprawnej składni itp nie znam. Chciałem sobie tylko ułatwić pracę konstruktora w doborze łożysk, a że coś tam kiedyś miałem na studiach VBA to chciałem w tym zrobić. Też jest to na mój własny użytek, więc kod nie musi mieć poprawnej składni. Najważniejsze by działał poprawnie :-)

Nosnosc.png
Plik ściągnięto 9 raz(y) 24.5 KB

ID posta: 389171 Skopiuj do schowka
 
 
ąćęłńóś
Excel Expert


Pomógł: 276 razy
Posty: 1329
Wysłany: 28-06-2020, 14:50   

Pabloos napisał/a:
Chciałem sobie tylko ułatwić pracę

Toś sobie ją tylko utrudnił.

Pabloos napisał/a:
jest to na mój własny użytek, więc kod nie musi mieć poprawnej składni

Mylisz się - przecież chodzi ci o to, aby twój kod poprawnie działał, a robisz coś odwrotnego, sabotując go własnymi "ręcami".

Czasami zmienne deklarowane jako "Variant", a "używane" jako inny typ danych (tu pewnie jako "Double") mogą ci spłatać psikusa - w pewnej formie działa to też w drugą stronę (akurat pewnie nie przy wyliczeniach "matematićnych", ale przy innych ... "obiektowych" (?) ... tak).

Stosowanie i zarazem niestosowanie, w jednej linii, właściwości obiektów/kontrolek, jest co najmniej dziwne - a czasami takie bazowanie na przekonaniu, że kompilator prawidłowo zinterpretuje i "dopisze" domyślną właściwość do danego obiektu bywa złudne, np.:
Dlaczego tak (?):
Kod:
If Not IsNumeric(TextBox1.Text) Or TextBox1 = "" Then

a nie tak (?):
Kod:
If Not IsNumeric(Me.TextBox1.Value) Or Me.TextBox1.Value = "" Then

Tu: dla TextBox domyślną właściwością jest "Value", a ty stosujesz "Text" - niby jedno i to samo, ale czy na pewno w każdej sytuacji (?), zwłaszcza takiej kiedy będzie ci zależeć na poprawnych wyliczeniach, a otrzymasz coś innego ?
ID posta: 389172 Skopiuj do schowka
 
 
Pabloos 
świeżak


Wersja: Win Office 2010
Posty: 6
Wysłany: 28-06-2020, 17:04   

Jak najbardziej się z Tobą z tym wszystkim zgodzę co napisałeś. Wszystkie błędy które wypisałeś wzięły się z braku doświadczenia i tego że na codzień tego nie używam. Moje programowanie jest na bardzo niskim poziomie i nie będę się z tym krył, bo raz na rok może coś napiszę i tyle.

Wiem że to nie jest wytłumaczenie, ale ta wiedza odnośnie zmiennych, poprawności pisania kodu itp nie jest moją dziedzina w której się rozwijam. To narzędzie ma mnie tylko wspomagać i nie chce się tylko na nim opierać. Dlatego też poprosiłem o pomoc bo nie czuje się mocny w pętlach itp.
ID posta: 389175 Skopiuj do schowka
 
 
Pabloos 
świeżak


Wersja: Win Office 2010
Posty: 6
Wysłany: 29-06-2020, 13:10   

@umiejead ciężko jest takie coś zrobić? Trzeba stosować petle itp?
ID posta: 389201 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 662 razy
Posty: 3481
Wysłany: 30-06-2020, 09:17   

Pytanie nie powinno brzmieć: "czy ciężko" tylko "ile to zajmie?" (i nie chodzi tu o rozmiar kodu... :mrgreen: ).
Pętle - pewnie tak.

A propos tego co napisał ąćęłńóś: http://www.baldyweb.com/ValueText.htm
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 389223 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe