Прескочи на основното съдържание

Как да получа адреса на активната клетка в Excel?

Автор: Силувия Последна промяна: 2020-04-26

Докато използвате Microsoft Excel, можете лесно да получите местоположението на текущо избраната клетка в полето за име, което е в списъка отляво на лентата с формули. Но ако клетката е наименувана, не можете да проверите нейното местоположение въз основа на показването в полето за име. И ако искате директно да покажете пълния адрес на активната клетка или да покажете адреса на активната клетка в определена клетка, какво бихте направили? В този урок ще ви покажем как лесно да получите адреса на активната клетка с формула и VBA методи.

Вземете адреса на активната клетка с формула
Вземете адреса на активната клетка с VBA код
Показване на адреса на активната клетка в определена клетка с VBA код
Динамично показвайте адреса на активната клетка с невероятен инструмент


Вземете адреса на активната клетка с формула

В този раздел ще ви предоставим формула за лесно получаване на адреса на активната клетка.

1. Изберете клетка, за да я направите активна.

2. Въведете формулата по-долу в него и след това натиснете Въведете ключ.

=ADDRESS(ROW(),COLUMN())

След това можете да видите, че адресът на текущо избраната клетка се показва в клетката веднага.

Забележка: Ако изберете друга клетка, адресът няма да се промени автоматично. За да получите динамичен адрес, докато избирате различни клетки, моля, приложете методите по-долу.

Динамично показване на адреса на активната клетка:

- Подобрена лента за редактиране полезност на Kutools за Excel помага за динамично показване на адреса на активната клетка в работен лист в Excel. Освен това можете да преглеждате и редактирате съдържанието на избраната клетка директно в прозореца, както е показано в демонстрацията по-долу.
Изтеглете и опитайте сега! (30-дневна безплатна пътека)


Вземете адреса на активната клетка с VBA код

Можете също да получите адреса на активната клетка с VBA код. Моля, направете следното.

1. Натисни Друг + F11 едновременно за отваряне на Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, щракнете двукратно върху името на текущия използван работен лист в левия прозорец, за да отворите редактора на кода, след което копирайте и поставете кода на VBA по-долу в редактора на кода.

VBA код: Вземете адреса на активната клетка

Sub selectRange()
	MsgBox ActiveCell.Address
End Sub

3. След това кликнете върху бягане бутон за изпълнение на кода.

4. След това ще се появи диалогов прозорец с адреса на активната клетка, посочен вътре.


Показване на адреса на активната клетка в определена клетка с VBA код

В друга ситуация бихте искали адресът на активната клетка да се показва в определена клетка. Всеки път, когато преминавате от една клетка в друга, адресът на клетката ще се променя автоматично и ще се показва в посочената клетка. Моля, направете следното.

1. Моля, отворете Microsoft Visual Basic за приложения прозорец чрез натискане Друг + F11 в същото време.

2. Щракнете два пъти върху името на листа в левия панел, за да отворите редактора на кодове, след което копирайте и поставете кода по-долу в него.

VBA код: показва адреса на активната клетка в определена клетка

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

Забележка: A1 е клетката, в която искате да поставите активния адрес на клетката, можете да го промените на посочената клетка за вашите собствени нужди.

3. След това кликнете досие > Затворете и се върнете към Microsoft Excel за да излезете от Microsoft Visual Basic за приложения прозорец.

Можете да видите адреса на дисплея на активната клетка в клетка A1 и адресът ще се промени автоматично въз основа на промяната на активната клетка. Вижте екранна снимка:


Динамично показвайте адреса на активната клетка с невероятен инструмент

Ако искате динамично да показвате адреса на активната клетка в работния лист, силно препоръчвам Подобрена лента за редактиране инструмент на Kutools за Excel. Нека да видим как този инструмент може динамично да показва адреса на активната клетка в работния лист.

Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.

1. кликване Kutools > Покажи скрий > Подобрена лента за редактиране за да активирате функцията.

Отсега нататък всеки път, когато щракнете върху клетка, ще се появи прозорецът на лентата за подобрено редактиране. И адресът на ативната клетка ще се покаже в долната част на прозореца.
Съвети: Можете директно да преглеждате и редактирате съдържанието на клетката директно в прозореца.

  Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.


Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (5)
No ratings yet. Be the first to rate!
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?
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,
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.
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
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations