< návrat zpět
MS Excel
Téma: Plánovací kalendář
Zaslal/a Whooocak 28.5.2020 22:18
Dobrý den,
rád bych si vytvořil jednoduchý plánovací kalendář, kde bych si zapisoval termíny jednotlivých úkolů. V příloze je tabulka s daty a rozvržení úkolů, kde první sloupec je ukotven. Požadavkem je, aby se při otevření sešitu (na základě aktuálního data) do prvního sloupce posunuly buňky a zobrazilo se aktuální datum.
Př. dnes je 28.5., takže se mi v prvním sloupci zobrazí dnešní datum s pokračováním následujících dní.
Přes podmíněné formátování jsem schopný dnešní datum zvýraznit, ale nevím, jak, nebo jestli vůbec jde celé sloupce posouvat.
Díky Martin
Příloha: 46735_planovac.xlsx (12kB, staženo 49x)
Milan-158(2.6.2020 16:56)#046798 Je to takové kostrbaté, ale nějak tak by to šlo. Akorát si ty odskoky musíš v makru vyladit podle své šířky monitoru.
citovat
Milan-158(2.6.2020 17:02)#046799 nejde mi připojit soubor, takže makro vypadá takhle:
Sub Test_XY()
Dim dtDnes As Date
Dim j As Integer, jMxCol As Integer, jCol As Integer
Dim rBunka As Range
ThisWorkbook.Activate
'poslední sloupec v řádku 2
jMxCol = Range("OO2").End(xlToLeft).Column
'dnes:
dtDnes = Fix(Now())
For j = 2 To jMxCol
Set rBunka = Cells(2, j)
rBunka.Select
If rBunka = dtDnes Then
rBunka.Offset(0, 15).Select 'zde podle velikosti monitoru nastavit skok doprava
rBunka.Select
rBunka.Offset(0, 32).Select 'zde podle velikosti monitoru nastavit skok doprava
' rBunka.Select
Exit For
End If
Next j
End Sub
A zavěsíš to na událost
Private Sub Workbook_Open()
Call Test_XY
End Sub
citovat