- Видео 27
- Просмотров 19 446
COGITOR Piotr Majkowski
Польша
Добавлен 12 июн 2019
Zajmuję się prowadzeniem szkoleń i konsultacji z zakresu programu Microsoft Office (Word, Excel, VBA etc.) . Moja specjalność to znajdowanie praktycznych rozwiązań codziennych problemów w pracy biurowej, zwłaszcza tych związanych z zarządzaniem danymi oraz ich analizą. Pasjonuje mnie opracowywanie narzędzi, które usprawniają wykonywane codziennych działań i pozwalają na oszczędność czasu oraz zwiększenie efektywności i precyzji.
Swoją pracę wykonuję jako szkoleniowiec, trener, konsultant i doradca, prywatny korepetytor oraz wykładowca akademicki. Dzięki swojemu doświadczeniu zawodowemu jestem w stanie łączyć teorię z praktyką w sposób korzystny dla moich Klientów: uczelni, instytucji, urzędów, dużych korporacji, małych i średnich firm oraz rodzinnych mikroprzedsiębiorstw.
Swoją pracę wykonuję jako szkoleniowiec, trener, konsultant i doradca, prywatny korepetytor oraz wykładowca akademicki. Dzięki swojemu doświadczeniu zawodowemu jestem w stanie łączyć teorię z praktyką w sposób korzystny dla moich Klientów: uczelni, instytucji, urzędów, dużych korporacji, małych i średnich firm oraz rodzinnych mikroprzedsiębiorstw.
Funkcja dziś w Excelu i Wordzie
Makro do Worda poniżej
Sub Datownik()
odp = MsgBox("Dodajesz dzisiejszą datę" & vbCrLf & vbCrLf & "Czy ma się AKTUALIZOWAĆ AUTOMATYCZNIE?", vbYesNoCancel, "DODAWANIE AKTUALNEJ DATY")
If odp = vbYes Then
Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy", InsertAsField:=True _
, DateLanguage:=wdPolish, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
Else
Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy", InsertAsField:= _
False, DateLanguage:=wdPolish, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
End If
End Sub
Sub Datownik()
odp = MsgBox("Dodajesz dzisiejszą datę" & vbCrLf & vbCrLf & "Czy ma się AKTUALIZOWAĆ AUTOMATYCZNIE?", vbYesNoCancel, "DODAWANIE AKTUALNEJ DATY")
If odp = vbYes Then
Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy", InsertAsField:=True _
, DateLanguage:=wdPolish, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
Else
Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy", InsertAsField:= _
False, DateLanguage:=wdPolish, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
End If
End Sub
Просмотров: 16
Видео
Wypełnianie błyskawiczne w Excelu www.cogitor.pl
Просмотров 1048 дней назад
Jedna z najbardziej przydatnych funkcjonalności jakie posiada Microsoft Excel, uwielbiana przez uczestników moich szkoleń! www.cogitor.pl
Usatwienie skrótu do makra w Wordzie
Просмотров 6526 дней назад
Pokazuję w jaki sposób można zmienić domyślne ustawienie skrótów w Wordzie i jak przypisać skrót do Makra
Tabulatory w Wordzie
Просмотров 402Месяц назад
Jak sprawnie posługiwać się Tabulatorami w Wordzie Zapraszam na szkolenia: www.cogitor.pl
LIsty rozwijane i poprawność danych w Excelu
Просмотров 1583 месяца назад
Jak ograniczyć możliwość wpisywanych danych do określonych wartości i stworzyć rewelacyjne listy rozwijane w Excelu?
Kursy NBP na klik przy pomocy Power Query i VBA
Просмотров 1684 месяца назад
Jak automatycznie szybko ściągać aktualne kursy z NBP? Jak ten proces przyspieszyć przy pomocy VBA?
Style w Wordzie- podstawy
Просмотров 1429 месяцев назад
Jak je wykorzystać do przyspieszenia swojej pracy na tekstach
Power Query ściąganie danych z KRS
Просмотров 5039 месяцев назад
Jak dzięki Excelowi ściągać masowo dane z KRS Obserwuj mnie na LinkedIn www.linkedin.com/comm/mynetwork/discovery-see-all?usecase=PEOPLE_FOLLOWS&followMember=piotr-majkowski-604440168
Zaawansowane formatowanie warunkowe w Excelu z odwołaniem do Tabeli
Просмотров 1 тыс.11 месяцев назад
Jak zrobić formatowanie warunkowe z odwołaniem do obiektu Tabela i jak zrobić wiele kolorów w jednej komórce
Dlaczego warto uczyć się makr?
Просмотров 6711 месяцев назад
Zliczanie unikalnych wartości w Excelu
Просмотров 94311 месяцев назад
W jaki sposób można zliczyć unikalne wartości w Excelu, biorąc pod uwagę wiele kryteriów. Pokazuję trzy popularne sposoby
Wykres ze stałymi kolorami w Excelu
Просмотров 100Год назад
Gotowy plik z rozwiązaniem problemu można znaleźć: www.cogitor.pl 👉w zakładce DO POBRANIA 👉plik: Wykres z kolorami
Zamiana Tekstu na Datę
Просмотров 828Год назад
W jaki sposób możemy łatwo zamienić tekst na datę. Podaję 3 spośród wielu sposobów i załączam makro vba
Autokorekta nieznane oblicze
Просмотров 126Год назад
Fajny odcinek. Dziękuję
Ogólnie bardzo fajne rozwiązanie. Niestety podany przez Pana kod ma wady, bo w nim nie są zdefiniowane zmienne : skrot oraz odp. Rozwiązałem problem za pomocą AI i skrót do makra świetnie działa. Pozdrawiam
Dziękuję. Ta wiedza ułatwi mi pisanie tekstu z tabulatorami
Dziękuję Ci bardzo. Konkretnie, rzeczowo a co bardziej pokazane w sposób przemyślany i rozwojowy, tj. np. wyciągnięcie wstążki z myślą o bardziej ambitnej i dłuższej pracy z tekstem za pomocą makr.
Dziękuję, super, że się przydało, Pozdrawiam serdecznie:-)
Zainspirowałeś mnie. Fajny pomysł.
Cieszę się:-)
Sub Dodaj_do_autokorekty() Dim Entry1 As Word.AutoCorrectEntry If Len(Selection) < 2 Then MsgBox "Brak zaznaczenia" Exit Sub End If skrot = InputBox("jaki skrot przyporzadkowac do zaznaczenia?") For Each Entry1 In AutoCorrect.Entries If Entry1.Name = skrot Then odp = MsgBox("Taki skrot juz istnieje." & vbCrLf & " Czy zastapic istniejacy skrot zaznaczona wartoscia?", vbYesNo) If odp = vbYes Then Set Entry1 = Nothing GoTo dodaj Else Exit Sub End If End If Next Entry1 dodaj: AutoCorrect.Entries.AddRichText skrot, Selection.Range MsgBox "Dodano" End Sub
super przydatne🥰
Dzięki za kod🥰
Świetnie przygotowana wiedza
Świetne ciekawostki. Super przekazana wiedza.
Dziękuję bardzo! Działa nie tylko do kolorowania lub zmiany opcji tekstu ale również do wstawiania tekstu.
Jak ustawić w Wordzie aby napisało słownie liczbę np. 250/1 lub 2573 w dokumencie tekstowym???
Super! Dzięki