MS Excel

Potrebujem vytvoriť vyskakujúce okno pri otvorení excelu upozorňujúce na na narodeniny.

Funkciou som zistila narodeniny. Podmienila formátom. Vytvorila ms box.

Ale neviem to zladiť s upozornením na dátum.

Mám office 2003.

Zaslat odpověď >

Strana: 1 2 3 další »

Devil(9.2.2017 13:40)#034864

mělo by fungovat snad i v 2003, asi to není nejlepší řešení, ale mohlo by fungovat :-)

Sub narozeniny()

Dim rng As Range
Dim radek As Long
Dim datum As String
Dim i As Long
Dim a As String

datum = Format(Date, "dd.mm.")
With ActiveSheet
radek = .Cells(.Rows.Count, "B").End(xlUp).Row
End With
Set rng = Range("B2:B" & radek)
For i = 1 To radek
a = Format(Range("B" & i + 1).Value, "dd.mm.")
If a = datum Then
MsgBox ("Dnes má narozeniny: " & Range("A" & i + 1).Value)
End If
Next i
End Subcitovat

kabaka(9.2.2017 14:05)#034865

Funguje mi to. Je to super. Ďakujem veľmi pekne.citovat

Devil(9.2.2017 14:31)#034866

ještě drobná úprava:

Sub narozeniny()

Dim rng As Range
Dim radek As Long
Dim datum As String
Dim i As Long
Dim a As String
Dim b As Integer
Dim rok As Integer

rok = Format(Date, "yyyy")
datum = Format(Date, "dd.mm.")
With ActiveSheet
radek = .Cells(.Rows.Count, "B").End(xlUp).Row
End With
Set rng = Range("B2:B" & radek)
For i = 1 To radek - 1
a = Format(Range("B" & i + 1).Value, "dd.mm.")
b = Format(Range("B" & i + 1).Value, "yyyy")
If a = datum Then
b = rok - b
MsgBox ("Dnes (" & Date & ") má narozeniny: " & Range("A" & i + 1).Value & vbNewLine & "právě slaví: " & b & " rok narozenin")
End If
Next i
End Sub
citovat

xlnc(9.2.2017 14:35)#034867

A co když...?citovat

Devil(9.2.2017 14:53)#034868

xlnc napsal/a:

A co když...?

Co když? Když... Když bych to uměl napsat líp, tak bych to napsal, ale rád se nechám poučit od zkušenějších a lepších...

citovat

xlnc(9.2.2017 15:22)#034869

Od boku: Počet narozenin = počet MsgBoxů? Jasně, je to o náhodě, ale přeci jen by asi chtělo vyřešit tuto "okrajovou podmínku" úlohy malinko lépe, tj. jeden MsgBox.citovat

elninoslov(9.2.2017 20:03)#034870

ďalší príklad, mal by snáď fachať aj na prestupných rokoch (treba potestovať), ale dalo by sa to urobiť aj maticovým vzorcom (ak ho E2003 dáva), a to tak, že by sa vyhradilo prvých napr. 5 riadkov, kde by sa maticou zoradili mená, ktoré oslavujú. Alebo 10, alebo koľko myslíte, že by sa mohlo zhodnúť v jeden deň narodením (podľa toho aké máte dáta a koľko).

Příloha: zip

34870_porada.jubeliea.zip (19kB, staženo 45x)

citovat

kabaka(9.2.2017 20:10)#034871

elninoslov napsal/a:

ďalší príklad...

Ďakujem, použijem aj túto verziu ...citovat

elninoslov(10.2.2017 13:10)#034878

Ešte teda bez toho makra, len maticovým vzorcom. Je to nastavené na 9 narodením v jeden deň (dá sa rozšíriť), s upozornením, ak ich je viac. Pod tabuľkou s dátami nesmie byť nič iné.

Příloha: zip

34878_porada.jubeliea.vzorec.zip (15kB, staženo 43x)

citovat

kabaka(10.2.2017 17:50)#034884

elninoslov napsal/a:

Ešte teda bez toho makra, len maticovým vzorcom.

Maticový vzorec mi vydhadzuje chybu "název"
Pravdepodobne nekombatibilita s office 2003.
Predchádzajúce 2 riešenia použijem.citovat

Strana: 1 2 3 další »

Téma: MSBOX - upozornenie na narodeniny

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje