Příspěvky uživatele


< návrat zpět

OK, tak nakonec to funguje


Private Sub CommandButton1_Click()
Stara = ActiveCell.Address()
Bunka = ActiveCell.Offset(0, 27).Value
Range(Bunka).Select
Selection.Value = DateSerial(Year(Selection.Value) + 1, Month(Selection.Value), Day(Selection.Value))
Range(Stara).Select
End Sub


Díky za váš čas a ochotu, sám bych to určitě nezvládl!

No ale jak dostanu vzorec s funkcí odkaz do Argumentu Range?

eLCHa napsal/a:

zkuste něco takového

Sub Button_Click()
With ActiveCell
.Value = DateSerial(Year(.Value) + 1, Month(.Value), Day(.Value))
End With 'ActiveCell
End Sub


toto změní hodnotu buňky, na ktero jsem klikl a "zničí" vzorec, který tam má být. Myslím si, že by tam nějak měl být implementován vzorec ze sloupce D, následně sloupce F, aby se našla "původní buňka" a tu zvýšit o jeden rok, jestli rozumíte. Možná to ale jde jesnodušeji, nevím.

Tak já to uvedu na konkrétním prípadě:

1. příklad

vyberu buňku C3 -> Kliknu na tlačítko -> Datum v A6 se zvýší o 1 rok -> A6 už tedy nebude ve sloupci C, protože nepatří mezi 5 nejmenších.
____________________________________________

2. příklad

vyberu buňku C6 -> Kliknu na tlačítko -> Datum v A8 se zvýší o rok -> A8 až tedy nebude ve sloupci C, protože nepatří mezi 5 nejmenších.
____________________________________________________

Jinak na získání hodnoty z buňky, na kterou jsem předtím klikl se myslím dá zjistit pomocí Selection.Value.

OK, rozumím.

Když už je řeč o VB :)..

Je možné vytvořit tlačítko s následující funkcí?

Vyberu jednu buňku z C3-C7. Poté kliknu na tlačítko a datum ze sloupce A, které odpovídá tomu, na které jsem předtím kliknul ve sloupci
C se zvýší o jeden rok. Poté by funkce SMALL měla zajistit aktualizaci sloupce C.

Snad jsem to popsal trochu srozumitelně. :)

To je přesně ono. Jen nechápu jak funguje POSUN($A$3;
(C3=C2)*(D2);0). Mohl bys mi to prosím vysvětlit?

Tak jsem vytvořil malou předlohu. Ještě jednou řeknu, co je mým cílem. Chci najít v seznamu v levém sloupci 5 nejmenších datumů a zjistit jejich pozice, je jedno jestli absolutní nebo relativní podle pořadí v seznamu.
Stačí mi znát pouze číslo řádku.

Ty "datumy, které nejsou u sebe" jsou v tomto případě 6.9.2012

Potřebuji najít 10 nejmenších čísel v seznamu a zjistit číslo jejich řádku. Nejlépe aby se nemusely použít žádné bunky navíc.

Zdravím,

existuje nějaká funkce v Excelu, která zjistí, pozici buňky, která je výsledkem jiné funkce?

Např. pro vyhledání nejmenší hodnoty v neuspořádaném seznamu (který může obsahovat i duplikáty) použiji funkci SMALL. A já potřebuji vědět, na jaké pozici se ta nejmenší hodnota nachází, stačí řádek.

Problém je ten, že jde o neuspořádaný seznam datumů a když je v něm více stejných datumů, které ale nejsou u sebe, tak zbytek nefunguje jak má.

Děkuji
_____________________________________________________

Pozn. omlouvám se za vložení tématu do Obecné diskuse.

Opičák napsal/a:

Příloha: 14401_pozice.zip


A když budu chtít najít pozici té druhé dvojky (v tomto případě A68), tak to udělám jak?

Zdravím,

existuje nějaká funkce v Excelu, která zjistí, pozici buňky, která je výsledkem jiné funkce?

Např. pro vyhledání nejmenší hodnoty v neuspořádaném seznamu (který může obsahovat i duplikáty) použiji funkci SMALL. A já potřebuji vědět, na jaké pozici se ta nejmenší hodnota nachází, stačí řádek.

Problém je ten, že jde o neuspořádaný seznam datumů a když je v něm více stejných datumů, které ale nejsou u sebe, tak zbytek nefunguje jak má.

Děkuji za pomoc


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

Zvýraznění překročené hodnoty v grafu

ABRAMOWSKI61 • 19.10. 23:14

EXCEL VBA vyhledání buňky

elninoslov • 19.10. 11:34

EXCEL VBA vyhledání buňky

elninoslov • 19.10. 11:24

EXCEL VBA vyhledání buňky

ben59 • 19.10. 9:34

Ověření datumu TextBox1.Text

Stana-V • 19.10. 7:43

Ověření datumu TextBox1.Text

elninoslov • 18.10. 20:15

Auto mazanie emailov

elninoslov • 18.10. 20:01