VBA 매크로 구현 Excel에서 모든 작업을 실행하는 가장 효과적이고 빠르고 안전한 방법입니다. 이 기사에서는 Excel에서 열 번호를 문자로 변환하는 방법을 보여줍니다. VBA 사용 .
통합 문서 다운로드
여기에서 무료 연습 Excel 워크북을 다운로드할 수 있습니다.
VBA를 구현하여 Excel에서 열 번호를 문자로 변환하는 3가지 방법
이 섹션에서는 특정 열 번호를 문자로 변환하는 방법을 배웁니다. , 사용자 입력 열 번호를 문자로 UDF(사용자 정의 함수)를 생성하여 열 번호를 문자로 변환 VBA를 사용하여 Excel에서 .
1. Excel에서 특정 열 번호를 문자로 변환하는 VBA
a를 변환하는 단계 특정 열 번호를 문자로 VBA를 사용하여 Excel에서 아래에 나와 있습니다.
단계:
- Alt + F11 누르기 키보드에서 또는 개발자 -> Visual Basic 탭으로 이동합니다. Visual Basic Editor 열기 .
- 팝업 코드 창의 메뉴 표시줄에서 삽입 -> 모듈을 클릭합니다. .
- 다음 코드를 복사하여 코드 창에 붙여넣습니다.
Sub ColNumToLetter()
Dim ColNumber As Long
Dim ColLetter As String
'Input Column Number
ColNumber = 200
'Convert To Column Letter
ColLetter = Split(Cells(1, ColNumber).Address, "$")(1)
'Display Result
MsgBox "Column " & ColNumber & " = Column " & ColLetter
End Sub이제 코드를 실행할 준비가 되었습니다.
이 코드는 열 번호 200을 변환합니다. 연결된 서신 주소로 .
- F5 누르기 키보드 또는 메뉴 모음에서 실행 -> 하위/UserForm 실행을 선택합니다. . 작은 재생 아이콘을 클릭할 수도 있습니다. 하위 메뉴 표시줄에서 매크로를 실행합니다.
편지 주소(GR ) 열 번호(예:200 ) 코드 내부에 입력합니다.
자세히 알아보기: VBA에서 Excel의 열 번호 기반 범위 사용(4가지 방법)
유사한 수치
- [고정] 문자 대신 Excel 열 번호(2개 솔루션)
- Excel에서 열 문자를 숫자 차트로 변환하는 방법(4가지 방법)
2. Excel에서 사용자 정의 함수(UDF)를 사용하여 열 번호를 문자로 전환하는 VBA
UDF를 사용하여 열 번호를 문자로 전환하는 단계 VBA를 사용하여 Excel에서 아래에 나와 있습니다.
단계:
- 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
- 코드 창에서 다음 코드를 복사하여 붙여넣습니다.
Public Function NumToLtr(ColNum)
NumToLtr = Split(Cells(1, ColNum).Address, "$")(1)
End Function
이것은 VBA에 대한 하위 절차가 아닙니다. 프로그램을 실행하면 사용자 정의 함수(UDF)가 생성됩니다. . 따라서 코드를 작성한 후 실행 버튼을 클릭하는 대신 메뉴 표시줄에서 저장을 클릭합니다. .
- 이제 관심 있는 워크시트로 돌아가서 VBA로 방금 만든 함수를 작성합니다. 코드(함수 NumToLtr 코드의 첫 번째 줄) 및 NumToLtr 괄호 안에 함수, 셀 참조 번호 전달 문자로 변환하려는 경우(이 경우 셀 B5를 전달합니다. 괄호 안).
따라서 최종 공식은 다음과 같습니다.
=NumToLtr(B5)
- Enter 키를 누릅니다. .
관련 편지 주소(A ) 열 번호(1 ) 데이터세트에 있습니다.
- 이제 채우기 핸들로 행을 아래로 드래그합니다. UDF 적용 나머지 셀로 이동하여 문자로 변환합니다.
GoTo 문 사용
위의 절차는 이동 으로도 수행할 수 있습니다. 성명서.
- VBA GoTo를 사용하여 열 번호를 문자로 변환하는 코드 진술은,
Public Function Num_Letter(ByVal iColNum As Integer) As String
Dim SLetter As String
On Error GoTo iError
Num_Letter = Left(Cells(1, iColNum).Address(False, False), _
Len(Cells(1, iColNum).Address(False, False)) - 1)
Exit Function
iError:
Call MsgBox(Err.Number & " - " & Err.Description)
End Function
- 이제 위와 같이 UDF를 호출합니다. 데이터세트에서 셀 참조 번호 전달 인수로 Enter 키를 누릅니다. 및 드래그 열 번호를 문자로 변환하는 행 Excel에서 GoTo VBA의 문 .
Do-While 루프 사용
할 일 루프는 VBA에서 열 번호를 문자로 변환하는 또 다른 방법입니다. 엑셀.
- VBA Do-While을 사용하여 열 번호를 문자로 변환하는 코드 루프는
Function NumberToLetter(iCol As Long) As String
Dim a As Long
Dim b As Long
a = iCol
NumberToLetter = ""
Do While iCol > 0
a = Int((iCol - 1) / 26)
b = (iCol - 1) Mod 26
NumberToLetter = Chr(b + 65) & NumberToLetter
iCol = a
Loop
End Function
- 마찬가지로 UDF를 호출합니다. 데이터세트에서 셀 참조 번호 전달 인수로 Enter 키를 누릅니다. 및 드래그 열 번호를 문자로 변환하는 행 Excel에서 Do-While VBA 루프 .
자세히 알아보기: Excel VBA:행 및 열 번호로 범위 설정(예제 3개)
3. Excel의 사용자 입력에서 열 번호를 문자로 변경하는 VBA
사용자 입력의 열 번호를 문자로 변경하는 단계 VBA를 사용하여 Excel에서 아래에 나와 있습니다.
단계:
- 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
- 코드 창에서 다음 코드를 복사하여 붙여넣습니다.
Sub GetNumberFromUser()
Dim ColNumber As Long
Dim ColLetter As String
'User Input: Column Number
ColNumber = InputBox("Please Enter a Column Number")
'Convert the user-entered Column Number To Column Letter
ColLetter = Split(Cells(1, ColNumber).Address, "$")(1)
'Display the Result
MsgBox "Column Number: " & ColNumber & _
" = Column Letter: " & ColLetter
End Sub이제 코드를 실행할 준비가 되었습니다.
- 실행 매크로.
- 열 번호를 묻는 Microsoft Excel 팝업 메시지 상자가 나타납니다. 열 번호 쓰기 상자 안의 문자로 변환하려는 다음 확인을 누릅니다. .
열 번호(예:200 ) 관련 문자 주소(GR ).
자세히 알아보기: Excel에서 열 번호를 기반으로 범위를 사용하는 VBA(4가지 방법)
결론
이 문서에서는 VBA를 사용하여 Excel에서 숫자를 문자로 변환하는 방법을 보여주었습니다. . 이 글이 당신에게 많은 도움이 되었기를 바랍니다. 주제와 관련하여 궁금한 점이 있으면 언제든지 문의하세요.
관련 기사
- Excel에서 열 이름을 ABC에서 1 2 3으로 변경하는 방법
- Excel에서 열 문자를 숫자 차트로 변환하는 방법(4가지 방법)
- Excel에서 행 및 열 번호로 셀을 참조하는 방법(4가지 방법)
- Excel VBA:여러 열 선택(3가지 방법)
- Excel에서 일치하는 열 번호를 반환하는 방법(5가지 유용한 방법)