< návrat zpět

MS Excel


Téma: Tlačítko (skok na aktuální datum) rss

Zaslal/a 17.10.2015 18:27

Merlin99Zdravím všechny
Mám záludný problém
Potřeboval bych poradit s tlačítkem VBA tak aby když ho zmáčknu tak aby skocil na list1 na aktuální datum (něco jako funkce DNES).. nezná někdo ? Díky

Příloha: rar27513_pokus.rar (14kB, staženo 23x)
Zaslat odpověď >

Strana:  1 2   další »
#027515
avatar
Třeba takto.
Příloha: zip27515_pokus.zip (18kB, staženo 48x)
citovat
#027516
Merlin99
TOP funguje díky moc ! 9citovat
#027517
elninoslov
alebo niečo takéto bez cyklu:
Sub SkocNaDatum2()
Dim V
V = Application.Match(Format(Date, "d.m.yyyy"), Worksheets("List1").Rows(1).Value, 0)
If IsError(V) Then MsgBox ("Dátum " & Date & " sa na List1 nenachádza.") Else Worksheets("List1").Activate: Worksheets("List1").Cells(1, V).Select
End Sub
citovat
#027518
avatar
Mít makro je in, že, na co si dát práci s funkcí HYPERTEXTOVÝ.ODKAZ.. ach jocitovat
#027521
elninoslov
@xlnc: Dobrý návrh. Ak bude vyhovovať takéto riešenie, tak tu je jeden návrh:
=HYPERLINK("#'List1'!"&ADDRESS(1;MATCH(TODAY();List1!$1:$1;0));"Skok na List1")citovat
#027545
avatar
#xlnc

tak ale přece znělo zadání 1citovat
#027546
avatar

Devil napsal/a:

#xlnc

tak ale přece znělo zadání


Jistě, udělám vám tlačítka, která vloží do buňky hodnotu od nuly do devíti. Tady by nemusela striktně platit věta "nenuťte uživatele přemýšlet". Protože s prominutím přesně takový pak vymýšlí pod VBA se Záznamníkem maker kolo...

Ono (elnino bez urážky), pro odskoky se používá GoTo, Activate a speciálně Select je většinou zlo.
Štábní kultura tlačítek z ActiveX/Formulářů je taky hrozná, víte třeba, že makro můžete přiřadit i tvaru?
Chci aby nejen zadavatel (pokud má čas a chce se učit), stejně jako odpovědi o věci přemýšleli. Jo, je to naivní :-)citovat
#027547
avatar
tak je hlavní, že zadavatel tam může mít svá další navazující makra, jen si s tímto neporadit, což tedy nebude tento případ, ale u jiných např. ano, pak vymýšlet místo požadovaného řešení alternativu může být pro tazatele k ničemu...

nejsem žádný VBA master, ale chodím sem, abych se tu něco naučil a pochopil trochu to VBA prostředí...

když vemu zpracování od ji026441 a od elninoslov, pak mi od elnina přijde mnohem více praktičtější 1 i když je možná nedokonalé, ale zase to ukázalo druhou cestu :-)citovat
#027548
elninoslov
Niekedy sú odpovede dosť narýchlo, a keď človek raz za mesiac či dva skúšobne použije Select, okamžite ho kameňujú. Au. 1
Nikto niesme (chvalabohu) neomylný.
Sub SkocNaDatum3()
Dim V
On Error Resume Next
With Worksheets("List1")
V = WorksheetFunction.Match(Format(Date, "d.m.yyyy"), .Rows(1).Value, 0)
If Err Then MsgBox ("Dátum " & Date & " sa na List1 nenachádza.") Else Application.Goto .Cells(1, V)
End With
End Sub

Aby niekto nepovedal, že Application.Match je pomalšia ako WorksheetFunction.Match, tak som to vymenil a adekvátne zmenil odchyt chyby. Pridané zjednodušenie With a samozrejme podnet na opravu od xlnc.

Nieje nič zlé na tom, ak užívateľ chce tlačítko namiesto aktívneho textu. Naozaj nič. Tlačítko je oproti aktívnemu Shape do očí bijúce, a každý okamžite očakáva udalosť. To že tlačítka vyzerajú predpotopne, no kvôli tomu novú Class vytvárať nebudem. Ak chce niekto GlassButton, nech si vloží obrázok z netu, či vytvorí v PS, a aktivuje.

OT: Či sa bude v dnešnej dobe pýtajúci sa snažiť prísť veci na kĺb? Máte opäť pravdu, je to naivná idea. Teraz nemám na mysli konkrétne užívateľa Merlin99. Dnes, keď má každý možnosť napísať dotaz na 10 fór, kde mu dobrovoľníci zadara tŕn z päty vytrhnú, tak v 50% prípadov to dopadne tak, že sa ani neunúva odpovedať, nieto ešte študovať riešenie.
Kde sú tie časy keď som sa učil Basic z časopisu Elektrón, a keď som úplne sám naprogramoval v Assemblery na PMD-85-3 môj prvý skutočný program, obrovské digitálne hodiny, pamätám si aký som bol šťastný, pyšný, a áno aj "obdivovaný". Dnes je to iné ... Neviem, či prichádzate do styku s mladou dženerejšn, ak nie, tak verte, že by ste sa divili, aké sú predstavy mladých o tom, čo všetko musia dostať, okamžite, zadara, všade, vždy, a čo oni nemusia (učiť sa už vôbec nie). Asi do smrti budem spomínať na mladého administrátora, ktorý za svet nevedel dostať pár mailov z jedného do druhého PC.
Nikto z neba múdry nespadol, ale nie každý by musel do neba aj hlúpy znova vystúpať. Takže, ak je aspoň nejaká odozva od užívateľa, hneď to beriem pozitívne. 1citovat
icon #027549
eLCHa
keď človek raz za mesiac či dva skúšobne použije Select, okamžite ho kameňujú.

To si pište, že jo ;)))citovat

Strana:  1 2   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