< návrat zpět

MS Excel

Téma: Excel 2007 - Jak zjistit pozici výsledku vzorce? rss

Zaslal/a mountDoom 21.7.2013 21:55

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.

Zaslat odpověď >
Strana:  « předchozí  1 2
icon eLCHa(22.7.2013 11:14)#014428
eLCHa
Aha - mno pak je třeba požít výsledek funkce odkaz
a místo
With ActiveCell

dát

With Range(výsledek fce odkaz)citovat
mountDoom(22.7.2013 11:24)#014429
avatar
No ale jak dostanu vzorec s funkcí odkaz do Argumentu Range?citovat
icon eLCHa(22.7.2013 11:59)#014431
eLCHa
Mno, pro vás bude asi nejjednodušší si to prostě spočítat ve vedlejší buňce a pak
With ActiveCell.Offset(0, 1)

Pokud byste chtěl přímo výpočet ve VBA, tak to je sada Application.Worksheetfunctions

ale doporučuji výpočet v listucitovat
mountDoom(22.7.2013 17:13)#014437
avatar
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!citovat
icon eLCHa(23.7.2013 6:09)#014439
eLCHa
Jen dodám, že až na výjimky nemusíte buňku vybírat, abyste s ní mohl něco dělat. Takže v tomto případě se dokonce obejdete bez proměnných. Navíc při kliku na tlačítko neuvidíte skákání kurzoru, takže to vypadá i lépe a hlavně je to rychlejší (v tomto případě neznatelně) a kratší.

Mělo by fungovat:
Private Sub CommandButton1_Click()
With Range(ActiveCell.Offset(0, 27).Value)
.Value = DateSerial(Year(.Value) + 1, Month(.Value), Day(.Value))
End With
End Subcitovat

Strana:  « předchozí  1 2

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

Čas od do

lubo • 19.4. 16:30

Makro smyčka

MilanKop • 19.4. 10:46

Makro smyčka

elninoslov • 19.4. 9:02

Čas od do

elninoslov • 19.4. 8:46

Čas od do

jarek1111 • 18.4. 13:46

Čas od do

lubo • 18.4. 11:13

Čas od do

jarek1111 • 18.4. 8:32