• 1
Pomoże ktoś ?
Błąd jest : tabela(i, j) = .cells(i, j)

Sub smskiero()

Dim i, j, wiersz As
  • 8
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@biju:

Dim tabela()
ReDim tabela(8, 40)

Pisanie 'as variant' nie ma sensu, jak nie podasz typu to ustawia się właśnie variant. ReDim zmienia wielkość arraya, jeżeli chcesz go powiększyć bez czyszczenia używasz ReDim Preserve,
  • Odpowiedz
Hej Węgierki i Węgry z tagów #excel #vba i, ciekawe czy ktoś to obserwuje, #as400 (nikt? to może #iseries ? też nikt? ok, to #systemi ! no kuźwa, niech będzie #ibm )

Od jakiegoś pół roku bawię się w łączenie "Terminal Emulator" z plikami Excela przy pomocy VBA (a dokładniej instrukcji Host Access Class Library dla Visual Basica) i muszę powiedzieć,
DarkAlchemy - Hej Węgierki i Węgry z tagów #excel #vba i, ciekawe czy ktoś to obserwu...

źródło: comment_Fl8Y4osumxacIyABb5DVFixRdUpVBTNs.jpg

Pobierz
  • 33
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@DarkAlchemy: gdzie pracujesz? ;)PICOMa chyba? CL chyba tylko wystarczy? No, chyba, że masz zamiar iść na całość i opisać to w RPG? ( ͡º ͜ʖ͡º)

@JanKremovski: https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/rzahg/ic-homepage.htm sam jesteś z epoki kamienia łupanego. System nadal jest rozwijany.

@Lubie_Budyn: sam jesteś antyczny. (òóˇ)

Devuję Systemi / i5 /AS400. Możecie mnie dotknąć. ( ͡ ͜
  • Odpowiedz
@DerMirker: Ja robię tak:

1. określasz pełną ścieżkę pliku który chcesz otworzyć, czyli np filepath1 = "C:\Users\DerMiker\" & Tool1, gdzie Tool1 to np. OtworzTenPlik.xlsx
2. Workbooks.Open filepath1
3. set wb1 = workbooks(Tool1)
  • Odpowiedz
#word #komputery #vba

Czy macie jakiś sposób jak automatycznie poprawić sierotki w Wordzie?

Chodzi o wiszące spójniki ("i", "a", "w" itd) na końcu wiersza. Ręcznie to się robi tak, że wstawia się twardą spację jak jest taki spójnik na końcu.

Miałem
  • 10
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@mk321: wydaje mi się, że większość ludzi po prostu zmienia całe zdania, żeby pozbyć się takich "pustych" fragmentów - bo nawet jeśli stworzysz kod wyrównujący, to i tak będzie wyglądać to kiepsko.
Zadałbym to samo pytanie na jakimś formum DTP (goldenline, jeśli to żyje?) żeby dowiedzieć się, jak oni sobie z takim czymś radzą - w sensie zgodnie z zasadami sztuki - no bo raczej nie zmieniają treści książek.

Osobiście chyba wolałbym
  • Odpowiedz
@mk321: Dziwne, u mnie działało :). Może dla tego, że nie spojrzałem, czy działa dobrze. Rozwiązanie jest w takim razie mocno skomplikowane. Trzeba napisać kod VBA, który poleci wszystkie wiersze i wstawi znak następnego wiersza tam gdzie znajdzie na końcu spójnik. A może wyrażeniem regularnym zamiast spacji nierozdzielającej wstawiać nowy wiersz?
  • Odpowiedz
Treść przeznaczona dla osób powyżej 18 roku życia...
  • 8
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

