2019년 4월 19일 금요일

Excel 123 을 ABC로 변경하기 (숫자를 알파벳으로)

입력된 숫자를 순서대로 ABC로 표시해주는 VBA 함수
쓸일이 있어서 찾아본 뒤 기록함.

출처 : https://ateitexe.com/change-alphabet-integer/


Function CNumAlp(va As Variant) As Variant '?換する??
  Dim al As String
 
  If IsNumeric(va) = True Then '?値だったら
    al = Cells(1, va).Address(RowAbsolute:=False, ColumnAbsolute:=False) '$無しでAddress取得
    CNumAlp = Left(al, Len(al) - 1)
  Else 'アルファベットだったら
    CNumAlp = Range(va & "1").Column '列番?を取得
  End If
End Function



댓글 없음:

댓글 쓰기