< návrat zpět

MS Excel

Téma: Odkaz na buňku rss

Zaslal/a trhin 3.8.2015 15:27

Ahoj, chtěl bych se prosím zeptat jak by se dalo udělat. Na listu 1 stojím na nějaké buňce, např. stojím na B8, potom na B11 a tu hodnotu bych chtěl zobrazit na Listu 2 vždy do bunky C2. Prostě na čem stojím na listu 1 to chci v bunce C2 na listu 2.
Děkuji za pomoc

Zaslat odpověď >
Pavlus(3.8.2015 19:02)#026080
avatar
Šlo by to např. tak, že na prvním listu se vytvoří událost SelectionChange, která vždy při změně výběru přepíše na druhém listu požadovanou buňku.
P.

Př.:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("List2").Range("A1").Value = ActiveCell.Value
End Subcitovat
marjankaj(3.8.2015 21:55)#026085
avatar

Pavlus napsal/a:

Šlo by to např. tak, že na prvním listu se vytvoří událost SelectionChange, která vždy při změně výběru přepíše na druhém listu požadovanou buňku.
P.

Asi by som tam dal radšej vzorec, namiesto hodnoty. Čo ak zmení hodnotu bunky cez CTRL+V?
A nebude problém ak vyberie nejakú oblasť? A nie iba jednu bunku?
Akosi mi uniká praktické využitie tejto vymoženosti.citovat
Opičák(4.8.2015 1:03)#026086
Opičák
kdysi jsem to taky na něco potřeboval, už nevím na co, ale bylo to na jednom listu. Možná to pomůže.
Příloha: zip26086_oblast-pohybu-kurzoru1.zip (13kB, staženo 30x)
citovat
icon eLCHa(4.8.2015 6:49)#026087
eLCHa
Mno přijde mi to jako naprostá zbytečnost, ale po ránu na rozcvičení

SelectionChange stačit nebude. Jak píše marjankaj některé akce tuto událost nevyvolají. Takže zkuste do modulu sešitu (ThisWorkbook) vložitPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.Calculate
End Subpak přidejte standardní modul a vložteFunction GET_ACTIVECELL()
GET_ACTIVECELL = ActiveCell.Value
End Functionno a pak do buňky, kde chcete vidět tu hodnotu vložte=GET_ACTIVECELL()
Testoval jsem asi 15s a protože nevidím žádé rozumné využití, dále se tím nezabývámcitovat
lubo(4.8.2015 10:08)#026088
avatar
Zbytečnost.

jména + excel4 makrofunkce by také mohly nějak fungovat.

Netestoval jsem.citovat
marjankaj(4.8.2015 12:08)#026091
avatar
@eLCHa
A ak by mal zobrazené obidva listy(inak ten význam je dosť pochybný), tak sa udalosť Workbook_SheetSelectionChange nevyvolá.

Teda zbytočnosť.citovat
elninoslov(4.8.2015 16:13)#026101
elninoslov
No podľa mňa by mohlo stačiť aj toto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Worksheets("Hárok2").Cells(2, 3).Formula = "=Hárok1!" & Target.Cells(1, 1).Address
End Sub
-Keď bude označených viac buniek, reaguje len na prvú.
-Vkladá vzorec na aktuálnu bunku
-Keďže je to vzorec, tak reaguje aj na zmenu bunky, či už výpočtom alebo vložením.citovat
marjankaj(4.8.2015 20:10)#026111
avatar

elninoslov napsal/a:


-Keď bude označených viac buniek, reaguje len na prvú.
-Vkladá vzorec na aktuálnu bunku
-Keďže je to vzorec, tak reaguje aj na zmenu bunky, či už výpočtom alebo vložením.

Veď to som písal na začiatku, že ja by som tam dal vzorec.
Ale praktický význam tam stále nevidím. Čo s tým mieni ďalej robiť? Preto som sa tým ani nezaoberal.citovat

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