Mirki, taka sprawa dotycząca Accessa. Chciałbym stworzyć formularz, w którym zmiany w bazie dokonywane byłyby nie na bieżąco w momencie wpisywania danych do każdego z pól z osobna ale dopiero po wciśnięciu przycisku (po uprzedniej walidacji). Z tego co zauważyłem bez VBA się nie obędzie. Jak to ogarnąć?
Pytanie numer dwa, jak zrobić aby w każdym rekordzie (dodatkowym polu) pojawiała się również informacja dotycząca użytkownika, który dany rekord stworzył (późniejsza edycja miałaby
  • 1
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@ojsak:
1: Dwie opcje, albo jakiś arkusz/arkusze z listą zmian wysyłanych do bazy po zatwierdzeniu guzikiem, albo ewentualnie program działający cały czas w tle, trzymający te dane np. w arrayu (pętla z DoEvents).
2: Application.UserName wpisywane do pola w tabeli podczas inserta?
  • Odpowiedz
Hej, mam taki kod, który liczy pierwiastek z liczby.

Sub pierwiastek()

Dim wynik As Integer
Dim i, j As Double
  • 4
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@DerMirker: zmienne >napis1< i >i< masz zdefiniowane jako variant - zmien pierwszy na string, drugi na wartosc liczbową.
na początku procedury daj On Error Resume Next

a w pętli warunek:

If IsEmpty(i) Or
  • Odpowiedz
@Artur-: @DerMirker : Moim zdaniem za bardzo skupia się nia formularzach danych, a za mało na pokazaniu przydatnych zaawansowanych zastosowań danej metody, kodu. Nie pokazuje również problemów związanych z niektórymi metodami,szczególnie gdy uczysz się od podstaw i zarejestrujesz autofiltr.
  • Odpowiedz
W jaki sposób mogę zlokalizować pierwszą pustę komórkę po wskazanym zakresie? Chcę połączyć kilka zakresów w całość a następnie usunąć duplikaty tylko niestety nie wiem jak to ugryżć bez tworzenia pętli albo schodzenia do ostatniej komórki excela i lokalizowanie ostatniej pustej komórki z pustego zakresu. Kilkukrotnie stworzyłem makro , które dwukrotnie wykonywało Range(Selection, Selection.End(xlDown)).Select i wtedy miałem arkusz z milionem wierszy, których w żaden sposób nie mogłem usunąć,

#vba #
  • 14
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

Zetknął się ktoś kiedyś z makrem które by mi pomogło i ewentualnie poratował takowym?

Mam pewien zakres liczb, czasami 70, czasami 100 itd.
Muszę wylosować 10 z tych liczb bez powtórzeń. Wiem już, że bez makra się niestety nie da bo przeszkodą jest różna ilość liczb.

Póki co wrzuciłem to w random between i wciskam jak małpa F9 dopóki nie będzie
  • 8
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@DwaNiedzwiedzie: O cholera, muszę przyznać, że jestem w szoku. Swoją drogą okazuje się, że w polskim Excelu 2007 "LOS.ZAKR" nazywało się jeszcze "RANDBETWEEN" i to było głównym problemem, do tej kolumny M jakoś bym pewnie doszedł. Dzięki. Jak chcesz to podeślij na priv numer konta w celu #piwkozaformule. ( ͡° ͜ʖ ͡°)

@Limonene: Również dzięki.
  • Odpowiedz
#anonimowemirkowyznania
Może dziwne że taki post anonimowy ale w pracy znają mój nick i wolę anonimowo. Pytanie o poradę zawodowa w pewnym sensie. Pracuje w sporej firmie jako specjalista od raportowania (typowe korporzeczy) : tworzenie raportów w Excelu, automatyzacja za pomocą VBA, wyciąganie danych z SQL.

Zarabiam średnia krajową i zastanawiam się na co mogę liczyć w przyszłości. Excela znam nieźle, VBA średnio ale trochę jednak potrafię i SQL podstawy.
  • 14
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

Mirki, znajdzie się tu może ktoś komu mogę zlecić napisanie małego makra w excelu, które będzie wpisywało zawartość komórki w google i zwracało daną informację? Odwdzięczę się. #vba #excel #programowanie
  • 13
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

Mireczki z #programowanie polećcie jakiś przystępny i w miarę przekrojowy materiał do nauki języka Power Query M od podstaw.

#vba ogarniam na przyzwoitym poziomie, #sql nieco słabiej, ale jak patrzę na te materiały do M w necie to nie wiem zbytnio od czego zacząć.
Pls halp!
  • 2
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

Miraski skoro już jesteście w #pracbaza i macie dużo wolnego czasu ( ͡° ͜ʖ ͡°) może podpowiedziałbyś ktoś jak stworzyć #makro #vba troszku #programowanie, które począwszy od komórki E10 będzie oddawać wynik mnożenia wartości generowanych począwszy od komórki D10 przez wartość wpisaną w pole D5.
oczywiście #excel
lovalu - Miraski skoro już jesteście w #pracbaza i macie dużo wolnego czasu ( ͡° ͜ʖ ͡...

źródło: comment_3hcGonw7UFffZYVPs7FPapwjCxNpVExn.jpg

Pobierz
  • 3
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

Hej!

Wie ktoś może jakie są realne widełki zarobków we #wroclaw dla osoby która:
- zna i korzysta z języka T-SQL w stopniu pozwalającym na tworzenie procedur i zapytań generujących i agregujących dane z wielu tabel źródłowych (umie PIVOT :D),
- wie z czym się je SSRS i SSIS (Microsoft Visual Studio), chociaż wielkiego doświadczenia w tym nie ma,
- w VBA potrafi napisać nie tyle makra, co pełne aplikacje, które łączą się z
  • 4
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@DarkAlchemy: Ta osoba powinna iść w kierunku RPA (Robotic Process Automation). Ta osoba powinna na starcie dostać w mieście wojewódzkim 8-12k brutto w zależności od tego jak wypadnie na rozmowie + na ile spełnia wymagania.
  • Odpowiedz
Zapisałem plik z makrami jako xlsx nad którymi pracowałem ostatnie dwa dni. Da się to jakoś odzyskać? W folderze niezapisane mam tylko jakiś stary plik.


#vba #excel #programowanie
  • 4
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

  • 2
Jak powinna wyglądać poprawną konstrukcja msgbox'a w vba

Ja piszę tak i coś nie tryka

Msg = msgbox (msg, vbokonly, "tytuł", ,"tekst")

#excel #vba #programowanie
  • 22
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach

@Cthulu23: Ja przy takich okazjach korzystam z takiego template'a

Sub Macro1()
'Step 1 Copy the data
Sheets("Sheet1").Range("B4:C15").Copy
'Step 2 Create a
  • Odpowiedz
#excel #vba

Mirki takie pytanko. Mam formułe =jeżeli(A="tekst";B;"prawda";""). Kwestia jest taka, że w ten sposób jak przeciągnę formułe to mam w cholerę pustych wierszy. Czy dałoby się jakoś w tą formułe zagnieździć inną, która usuwałaby te puste wiersze tak, żeby zostawały tylko te z kolumną "prawda"? Ewentualnie jakieś makro?
  • 7
  • Odpowiedz
  • Otrzymuj powiadomienia
    o nowych komentarzach