Mirki poleccie proszę jakiś kurs #access #msaccess, głównie #makro #vba
Wszystko
Najnowsze
Archiwum
latajoncy_spodek
via Android
wiaderkoo
http://helion.pl/ksiazki/access-2013-pl-biblia-michael-alexander-dick-kusleika,ac13bi.htm
Tl;dr
#kichiochpyta Mirasy spod #programowanie . Mimo że nie jestem z zawodu programista, to w pracy bardzo dużo programuje tworząc sobie narzędzia ułatwiające pracę. Głównie korzystam z #rscript #sql i #vba, trochę #python. I ostatnio zauwazylem ze parametryzuje w kodzie wszystkie zmienne jakie się da, a że jestem w trakcie tworzenia mocno złożonego narzędzia, to tych parametrów
#kichiochpyta Mirasy spod #programowanie . Mimo że nie jestem z zawodu programista, to w pracy bardzo dużo programuje tworząc sobie narzędzia ułatwiające pracę. Głównie korzystam z #rscript #sql i #vba, trochę #python. I ostatnio zauwazylem ze parametryzuje w kodzie wszystkie zmienne jakie się da, a że jestem w trakcie tworzenia mocno złożonego narzędzia, to tych parametrów
@JajkoJajkoJajkoJajko: Parametryzować wszystko co wydaje ci się zmienne, ale dodać dobre wartości domyślne, albo trzymać w zgrabnym pliku konfiguracyjnym.
@JajkoJajkoJajkoJajko: "Parametryzuj" wszystko.
Wszelkie dziwne sztywne liczby w kodzie powinny byc wyciagniete do zmiennych ktorych nazwy jasno opisuja czym jest dana zmienna.
Dobry kod powininno sie czytac niczym poezje.
Nazywaj wszystko tak zeby osoba zupelnie obca patrzaca pierwszy raz na Twoj kod nie musiala sie zastanawiac nad tym co robi dana rzeczy.
Wszystko powinno byc "self-explanatory".
Wszelkie dziwne sztywne liczby w kodzie powinny byc wyciagniete do zmiennych ktorych nazwy jasno opisuja czym jest dana zmienna.
Dobry kod powininno sie czytac niczym poezje.
Nazywaj wszystko tak zeby osoba zupelnie obca patrzaca pierwszy raz na Twoj kod nie musiala sie zastanawiac nad tym co robi dana rzeczy.
Wszystko powinno byc "self-explanatory".
Chciałbym stworzyć skrypt w VBA, który zaznaczy poprzedni znak w aktywnej komórce i zamieni go na inną czcionkę, po czym będę mógł kontynuować pisanie w tym arkuszu. Pomoże ktoś?
#programowanie #vba
#programowanie #vba
@croppz: A jak pobrać liczbę znaków? Próbuję zrobić coś takiego, ale nie działa mi:
Dim r
r = Actvie.Cell.Range
Actvie.Cell.Characters(r - 1, r).Font.Name = "Symbol"
Dim r
r = Actvie.Cell.Range
Actvie.Cell.Characters(r - 1, r).Font.Name = "Symbol"
@dombol: len(application.activecell) jeżeli chcesz aktualnie wybranej komórki. I jeżeli to ma być font tylko dla ostatniego znaku to application.activecell.characters(len(application.activecell), 1).font
Mirki, potrzebuję aby vba przefiltrowało mi kolumnę z datami (format rrrr-mm-dd) według określonego w innej komórce rrrr-mm.
Set Kryteria = Cells(7, 10) -> tu mamy w formacie tekstowym np 2017-03
Selection.Copy
Sheets("RaportPD (2)").Select
ActiveSheet.Range("$A$5:$W$113").AutoFilter Field:=16, Criteria7:= _
Set Kryteria = Cells(7, 10) -> tu mamy w formacie tekstowym np 2017-03
Selection.Copy
Sheets("RaportPD (2)").Select
ActiveSheet.Range("$A$5:$W$113").AutoFilter Field:=16, Criteria7:= _
@MarekKillerMirek: criteria1:= ">" & kryteria. Jakby nie działało to dodaj ukrytą kolumnę z datami przekonwertowanymi na liczby (23.02.2017 => 42789) i filtruj po niej.
@croppz: dziękuję za naprowadzenie, to co wysłałeś ustawiało filtr na "większe od", jak wpisałem
criteria1:=kryteria & "*" to działa tak jak chcę, jak teraz na to patrzę to oczywiste rozwiązanie ;p
criteria1:=kryteria & "*" to działa tak jak chcę, jak teraz na to patrzę to oczywiste rozwiązanie ;p
@DarkAlchemy: To jeszcze możesz używać terminala, w którym nagrywasz sekwencję a potem ją sobie odtwarzasz w teminalu (np. Minisoft Powerterm). :)
A jak sobie oprogramujesz to w Excelu, że wyciąga z SQL dane, obrabia i wypluwa gotowe makro do odpalenia w terminalu to już w ogóle bajka. :)
A jak sobie oprogramujesz to w Excelu, że wyciąga z SQL dane, obrabia i wypluwa gotowe makro do odpalenia w terminalu to już w ogóle bajka. :)
@JanKremovski jak wrócę do domu to postaram się coś na PW napisać :)
@Polinik my używamy oprogramowania do terminala, które już ma w sobie możliwość nagrywania makr i ich odtwarzania, więc wystarczy tylko je z poziomu Excela puszczać. Dałem współpracownikowi, który pracuje na tym terminalu (ja tam praktycznie nic nie robię), plik z konfiguracją, makra ogarnia, zobaczymy co wymyśli za zastosowanie ( ͡º ͜ʖ͡º)
@Polinik my używamy oprogramowania do terminala, które już ma w sobie możliwość nagrywania makr i ich odtwarzania, więc wystarczy tylko je z poziomu Excela puszczać. Dałem współpracownikowi, który pracuje na tym terminalu (ja tam praktycznie nic nie robię), plik z konfiguracją, makra ogarnia, zobaczymy co wymyśli za zastosowanie ( ͡º ͜ʖ͡º)
No hejka korpoświry. Potrzebuję, żeby checkbox kontrolował textboxa w formularzu w #access: kiedy checkbox nie jest zaznaczony, to nie jest wymagane, żeby textbox zawierał jakąkolwiek treść; kiedy jest zaznaczony to wymóg jest. Da się coś takiego w ogóle zrobić w #vba? Jeżeli się nie da, to możecie podrzucić jakieś inne rozwiązanie? :3
#korposwiat #pytanie
#korposwiat #pytanie
źródło: comment_o55LZXKuIBDWszppmVcTbfCrLR3FpODv.jpg
Pobierz@polecam_poczytac_heideggera: da się. Najprościej to if checkbox = true and textbox = "" then jakiś tam komunikat dla użytkownika w momencie zatwierdzania formularza zamiast normalnego przetwarzania danych.
Mirki, potrzebna pomoc: jak zrobić to samo, co na screenie, tylko że w #vba? Liczba kolumn i wierszy pierwszej tablicy jest dynamiczna i zależy od ilości spółek w portfelu.
źródło: comment_imHdyPCLd4wRpjU8CnvfWihe249PEWah.jpg
Pobierz@Elodin:
Co rozumiesz poprzez dynamiczną liczbę kolumn? Że zamiast 4 może ich być np. 10?
Powinno działać (zakładając, że pierwsza kolumna to zawsze daty i tablice są oddzielone jedną pustą
Co rozumiesz poprzez dynamiczną liczbę kolumn? Że zamiast 4 może ich być np. 10?
Powinno działać (zakładając, że pierwsza kolumna to zawsze daty i tablice są oddzielone jedną pustą
Pomoże mi ktoś to przerobić na konstrukcję If...Then?
Z góry wielkie dzięki
Range("E3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-4]<>"""",R1C10*((R3C10)*(30/(12*30)))*(1/(1-POWER(1+((R3C10)*(30/(12*30))),-(R2C10*12)))),"""")"
Z góry wielkie dzięki
Range("E3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-4]<>"""",R1C10*((R3C10)*(30/(12*30)))*(1/(1-POWER(1+((R3C10)*(30/(12*30))),-(R2C10*12)))),"""")"
@Cebeenowski: ale syf
@Cebeenowski:
x1 = wiersz od którego ma zacząć
x2 = ostatni wiersz
for x = x1 to x2
if cells(x, 1) <> "" then
cells(x, 5) = tutaj to całe
x1 = wiersz od którego ma zacząć
x2 = ostatni wiersz
for x = x1 to x2
if cells(x, 1) <> "" then
cells(x, 5) = tutaj to całe
Mirki, znajdzie się tu jakaś uczynna dusza obeznana w #vba, która rzuciłaby okiem na mój kod? Mam problem z przemnożeniem dwóch macierzy, bo wypluwa błąd:
Run-time error '1004'
Pobranie właściwości MMult klasy WorksheetFunction nie jest możliwe
@Elodin: Podaj cały kod.
@JanKremovski: Podrzuciłem link do całego arkusza na PW, bo bez danych można łatwo się w nim pogubić.
Cześć, potrzebuję zrobić formularz kredytowy w #vba, dane jakie mają być w nim zawarte to kwota kredytu(TextBox), okres kredytowania w latach(ComboBox), raty stałe czy malejące(OptionButton x2), oprocentowanie stałe, czy zmienne(OptionButton x2); przy oprocentowaniu zmiennym jego wysokość ma być podana dla pierwszych 12 miesięcy i dla pozostałych(InputBox x2), dane: liczba miesięcy, wysokość raty, saldo mają być eksportowane do arkusza kalkulacyjnego.
Nie wiem jakich instrukcji użyć by dane zostały wypisane w arkuszu,
Nie wiem jakich instrukcji użyć by dane zostały wypisane w arkuszu,
@Cebeenowski: Hej, to ci na pewno ułatwi zadanie: http://www.excel-easy.com/vba/userform.html Masz tam krok po kroku opisane tworzenie (w miarę) podobnego formularza. Jak byś miał jakieś pytania co do tego, to daj znać.
@Cebeenowski: Polecam jeszcze to: http://www.ozgrid.com/forum/showthread.php?t=77562 bo jak będzie to używane na więcej niż jednym monitorze to na pewno będzie latać po ekranie przy włączaniu ( ͡° ͜ʖ ͡°)
Mirki, czy ktoś z was przeglądając #olx napotkał na problem pojawiania się nagle ogłoszeń sprzed kilku dni?
Napisałem sobie grabber do zbierania ogłoszeń, który zbiera dane do Excela. Działa on na zasadzie przeglądania całych kategorii bądź wyników wyszukiwania. Pod kątem programistycznym wszystko działa OK, ale OLX sam w sobie od jakiejś 70 strony zaczyna wyświetlać nagle ogłoszenia sprzed 3 dni.
Przykład: Na dole strony X najstarsze ogłoszenie jest z dzisiaj z godziny
Napisałem sobie grabber do zbierania ogłoszeń, który zbiera dane do Excela. Działa on na zasadzie przeglądania całych kategorii bądź wyników wyszukiwania. Pod kątem programistycznym wszystko działa OK, ale OLX sam w sobie od jakiejś 70 strony zaczyna wyświetlać nagle ogłoszenia sprzed 3 dni.
Przykład: Na dole strony X najstarsze ogłoszenie jest z dzisiaj z godziny
@Michuy:
@penguin:
@JanKremovski: To nie sa ogloszenia promowane tylko zwykle ogloszenia.
A co do duplikatow: jak trafiam na te stare ogloszenia to one nie sa duplikatami.
@penguin:
@JanKremovski: To nie sa ogloszenia promowane tylko zwykle ogloszenia.
A co do duplikatow: jak trafiam na te stare ogloszenia to one nie sa duplikatami.
@Krukosz: A może to dość znany proceder, ukrywania nie których ogłoszeń przez moderatora. Czyli jako zalogowany na swoje konto ze swoim ip widzę swoje ogłoszenie. Zaś osoby postronne nie widzą go. Myślisz że olx to co to jest? Portal który utrzymywany jest za friko? Działa podobnie jak otomoto, gdzie duża grupa handlarzy z całej Polski, utrzymują go i sponsorują. Reszty się domyśl.
Mirki pomóżcie bo sie z-----e za chwile. Pisałem prostą aplikację w VBA (excel 2007), skończyłem, zapisałem, wszystko działało. Teraz jak otwieram to sam plik wgl się nie ładuje, otwieram inny i w nim wyskakuje mi odzyskiwanie tego pierwszego pliku, ale przy próbie uruchomienia czegokolwiek zaprogramowanego w VBA wyskakuje mi komunikat ERROR IN LOADING DLL. Da się to jakoś naprawić?
#komputery #pytanie #excel #vba #
#komputery #pytanie #excel #vba #
@SmokeProspector: no to teraz w edytorze kodu wchodzisz w narzędzia->referencje i patrzysz co się s---------o ( ͡° ͜ʖ ͡°)
@SmokeProspector: A czego tam brakowało? Najlepiej jakbyś po prostu dodał to jeszcze raz.
Czemu wywala mi błąd Syntax Error?
Sub PetlaDoWhile()
Do While ActiveCell.Value <>
Sub PetlaDoWhile()
Do While ActiveCell.Value <>
@DerMirker bo ZSRR nie istnieje xd
konto usunięte via Android
@DerMirker
If ActiveCell.Value = "ZSRR" Then
If ActiveCell.Value = "ZSRR" Then
Mam sobie taki kod i wywala mi błąd Run-time error '13': type mismatch. Co jest źle?
Private Sub WorkbookOpen()
MsgBox "xxx" & vbCrLf & vbCrLf &
"yyy" & vbCrLf & vbCrLf &
"zzz" & vbCrLf & vbCrLf
Private Sub WorkbookOpen()
MsgBox "xxx" & vbCrLf & vbCrLf &
"yyy" & vbCrLf & vbCrLf &
"zzz" & vbCrLf & vbCrLf
@DerMirker:
Private Sub WorkbookOpen()
MsgBox "xxx" & vbCrLf & vbCrLf &
"yyy" & vbCrLf & vbCrLf &
"zzz" &
Private Sub WorkbookOpen()
MsgBox "xxx" & vbCrLf & vbCrLf &
"yyy" & vbCrLf & vbCrLf &
"zzz" &
@JanKremovski: tak, dziękuję, widzę, że wystarczyło wstawić przecinek.
@Elkoss: Ja uczyłem się w ten sposób i polecam go ze względu na szybkość z jaką się uczysz:
Podstawy - http://www.excel-easy.com/vba.html
Potem "nauka przez działanie" czyli piszesz makra samodzielnie, a gdy trafiasz na ścianę to szukasz pomocy na stackoverflow.
Podstawy - http://www.excel-easy.com/vba.html
Potem "nauka przez działanie" czyli piszesz makra samodzielnie, a gdy trafiasz na ścianę to szukasz pomocy na stackoverflow.
W internecie znajdziesz bardzo dużo materiałów do nauki VBA youtube, kursy a co do książek to bardzo pozytywnie wypowiadają się o"Programowanie w VBA. Vademecum Walkenbacha"
#excel #vba #slask
Praca w Grupie Zywiec dla analitykow
https://www.pracuj.pl/praca/specjalista-ds-optymalizacji-procesu-order-to-cash-katowice,oferta,5050961
Praca w Grupie Zywiec dla analitykow
https://www.pracuj.pl/praca/specjalista-ds-optymalizacji-procesu-order-to-cash-katowice,oferta,5050961
@xstempolx: szkoda że nie Warszawa
@wujek_piotr: w Warszawie tego aż nadto. wrzucam specjalnie, bo na Śląsku posucha
@Checollada: korespondencja seryjna w wordzie z excelem jako bazą danych.
@Checollada: Makro, które przygotuje maila. Ale nie ma opcji wysyłania z automatu (żeby nie używać do spamu), więc musisz kliknąć "wyślij" ręcznie.
Cześć Mirki,
jest szansa, żeby tworzony plik przez macro napisane w VBA miał inną nazwę niż w tym przypadku?:
jest szansa, żeby tworzony plik przez macro napisane w VBA miał inną nazwę niż w tym przypadku?:
Sub Przycisk1_Kliknięcie()
Dim myFile As String, obszar As Range, cellValue As Variant, i As Integer, j As Integer
myFile = Application.DefaultFilePath & "\Zamówienie.csv"
mam problem z ogarnięciem makra łączącego excela z internet explorerem
mam sobie taki kod:
mam sobie taki kod:
Dim objIE As InternetExplorer 'special object variable representing the IE browser
Dim aEle As HTMLLinkElement 'special object variable for an (link) element#vba #powerpoint
jest jakis sposób na przesunięcie aktywnego slajdu na sam koniec? znalazlem takie polecenie:
Sub move()
ActivePresentation.Slides(3).MoveTo ToPos:=1
jest jakis sposób na przesunięcie aktywnego slajdu na sam koniec? znalazlem takie polecenie:
Sub move()
ActivePresentation.Slides(3).MoveTo ToPos:=1