Wszystko

Wszystkie

Archiwum

yorimo
  • 4
Kiedyś jak byłem młody jeździłem z moją mamą do #selgros robić zakupy dla jej sklepu spożywczego. Była to bardzo fajna atrakcja, bo wózek był wypełniony produktami spożywczymi po brzegi. Wózek towarowy był tak zapełniony, że brało się nawet dwa. Coś się dobierało dla siebie do domu, fajne ceny, nawet tanio.
#makro było już w tyle z cenami, więc generalnie każdy jeździł do wyżej wymienionej hurtowni. Po tylu latach, kiedy zakupy z hurtowni
N.....4
  • 1
Mirki poszukuje inspiracji. Napisałem makro oparte na offsetach. Działa to w skrócie tak, że w Arkuszu1 z kolumny "A" wyszukiwane są wartości w Arkuszu2 z kolumny "A" następnie wartości w kolejnych kolumnach B,C,D przepisują się do kolumn np. X, Y Z w Arkuszu1. (taki Vlookup przy pomocy makra)

Jest to o tyle wada, że raport, który mam w Arkuszu2 jest tworzony przez człowieka, który nie zawsze trzyma się tych samych kolumn. To
DarkAlchemy
  • 1
@Nee24 ja bym zdefiniował zmienne odpowiedzialne za numer każdej kolumny jakiej potrzebujesz, np. potrzebujesz kolumn o nazwach U, S, Ń, K, O, N i T to definiujesz 7 zmiennych Integer, np. w schemacie noU, noS, itd.

Potem za pomocą pętli bym przeleciał wszystkie nagłówki (tutaj zakładam, że pomiędzy nie ma pustych kolumn i nazwy się nie powtarzają)

i = 1
Do Until Cells(1,i).Value = ""

Select Case Cells.(1,i).Value

Case "U"
noU =
Vegonator
  • 1
Mirki poszukuje makra w VBA które sprawdzi każdą komórke w danej kolumnie, i jeżeli wartość w tej komórce równa się 0 to usuwa cały wiersz. Znalazłem na necie jakieś przykłady ale nic nie działa, próbowałem przerabiać ale że jestem noga to i nie działa ( ͡° ʖ̯ ͡°)
Tak wygląda część z mojej tabelki, chciałbym żeby usuneło wszystkie wiersze gdzie wartość komórki AB jest 0
#vba #excel #
Pobierz
źródło: comment_NSrnVuCCBuKvAIQnj1kZxaTAMDg8fM4d.jpg
Morsol
  • 1
@Vegonator:
tez dorzucę swój kodzik na to:

Sub mirek()
Dim x As Integer

x = 1

Do Until ActiveSheet.Cells(x, 1) = ""
If ActiveSheet.Cells(x, 1) = 0 Then
ActiveSheet.Rows(x).Delete
Else
x = x + 1
End If
Loop

End Sub

Musisz jedynie zmodyfikować wartość dla kolumny.
Marshall1337
  • 6
Taka niespodzianka nas spotkała gdy chcieliśmy się uraczyć sałatką szwedzką marki Horeca. Dziki lokator się ruszał, a pod nakrętką była pleśń. Słoik otworzył się z kliknięciem, był całkowicie nowy (stał 2tygonie w ciemnym i zimnym miejscu) z dobrą data ważności. Smacznego!
#jedzenie #makro #kuchnia #gotujzwykopem
Pobierz
źródło: comment_1Jh6ULevQ75raj5S3PQQEKbIavs23Oa5.jpg
E.....a
  • 1
@zieloneKolanoApokalipsy: Find szuka w danym zakresie poczynawszy od aktywnej komóki, jeśli aktywna będzie za szukaną to szukanej nie znajdzie. Miałem też kiedyś przypadek, że szukałem w zdefiniowanym zakresie a szukana była pierwszą komórką (aktywną) więc zakres zwracany miał falszywą wartość Nothing. Trzeba pamiętać o xlWhole i xlPart i o tym, że ustawienia te się zapisują. Wypada też dla bezpieczeństwa zerować Range, który jest zwracany przez find przed następnym użyciem aby nie
yazhubal
  • 6
