A to okno ti má vyskočit kdy? Při otevření sešitu, při zapsání datumu....?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: msgbox upozornenie
Okno má vyskočiť vtedy, keď pod aktuálnym dátumom sa bude nachádzať číslo 1
Pozícia čísel sa totiž bude meniť.
(Logicky aj pozícia aktuálneho dátumu)
Áno pri otvorení zošitu.citovat
Áno tak.citovat
A načo by som to mal hľadať? predsa pod 13.2.2018 bude 13, pod 14.2.2018 bude 14???? jednotka bude predsa vždy v tom prvom stlpci, či?
Stačí test day(today())=1 alebo je to vymyslené nejako zložitejšie?
DEN(DNES())=1citovat
Nečítal si poriadne, čísla pod dátumom budú meniť svoju pozíciu.citovat
A ako? Pod dátumom 10.2.2018 bude 25?, Kto to bude meniť a ako? To je ako zadanie z pomocnej školy.citovat
Ja to budem meniť, ak to bude potrebné.citovat
MS Excel
Téma: msgbox upozornenie 
Zaslal/a kabaka 18.2.2018 20:32
excel 2003
Potrebujem, aby msgbox vyskočil pri splnení podmienky.
Ďakujem
DOPLNENIE
podmienka
V riadku 1 skontroluj dnešný dátum
V riadku 2 skontroluj či sa v tom istom stĺpci pod dnešným dátumom nachádza číslo 1
(pri otvorení zošitu otvor msgbox)
Čísla pod dátumom budú meniť svoju pozíciu.
DOPLNENIE 2 - nová príloha - celý súbor
Příloha: 
39569_mk.xls (125kB, staženo 33x)
39569_mk.xls (125kB, staženo 33x)Co takhle?
Aby byla splněna podmínka, musíš do B1 napsat aktuální datum.
Aby byla splněna podmínka, musíš do B1 napsat aktuální datum.
Příloha: 39571_39569_vzor1.xls (78kB, staženo 28x)
citovat39571_39569_vzor1.xls (78kB, staženo 28x)Jiří497 napsal/a:
A to okno ti má vyskočit kdy? Při otevření sešitu, při zapsání datumu....?
Okno má vyskočiť vtedy, keď pod aktuálnym dátumom sa bude nachádzať číslo 1
Pozícia čísel sa totiž bude meniť.
(Logicky aj pozícia aktuálneho dátumu)
Áno pri otvorení zošitu.citovat
Takže při otevření sešitu najdu v řádku 1 dnešní datum. Pak zkontroluji, jestli ve stejném sloupci je v řádku 2 číslo 1. Pokud ano, tak otevřu msgbox?citovat
Jiří497 napsal/a:
Takže při otevření sešitu najdu v řádku 1 dnešní datum. Pak zkontroluji, jestli ve stejném sloupci je v řádku 2 číslo 1. Pokud ano, tak otevřu msgbox?
Áno tak.citovat
Jiří497 napsal/a:
Takže při otevření sešitu najdu v řádku 1 dnešní datum. Pak zkontroluji, jestli ve stejném sloupci je v řádku 2 číslo 1. Pokud ano, tak otevřu msgbox?
A načo by som to mal hľadať? predsa pod 13.2.2018 bude 13, pod 14.2.2018 bude 14???? jednotka bude predsa vždy v tom prvom stlpci, či?
Stačí test day(today())=1 alebo je to vymyslené nejako zložitejšie?
DEN(DNES())=1citovat
marjankaj napsal/a:
Jiří497 napsal/a
A načo by som to mal hľadať?
Nečítal si poriadne, čísla pod dátumom budú meniť svoju pozíciu.citovat
Moc chytrý z toho zadání nejsem, ale já bych to asi udělal takto:
Private Sub Workbook_Open()
i = 2
While Cells(1, i) <> Date
i = i + 1
Wend
If Cells(2, i) = 1 Then MsgBox ("Moje první okno")
End Sub
Samozřejmě by to chtělo asi doladit.citovat
Private Sub Workbook_Open()
i = 2
While Cells(1, i) <> Date
i = i + 1
Wend
If Cells(2, i) = 1 Then MsgBox ("Moje první okno")
End Sub
Samozřejmě by to chtělo asi doladit.citovat
kabaka napsal/a:
marjankaj napsal/a:Jiří497 napsal/a
A načo by som to mal hľadať?
Nečítal si poriadne, čísla pod dátumom budú meniť svoju pozíciu.
A ako? Pod dátumom 10.2.2018 bude 25?, Kto to bude meniť a ako? To je ako zadanie z pomocnej školy.citovat
marjankaj napsal/a:
kabaka napsal/a:marjankaj napsal/a:Jiří497 napsal/a
Kto to bude meniť a ako?
Ja to budem meniť, ak to bude potrebné.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články