意の中のカワズ(35歳の壁 別館)

35歳の壁の別館ブログです。コード中心になるようにしたいので、技術雑記はできるだけ本館に書きます。

VBA:「行列番号を指定して、セル名を返す」

カラム番号 To カラム名 ってことです。
よく使うので書いておきます。


' セル番号に該当するセル名に返します
Public Function rangeToColmunName(lngRow As Long, intCol As Integer) As String

Dim strBuf As String

strBuf = Cells(lngRow, intCol).Address(True, False)
rangeToColmunName = Mid(strBuf, 1, InStr(1, strBuf, "$") - 1)

End Function

なんか、こういうアナログ(?)な処理で無理矢理変換する系の
Commonsが自分の場合多いです。