Tak zwane "bieda makro" - odpinamy obiektyw od body i przyciskamy do bagnetu obróconą stroną. Włączamy aparat, łapiemy obiekt w ostrość - tu trzeba niestety pokombinować z pierścieniem ostrości oraz przemieszczaniem się z body. Dobrze trzymać aparat na statywie by zminimalizować drgania. Na poniższej fotografii konik polny na szybie.
Minusy: problem z ostrością, nadaje się do nieruchomych obiektów. Trudno utrzymać obiektyw w ręce nieruchomo. Są do tego przejściówki, ale nie widzę sensu
Pobierz
źródło: comment_yh1xTpFdXfQ27Xmnfk1cEyn21Gix8eZp.jpg
m_bielawski
  • 1
@Finster: zamiast brać jakieś ruskie szkła zainwestuj w pierścienie odwracające albo pośrednie. Za grosze zaadaptujesz praktycznie dowolny obiektyw do makro. I nie, nie jest to "nieprofesjonalne". Nawet ludzie, którzy się z makro utrzymują strzelają takimi zestawami.
Vilyen
  • 1
Siema Mirki :) Z góry przepraszam za spam, ale czy nie chciałoby się komuś pyknąć mi szybkiego #makro w #vba powiedzmy, że w ramach ćwiczeń?:P

Makro miałoby robić co następuje: mamy powiedzmy kolumnę liczb w excelu (ilość liczb jest nieznana, ale powiedzmy, że nie więcej niż 300). I mamy sumę. I makro miałoby z tych liczb wyodrębnić te, z których da się złożyć taką sumę.

Np mamy sumę "20" i liczby 2,
Fajka
  • 0
@Vilyen: Taki kod nie jest trudny do napisania jednak liczba zmiennych jest zbyt duża. Kod będzie sensownie działał przy maksymalnie kilkunastu liczbach, dla 300 masz za dużo kombinacji (300!).
bdr90
  • 2
Mirki, potrzebuję pomocy.
Poniżej mam przykład makro do WORD, który przerabia pliki z mojego systemu magazynowego na pdf.
Przy większej ilości plików, makro przechodzi do kolejnej część, różni się tylko nazwą dok (1), dok (2), itd. aby wyeksportować wszystkie pliki w folderze. Jednak ograniczone to jest do liczby 20. Czy jest jakiś sposób, aby Word sam otwierał plik, edytował go, zapisywał pdf i pociągał następny z danego folderu, bez ograniczeń takich jak
rydzo
  • 3
Wesele tuż tuż a ja nadal wódki nie kupiłem.
Macie jakieś polecone miejsca gdzie można dorwać atrakcyjnie cenowo? Warszawa i okolice ...

Ogólnie nawet nie mam wybranej tej wódki. Na tę chwilę Wyborowa prowadzi - bo jeśli chodzi o cena jakość to wg mnie bardzo dobrze. I jakoś nigdy nie narzekałem na nią. Minus wyraźny to brak dozownika :(
Kiedyś myślałem nad Finlandią ale obecnie nie widzę nigdzie 0.5 za mniej niż
rydzo
  • 1
@zomowiec: No ja gości pewnie ok. 100, ciężko powiedzieć bo termin blisko a póki co oszacować nawet ciężko.
Ale na 100 osób brałbym max 120. Bo i tak bierzemy trochę wina, być może barman i też bym postawił jakieś whiskacze, piwo ...
Nie chcę przesadzać bo mam świadomość, że wódka już tak mocno nie schodzi. Sam widzę po weselach na których byłem. Czasem ciężko mieć z kim pić w ogóle :P
DarkAlchemy
  • 1
@qbicone kod typu xD (IT graduate), zakładając że masz nazwy w jednej kolumnie

Dim nazwa as String
Dim i as Integer

i = 0

Do Until Cells(x+i, y).Value = ""

nazwa = Cells(x+i, y).Value
nazwa = Right(nazwa, 2) & "***.xls"
Cells(x+i, y).Value = nazwa

i = i + 0

Loop

(⌐ ͡■ ͜ʖ ͡■)
koziar123
  • 1
Mirki, wracam do treningów po trzech latach nic nie robienia. Na wadze przez ten czas 25 kg +, zero kondycji. W związku z tym mam krótkie pytanie, ile proponujecie spożywać kalorii po takim czasie, aby zacząć standardową redukcję?
- waga 104kg, wzrost 180 cm, 26 lat
- praca biurowa, 8h przed kompem + 2h na dojazd do pracy i powrót do domu.
- treningi 3x w tyg, potem przejdę na tryb 4x.

Powiązane tagi

Popularne tagi