@plackojad: Zawsze mozna sie zglosic, przeciez firmy czest wiedza ze pracownik moze nie byc obyty i nie ma doswiadczenia, ale jak czlowiek wyda im sie kumaty i perspektywiczny to i tak wezma, co najwyzej na pcozatek mniejsza stawke dostaniesz. Najgorzej to wlasnie nie chodzic na spotkania bo "eee ja to tylko sie ucze ale nie mialem doswiadczenia". Wiecej wiary :)

@kontra nie spodziewałem się, że vba jest tak cenne

@brak_nicku: To czego byś użył? Ja mam na myśli kwerendę SQL do arkusza albo autofiltr (choć go nie lubię).

@Eswemenasja: to zależy od tego co OP chce i co ma, ile jest kolumn i ile wierszy będzie zawierać ERROR

@scorpio18k: odpaliłem dla 70k komórek (wprawdzie tylko jeden znak w każdej) i poszło migiem

@scorpio18k: rozmawialiśmy ze 2 dni temu i twierdziłeś, że jak kod ma "przerobić" 12k wierszy i działa 50+ sekund, to już pewnie nie da się go usprawnić. Dziś @matti05 podał linka do kodu, który to samo robi dużo efektywniej. Z ciekawości napisałem swoją wersję i porównałem wydajność kodu dla 2 przykładowych zbiorów 500k wierszy generowanych losowo:

A) słowa 5-33 znaków, duża powtarzalność (~200) unikatów:

=POWT(ZNAK(97+LOS.ZAKR(0;23));LOS.ZAKR(5;33))Pokaż całość

@frugo90: Możesz eksportować dane do powerpointa np :) prosta sprawa, trzymaj krótki artykuł na ten temat razem z kodem:http://chandoo.org/wp/2011/08/03/create-powerpoint-presentations-using-excel-vba/

@frugo90: Zapisz do pdf-a

@arondre: pytanie: czy zapisałeś tę funkcję w konkretnym arkuszu, czy jako dodatek .xlam?

@arondre: no to funkcja będzie widoczna w tym konkretnym pliku (jeżeli będzie otwarty), jeżeli chcesz funkcji używać w różnych plikach, to lepiej zapisać ja w dodatku .xlam:
1) otwierasz nowy skoroszyt
2) alt + f11
3) w tym skoroszycie dodajesz nowy moduł
4) w tym module wpisujesz kod lub w tym przypadku wklejasz go tam
5) zapisujesz skoroszyt jako dodatek .xlam (office zaproponuje Ci swój domyślny katalog dodatków, ale ja mam swój w którym trzymamPokaż całość

Uzyj RegEx:
svarout = funrgxmchrep(svarin, ".", ",")
Funkcja wyglada tak:
Function rgxreplace (sstring, swhat, swith) ' sstrinPokaż całość

@GratisLPG:

=USUŃ.ZBĘDNE.ODSTĘPY(FRAGMENT.TEKSTU(PODSTAW(A1;ZNAK(10);POWT(" ";DŁ(A1)));DŁ(A1)+1;DŁ(A1)))

@GratisLPG: Takie dwie małe uwagi, w sumie bardziej kosmetyczne.

Zamiast tych formuł lepiej jest operacje na stringach wykonywać bezpośrednio w kodzie, łatwiej się w ten sposób pisze i bardziej czytelnie to wychodzi. link

I druga sprawa, zamiast każdorazowo odwoływać się do arkusza (While Sheets("teltech").Cells...) lepiej jest wrzucić na początku set teltech = thisworkbook.sheets("teltech") i potem używać tego odwołania (tzn. teltech.cells(x,y)...). W razie zmiany nazwy arkusza musisz to w kodzie zmienićPokaż całość

@Marellion: Walkenbach

@arct2: na przykład:

Function TestXY() As Variant
Dim wynik(1 To 2, 1 To 1) As Double
wynik(1, 1) = 123.3
wynik(2, 1)Pokaż całość

Już po czasie ale też chciałem tabelę przestawną doradzić

@Fajka:

@Fajka:

Taki excelowy? excelszkolenie.pl

@etherard: http://www.excel-easy.com/vba.html

@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!).

@nonabl3: Wybór odbiorcy możesz zrobić jako listę z guzikami w formularzu albo np. comboboxem, wybór pliku przez file dialog. Złożenie tego w outlooku już powinno być proste.

@qbicone kod typu xD (IT graduate), zakładając że masz nazwy w jednej kolumnie

Dim nazwa as String
Dim i as Integer

i =Pokaż całość

@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".

@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