메인 컨텐츠로 가기

Excel에서 활성 셀의 주소를 얻는 방법은 무엇입니까?

Microsoft Excel을 사용하는 동안 수식 입력 줄 왼쪽에있는 이름 상자에서 현재 선택된 셀의 위치를 ​​쉽게 확인할 수 있습니다. 그러나 셀에 이름이 지정되면 이름 상자에 표시되는 위치를 기준으로 위치를 확인할 수 없습니다. 활성 셀의 전체 주소를 직접 표시하거나 지정된 셀에 활성 셀의 주소를 표시하려면 어떻게 하시겠습니까? 이 자습서에서는 수식 및 VBA 메서드를 사용하여 활성 셀의 주소를 쉽게 얻는 방법을 보여줍니다.

수식으로 활성 셀의 주소 가져 오기
VBA 코드로 활성 셀 주소 가져 오기
VBA 코드로 지정된 셀의 활성 셀 주소 표시
놀라운 도구로 활성 셀의 주소를 동적으로 표시


수식으로 활성 셀의 주소 가져 오기

이 섹션에서는 활성 셀의 주소를 쉽게 얻는 공식을 제공합니다.

1. 활성화 할 셀을 선택합니다.

2. 여기에 아래 공식을 입력하고 엔터 버튼 키.

=ADDRESS(ROW(),COLUMN())

그러면 현재 선택한 셀의 주소가 셀에 즉시 표시되는 것을 볼 수 있습니다.

주의 사항: 다른 셀을 선택하면 주소가 자동으로 변경되지 않습니다. 다른 셀을 선택하면서 동적 주소를 얻으려면 아래 방법을 적용하십시오.

활성 셀의 주소를 동적으로 표시 :

향상된 편집 바 ~의 유용성 Excel 용 Kutools 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 셀에서 활성 셀의 주소가 표시되는 것을 볼 수 있으며, 활성 셀의 변경에 따라 주소가 자동으로 변경됩니다. 스크린 샷보기 :


놀라운 도구로 활성 셀의 주소를 동적으로 표시

워크 시트에 활성 셀의 주소를 동적으로 표시하려면 다음을 적극 권장합니다. 향상된 편집 바 도구 Excel 용 Kutools. 이 도구가 워크 시트의 활성 셀 주소를 동적으로 표시하는 방법을 살펴 보겠습니다.

신청하기 전에 Excel 용 Kutools, 제발 먼저 다운로드하여 설치하십시오..

1. 클릭 쿠툴 > 표시 및 숨기기 > 향상된 편집 바 이 기능을 사용하려면

이제부터는 셀을 클릭 할 때마다 Enhanced Edit Bar 창이 팝업됩니다. 그리고 ative cell의 주소는 창 하단에 표시됩니다.
방문 꿀팁: 창에서 직접 셀 내용을보고 편집 할 수 있습니다.

  이 유틸리티의 무료 평가판 (30 일)을 받으려면 그것을 다운로드하려면 클릭하십시오을 클릭 한 다음 위 단계에 따라 작업 적용으로 이동합니다.


최고의 사무 생산성 도구

인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

kte 탭 201905


Office Tab은 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