< návrat zpět

MS Excel


Téma: msgbox upozornenie rss

Zaslal/a 18.2.2018 20:32

kabakaexcel 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: xls39569_mk.xls (125kB, staženo 18x)
Zaslat odpověď >

Strana:  1 2 3   další »
#039570
avatar
A to okno ti má vyskočit kdy? Při otevření sešitu, při zapsání datumu....?citovat
#039571
avatar
Co takhle?

Aby byla splněna podmínka, musíš do B1 napsat aktuální datum.
Příloha: xls39571_39569_vzor1.xls (78kB, staženo 14x)
citovat
#039576
kabaka

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
#039581
avatar
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
#039582
kabaka

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
#039583
avatar

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
#039584
kabaka

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
#039585
avatar
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
#039586
avatar

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
#039587
kabaka

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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

mepexg :-)

mepexg • 16.12. 21:52

Excel s funkci maker

Amor007 • 16.12. 11:39

Excel s funkci maker

Jiří497 • 16.12. 10:57

Excel s funkci maker

Amor007 • 16.12. 8:51

Excel s funkci maker

Jiří497 • 15.12. 21:55

Makro: Uložit jako PDF z jménem z buňky

Kamikaze • 15.12. 21:05

Makro: Uložit jako PDF z jménem z buňky

Jozo-Koumes • 15.12. 13:44