Přejít k hlavnímu obsahu

Jak získat adresu aktivní buňky v aplikaci Excel?

Při použití aplikace Microsoft Excel můžete snadno zjistit umístění aktuálně vybrané buňky v poli Název, které je uvedeno vlevo na panelu vzorců. Pokud je ale buňka pojmenována, nemůžete prozkoumat její umístění na základě zobrazení v poli Název. A pokud chcete přímo zobrazit úplnou adresu aktivní buňky nebo zobrazit adresu aktivní buňky v určené buňce, co byste udělali? V tomto kurzu vám ukážeme, jak snadno získat adresu aktivní buňky pomocí metod vzorce a VBA.

Získejte adresu aktivní buňky pomocí vzorce
Získejte adresu aktivní buňky pomocí kódu VBA
Zobrazte adresu aktivní buňky v zadané buňce pomocí kódu VBA
Dynamické zobrazení adresy aktivní buňky pomocí úžasného nástroje

Získejte adresu aktivní buňky pomocí vzorce

V této části vám poskytneme vzorec pro snadné získání adresy aktivní buňky.

1. Vyberte buňku, aby byla aktivní.

2. Zadejte do ní následující vzorec a poté stiskněte vstoupit klíč.

=ADDRESS(ROW(),COLUMN())

Pak můžete vidět, že se v buňce okamžitě zobrazuje adresa aktuálně vybrané buňky.

Poznámka: Pokud vyberete jinou buňku, adresa se nezmění automaticky. Pro získání dynamické adresy při výběru různých buněk použijte níže uvedené metody.

Dynamicky zobrazit adresu aktivní buňky:

Projekt Vylepšená lišta úprav užitečnost Kutools pro Excel pomáhá dynamicky zobrazit adresu aktivní buňky v listu v aplikaci Excel. Kromě toho můžete zobrazit a upravit vybraný obsah buňky přímo v okně, jak je ukázáno níže.
Stáhněte si a vyzkoušejte! (30denní bezplatná trasa)

Získejte adresu aktivní buňky pomocí kódu VBA

Můžete také získat adresu aktivní buňky pomocí kódu VBA. Postupujte prosím následovně.

1. zmáčkni Další + F11 současně otevřít Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace v levém podokně otevřete editor kódu, poté zkopírujte a vložte níže uvedený kód VBA do editoru kódu.

Kód VBA: Získejte adresu aktivní buňky

Sub selectRange()
	MsgBox ActiveCell.Address
End Sub

3. Poté klikněte na tlačítko Běh tlačítko pro spuštění kódu.

4. Poté se zobrazí dialogové okno s adresou aktivní buňky uvedené uvnitř.

Zobrazte adresu aktivní buňky v zadané buňce pomocí kódu VBA

V jiné situaci byste chtěli, aby se adresa aktivní buňky zobrazila v určené buňce. Při každém přechodu z jedné buňky do druhé se adresa buňky automaticky změní a zobrazí se v zadané buňce. Postupujte prosím následovně.

1. Otevřete prosím Microsoft Visual Basic pro aplikace okno stisknutím Další + F11 současně.

2. Poklepáním na název listu v levém podokně otevřete editor kódu, poté do něj zkopírujte a vložte níže uvedený kód.

Kód VBA: zobrazí adresu aktivní buňky v zadané buňce

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
	Range("A1").Value = ActiveCell.Address
End Sub

Poznámka: A1 je buňka, kam chcete umístit aktivní adresu buňky, můžete ji podle svých potřeb změnit na zadanou buňku.

3. Pak klikněte na tlačítko Soubor > Zavřete a vraťte se do aplikace Microsoft Excel pro opuštění Microsoft Visual Basic pro aplikace okno.

Adresu aktivních displejů buňky vidíte na buňce A1 a adresa se automaticky změní na základě změny aktivní buňky. Viz snímek obrazovky:

Dynamické zobrazení adresy aktivní buňky pomocí úžasného nástroje

Pokud chcete dynamicky zobrazit adresu aktivní buňky v listu, velmi doporučuji Vylepšená lišta úprav nástroj Kutools pro Excel. Podívejme se, jak tento nástroj dokáže dynamicky zobrazit adresu aktivní buňky v listu.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. cvaknutí Kutools > Zobrazit a skrýt > Vylepšená lišta úprav pro povolení této funkce.

Od nynějška se pokaždé, když kliknete na buňku, vyskočí okno Vylepšená lišta úprav. Ve spodní části okna se zobrazí adresa aktivní buňky.
Tipy: Obsah buňky můžete přímo prohlížet a upravovat přímo v okně.

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup  |   VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar   |  Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky   |  Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů:  12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (5)
No ratings yet. Be the first to rate!
IGOR
IGOR
This comment was minimized by the moderator on the site
Bom dia,
Excelente formula para exibir a célula ativa.
Mas estou precisando utilizar o "conteúdo" de uma célula ativa dentro de uma formula SE.
Entao:

Se
"celula_ativa" = "aluno"
Retorna a seguinte informação "XXXX"
OU se for "professor"
Retorna a seguinte informação "YYYY"

Vc consegue me ajudar com isso, por favor?
Reply
0
0
Eileen M Endres
Eileen M Endres
This comment was minimized by the moderator on the site
I am fairly new to writing VBA.
Instead of reporting the message box with activated cell address, I would like to pull the cell address of an activated cell from my vba code and store it in a table/other location on the sheet for each iteration that my for loop takes.

How would I go about completing this task?


Regards,
Reply
0
0
RichEO
RichEO
This comment was minimized by the moderator on the site
The first example does not display the address of the active cell but of the cell containing the formula. If you were to select a different cell the address would not change.
Actually this is probably more useful information than gathering the active cell's address and harder to find if you need it. I was looking how to do this using VBA and could not find it for a while so I will include it here:

Application.Caller.Address

That will give you the address of the cell calling the function and not the active cell, useful for relative references.
Reply
0
0
schipper1947
schipper1947
This comment was minimized by the moderator on the site
Hello,

Displaying the active cell reference is helpful. But how do I actually use that value? I'm reading exams, and have six columns (of which two will get filled in). The student name is in column A; I can extract the family name: LEFT(A7,(FIND(",")A7)-1))) [where A7 is the current address]. I can use the code for displaying the current active cell address provided above:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = ActiveCell.Address
End Sub

But what I really want to do is have the cursor being somewhere in the current row (C3:H3), and extract the family name of the current student. Example:

A B C D E F G H
1 Name ID 1 2 3 4 5 6

2 Smith, John 1234567

When the active cell is between C1 and H1, I want to extract the student name from A2 ("Smith, John") [using LEFT(A2,(FIND(",")A2)-1)))], but with the values for the address supplied from the code above.

Any suggestions would be welcome.


Bill
Reply
Report
0
0
crystal
crystal     schipper1947
This comment was minimized by the moderator on the site
Dear Bill,
If you want to use the cell reference of active cell, please apply below VBA code.
(The active cell reference will be displayed in cell A1. Then you can copy the cell reference directely in A1 or do other operations as you need.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If (Target.Count = 1) And (Intersect(Target, Range("A1")) Is Nothing) Then
Range("A1").Value = ActiveCell.Address
End If
End Sub
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations