数字とアルファベットの相互変換

Posted on 2012年4月17日 by takezawa 
Function Abc2Num(abc)
 Abc2Num = Range("$" & abc & "$1").Column
End Function
Function Num2Abc(num)
 Num2Abc = Split(Cells(1, num).Address, "$")(1)
End Function
web拍手
This entry was posted in Excel VBA. Bookmark the permalink.

コメントを残す

メールアドレスが公開されることはありません。

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>