• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Odkaz na buňku

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

Š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

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

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: 26086_oblast-pohybu-kurzoru1.zip (13kB, staženo 29x)

citovat

eLCHa(4.8.2015 6:49)#026087

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

Zbytečnost.

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

Netestoval jsem.citovat

marjankaj(4.8.2015 12:08)#026091

@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

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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse