エクセル列の数値→アルファベット変換

エクセルの列番号を数値からもとめます。

自分用のメモです。
用途は色々あると思います。
セルのxとyを数値でやると直感的にわかりにくいので嫌だなという時とかに使います。
.Netで利用できるExcelCreator とか VBReportとかで使っています。

vb.net

Dim n2a = Function(num As Integer)
              Dim en As String() = {"", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
              Dim a As String = en(Math.Floor(num / 26))
              Dim b As String = en(num Mod 26)
              Return a & b
          End Function
Dim hoge = n2a(1) 'A