< 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 33x)
Zaslat odpověď >

Strana:  « předchozí  1 2 3   další »
#039588
avatar

kabaka napsal/a:


Ja to budem meniť, ak to bude potrebné.

A AKO to budeš meniť? V tom príklade si to mohla aj naznačiť. Kto má vedieť, čo je "potrebné"?citovat
#039590
kabaka

marjankaj napsal/a:

kabaka napsal/a:
Ja to budem meniť, ak to bude potrebné.
A AKO to budeš meniť? V tom príklade si to mohla aj naznačiť. Kto má vedieť, čo je "potrebné"?


Ok priložím celý súbor. Vypichla som z toho len časť, lebo som si myslela, že to bude stačiťcitovat
#039599
elninoslov
Private Sub Workbook_Open()
Dim Oblast As Range
Set Oblast = Range(Cells(1, 2), Cells(1, Columns.Count).End(xlToLeft))
On Error Resume Next
If Oblast.Offset(1, 0).Cells(1, WorksheetFunction.Match(CDbl(Date), Oblast, 0)).Value2 = 1 Then MsgBox "Pod dnešným dátumom je hodnota 1.", vbExclamation, "Upozornenie"
On Error GoTo 0
Set Oblast = Nothing
End Sub
citovat
#039606
kabaka

elninoslov napsal/a:

Private Sub Workbook_Open()
End Sub


Ďakujem, doteraz som surfovala, ale k ničomu som nedospela.citovat
#039610
avatar
Co mám špatně v tomto zápisu:

Sub pokus()

x = WorksheetFunction.Match(Date, Range("A1:AC1"), 0)

End Sub

Hlásí mi to chybu application-defined or object-defined error

Chci v prvním řádku najít dnešní datum.
Špatně definovaný Range?citovat
#039624
elninoslov
On Error Resume Next
x = WorksheetFunction.Match(CDbl(Date), Range("A1:AC1"), 0)
If Err>0 then MsgBox "Upoxornenie", vbExclamatoin
On Error Goto 0
citovat
#039626
avatar
Aha, takže špatný datový typ v prvním argumentu.
Díky, i za ukázku ošetření chyby.citovat
#039628
elninoslov
Áno. Cdbl(), ale určite použite aj On Error, lebo ak tam ten dátum nebude, makro padá na chybe. Preto je tam ten On Error. Ak v následnom teste je Err iné ako 0, tak nastala chyba, a dátum tam nieje. Ak je Err=0 tak už robte čo potrebujete s nájdenou pozíciou X.citovat
#039634
avatar
Dík.
Teď se dívám, že kdybych pozorně četl, tak jsem si Cdbl() všiml již ve vašem příspěvku z 20.2 v 9:15.

Vím, že ošetření chyb je důležité, ale moc to nedělám a pak se divím.citovat
#039642
kabaka

elninoslov napsal/a:

Private Sub Workbook_Open()


Ešte by si mi mohol vysvetliť, prečo po vložení makra do môjho súboru, msgbox vyskakuje aj vtedy, keď pod aktuálnym dátumom nie je 1.

Resp. makro funguje vtedy, keď nájde v prvom riadku aktuálny dátum a je pod ním 1.

Ale msgbox vyskočí aj keď v prvom riadku nie je aktuálny mesiac.citovat

Strana:  « předchozí  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09