“excel vba column letter” Code Answer’s

In this article we will learn about some of the frequently asked Visual Basic programming questions in technical like “excel vba column letter” Code Answer’s. When creating scripts and web applications, error handling is an important part. If your code lacks error checking code, your program may look very unprofessional and you may be open to security risks. Error handling in VBA is simple. An error message with filename, line number and a message describing the error is sent to the browser. This tutorial contains some of the most common error checking methods in Visual Basic. Below are some solution about “excel vba column letter” Code Answer’s.

excel vba function to convert column number to letter

xxxxxxxxxx

Function ColName(n)

    ColName = Split(Cells(, n).Address, "$")(1)

End Function

excel vba column letter

xxxxxxxxxx

Function ColumnLetter(pColIndex As Long) As String

    ColumnLetter = Replace(Cells(1, pColIndex).Address(True, False), "$1", "")

End Function

excel vba column letter to number

xxxxxxxxxx

Sub Test()

  Debug.Print "result: " & getColIndex("DD")  ' --> result: 108

End Sub

​

Function getColIndex(sColRef As String) As Long

  Dim i As Long, sum As Long, iRefLen As Long

  sum = 0: iRefLen = Len(sColRef)

  For i = iRefLen To 1 Step -1

    sum = sum + Base26(Mid(sColRef, i)) * 26 ^ (iRefLen - i)

  Next

  getColIndex = sum

End Function

​

Private Function Base26(sLetter As String) As Long

  Base26 = Asc(UCase(sLetter)) - 64 'fixed

End Function