[엑셀 VBA] 활성셀의 열주소를 반환하는 vba

엑셀로 매크로를 짜다보면 활성셀의 열주소를 알아야할 경우가 발생합니다. 이럴때 아래 소스를 이용하시면 됩니다.

■  활성셀의 열주소를 반환하는 vba 

※ 아래 예제는 엑사모 latinum님이 만든 소스입니다. 

제가 필요에 의해서 블로그에 정리하는 차원에서 올린소스이니 착오없으시길 바랍니다. 

Sub dhTest()     MsgBox dhGetColName(ActiveCell) '활성셀의 열주소 End Sub Function dhGetColName(v As Variant) As String '************************* '열 주소 알아내기 '************************** Dim rngF As Range Dim strAddress As String Dim i As Long     If TypeName(v) = "Range" Then         strAddress = v.Address(True, False, xlA1)     Else         If IsNumeric(v) Then             strAddress = Cells(1, CLng(v)).Address(True, False, xlA1)         Else             Exit Function         End If     End If     i = InStr(strAddress, "$")     dhGetColName = Left(strAddress, i - 1) End Function   Colored by Color Scripter

cs

※아래 파일은 위소스가 적용된 엑셀 예제파일입니다.

활성셀의 열주소 얻기.xlsm