< návrat zpět

MS Excel

Téma: msgbox upozornenie rss

Zaslal/a kabaka 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ší »
marjankaj(19.2.2018 16:28)#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
kabaka(19.2.2018 17:01)#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
elninoslov(20.2.2018 9:15)#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 Subcitovat
kabaka(20.2.2018 10:08)#039606
kabaka

elninoslov napsal/a:

Private Sub Workbook_Open()
End Sub


Ďakujem, doteraz som surfovala, ale k ničomu som nedospela.citovat
Jiří497(20.2.2018 12:12)#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
elninoslov(21.2.2018 1:04)#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 0citovat
Jiří497(21.2.2018 9:44)#039626
avatar
Aha, takže špatný datový typ v prvním argumentu.
Díky, i za ukázku ošetření chyby.citovat
elninoslov(21.2.2018 11:15)#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
Jiří497(21.2.2018 12:23)#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
kabaka(21.2.2018 16:57)#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

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.

On-line nástroje