열 문자를 숫자로 변환

Sub VBA_Column_Letter_To_Number_Example()
 
  On Error Resume Next
  
  Dim MyColumn As String
  Dim Here As String
 'Variable declaration
  Dim sColName As String
  
 '현재 선택셀의 열주소를 반환
  Here = Selection.Address
  MyColumn = Mid(Here, InStr(Here, "$") + 1, InStr(2, Here, "$") - 2)
 
 'Assign value to a variable
  sColName = MyColumn
 
 'Call Function
  MsgBox "Column Number for Column Letter " & sColName & " is :" _
  & VBA_Column_Letter_To_Number(sColName), vbInformation, "VBAF1"

End Sub


Public Function VBA_Column_Letter_To_Number(ByVal ColNum As String) As Integer
 
 'Function to get Column Letter from Column number.
  VBA_Column_Letter_To_Number = Range(ColNum & 1).Column

End Function

 

VBA Convert Column Letter to Number | Function | Example | VBAF1