• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

Zaslat odpověď >

---

Strana:  1 2 3   další »

Jiří497(18.2.2018 21:15)#039570

A to okno ti má vyskočit kdy? Při otevření sešitu, při zapsání datumu....?citovat

Jiří497(18.2.2018 22:30)#039571

Co takhle?

Aby byla splněna podmínka, musíš do B1 napsat aktuální datum.

Příloha: 39571_39569_vzor1.xls (78kB, staženo 28x)

citovat

kabaka(19.2.2018 11:53)#039576

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

Jiří497(19.2.2018 14:17)#039581

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

kabaka(19.2.2018 14:36)#039582

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

marjankaj(19.2.2018 15:06)#039583

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

kabaka(19.2.2018 15:19)#039584

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

Jiří497(19.2.2018 15:31)#039585

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

marjankaj(19.2.2018 15:40)#039586

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

kabaka(19.2.2018 16:12)#039587

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

Strana:  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse