Excelowy Sprytek

To już dziś 🎄✨
Wigilia i ostatnie okienko kalendarza!
Choinka w Excelu dostaje lampki i można zaczynać jeść karpia!

Wesołych Świąt! Dzięki za cały kalendarz adwentowy!

23 dzień excelowego kalendarza adwentowego! 🎅 Jak wasze przygotowania do Gwizdki?

Choinka w Excelu już stoi, więc dziś dokładamy prezent 🎁
Bo święta są nawet w arkuszu kalkulacyjnym 🎄📊

22 okienko kalendarza adwentowego, więc teraz działamy już tylko na świątecznym arkuszu 🎄

Dwa dni do świąt, a wasz arkusz jeszcze nie gotowy? Jeśli nie wiecie jak wstawić taką choinkę do waszego Excela to koniecznie zajrzyjcie do wczorajszego filmiku!

21 dzień grudnia, więc najwyższy czas na choinkę 🎄 oczywiście taką w Excelu!
Jak ją tam zanieść? Instrukcja w filmiku 🎅

Kod:

Dim ws As Worksheet
Set ws = ActiveSheet

Dim totalRows As Long: totalRows = 100
Dim trunkRows As Long: trunkRows = 18
Dim topRows As Long: topRows = totalRows - trunkRows
Dim maxHalfWidth As Long: maxHalfWidth = 28
Dim centerCol As Long: centerCol = 35
Dim startRow As Long: startRow = 1

ws.Range(ws.Cells(startRow, 1), ws.Cells(startRow + totalRows + 2, centerCol + maxHalfWidth + 10)).Clear
Dim r As Long, i As Long, c As Long
Dim halfW As Long
Dim fr As Long, fg As Long, fb As Long
Dim bgR As Long, bgG As Long, bgB As Long

With ws.Cells(startRow, centerCol)
fr = 255: fg = 215: fb = 0 ' złoto
bgR = fr * 0.7: bgG = fg * 0.7: bgB = fb * 0.7
.Value = "*"
.Font.Color = RGB(fr, fg, fb)
.Interior.Color = RGB(bgR, bgG, bgB)
.Font.Bold = True
End With


For r = 2 To topRows
halfW = CLng((r - 2) * maxHalfWidth / (topRows - 2))
If halfW < 1 Then halfW = 1
For i = -halfW To halfW
c = centerCol + i
With ws.Cells(startRow + r - 1, c)
.Value = "^"
Select Case (r Mod 4)
Case 0: fr = 0: fg = 110: fb = 0
Case 1: fr = 0: fg = 140: fb = 0
Case 2: fr = 34: fg = 160: fb = 34
Case Else: fr = 0: fg = 180: fb = 0
End Select

If Abs(i) > 0 Then
If ((Abs(i) + r) Mod 7 = 0) Or ((Abs(i) + 2 * r) Mod 11 = 0) Then
.Value = "o"
Select Case ((Abs(i) + r) Mod 3)
Case 0: fr = 0: fg = 255: fb = 0
Case 1: fr = 120: fg = 255: fb = 120
Case Else: fr = 0: fg = 210: fb = 0
End Select
.Font.Bold = True
End If
End If

bgR = fr * 0.65
bgG = fg * 0.65
bgB = fb * 0.65
.Font.Color = RGB(fr, fg, fb)
.Interior.Color = RGB(bgR, bgG, bgB)
End With
Next i
Next r
Dim trunkHalf As Long: trunkHalf = 3
For r = topRows + 1 To totalRows
For i = -trunkHalf To trunkHalf
With ws.Cells(startRow + r - 1, centerCol + i)
fr = 139: fg = 69: fb = 19
bgR = fr * 0.65: bgG = fg * 0.65: bgB = fb * 0.65
.Value = "|"
.Font.Color = RGB(fr, fg, fb)
.Interior.Color = RGB(bgR, bgG, bgB)
.Font.Bold = True
End With
Next i
Next r

With ws
.Columns.ColumnWidth = 2
.Rows.RowHeight = 15
.Range(.Cells(startRow, 1), .Cells(startRow + totalRows, centerCol + maxHalfWidth + 5)).Font.Name = "Consolas"
.Range(.Cells(startRow, 1), .Cells(startRow + totalRows, centerCol + maxHalfWidth + 5)).Font.Size = 11
.Range(.Cells(startRow, 1), .Cells(startRow + totalRows, centerCol + maxHalfWidth + 5)).HorizontalAlignment = xlCenter
.Range(.Cells(startRow, 1), .Cells(startRow + totalRows, centerCol + maxHalfWidth + 5)).VerticalAlignment = xlCenter
End With

End Sub

20 okienko kalendarza adwentowego 🎄

Jak często gubisz się w swoich plikach?
Klik, klik… gdzie to było? 😄
Spis treści w Excelu sprawia, że wszystkie arkusze masz pod ręką.

To już 19 dzień naszego wspólnego odliczania do Gwiazdki 🎄

Z jakim rozwiązaniem dziś przychodzę?
Masz arkusz, który ciągnie się w nieskończoność? 😄
Grupowanie w Excelu pozwala go „złożyć” i rozłożyć wtedy, kiedy tego potrzebujesz

AI w Excelu = mniej klikania, więcej efektów!
Oto automatyzacja z 18 okienka excelowego kalendarza adwentowego!

Co sądzicie o pomocy AI w tego typu zadaniach?

Święta Bożego Narodzenia za tydzień! To już 17 okienko z naszego excelowego kalendarza adwentowego 🎄

Czas na pokazanie jak Excel może ułatwić pracę z danymi giełdowymi. Czas na kolejny krok w automatyzacji pracy!

Dobre nagłówki i stopki = elegancki dokument.
Dzisiejsza sztuczka z kalendarza adwentowego pokaże Ci, jak je dodać w Excelu w kilka sekund!

Co najlepiej zrobić kiedy arkusz Excela nie wygląda tak jak tego chcesz? Wejść na ten profil i sprawdzić jak to naprawić w Excelowym Kalendarzu Adwentowym! 🎅

Linie w Excelu potrafią być czasami bardzo denerwujące....

Jakie ułatwienie kryje 14 okienko kalendarza adwentowego?

Dziś pokazuję, jak filtrować zadania przypisane do konkretnej osoby.
To prosta technika, która ułatwia zarządzanie projektami, podział obowiązków i przegląd statusów w zespołach.

13 okienko z kalendarza adwentowego, więc dzisiaj odhaczamy kolejny trik!🎁

Checkboxy w Excelu, czyli jak szybko i czytelnie zaznaczyć wykonane zadania!