プロが教えるわが家の防犯対策術!

VB.NETなのですが、1、2、3などの数字を
エクセルの横軸のA、B、Cなどのように
対応するアルファベットに変換したいのですが、
良い方法があったらご教授頂きたいです。

A 回答 (2件)

引数の数値を Aや AA IVなどに変更する関数



Function n2column( n as Integer ) as String
  dim nHi, nLo as Integer
  dim ss as String = ""
  ' nを26で割った商を求める
  nHi = n \ 26
  ' nの26での余りをを求める 1..26が求まるように工夫
  nLo = (( n - 1 ) mod 26 ) + 1
  if nHi <> 0 then
    ss = String::Format("{0:c}{1:c}", Chr( &h40 + nHi ), Chr( &H40 + nLo ) )
  else
    ss = String::Format("{0:c}", Chr( &H40 + nLo ) )
  end if
  return ss
End Function
    • good
    • 1

数値から列を指定するExcelVBAでのサンプル。



Dim i As Integer
i = 5
Cells(1, i).EntireColumn.Select

あとは応用してみて下さい。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A